*       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     *

ADDID     IKJIFRIF UPT=UPTADR,PSCB=PSCBADR,ECT=ECTADR,                 X
                   ADD=ADDADR,MF=(E,PARMLIST)

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

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