Header and Footer: ID DIVISION. PROGRAM-ID. AD12GM. DATA DIVISION. ...
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 '&'.
02 FILLER PIC X.
02 FILLER PIC X(79) VALUE "INDIAN AIRLINES".
01 TEXT-TR.
02 LENG PIC S9(4) COMP VALUE 79.
02 FILLER PIC X VALUE '&'.
02 FILLER PIC X.
02 FLLLER PIC X(79) VALUE "THANKYOU".
77 LENGT PIC S9(4) COMP.
PROCEDURE DIVISION.
PERFORM PARA1 5 TIMES.
PARA1.
MOVE "WELCOME TO CHENNAI" TO REC.
MOVE 79 TO LENGT.
EXEC CICS SEND TEXT FROM(REC)
HEADER(TEXT-HDR)
ACCUM
PAGING
ERASE
END-EXEC.
PARA2.
EXEC CICS SEND PAGE
TRAILER(TEXT-TR)
END-EXEC.
EXEC CICS RETURN END-EXEC.
No comments
Post a Comment