Header and Footer Program in CICS

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 '&'.                  
     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.

0 comments:

Computers TopOfBlogs Technology Blogs Mainframe interview question and answers,mainframe jobs,cobol,vsam,jcl,cics,db2,rdbms,mvs,tso,ispf,ibm,hcl,tcs,cts,wibro Blog Directory