CICS Sample program to write header and footer

I am giving here my sample program where you can write header and footer.

 ID DIVISION.
 PROGRAM-ID. SRINIMF.
 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.

Also read

Advertisements

Author: Srini

Experienced software developer. Skills in Development, Coding, Testing and Debugging. Good Data analytic skills (Data Warehousing and BI). Also skills in Mainframe.