Receive two values from the screen and display the output

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.        

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