BPX4RWD (rewinddir) example

The following code resets the open directory to the beginning. For the callable service, see rewinddir (BPX1RWD, BPX4RWD) — Reposition a directory stream to the beginning. AMODE 31 callers use BPX1RWD (rewinddir) example.
                                              
       MVC   DIRECTDES,..          File descriptor from opendir         
         CALL  BPX4RWD,              Reposition directory at beginning +
               (DIRECTDES,           Input: Directory file descriptor  +
               RETVAL,               Return value: 0 or -1             +
               RETCODE,              Return code                       +
               RSNCODE),             Reason code                       +
               MF=(E,PLIST)          ----------------------------------