MVC BUFFERA(13),=CL13'applib/user02'
MVC BUFLENA,=F'13'
SPACE ,
CALL BPX1RMD, 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 +
VL,MF=(E,PLIST) ----------------------------------