Using E38 user exit with VSAM

This user exit can be used during a merge or copy to insert VSAM passwords into VSAM input ACBs and to perform various VSAM user exit functions. The following example shows code your program can use to return control to DFSORT.

Figure 1. E38 User Exit Example

       ENTRY   E38
         .
         .
E38      LA      1,PARMLST
         RETURN
         CNOP    0,4
PARMLST  DS      0H
         DC      X'05'
         DC      AL3(VSAMEXL)
         DC      X'06'
         DC      AL3(PWDLST)
         DC      A(0)
         .
         .
VSAMEXL  EXLST   SYNAD=USYNAD,LERAD=ULERAD
PWDLST   DC      H'2'
         DC      CL8'SORTIN01'    SORTIN01 DDNAME
         DC      CL8'INPASS1'     SORTIN01 PASSWORD
         DC      CL8'SORTIN02'    SORTIN02 DDNAME
         DC      CL8'INPASS2'     SORTIN02 PASSWORD
USYNAD   ...                      VSAM SYNCH ERROR RTN
ULERAD   ...                      VSAM LOGIC ERROR RTN