CBL_DIR_SCAN_END

The CBL_DIR_SCAN_END library routine closes a list of files.

Syntax:

CALL "CBL_DIR_SCAN_END" USING dirHandle                         GIVING returnCode

Parameters:

dirHandle

Handle

It must point to a valid handle returned by CBL_DIR_SCAN_START.

Return code:

returnCode can be any numeric data item and provides additional information:

0	Operation successful.
1	An error occurred.

Examples:

Example - Open a directory, list its contents and then close the list with this routine

working-storage section. 77  hDir                    handle.   01  pattern.     03 pattern-length       pic x(2) comp-n.     03 pattern-content      pic x(128).   77  search-attribute        pic x(4) comp-n. 77  search-flags            pic x(4) comp-n.   01  dir-entry.     03  dir-attribute       pic x(4) comp-n.     03  dir-date-stamp.         05 dir-year         pic x(4) comp-n.         05 dir-month        pic x(2) comp-n.         05 dir-day          pic x(2) comp-n.         05 dir-hour         pic x(2) comp-n.         05 dir-minute       pic x(2) comp-n.         05 dir-second       pic x(2) comp-n.         05 dir-millisec     pic x(2) comp-n.         05 dir-dst          pic x(1) comp-n.         05 dir-size         pic x(8) comp-n.         05 dir-name.            07 dir-name-len  pic x(2) comp-n value 32.            07 dir-entry-name pic x(32). ... procedure division. ... list-directory.    initialize  pattern    move "./*"  to pattern-content    move 3      to pattern-length    move 1      to search-attribute    move 3      to search-flags    call "cbl_dir_scan_start" using hDir         pattern         search-attribute         search-flags     if return-code not = 0       display message "Invalid directory"       exit paragraph    end-if    perform until exit       initialize dir-entry-name       call "cbl_dir_scan_read" using hDir, dir-entry       if return-code = 0              display dir-entry-name       else          exit perform       end-if    end-perform    call "cbl_dir_scan_end" using hDir.