confuse the offset about x'3050'

[leon]

hi,all

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!

Code: Select all

 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                             


Code: Select all

[ 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'),         


[swd]

is the file a variable length file and so has an extra 4 bytes at the start of each record that contains the length of the record so what you think is an offset of 9 is really 13?

[leon]

thank you very much, swd.