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

ALTID     IKJIFRIF UPT=UPTADR,PSCB=PSCBADR,ECT=ECTADR,                 X
                   ALT=ALTADR,MF=(E,PARMLIST)

*           Include code to handle error conditions                  *
*              Define storage for the user IDs                       *

ALIGN     DS 0F     * Alignment to word boundary                     *
ALTADR    DS 0CL20  * Name field as specified below                  *
NEXT      DS F      * Zero, if only one directory entry to be changed*
OLDID     DS CL8    * Existing directory entry                       *
NEWID     DS CL8    * New directory entry                            *