Comments on: checking for a folder in IFS

By: loraestradanapier

loraestradanapier — Sat, 28 Jul 2012 01:02:07 +0000

I know this is two years after the original post, but for anyone who is looking for this answer and wants to know how to check for a FOLDER or DIRECTORY and not a document, this simple logic works. I won't say I'm proud of it..... It is more "sleight of hand than anything".

Pass this program a path name, such as '/System i Users/LNapier'. The ChkOut command expects the OBJ parm to be a document, not just a directory. So, if the path is a directory, ChkOut will issue CPFA0DA.

Pgm (&In$Path &Out$IsDir)                                   
             DCL        VAR(&In$Path) TYPE(*CHAR) LEN(512)  
             DCL        VAR(&Out$IsDir) TYPE(*LGL)          
                                                            
     ChgVar &Out$IsDir '0'                                  
     CHKOUT     OBJ(&IN$PATH)                               
     MONMSG     MSGID(CPFA0DA) EXEC(ChgVar &Out$IsDir '1')  
     MONMSG     MSGID(CPFA09C CPFA09D CPFA09E CPFA0A1 +     
                  CPFA0A3 CPFA0A7 CPFA0A9 CPFA0AA CPFA0AB + 
                  CPFA0AD CPFA0B2 CPFA0BF CPFA1C5)          
                                                            
EndPgm

By: danthedane

danthedane — Tue, 20 Apr 2010 21:08:06 +0000

Often this requirement is followed by the need to create the folder searched for. From my archives I found this cod

PGM                                                     
DCL        VAR(&ARKIV) TYPE(*CHAR) LEN(132)             
DCL        VAR(&DATE) TYPE(*CHAR) LEN(6)                
DCL        VAR(&YEAR) TYPE(*CHAR) LEN(4)                
                                                        
RTVJOBA    DATE(&DATE)                                  
CHGVAR     VAR(&YEAR) VALUE('20' *TCAT %SST(&DATE 1 2)) 
CHGVAR     VAR(&ARKIV) VALUE('/WORK/ARKIV_' *TCAT &YEAR)
CHKIN      OBJ(&ARKIV)                                  
MONMSG     MSGID(CPFA0A9) EXEC(MD DIR(&ARKIV))          
MONMSG CPFA0DA                                          
                                                        
ENDPGM

I believe the code is fairly straight forward to understand. DanF

By: bigkat

bigkat — Tue, 20 Apr 2010 14:23:59 +0000

that should be

OBJ(’ifs_path/ifs_object_name')

By: bigkat

bigkat — Tue, 20 Apr 2010 14:22:30 +0000

I use the following for file, you may be able to tweak it for folders

CHKIN      OBJ('ifs_path/ifs_object_name) 
MONMSG     MSGID(CPFA0A9) EXEC(DO)               
  RCVMSG     MSGTYPE(*EXCP)                      
  GOTO       CMDLBL(EXIST)                       
ENDDO      /* CPFA0A9 */                         
GOTO       CMDLBL(NOTEXIST)

EXIST:



NOTEXIST: