Seu source from object in pdm

Edit a source from an object with user's options in pdm.

This code walks you though editing a source (view S5 or change S2) from an object with user's options in pdm.


  option in pdm
 S2    CALL PGM(yourbib/S2) PARM(&L &N &T) 
 S5    CALL PGM(yourbib/S5) PARM(&L &N &T)
source pgm for S2
 DEBUT:      PGM PARM(&OBJFLIB &OBJF &OBJTYP)                             
            DCL        VAR(&SRCF) TYPE(*CHAR) LEN(10)                    
            DCL        VAR(&SRCFLIB) TYPE(*CHAR) LEN(10)                 
            DCL        VAR(&SRCMBR) TYPE(*CHAR) LEN(10)                  
            DCL        VAR(&OBJFLIB) TYPE(*CHAR) LEN(10)                 
            DCL        VAR(&OBJF) TYPE(*CHAR) LEN(10)                    
            DCL        VAR(&OBJTYP) TYPE(*CHAR) LEN(10)                  
            RTVOBJD    OBJ(&OBJFLIB/&OBJF) OBJTYPE(&OBJTYP) +            
                         SRCF(&SRCF) SRCFLIB(&SRCFLIB) SRCMBR(&SRCMBR)   
            STRSEU     SRCFILE(&SRCFLIB/&SRCF) SRCMBR(&SRCMBR) +         
                         OPTION(2)                                       
            MONMSG     MSGID(EDT9007) EXEC(GOTO CMDLBL(ERREUR))          
            RETURN                                                       
ERREUR:                                                                  
            SNDPGMMSG  MSG('SOURCE NOT FIND VERIFY JOBLOG')              
FIN:        ENDPGM                                  source pgm for S5
                DEBUT:      PGM PARM(&OBJFLIB &OBJF &OBJTYP)                           
             DCL        VAR(&SRCF) TYPE(*CHAR) LEN(10)                  
             DCL        VAR(&SRCFLIB) TYPE(*CHAR) LEN(10)               
             DCL        VAR(&SRCMBR) TYPE(*CHAR) LEN(10)                
             DCL        VAR(&OBJFLIB) TYPE(*CHAR) LEN(10)               
             DCL        VAR(&OBJF) TYPE(*CHAR) LEN(10)                  
             DCL        VAR(&OBJTYP) TYPE(*CHAR) LEN(10)                
             RTVOBJD    OBJ(&OBJFLIB/&OBJF) OBJTYPE(&OBJTYP) +          
                          SRCF(&SRCF) SRCFLIB(&SRCFLIB) SRCMBR(&SRCMBR) 
             STRSEU     SRCFILE(&SRCFLIB/&SRCF) SRCMBR(&SRCMBR) +       
                          OPTION(5)                                     
             MONMSG     MSGID(EDT9007) EXEC(GOTO CMDLBL(ERREUR))        
             RETURN                                                     
 ERREUR:                                                                
             SNDPGMMSG  MSG('SOURCE NOT FIND VERIFY JOBLOG')            
 FIN:        ENDPGM    
This was first published in July 2001

Dig deeper on RPG iSeries programming

0 comments

Oldest 

Forgot Password?

No problem! Submit your e-mail address below. We'll send you an email containing your password.

Your password has been sent to:

SearchEnterpriseLinux

SearchDataCenter

Close