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