Tool interface exit: you may use this exit for dynamic allocations or to set the ISPF environment variables necessary to run your specific Endevor application.
Note: You must add a call of the procedure TAUENINI shipped with the Endevor Attachment in TAUTOXA1.
To minimize the number of calls during a user task session, add the following statements somewhere after the variable TAUTOALC has been retrieved from the ISPF shared pool:
Call ISPF '8 VGET (TAUTOALC) SHARED'
….
/* Endevor Init */
Call ISPF '8 VGET (#ALLVAR) SHARED'
If Result = 0 Then Do
If tautoalc /= p_parm Then
Call REXX '0 TAUENINI' p_parm
End
Else
Call REXX '0 TAUENINI' p_parm
/* End of Endevor Init */
|