ATT962062 -- command

30 Apr 2003 |

Digg This!     StumbleUpon     Del.icio.us

 
 /**********************************************************/                    
/*                                                        */                    
/* Command: OBJEXISTS                                     */                    
/* Purpose: Test object existence using path name         */                    
/*   Notes: The first parameter is the full path name     */                    
/*          of an object, the second is a logical status  */                    
/*          code - TRUE means object exists.              */                    
/*                                                        */                    
/*          Command may be used only in programs or REXX  */                    
/*          procedures.                                   */                    
/*                                                        */                    
/**********************************************************/                    
             CMD        PROMPT('Check object link')                             
                                                                                
             PARM       KWD(PATHNAME) TYPE(*PNAME) LEN(512) MIN(1) +            
                          VARY(*YES *INT2) PROMPT('Object to check')            
                                                                                
             PARM       KWD(RETURN) TYPE(*LGL) RTNVAL(*YES) +                   
                          PROMPT('Object exists')         

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