ATT962063 -- command

 

             PGM        PARM(&PATHNAME)                                         
                                                                                
             DCL        VAR(&PATHNAME) TYPE(*CHAR) LEN(512)                     
                                                                                
             DCL        VAR(&EXISTS) TYPE(*LGL)                                 
                                                                                
             OBJEXISTS  PATHNAME(&PATHNAME) RETURN(&EXISTS)                     
                                                                                
             IF         COND(&EXISTS) THEN(SNDPGMMSG MSG('Object' +             
                          *BCAT &PATHNAME *BCAT 'exists'))                      
             ELSE       CMD(SNDPGMMSG MSG('Object' *BCAT &PATHNAME +            
                          *BCAT 'does not exist'))                              
                                                                                
             ENDPGM