Optional User Exit for TSSCVUAD

Implementing Security for TSO › UADS Replacement › Optional User Exit for TSSCVUAD

Optional User Exit for TSSCVUAD

The optional user exit module should be compiled and linked with the name TSSUADEX. It should reside either on the STEPLIB for the conversion job or in the linklist. TSSCVUAD will LOAD this module when it starts up; if the exit is missing, TSSCVUAD proceeds without it.

The user exit is called with the following conditions in effect:

R1 points to a list of address words as described below
R13 points to an 18 word save area; the exit should save TSSCVUAD's registers here
R14 is the return address to TSSCVUAD
R15 is the address of the exit routine

The word list pointed to by R1 consists of three fullwords:

F'index‑value'
A(resource‑name)
A(department‑name)

The index value indicates why the exit was called and what the other parameters will be:

4: Start of conversion of new userid. The second word of the list is the address of the userid (eight characters, left‑justified, padded with blanks) and the third word points to an eight‑byte blank field. The exit should set return code 4 to cause TSSCVUAD to skip conversion of this userid, or return code 0 to allow it to proceed. If return code 0 is set, the user exit may specify the name of the department to which the userid is to be added, by placing this name in the field pointed to by the third word of the PLIST. The default department is TSODEPT1.
8: New procedure name encountered. The second word points to a 40‑byte field containing the procedure name (left‑justified, padded with blanks) and the third word points to an eight‑byte field where the exit may specify the name of the department that is to own this procedure name. The default is TSODEPT1. Return codes are ignored for this call.
12: New account number encountered. The second word points to an eight‑byte field containing the account number (left‑justified, padded with blanks) and the third word points to an eight‑byte field where the exit may specify the name of the department that is to own this account number. The default is TSODEPT1. Return codes are ignored for this call.
16: New performance group number. The second word points to the three‑digit performance group number in EBCDIC, (right‑justified, padded with zeros) and the third word points to an eight‑byte field where the exit may specify the name of the department that is to own this group number. The default is TSODEPT1. Return codes are ignored for this call.

When the user exit has completed processing, it should return to TSSCVUAD. It does this by reloading the registers from the save area, placing the return code in register 15, and branching to register 14.