COBOL code 77 ws-num-packed pic S9(9) packed-decimal.
add 2 to ws-num-packed Generated assembler: 000014 ADD 00036A GN=16 EQU * 00036A FA40 8008 A02C AP 8(5,8),44(1,10) WS-NUM-PACKED PGMLIT AT +40 000370 F844 8008 8008 ZAP 8(5,8),8(5,8) WS-NUM-PACKED WS-NUM-PACKED What is the purpose of the ZAP? Thanks, Frank ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN