例： 取指定JobQ中作业个数

cagd

IRCVVAR      DS                                       
I                                    B   1   40OBTRTN  
I                                    B   5   80OBTVAL  
I                                        9  18 OJOBQ   
I                                       19  28 OLIB   
I                                       29  38 OOPCTL  
I                                       39  48 OAUCHK  
I                                    B  49  520OJBNUM  
I                                       53  62 OJOBQS  
I                                       63  72 OSBSYS  
I                                       73 122 ODESC   
I                                      123 132 OSYSLB  
I                                    B 133 1360OSQNUM  
I                                    B 137 1400OMXACT  
I                                    B 141 1440OCRACT  
IRCVLEN      DS                                       
I I            144                   B   1   40ILEN      
IIDFMT       DS                                          
I I            'JOBQ0100'                1   8 FORMAT   
IIDJOBQ      DS                                          
I                                        1  10 IJOBNM   
I                                       11  20 IJOBLB   
IAPIERR      DS                            256           
I I            256                   B   1   40APILEN   
I                                    B   5   80APIERL   
I                                        9  15 APIMSG              
I                                       17 256 APIDTA              
C****************************************************************  
C************    #PROC    MAIN      *****************************  
C****************************************************************  
C           *ENTRY    PLIST                                       
C                     PARM           WWJOB  10                     
C                     PARM           WWLIB  10                     
C                     PARM           WWNUM   40                    
C                     MOVELWWJOB     IJOBNM                        
C                     MOVELWWLIB     IJOBLB                        
C                     EXSR RTVJOB                                 
C                     Z-ADDOJBNUM    WWNUM                        
C*                                                                 
C                     DUMP                                         
C                     RETRN                                       
C****************************************************************  
C************    #PROC    RTVJOB    *****************************  
C           RTVJOB    BEGSR                                       
C*                                                               
C                     CALL 'QSPRJOBQ'                             
C                     PARM           RCVVAR                       
C                     PARM           RCVLEN                       
C                     PARM           IDFMT                        
C                     PARM           IDJOBQ                       
C                     PARM           APIERR                       
C           APIERL    IFGT *ZERO                                 
C                     RESETRCVVAR                                 
C                     ENDIF                                       
C                     ENDSR                                       
************* End of data ****************************************

riancy1106

顶