BPX4RMD (rmdir) example

The following code removes directory applib/user02. For the callable service, see rmdir (BPX1RMD, BPX4RMD) — Remove a directory. AMODE 31 callers use BPX1RMD (rmdir) example.
                                              
         MVC   BUFFERA(13),=CL13'applib/user02'                         
         MVC   BUFLENA,=F'13'                                           
         SPACE ,                                                        
         CALL  BPX4RMD,              Remove a directory                +
               (BUFLENA,             Input: Directory name length      +
               BUFFERA,              Input: Directory to be removed    +
               RETVAL,               Return value: 0 or -1             +
               RETCODE,              Return code                       +
               RSNCODE),             Reason code                       +
               MF=(E,PLIST)          ----------------------------------