* %GOTO CIXL1; /* BILINGUAL MAPPING */ 00500002 MACRO 00510002 IHACIX &DSECT=YES 01000002 .* /* START OF SPECIFICATIONS **** 01010002 .* 01020002 .*01 MODULE-NAME = IHACIX 01030002 .* 01040002 .*01 COPYRIGHT = NONE 01050002 .* 01060002 .*01 STATUS = VS2 RELEASE 2 LEVEL 0 01070002 .* 01080002 .*01 DESCRIPTIVE-NAME = CI SVC EXIT LIST 01090002 .* 01100002 .*01 FUNCTION = USED BY SVC-S TO SEE IF AN EXIT IS NEEDED. 01110002 .* 01120002 .*01 MODULE-TYPE = MACRO 01130002 .* 01140002 .*02 MACRO-SIZE = NA FOR MAPPING MACRO 01150002 .* 01160002 .*02 PARAMETER-RECEIVED = DSECT 01170002 .* 01180002 .*03 TYPE = CHARACTER STRING 01190002 .* 01200002 .*04 VALUE = YES OR NO 01210002 .* 01220002 .*01 TABLES = NONE 01230002 .* 01240002 .*01 INNER-MACROS = NONE 01250002 .* 01260002 .*01 SYSTEM-MACROS = NONE 01270002 .* 01280002 .*01 CHANGE-ACTIVITY = SEE BELOW 01290002 .* VS2 RELEASE 2 01300002 .* MACRO CREATED 01310002 .* 01320002 .* 01330002 .**** END OF SPECIFICATIONS ***/ 01340002 * %CIXL1: ; 01500002 * /* MACCOMP Y-2 SC1D0/SJD48 */ 01510002 * /* MACSTAT Y-2 73138/021160 */ 01520002 */********************************************************************/ 01530002 */* */ 01540002 */* CI SVC EXIT LIST */ 02000002 */* */ 02500002 */* VS2 RELEASE 2, 05/18/73, LEVEL=0 */ 03000002 */* */ 03500002 */* FORMAT OF CI SVC EXIT LIST */ 04000002 */* BYTE 0 BYTES 1-3 */ 04500002 */* NORMAL 0 ADDR OF CI ROUTINE */ 05000002 */* NULL RETURN CODE 0 */ 05500002 */* */ 05510002 */* NOTE = IN A PLS INCLUDE, CIXBASE MAY BE DECLARED AS DEF(LABEL) */ 05514002 */* TO CAUSE IT TO BE USED IN A STRUCTURE. IF CIXBASE IS */ 05516002 */* OMITTED THE STRUCTURE IS DECLARED AS BASED. */ 05518002 */********************************************************************/ 05520002 * 05530002 * %GOTO CIXL2; 05540002 AIF ('&DSECT' EQ 'NO').CIXNOD 06000002 CIX DSECT 06010002 AGO .CIXCONT 06020002 .CIXNOD ANOP 06030002 CIX DS 0F 06040002 .CIXCONT ANOP 06050002 CIXSYNDF DS F SYNADAF ROUTINE ENTRY 06500002 CIXBLDL DS F FIND/BLDL ROUTINE ENTRY 07000002 CIXBSP DS F BACKSPACE ROUTINE ENTRY 07500002 CIXFEOV DS F FEOV ROUTINE ENTRY 08000002 CIXSTOW DS F STOW ROUTINE ENTRY 08500002 MEND 09000002 * %CIXL2: ; 09100002 * % IF CIXBASE = '' 09120002 * % THEN 09140002 * % CIXBASE = 'BASED'; 09160002 * DCL 1 CIX CIXBASE , 09200002 * 2 CIXSYNDF PTR(31) , /* SYNADAF ROUTINE ENTRY */ 09300002 * 2 CIXBLDL PTR(31) , /* FIND/BLDL ROUTINE ENTRY */ 09400002 * 2 CIXBSP PTR(31) , /* BACKSPACE ROUTINE ENTRY */ 09500002 * 2 CIXFEOV PTR(31) , /* FEOV ROUTINE ENTRY */ 09600002 * 2 CIXSTOW PTR(31) ; /* STOW ROUTINE ENTRY */ 09700002