isCOBOL Evolve : Appendices : Library Routines : CBL_CHANGE_DIR
CBL_CHANGE_DIR
The CBL_CHANGE_DIR library routine changes the current directory for the COBOL program.
This routine changes the working directory only for files opened by the COBOL program.
Syntax:
 CALL "CBL_CHANGE_DIR" USING pathName
                      GIVING returnCode
Parameters:
pathName
PIC X(n)
Specifies the new current directory. Must be terminated by space or low-value.
Return code:
returnCode can be any numeric data item and provides additional information:
0
Operation successful.
14605
Not found.
14613
Directory.
14628
Exists.
14629
No permission.
Examples:
Example - Change current directory to a temporary reports one
*> define new-dir as pic x(n)
move "c:\tmp\reports" to new-dir
call "cbl_change_dir" using new-dir
if return-code = 0
   display message "Current Directory changed to " new-dir
else 
   display message "Error : " return-code
end-if