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:
EXEC CICS INQUIRE SYSTEM
CLC INISTAT,DFHVALUE(INITCOMPLETE) <<<< IS CICS UP? >>>>>
Is there an alternative way to do this within Adabas? The below code was done for the batch side.