Re: How to tell a media error from an "object not found"

[Vern Hamberg <vhamberg@xxxxxxxxxxx>]

The access() C-function will do the trick for you. If you are at v5r3 or 
newer, you can do it in CL - need the *BYVAL parameter on CALLPRC. This 
code will work

PGM                                                   
                                                     
DCL        VAR(&PATH) TYPE(*CHAR) LEN(255)            
DCL        VAR(&MODE) TYPE(*INT) LEN(4)               
DCL        VAR(&RTRN) TYPE(*INT) LEN(4)               
DCL        VAR(&NULL) TYPE(*CHAR) LEN(1) VALUE(X'00') 
                                                     
CHGVAR     VAR(&PATH) VALUE('/home/vern' *CAT &NULL)  
CALLPRC    PRC('access') PARM((&PATH) (&MODE *BYVAL)) +
            RTNVAL(&RTRN)                            
CHGVAR     VAR(&PATH) VALUE('/home/vorn' *CAT &NULL)  
CALLPRC    PRC('access') PARM((&PATH) (&MODE *BYVAL)) +
            RTNVAL(&RTRN)                            
                                                     
ENDPGM                                                

Return value of zero means the path exists - path can be a directory or 
a stream file.

Also easily done in RPG

Musselman, Paul wrote:
> Surely "someone" has written a CHKIFSOBJ command to check for things in
> the IFS...
>
> Use this command to see if the Folders fo Interest really exist before
> you try to save them...
>
> Paul E Musselman
>