Using E39 user exit with VSAM
For VSAM, this user exit can be used to insert VSAM passwords intothe VSAM SORTOUT ACB and to perform various VSAM user exit functions. The example that follows shows code your program can use to return control to DFSORT.
Figure 1. E39 User Exit Example
ENTRY E39
.
.
E39 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'1'
DC CL8'SORTOUT' SORTOUT DDNAME
DC CL8'OUTPASS' SORTOUT PASSWORD
USYNAD ... VSAM SYNCH ERROR RTN
ULERAD ... VSAM LOGIC ERROR RTN