ATT962063 -- command

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                   

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:

-ADS BY GOOGLE

SearchEnterpriseLinux

SearchDataCenter

Close