OPTIONS(MAIN) REORDER; 00000010 00000020 /********************************************************************/ 00000030 /* DIENT ZUR DEFINITION UND ABFRAGE IN DEN PROGRAMMEN, IN WELCHEM */ 00000040 /* SYSTEM MAN SICH BEFINDET. DIESES INCLUD BEFINDET SICH AUF DER */ 00000050 /* DVP.INCLIB SOWIE AUF DER CICS.INCLIB */ 00000060 /* */ 00000070 /* %DCL $SYSTEM CHAR; */ 00000080 /* %$SYSTEM = 'IMS'; */ 00000090 /* DFT RANGE(*) STATIC; */ 00000150 /********************************************************************/ 00000100 00000110 %DCL $SYSTEM CHAR; 00000120 %$SYSTEM = 'CICS' ; 00000130 00000140 /********************************************************************/ 00000030 /* TARGET SYSTEM DEPENDENT GETMAIN - LOGIC */ 00000070 /* */ 00000070 /********************************************************************/ 00000100 %DCL $KO_ALLOC ENTRY ; 00000120 %IF $SYSTEM = 'CICS' %THEN %INCLUDE $KOALLOC ; %ELSE %INCLUDE $KOALLOI ; %ACT $KO_ALLOC ; 00000120 00000140