CICS Sample Code for Header and Footer

CICS Sample Code for Header and Footer

ID DIVISION. PROGRAM-ID. AD12GM. DATA DIVISION. WORKING-STORAGE SECTION. 01 RES. 02 A PIC 9(3). 02 B PIC 9(3). 02 C PIC 9(4). 77 Z PIC X(80). 01 REC. 02 MSG PIC X(79) VALUE SPACES. 01 TEXT-HDR. 02 LEN PIC S9(4) COMP VALUE 79. 02 FILLER PIC X VALUE &#...

Close