Problem solve Get help with specific problems with your technologies, process and projects.

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 last published in July 2001

Dig Deeper on RPG iSeries programming

Start the conversation

Send me notifications when other members comment.

Please create a username to comment.

-ADS BY GOOGLE

SearchDataCenter

  • How do I size a UPS unit?

    Your data center UPS sizing needs are dependent on a variety of factors. Develop configurations and determine the estimated UPS ...

  • How to enhance FTP server security

    If you still use FTP servers in your organization, use IP address whitelists, login restrictions and data encryption -- and just ...

  • 3 ways to approach cloud bursting

    With different cloud bursting techniques and tools from Amazon, Zerto, VMware and Oracle, admins can bolster cloud connections ...

Close