AS400 获取Object的source位置

AS400中获取Object的Source位置

该命令使用以下系统API QBNLPGMI，QUSRTVUS,

PGM        PARM(&FILE)                                  
DCL        VAR(&SRCN) TYPE(*CHAR) LEN(10)               
DCL        VAR(&SRCF) TYPE(*CHAR) LEN(10)               
DCL        VAR(&SRCL) TYPE(*CHAR) LEN(10)               
DCL        VAR(&SRCN) TYPE(*CHAR) LEN(10)               
DCL        VAR(&SPCOUT) TYPE(*CHAR) LEN(30)             
DCL        VAR(&USRSPC) TYPE(*CHAR) LEN(20) +           
             VALUE('DSPSRCS   *LIBL')                   
DCL        VAR(&FILE) TYPE(*CHAR) LEN(20)               
DCL        VAR(&ERRCOD) TYPE(*CHAR) LEN(100)            
                                                        
CALL       PGM(QBNLPGMI) PARM(&USRSPC 'PGML0100' &FILE +
             &ERRCOD) /* */                             
                                                        
CALL       PGM(QUSRTVUS) PARM(&USRSPC X'0000012D' +     
             X'0000001E' &SPCOUT)                       
CHGVAR     VAR(&SRCF) VALUE(%SST(&SPCOUT 1 10))         
CHGVAR     VAR(&SRCL) VALUE(%SST(&SPCOUT 11 10))        
CHGVAR     VAR(&SRCN) VALUE(%SST(&SPCOUT 21 10)) 
ENDPGM                            

需要创建USRSPC
CALL PGM(QUSCRTUS)
PARM('DSPSRCS QTEMP ’ ‘USRSPC ’ X’00001400’ ’
’ ‘*ALL ’ X’0E40400F’)