[part 2]
Compiling with Enterprise COBOL for z/OS 6.2 at the ARCH(11) level (z13 model mainframe) produces this code: MVHHI 352(,R13),X'4020' # TS2=735 MVHHI 354(,R13),X'2120' # TS2=735 LH R2,1646(,R9) # SEQ-NUMBER-PCER CVD R2,994(,R13) # OI 1001(,R13),X'0F' # UNPK 984(3,R13),1000(2,R13) # CDPT FP0,1000(2,R13),0x8 # ESDTR R2,FP0 IILF R4,X'40202120' ICM R4,X'7',984(,R13) # OILL R4,0xf0 ST R4,352(,R13) # TS2=735 LLC R4,2888(R2,R3) # LTR R4,R4 JE L0514 AHI R4,0xffff EXRL R4,L1472 Instruction at L1472 is: MVC 353(1,R13),352(R13)
