Hi all,
We have a piece of code in the Adabas CICS interface user exit that tests if CICS has been initialized or not. If not initialized, then the code does not execute since this means we are at startup. The piece of code within the user exit is as follows:
XC INISTAT,INISTAT
EXEC CICS INQUIRE SYSTEM
INITSTATUS(INISTAT)
CLC INISTAT,DFHVALUE(INITCOMPLETE) <<<< IS CICS UP? >>>>>
BNE X0030
Is there an alternative way to do this within Adabas? The below code was done for the batch side.
CLI ACBTYPE,ACBTPHYS
BE X0010
Regards