BPX1CLD (closedir) example

The following code closes the directory identified by FILEDESC. For the callable service, see closedir (BPX1CLD, BPX4CLD) — Close a directory. AMODE 64 callers use BPX4CLD (closedir) example.

                                              
       MVC   FILEDESC,..           Directory descriptor from opendir  08
         SPACE ,                                                        
         CALL  BPX1CLD,              Close a directory                 +
               (FILEDESC,            Input: Directory file descriptor  +
               RETVAL,               Return value: 0 or -1             +
               RETCODE,              Return code                       +
               RSNCODE),             Reason code                       +
               VL,MF=(E,PLIST)       ----------------------------------