BPX4CLD (closedir) example

The following code closes the directory identified by FILEDESC. For the callable service, see closedir (BPX1CLD, BPX4CLD) — Close a directory. AMODE 31 callers use BPX1CLD (closedir) example.
                                              
       MVC   FILEDESC,..           Directory descriptor from opendir    
         SPACE ,                                                        
         CALL  BPX4CLD,              Close a directory                 +
               (FILEDESC,            Input: Directory file descriptor  +
               RETVAL,               Return value: 0 or -1             +
               RETCODE,              Return code                       +
               RSNCODE),             Reason code                       +
               MF=(E,PLIST)          ----------------------------------