CALL "CBL_DELETE_DIR" USING directoryName GIVING returnCode |
directoryName | PIC X(n) | Specifies the name of the directory to be removed. Both full and relative paths are allowed. |
0 | Operation successful. |
>0 | Operation failed. See Interpreting the return code as a file status code. |
*> define dir-name as pic x(n) move "c:\tmp\sorts1" to dir-name call "cbl_delete_dir" using dir-name if return-code not = 0 display message "Directory deletion failed" end-if |