TITLE 'AMDPRECT - EXIT CONTROL TABLE' 00070002 AMDPRECT CSECT 00080002 *A-000000-999999 @Y02006 00090002 * /* START OF SPECIFICATIONS **** 00100002 * 00150002 *01* MODULE-NAME = AMDPRECT 00200002 * 00300002 *02* CSECT-NAME = AMDPRECT 00350002 * 00450002 *01* DESCRIPTIVE-NAME = AMDPRDMP EXIT CONTROL TABLE 00500002 * 00600002 *01* COPYRIGHT = NONE 00650002 *01* STATUS = VS2 RELEASE 02.0 00900002 * 01000002 *01* FUNCTION = THE FUNCTION OF THE EXIT CONTROL TABLE IS TO INDICATE 01050002 * TO THE EXIT INTERFACE ROUTINE (AMDPRUIM) WHICH EXIT MODULES ARE 01100002 * TO GET CONTROL UPON EACH OF THE EXITS FROM AMDPRDMP. THE TABLE 01102002 * ALSO INDICATES WHICH EXIT MODULE IS TO GET CONTROL UPON 01110002 * ENCOUNTERING AN EXIT VERB. 01112002 * 01150002 *02* OPERATION = THE EXIT CONTROL TABLE CONTAINS A 20 BYTE ENTRY 01200002 * FOR EACH EXIT MODULE THAT IS TO RECEIVE CONTROL ON ONE OF 01250002 * AMDPRDMP'S EXITS OR UPON AMDPRDMPS ENCOUNTERING OF AN EXIT 01300002 * VERB. THE TABLE INITIALLY IS SET UP TO CONTAIN 20 ENTRIES, 01350002 * BUT MAY BE EXPANDED TO ANY LENGTH, AS REQUIRED. EACH ENTRY 01360002 * CONTAINS THE FOLLOWING. 01370002 * 01400002 * MODULE NAME - NAME OF THE EXIT MODULE (PADDED ON RIGHT 01420002 * WITH BLANKS) THAT SHOULD BE LOADED AND 01420402 * GIVEN CONTROL. 01430402 * 01440002 * EXIT FLAG - A ONE BYTE FIELD INDICATING UPON WHICH 01442002 * AMDPRDMP EXIT THIS MODULE SHOULD GET 01444002 * CONTROL. ANY COMBINATION OF THE 01446002 * FOLLOWING MAY OCCUR: 01446402 * 01446802 * X'80' EACH TCB 01448002 * X'40' EACH ASID 01448402 * X'20' FORMAT STATEMENT 01448802 * X'10' PRINT CURRENT/JOBNAME 01449202 * X'08' PRINT NUCLEUS 01449602 * 01449802 * VERB NAME - NAME OF THE VERB (PADDED ON RIGHT WITH 01449902 * BLANKS) UPON WHICH THE EXIT MODULE 01466602 * SHOULD GET CONTROL. 01468602 * 01476602 * THE TABLE IS SEARCHED BY MODULE AMDPRUIM EACH TIME AN 01478602 * AMDPRDMP EXIT OCCURS AND CONTROL IS GIVEN TO THE 01480602 * APPROPRIATE EXIT MODULES IN THE ORDER ENCOUNTERED 01482602 * IN THE TABLE. BOTH EXIT FLAGS AND A VERB NAME MAY BE 01493002 * SPECIFIED IN THE SAME ECT ENTRY. 01493402 * 01493802 *01* NOTES = 01494402 * 01500002 *02* DEPENDENCIES = NONE 01550002 * 01800002 *03* CHARACTER-CODE-DEPENDENCIES = NONE THAT CANNOT BE RESOLVED 01850002 * BY RE-COMPILATION. 01900002 * 02010002 *02* RESTRICTIONS = NONE 02050002 * 02160002 *02* REGISTER-CONVENTIONS = N/A 02200002 * 02400002 *02* PATCH-LABEL = N/A 02450002 * 02600002 *01* MODULE-TYPE = TABLE 02650002 * 02750002 *02* PROCESSOR = ASSEMBLER 02800002 * 03150002 *02* MODULE-SIZE = 0.4K BYTES 03200002 * 03350002 *02* ATTRIBUTES = PROBLEM PROGRAM REGION; NOT EXECUTABLE. 03400002 * 03650002 *01* ENTRY-POINT = N/A 03700002 * 04000002 *01* EXIT-NORMAL = N/A 05200002 * 06060002 *01* EXIT-ERROR = N/A 06100002 * 07010002 *01* EXTERNAL-REFERENCES = N/A 07050002 * 07910002 *01* TABLES = N/A 07950002 * 08100002 *01* MACROS = N/A 08150002 * 08250002 *01* CHANGE-ACTIVITY = Y02006 08450002 * 08550002 *01* MESSAGES = N/A 08600002 * 08800002 *01* ABEND-CODES = N/A 08850002 * 08950002 **** END OF SPECIFICATIONS ***/ 09000002 * 09050002 *********************************************************************** 09100002 * * 09110002 * EXIT FLAG DEFINITIONS * 09120002 * * 09130002 *********************************************************************** 09150002 * 09200002 ATCB EQU X'80' EXIT GETS CONTROL EACH TIME 09250002 * AMDPRDMP PROCESSES TCB ASSOCIATED 09300002 * CONTROL BLOCKS 09350002 BASID EQU X'40' EXIT GETS CONTROL EACH TIME 09400002 * AMDPRDMP PROCESSES ASID ASSOCIATED 09450002 * CONTROL BLOCKS 09500002 CFORMAT EQU X'20' EXIT GETS CONTROL EACH TIME 09550002 * AMDPRDMP PROCESSES FORMAT CONTROL 09600002 * STATEMENT 09650002 DCURJOB EQU X'10' EXIT GETS CONTROL EACH TIME 09700002 * AMDPRDMP PROCESSES PRINT CURRENT OR 09750002 * PRINT JOBNAME CONTROL STATEMENT 09800002 ENUCLEUS EQU X'08' EXIT GETS CONTROL EACH TIME 09850002 * AMDPRDMP PROCESSES PRINT NUCLEUS 09900002 * CONTROL STATEMENT 09950002 * 10150002 *********************************************************************** 10200002 * * 10210002 * EXIT CONTROL TABLE * 10220002 * * 10230002 *********************************************************************** 10250002 * 10300002 ECTNTR01 DS 0CL20 EXIT CONTROL TABLE ENTRY 01 10350002 * FOR FORMATTING QUEUE CONTROL BLKS 10360002 DC CL8'AMDPRQCB' EXIT MODULE NAME 10400002 DC AL1(0) INVOCATION FLAGS FOR THIS EXIT 10450002 DC 3XL1'00' RESERVED 10500002 DC CL8'QCBTRACE' VERB NAME TO INVOKE THIS EXIT, 10550002 * IF ANY 10600002 * 10650002 * 10700002 ECTNTR02 DS 0CL20 EXIT CONTROL TABLE ENTRY 02 10710002 * FOR FORMATTING QUEUE CONTROL BLKS 10712002 DC CL8'AMDPRQCB' EXIT MODULE NAME 10714002 DC AL1(0) INVOCATION FLAGS FOR THIS EXIT 10716002 DC 3XL1'00' RESERVED 10718002 DC CL8'Q' VERB NAME TO INVOKE THIS EXIT, 10718402 * IF ANY 10718802 * 10719202 * 10719602 ECTNTR03 DS 0CL20 EXIT CONTROL TABLE ENTRY 03 10720002 * FOR FORMATTING THE CVT 10722002 DC CL8'AMDPRCVT' EXIT MODULE NAME 10730002 DC AL1(0) INVOCATION FLAGS FOR THIS EXIT 10740002 DC 3XL1'00' RESERVED 10742002 DC CL8'CVTMAP' VERB NAME TO INVOKE THIS EXIT, 10744002 * IF ANY 10746002 * 10748002 * 10748402 ECTNTR04 DS 0CL20 EXIT CONTROL TABLE ENTRY 04 10749202 * FOR FORMATTING ASM CONTROL BLOCKS 10829202 DC CL8'ILRFMT00' EXIT MODULE NAME 10909202 DC AL1(0) INVOCATION FLAGS FOR THIS EXIT 10989202 DC 3XL1'00' RESERVED 11069202 DC CL8'ASMDATA' VERB NAME TO INVOKE THIS EXIT, 11149202 * IF ANY 11229202 * 11309202 * 11389202 ECTNTR05 DS 0CL20 EXIT CONTROL TABLE ENTRY 05 11550002 * FOR FORMATTING ATCAM CONTROL BLOKS 11560004 DC CL8'ISTRAFD1' EXIT MODULE NAME @ZM32220 11600004 DC AL1(0) INVOCATION FLAGS FOR THIS EXIT 11650002 DC 3XL1'00' RESERVED 11700002 DC CL8'VTAMMAP' VERB NAME TO INVOKE THIS EXIT, 11750004 * IF ANY 11800002 * 11850002 * 11900002 ECTNTR06 DS 0CL20 EXIT CONTROL TABLE ENTRY 06 11905002 * FOR PROCESSING SUMDUMP VERB @G33AFRM 11907000 DC CL8'IEAVTFSD' EXIT MODULE NAME @G33AFRM 11910000 DC AL1(0) INVOCATION FLAGS FOR THIS EXIT 11915002 DC 3XL1'00' RESERVED 11920002 DC CL8'SUMDUMP' VERB TO INVOKE EXIT @G33AFRM 11925000 * IF ANY 11930002 * 11935002 * 11940002 ECTNTR07 DS 0CL20 EXIT CONTROL TABLE ENTRY 07 11950002 * FOR PROCESSING LOGDATA VERB @G33AFRM 11970000 DC CL8'IFCERFMT' EXIT MODULE NAME @G33AFRM 12000000 DC AL1(0) INVOCATION FLAGS FOR THIS EXIT 12050002 DC 3XL1'00' RESERVED 12100002 DC CL8'LOGDATA ' VERB TO INVOKE EXIT @G33AFRM 12150000 * IF ANY 12200002 * 12250002 * 12300002 ECTNTR08 DS 0CL20 EXIT CONTROL TABLE ENTRY 08 12350002 * FOR DATA MANAGEMENT FORMATER@G33AFRM 12370000 DC CL8'IECDAFMT' EXIT MODULE NAME @G33AFRM 12400000 DC AL1(128) TCB EXIT FLAG @G33AFRM 12450000 DC 3XL1'00' RESERVED 12500002 DC CL8' ' VERB NAME TO INVOKE THIS EXIT, 12550002 * IF ANY 12600002 * 12650002 * 12700002 ECTNTR09 DS 0CL20 EXIT CONTROL TABLE ENTRY 09 12750002 * FOR IOS DATA FORMATTER @G33AFRM 12770000 DC CL8'IECIOFMT' EXIT MODULE NAME @G33AFRM 12800000 DC AL1(128) TCB EXIT FLAG @G33AFRM 12850000 DC 3XL1'00' RESERVED 12900002 DC CL8' ' VERB NAME TO INVOKE THIS EXIT, 12950002 * IF ANY 13000002 * 13050002 * 13100002 ECTNTR10 DS 0CL20 EXIT CONTROL TABLE ENTRY 10 13150002 * FOR RTM FORMATTER @G33AFRM 13170000 DC CL8'IEAVTFMT' EXIT MODULE NAME @G33AFRM 13200000 DC AL1(128) TCB EXIT FLAG @G33AFRM 13250000 DC 3XL1'00' RESERVED 13300002 DC CL8' ' VERB NAME TO INVOKE THIS EXIT, 13350002 * IF ANY 13400002 * 13450002 * 13500002 ECTNTR11 DS 0CL20 EXIT CONTROL TABLE ENTRY 11 13550002 DC CL8' ' EXIT MODULE NAME 13600002 DC AL1(0) INVOCATION FLAGS FOR THIS EXIT 13650002 DC 3XL1'00' RESERVED 13700002 DC CL8' ' VERB NAME TO INVOKE THIS EXIT, 13750002 * IF ANY 13800002 * 13850002 * 13900002 ECTNTR12 DS 0CL20 EXIT CONTROL TABLE ENTRY 12 13950002 DC CL8' ' EXIT MODULE NAME 14000002 DC AL1(0) INVOCATION FLAGS FOR THIS EXIT 14050002 DC 3XL1'00' RESERVED 14100002 DC CL8' ' VERB NAME TO INVOKE THIS EXIT, 14150002 * IF ANY 14200002 * 14250002 * 14300002 ECTNTR13 DS 0CL20 EXIT CONTROL TABLE ENTRY 13 14350002 DC CL8' ' EXIT MODULE NAME 14400002 DC AL1(0) INVOCATION FLAGS FOR THIS EXIT 14450002 DC 3XL1'00' RESERVED 14500002 DC CL8' ' VERB NAME TO INVOKE THIS EXIT, 14550002 * IF ANY 14600002 * 14650002 * 14700002 ECTNTR14 DS 0CL20 EXIT CONTROL TABLE ENTRY 14 14750002 DC CL8' ' EXIT MODULE NAME 14800002 DC AL1(0) INVOCATION FLAGS FOR THIS EXIT 14850002 DC 3XL1'00' RESERVED 14900002 DC CL8' ' VERB NAME TO INVOKE THIS EXIT, 14950002 * IF ANY 15000002 * 15050002 * 15100002 ECTNTR15 DS 0CL20 EXIT CONTROL TABLE ENTRY 15 15150002 DC CL8' ' EXIT MODULE NAME 15200002 DC AL1(0) INVOCATION FLAGS FOR THIS EXIT 15250002 DC 3XL1'00' RESERVED 15300002 DC CL8' ' VERB NAME TO INVOKE THIS EXIT, 15350002 * IF ANY 15400002 * 15450002 * 15500002 ECTNTR16 DS 0CL20 EXIT CONTROL TABLE ENTRY 16 15550002 DC CL8' ' EXIT MODULE NAME 15600002 DC AL1(0) INVOCATION FLAGS FOR THIS EXIT 15650002 DC 3XL1'00' RESERVED 15700002 DC CL8' ' VERB NAME TO INVOKE THIS EXIT, 15750002 * IF ANY 15800002 * 15850002 * 15900002 ECTNTR17 DS 0CL20 EXIT CONTROL TABLE ENTRY 17 15950002 DC CL8' ' EXIT MODULE NAME 16000002 DC AL1(0) INVOCATION FLAGS FOR THIS EXIT 16050002 DC 3XL1'00' RESERVED 16100002 DC CL8' ' VERB NAME TO INVOKE THIS EXIT, 16150002 * IF ANY 16200002 * 16250002 * 16300002 ECTNTR18 DS 0CL20 EXIT CONTROL TABLE ENTRY 18 16350002 DC CL8' ' EXIT MODULE NAME 16400002 DC AL1(0) INVOCATION FLAGS FOR THIS EXIT 16450002 DC 3XL1'00' RESERVED 16500002 DC CL8' ' VERB NAME TO INVOKE THIS EXIT, 16550002 * IF ANY 16600002 * 16650002 * 16700002 ECTNTR19 DS 0CL20 EXIT CONTROL TABLE ENTRY 19 16750002 DC CL8' ' EXIT MODULE NAME 16800002 DC AL1(0) INVOCATION FLAGS FOR THIS EXIT 16850002 DC 3XL1'00' RESERVED 16900002 DC CL8' ' VERB NAME TO INVOKE THIS EXIT, 16950002 * IF ANY 17000002 * 17050002 * 17100002 ECTNTR20 DS 0CL20 EXIT CONTROL TABLE ENTRY 20 17150002 DC CL8' ' EXIT MODULE NAME 17200002 DC AL1(0) INVOCATION FLAGS FOR THIS EXIT 17250002 DC 3XL1'00' RESERVED 17300002 DC CL8' ' VERB NAME TO INVOKE THIS EXIT, 17350002 * IF ANY 17400002 END 17450002