Execute a KOA script in Wait mode after CICS is started. Check the completion code of the KOA script and proceed accordingly.
Figure 158 DO KSL Parameter Example
RL: DFH1500 LIB CTO.PROD.RULES TABLE: JOB
COMMAND ===> SCROLL===> CRSR
+--------------------------------------------------------------------------+
ON MESSAGE = DFH1500
JNAME JTYPE SMFID SYSTEM
ROUTE DESC CONSOLEID CONSOLE
APPEARED TIMES IN MINUTES And/Or/Not A
ON STRING = CONTROL IS BEING GIVEN TO CICS COL -
JNAME CICS* JTYPE SMFID SYSTEM
ROUTE DESC CONSOLEID CONSOLE
APPEARED TIMES IN MINUTES And/Or/Not
OWNER IOAADMIN GROUP MODE PROD RUNTSEC
THRESHOLD
DESCRIPTION USE KOA SCRIPT TO PERFORM INITIAL TASKS AFTER CICS STARTUP
DESCRIPTION
==========================================================================
DO SET = %%APPLID = %%$V2 GLOBAL N
DO KSL = CICSINIT %%%V2
WAITMODE Y TIMEOUT 9999 STOP Y
INITPROC SHARELOC Y IMMEDIATE Y
IF %%$KSLRC EQ# 0
DO COND = %%APPLID-RUNNING STAT +
ELSE
DO SHOUT = TO TSO-SYSMNGR URGENCY R SYSTEM CTO282I
MESSAGE INITIALIZATION OF %%APPLID FAILED
ENDIF
FILL IN RULE DEFINITION. CMDS: EDIT, SCHED, OPT, SHPF 18.06.33
Parent Topic |