Figure 1 shows an example initialization
exit. The exit indicates to Session Manager that line
mode output should be logged while in a full-screen program.
Figure 1. Initialization
exit to log line mode output while in full-screen programs*********************************************************************
* *
* MODULE NAME = ADFEXIT1 *
* *
* DESCRIPTIVE NAME = INSTALLATION MANAGEMENT INITIALIZATION EXIT *
* *
* FUNCTION = EXAMPLE EXIT OF HOW TO INDICATE TO SESSION MANAGER *
* TO LOG LINE MODE OUTPUT WHILE IN FULL-SCREEN PROGRAMS *
* *
* INPUT = *
* REG 1 - POINTER TO A LIST OF ADDRESSES OF THE FOLLOWING *
* PARAMETERS: *
* 1) USERID *
* 2) INSTALLATION DATA *
* 3) STREAM AND OUTPUT AND LOGGING INDICATOR BIT: *
* BIT 0 - MONITOR TSO/E INPUT STREAM *
* BIT 1 - MONITOR TSO/E OUTPUT STREAM *
* BIT 2 - MONITOR SESSION MANAGER INPUT STREAM *
* BIT 3 - MONITOR SESSION MANAGER OUTPUT STREAM *
* BIT 4 - MONITOR MSG OUTPUT STREAM *
* BIT 5 - TURN ON LOGGING OF LINE MODE OUTPUT *
* WHILE IN FULL-SCREEN PROGRAMS *
* REG 14 - RETURN ADDRESS TO SESSION MANAGER MAINLINE *
* REG 15 - ENTRY POINT ADDRESS *
* *
* PROCESSING = *
* 1) RETRIEVE ADDRESS OF THIRD PARAMETER *
* 2) TURN ON BIT 5 TO INDICATE TO TURN ON LOGGING OF OUTPUT *
* 3) RETURN TO SESSION MANAGER MAINLINE *
* *
*********************************************************************
ADFEXIT1 CSECT INSTALLATION INITIALIZATION EXIT
USING *,15
STM 14,12,12(13)
L 1,8(1) 3RD PARM IS PTR TO INDICATOR BITS
OI 0(1),B'00000100' BIT 5 INDICATES TO LOG ISPF OUTPUT
LM 14,12,12(13)
BR 14 RETURN TO SESSION MANAGER MAINLINE
END