Demo entry 6350287

ILE Cobol

   

Submitted by ILE COBOL on Mar 09, 2017 at 09:52
Language: COBOL. Code size: 3.3 kB.

     IDENTIFICATION DIVISION.                                                        
     PROGRAM-ID. PGMNAME.                                                         
     DATA DIVISION.                                                                  
     WORKING-STORAGE SECTION.                                                        
 * DATA STRUCTURE RETURNED BY API QMHRCVPM                                 
       01  RETURNEDINFO        PIC X(1000).                                                                                                 
       01  RETURNEDINFOLEN      PIC S9(09) BINARY.                                                                                              
       01  FMTNAME              PIC X(08)  VALUE 'RCVM0100'.   
       01  CLSTKENTRY           PIC X(10)  VALUE '*'.                                                                                    
       01  CLSTKCOUNTER         PIC S9(09) BINARY VALUE 2.                                                                               
       01  MSGTYPE              PIC X(10)  VALUE '*ANY      '.                                                                                    
       01  MSGKEY               PIC X(04)  VALUE SPACES.                               
       01  MSGKEY1              PIC X(04)  VALUE SPACES.                                                                                        
       01  WAITTIME             PIC S9(09) BINARY VALUE ZEROS.                                                                          
       01  MSGACTION            PIC X(10)  VALUE '*SAME     '.                                                
       01  APIERR.                                                               
       02  AEBYTESAVL       PIC x(100).                                       
     LINKAGE SECTION.                                                          
       01  LOWKEY               PIC X(4).                                          
                                                                                 
     PROCEDURE DIVISION USING LOWKEY.                                            
     WHOHASLOCKMAIN.                                                             
             MOVE LENGTH OF RETURNEDINFO TO RETURNEDINFOLEN.                     
                                                                                 
               CALL            ' QMHRCVPM '                                        
                     USING         RETURNEDINFO                                  
                                   RETURNEDINFOLEN                               
                                   FMTNAME                                       
                                   CLSTKENTRY                    
                                   CLSTKCOUNTER                  
                                   MSGTYPE                       
                                   LOWKEY                        
                                   WAITTIME                      
                                   MSGACTION                     
                                   APIERR                        
          STOP RUN.                                 

This snippet took 0.00 seconds to highlight.

Back to the Entry List or Home.

Delete this entry (admin only).