FALSE

Page Nav

HIDE

Grid

GRID_STYLE

Header and Footer Program in CICS

Header and Footer:  ID DIVISION.                                      PROGRAM-ID. AD12GM.                              DATA DIVISION.   ...

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.

No comments