USEREXIT

PCP provides an exit for invoking a user-written routine during the pointer checking process. The record that PCP passes to the user exit routine contains such information as the current OS return code and the validation status of each database validated in the job step. A typical use for the user exit routine is to invoke alternate processing steps based on the validation results.

A sample user exit routine is in member USEREXIT of the sample library. To implement the user exit routine, specify the name of the user exit routine as the value of the USEREXIT option on the GLBL statement in the PCPSYSIN data set:

GLBL USEREXIT(exitname)

The routine must be accessible through the OS load facilities. Using standard OS linkage conventions, PCP uses a parameter list to pass information to and receive information from the user exit routine. The user-exit routine should be serially reusable. PCP will invoke it in AMODE=24.

The user exit routine is required to adhere to the same linkage rules as other IMS user exit routines. Specifically, it must not alter the third word of the save area that PCP passes to it. It must also set a return code in register 15 before returning control to PCP.

PCP invokes the user-exit routine once for initiation, once for each database it validates, and once for termination. Each time PCP invokes the user exit routine, register 1 points to the parameter list. The first word of the parameter list is the address of a record. The format of the record varies, but the first position always identifies the context in which PCP is invoking the user exit routine:

  • Initiation
  • Database processed
  • Termination

See Using-a-COBOL-II-user-exit and Using-a-COBOL-370-user-exit for more information.

 

Tip: For faster searching, add an asterisk to the end of your partial query. Example: cert*