鸿 网 互 联 www.68idc.cn

当前位置 : 服务器租用 > 手机系统开发 > J2ME > >

rpg读取Spooled Files

来源:互联网 作者:佚名 时间:2015-09-25 05:39
CL程序: PGM DCL VAR(JOB) TYPE(*CHAR) LEN(10) DCL VAR(USR) TYPE(*CHAR) LEN(10) DCL VAR(NBR) TYPE(*CHAR) LEN(06) DCL VAR(JOBC) TYPE(*CHAR) LEN(10) DCL VAR(USRC) TYPE(*CHAR) LEN(10) DCL VAR(NBRC) TYPE(*CHAR) LEN(06) DCL VAR(RTNC) TYPE(*CHAR)
CL程序:
PGM                                                                 
           DCL        VAR(&JOB) TYPE(*CHAR) LEN(10)                 
           DCL        VAR(&USR) TYPE(*CHAR) LEN(10)                 
           DCL        VAR(&NBR) TYPE(*CHAR) LEN(06)                 
           DCL        VAR(&JOBC) TYPE(*CHAR) LEN(10)                
           DCL        VAR(&USRC) TYPE(*CHAR) LEN(10)                
           DCL        VAR(&NBRC) TYPE(*CHAR) LEN(06)                
           DCL        VAR(&RTNC) TYPE(*CHAR) LEN(2)                 
           DCL        VAR(&INF) TYPE(*CHAR) LEN(256)    
            
           CHGVAR     VAR(&JOBC) VALUE('QPADEV001X')   
           CHGVAR     VAR(&usrC) VALUE('WUSER')        
           RTVJOBA    JOB(&JOB) USER(&USR) NBR(&NBR)   
                                                       
           CRTPF      FILE(QTEMP/SPLF) RCDLEN(132)     
           MONMSG     MSGID(CPF0000)                   
           WRKUSRJOB  USER(WUSER) STATUS(*ACTIVE) OUTPUT(*PRINT)     
           MONMSG     MSGID(CPF0000)                                 
                                                                     
           CPYSPLF    FILE(QPDSPSBJ) TOFILE(QTEMP/SPLF) +            
                        JOB(&NBR/&USR/&JOB) SPLNBR(*LAST) +          
                        MBROPT(*REPLACE)                             
           MONMSG     MSGID(CPF0000)                                 
                                                                     
           OVRDBF     FILE(SPLF) TOFILE(QTEMP/SPLF)                  
                                                                     
           CALL       PGM(PTRLIB/PM0100) PARM(&JOBC &USRC &NBRC +    
                        &RTNC)                                
 
           CALL       PGM(PTRLIB/PM0200) PARM(&JOBC &USRC &NBRC &INF)
 
Spooled File读取RPG程序:
     FSPLF    IF  F     132            DISK         KINFDS INFDS       
     ISPLF    AA  01 
     I                                        4  13 W#JOB              
     I                                       17  26 W#USR              
     I                                       30  35 W#NBR              
     IINFDS       DS                                                   
     I                                    B 397 4000W#RRN              
     C           *ENTRY    PLIST                                       
     C                     PARM           ##JOB  10                    
     C                     PARM           ##USR  10                    
     C                     PARM           ##NBR   6                    
     C                     PARM           ##RTN   2                    
     C*                                                                
     C                     MOVEL'NG'      ##RTN                        
     C           6         SETLLSPLF                                   
     C                     READ SPLF                     10            
     C           *IN10     DOWEQ*OFF                                   
     C*                                                                
     C           W#JOB     IFEQ ##JOB                                  
     C           W#USR     ANDEQ##USR                                  
     C                     MOVELW#JOB     ##JOB                        
     C                     MOVELW#USR     ##USR                        
     C                     MOVELW#NBR     ##NBR                        
     C                     MOVEL'OK'      ##RTN                        
     C                     LEAVE                                       
     C                     ENDIF                                       
     C*                                                                
     C                     READ SPLF                     10            
     C                     ENDDO                                       
     C*                                                                
     C                     SETON                     LR                
     C                     RETRN                              
 
用API取JOB信息RPG程序:
     I*****************************************************************
     I*Record structure for QUSRJOBI JOBI0200 format                   
     I*****************************************************************
     I/COPY QSYSINC/QRPGSRC,QUSRJOBI                                   
     IJOBQUL      DS                                                   
     I                                        1  10 CTJOB              
     I                                       11  20 CTUSER             
     I                                       21  26 CTJOBN             
     I*                                                                
     IOVRLAY      DS                                                   
     I                                    B   1   40LEN                
     C           *ENTRY    PLIST                                       
     C                     PARM           ##JOB  10                    
     C                     PARM           ##USER 10                    
     C                     PARM           ##JOBN  6                    
     C                     PARM           JOBINF256                    
     C*                                                          
     C                     MOVEL##JOB     CTJOB                  
     C                     MOVEL##USER    CTUSER                 
     C                     MOVEL##JOBN    CTJOBN                 
     C                     Z-ADD200       LEN                    
     C                     CALL 'QUSRJOBI'                       
     C                     PARM           QUSD2                  
     C                     PARM           LEN                    
     C                     PARM 'JOBI0200'FORMAT  8              
     C                     PARM           JOBQUL                 
     C                     PARM *BLANKS   JOBINT 16              
     C                     MOVELQUSD2     JOBINF                 
     C*                                                          
     C                     SETON                     LR          
     C                     RETRN                                 
 
取SBMJOB的Job Name,User Name和Job Number可以用
RCVMSG     MSGDTA(&inf)
网友评论
<