FALSE

Page Nav

HIDE

Grid

GRID_STYLE

Receive two values from the screen and display the output

IDENTIFICATION DIVISION.                                       PROGRAM-ID. INDCOB.                                             ENVIRONMENT...

IDENTIFICATION DIVISION.                                      
PROGRAM-ID. INDCOB.                                            
ENVIRONMENT DIVISION.                                          
DATA DIVISION.                                                
WORKING-STORAGE SECTION.                                      
77 WS-name   PIC X(5).                                              
77 WS-LEN    PIC S9(4) COMP.
01 WS-INPUT.                      
 05 WS-TRANSID         PIC  X(4).
 05 FILLER             PIC  X(1).
 05 WS-IN1             PIC  9(2).
 05 FILLER             PIC  X(1).
 05 WS-IN2             PIC  9(2).
COPY DFHAID.                                                  
COPY DFHBMSCA.                                                
COPY INDSET1.                                                  
  LINKAGE SECTION.          
01 DFHCOMMAREA         PIC X(4).                                    
PROCEDURE DIVISION.                          
         MOVE DFHCOMMAREA TO WS-COMMAREA.      
         MOVE  10   TO  WS-LEN.                
         EXEC CICS RECEIVE                    
              INTO   (WS-INPUT)                
              LENGTH (WS-LEN)                  
         END-EXEC.                            
         COMPUTE WS-IN3 = WS-IN1 + WS-IN2      
         MOVE 3 TO WS-LEN                      
         EXEC CICS                            
               SEND TEXT                      
              FROM(WS-IN3)                  
              LENGTH(WS-LEN)                
        END-EXEC.                            
        EXEC CICS                            
              RETURN                        
        END-EXEC.        

No comments