I attched my jcl and fileaid as following, it works well. but I confuse the offset of x'3050',
I think the offset is 9, but correct answer is 13, can anybody tell me why, thank you very
much!
File-AID - Browse - MP.UMP9CSM2.TST04 ----------------------
RECORD: 2 BRW5-COMMAREA
---- FIELD LEVEL/NAME ------- PICTURE- ----+----1----+----2-
5 BRW5-PKT-HEADER GROUP
7 BRW5-SAPI GROUP
10 BRW5-SAPI-RTCD 99 0
10 BRW5-SAPI-LK-LVL-NBR 99 0
10 BRW5-SAPI-ISU-RLBK-REQ-IND
X 0
10 BRW5-SAPI-DATA-CHAR-CNT
9(5) X'F0F0F63050'
10 BRW5-SAPI-SRV-PGM-NM X(8) X'0000000000000132'
10 BRW5-SAPI-TRANS-IND X X'65'
10 BRW5-SAPI-INTR-TRANS-IND
RECORD: 2 BRW5-COMMAREA
---- FIELD LEVEL/NAME ------- PICTURE- ----+----1----+----2-
5 BRW5-PKT-HEADER GROUP
7 BRW5-SAPI GROUP
10 BRW5-SAPI-RTCD 99 0
10 BRW5-SAPI-LK-LVL-NBR 99 0
10 BRW5-SAPI-ISU-RLBK-REQ-IND
X 0
10 BRW5-SAPI-DATA-CHAR-CNT
9(5) X'F0F0F63050'
10 BRW5-SAPI-SRV-PGM-NM X(8) X'0000000000000132'
10 BRW5-SAPI-TRANS-IND X X'65'
10 BRW5-SAPI-INTR-TRANS-IND
[ 000057 //SYSIN DD *
000058 $$DD01 COPY IF=(13,EQ,X'3050'),
000059 IF=(585,EQ,C'1,7,8'),
000060 MOVE=(1,9,76),
000070 MOVE=(10,9,585),
000080 ORIF=(13,EQ,X'3050'),
000090 MOVE=(1,9,76),
000091 MOVE=(10,C' '),
000099 ORIF=(13,EQ,X'30B1'),
000100 IF=(579,EQ,C'1,7,8'),
000058 $$DD01 COPY IF=(13,EQ,X'3050'),
000059 IF=(585,EQ,C'1,7,8'),
000060 MOVE=(1,9,76),
000070 MOVE=(10,9,585),
000080 ORIF=(13,EQ,X'3050'),
000090 MOVE=(1,9,76),
000091 MOVE=(10,C' '),
000099 ORIF=(13,EQ,X'30B1'),
000100 IF=(579,EQ,C'1,7,8'),
