mangesh.kolte
Member
Hello Everyone...
Can you please elaborate below code for me...
L P##SourceArray
LAR1
L B [AR1,P#0.0]
L B#16#10
<>I
L W#16#8101
JC Err
L B [AR1,P#1.0]
L B#16#1
==I
JC DtX
TAK
L B#16#2
==I
JC DtB
TAK
L B#16#4
==I
JC DtW
TAK
L B#16#6
==I
JC DtDW
L W#16#8102
JU Err
DtX: L W [AR1,P#2.0]
T #BoolLength
JU ChLe
DtB: L 8
JU rep
DtW: L 16
JU rep
DtDW: L 32
JU rep
rep: L W [AR1,P#2.0]
*D
T #BoolLength
L B [AR1,P#9.0]
L 2#111
AW
L W#16#8103
JN Err
ChLe: L #BoolLength
L 0
<=I
L W#16#8104
JC Err
L #BoolLength
L 32766
L W#16#8105
JC Err
L B [AR1,P#6.0]
L B#16#81
==I
JC IaM
TAK
L B#16#82
==I
JC IaM
TAK
L B#16#83
==I
JC IaM
TAK
L B#16#84
==I
JC IaDB
TAK
L B#16#85
==I
JC IaDB
TAK
L B#16#86
==I
JC IaM
TAK
L B#16#87
==I
JC IaM
L W#16#8106
JU Err
IaM: L D [AR1,P#6.0]
LAR1
JU chk
IaDB: L W [AR1,P#4.0]
T #DBNumber
L 0
==I
L W#16#8107
JC Err
L D [AR1,P#6.0]
L DW#16#FFFFFF
AW
L DW#16#84000000
OW
T #StartAddr
LAR1
OPN DB [#DBNumber]
JU chk
Thanks in advance....
Can you please elaborate below code for me...
L P##SourceArray
LAR1
L B [AR1,P#0.0]
L B#16#10
<>I
L W#16#8101
JC Err
L B [AR1,P#1.0]
L B#16#1
==I
JC DtX
TAK
L B#16#2
==I
JC DtB
TAK
L B#16#4
==I
JC DtW
TAK
L B#16#6
==I
JC DtDW
L W#16#8102
JU Err
DtX: L W [AR1,P#2.0]
T #BoolLength
JU ChLe
DtB: L 8
JU rep
DtW: L 16
JU rep
DtDW: L 32
JU rep
rep: L W [AR1,P#2.0]
*D
T #BoolLength
L B [AR1,P#9.0]
L 2#111
AW
L W#16#8103
JN Err
ChLe: L #BoolLength
L 0
<=I
L W#16#8104
JC Err
L #BoolLength
L 32766
L W#16#8105
JC Err
L B [AR1,P#6.0]
L B#16#81
==I
JC IaM
TAK
L B#16#82
==I
JC IaM
TAK
L B#16#83
==I
JC IaM
TAK
L B#16#84
==I
JC IaDB
TAK
L B#16#85
==I
JC IaDB
TAK
L B#16#86
==I
JC IaM
TAK
L B#16#87
==I
JC IaM
L W#16#8106
JU Err
IaM: L D [AR1,P#6.0]
LAR1
JU chk
IaDB: L W [AR1,P#4.0]
T #DBNumber
L 0
==I
L W#16#8107
JC Err
L D [AR1,P#6.0]
L DW#16#FFFFFF
AW
L DW#16#84000000
OW
T #StartAddr
LAR1
OPN DB [#DBNumber]
JU chk
Thanks in advance....