Ü   RTVOBJD


      /*Retrieve owner ID from the original files   */              
              RTVOBJD    OBJ(&BFLIB/FILE001) OBJTYPE(*FILE) +       
                           OWNER(&OWNERID1)                          
              RTVOBJD    OBJ(&BFLIB/FILE002) OBJTYPE(*FILE) +       
                           OWNER(&OWNERID2)                         

  

 

 

Ü   CHGOBJD   


              CHGOBJD    OBJ(&DYLIB/FILE001) OBJTYPE(*FILE) +        
                           TEXT('BACKUP TX-FILE FOR XXXXXXXXXXXXXX')      
              CHGOBJD    OBJ(&DYLIB/FILE002) OBJTYPE(*FILE) +        
                           TEXT('BACKUP POSTINGS FOR YYYYYYYYYYYYY’)    
         ENDDO
  ERROR:      IF  COND((&ERROR) *EQ 'Y') THEN(DO)
              DMPCLPGM                                               
              MONMSG     MSGID(CPF0000)                              
              DSPJOBLOG  JOB(*) OUTPUT(*PRINT)                       
              MONMSG     MSGID(CPF0000)                              
              SNDPGMMSG  MSGID(CPF3638) MSGF(QCPFMSG) MSGTYPE(*ESCAPE)
              MONMSG     MSGID(CPF0000)                              
         ENDDO                                                        
         ENDPGM

 





User Comments:





Copyright © Go4as400.com, 2013-2017. Copyright notice