The following code deletes the directory named newprots located in a previously looked-up directory whose vnode token is in DIRVNODETOK. For the callable service, see v_rmdir (BPX1VRE, BPX4VRE) — Remove a directory. For the data structure, see BPXYOSS — Map operating system specific information.

         MVC   BUFFERA(8),=CL8'newprots'
         MVC   BUFLENA,=F'8'
         MVC   OSSSTOR,OSS           Initialize BPXYOSS area
         SPACE ,
         CALL  BPX1VRE,              Remove a directory                +
               (DIRVNODETOK,         Input: Directory vnode token      +
               OSSSTOR,              Input/output: BPXYOSS             +
               BUFLENA,              Input: Directory name length      +
               BUFFERA,              Input: Directory name             +
               RETVAL,               Return value: 0 or -1             +
               RETCODE,              Return code                       +
               RSNCODE),             Reason code                       +
               VL,MF=(E,PLIST)       ----------------------------------