*        Initialization and set up code for the module               *
*        Include a pointer to the CVT                                *
               .
               .
               .
CVTMAP    CVT DSECT=YES    *             map the CVT                 *
TSVTMAP   IKJTSVT          *             map the TSVT                *
PARMLIST  IKJIFRIF MF=L    * define storage for the parameter list   *

*    Issue IKJIFRIF to set up and initialize the parameter list      *

DELID     IKJIFRIF UPT=UPTADR,PSCB=PSCBADR,ECT=ECTADR,                 X
                   DEL=DELADR,MF=(E,PARMLIST)

*           Include code to handle error conditions                  *
*              Define storage for the user ID(s)                     *

ALIGN     DS 0F     * Alignment to word boundary                     *
DELADR    DS 0CL12  * Name field as specified below                  *
NEXT      DS F      * Zero, if only one directory entry to be deleted*
USERID    DS CL8    * Directory entry to be deleted                  *