ATT962063 -- command

30 Apr 2003 |

Digg This!     StumbleUpon     Del.icio.us

 

             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                   

Digg This!     StumbleUpon     Del.icio.us

RELATED RESOURCES 2020software.com, trial software downloads for accounting software, ERP software, CRM software and business software systems Search Bitpipe.com for the latest white papers and business webcasts Whatis.com, the online computer dictionary