*%GOTO EXL001; /* Y02072*/ 00060002 MACRO 00070002 IHAEXLST 00100002 .* /* START OF SPECIFICATIONS **** 00102002 .* 00104002 .*01 MODULE-NAME = IHAEXLST 00106002 .* 00108002 .*01 COPYRIGHT = NONE 00108402 .* 00108802 .*01 STATUS = VS2 RELEASE 2 LEVEL 2 00109202 .* 00109602 .*01 DESCRIPTIVE-NAME = DCB EXIT LIST 00109702 .* 00109802 .*01 FUNCTION = USED TO DESCRIBE THE FORMAT OF THE DCB EXIT LIST. 00109902 .* 00123202 .*01 MODULE-TYPE = MACRO 00133202 .* 00135202 .*02 MACRO-SIZE = NA FOR MAPPING MACRO 00135602 .* 00136002 .*02 PARAMETER-RECEIVED = NONE 00136402 .* 00145002 .*01 TABLES = NONE 00145402 .* 00145502 .*01 INNER-MACROS = NONE 00159102 .* 00169102 .*01 SYSTEM-MACROS = NONE 00171102 .* 00171502 .*01 CHANGE-ACTIVITY = SEE BELOW 00171902 .* VS2 REL 2 00172302 .* MACRO CREATED 00172702 .* 00177202 .* 00179202 .**** END OF SPECIFICATIONS ***/ 00181202 *%EXL001:; /* Y02072*/ 00181902 * /* MACCOMP Y-2 SC1D0/SJD48 */ 00183902 * /* MACSTAT Y-2 73124/021160 */ 00185902 *%GOTO EXL002; /* Y02072*/ 00186302 * 00236302 * THIS DSECT DEFINES THE VARIOUS TYPES OF EXIT LIST ENTRIES 00286302 * AND THE FORMAT OF EACH FULL WORD ENTRY OF A VARIABLE LENGTH 00336302 * EXIT LIST. 00348302 * 00348702 * DESCRIPTIVE LAYOUT 00349102 * +0 +1 00349502 * ___________________________________________________ 00349902 * | | | 00366602 * | EXLIST | ADDRESS OF EXIT | 00376602 * | CODE | | 00378602 * |____________|____________________________________| 00380602 * 00382602 SPACE 2 00383002 EXLST DSECT 00383302 EXLENTRA DS 0A SAME AS EXLENTRB BELOW 00400002 EXLCODES DS B VARIOUS EXLST CODES 00450002 EXLINACT EQU X'00' INACTIVE ENTRY 00500002 EXLIHLAB EQU X'01' INPUT HEADER LABEL 00550002 EXLOHLAB EQU X'02' OUTPUT HEADER LABEL 00600002 EXLITLAB EQU X'03' INPUT TRAILER LABEL 00650002 EXLOTLAB EQU X'04' OUTPUT TRAILER LABEL 00700002 EXLDCBEX EQU X'05' DCB EXIT 00750002 EXLEOVEX EQU X'06' END OF VOLUME EXIT 00800002 EXLUSTOT EQU X'0A' USER''S TOTALING AREA ADDRESS 00850002 EXLBLCNT EQU X'0B' UNEQUAL BLOCK COUNT EXIT 00900002 EXLDFRIT EQU X'0C' DEFER PROCESSING OF USER INPUT 00950002 * TRAILER LABEL 01000002 EXLDFNIT EQU X'0D' DEFER PROCESSING A NONSTANDARD 01050002 * INPUT TRAILER LABEL 01100002 EXLFCBIM EQU X'10' DEFINE AN FCB IMAGE 01150002 EXLDCBAB EQU X'11' ABEND EXIT 01200002 EXLLASTE EQU X'80' LAST ENTRY IN LIST 01250002 EXLENTRB DS AL3 ADDRESS OF EXIT 01300002 EXLLENTH EQU *-EXLENTRA LENGTH OF DSECT (ONE ENTRY) 01350002 MEND 01400002 *%EXL002:; /* Y02072*/ 01450002 */* */ 01460002 */*THIS STRUCTURE DESCRIBES THE VARIOUS TYPES OF EXIT LIST ENTRIES */ 01470002 */*AND THE FORMAT OF EACH FULL WORK ENTRY OF A VARIABLE LENGTH */ 01480002 */*EXIT LIST. */ 01492002 */* */ 01494002 */*DESCRIPTIVE LAYOUT */ 01496002 */* +0 +1 */ 01498002 */* ___________________________________________________ */ 01498402 */* | | | */ 01498802 */* | EXLIST | ADDRESS OF EXIT | */ 01499202 */* | CODE | | */ 01499602 */* |____________|____________________________________| */ 01499702 */* */ 01499802 */* */ 01499902 *DCL 1 EXLST PTR(32) BASED, /* Y02072*/ 01500002 * 2 EXLENTRA PTR(31), /*SAME AS EXLENTRB Y02072*/ 01510002 * 3 EXLCODES FIXED(8), /*EXIT LIST CODES Y02072*/ 01550002 * 4 EXLLAST BIT(1), /*BIT TO TST LAST ENTRYY02072*/ 01550402 * 3 EXLENTRB PTR(24); /*ADDRESS OF EXIT Y02072*/ 01552002 */* Y02072*/ 01554002 */* THE FOLLOWING CONSTANTS REFER TO THE LABEL EXLCODES Y02072*/ 01560002 */* Y02072*/ 01570002 *DCL EXLINACT FIXED(8) CONSTANT(0), /*INACTVE ENTRY Y02072*/ 01600002 * EXLIHLAB FIXED(8) CONSTANT(1), /*INPUT HEAD LBL Y02072*/ 01650002 * EXLOHLAB FIXED(8) CONSTANT(2), /*OUTPT HEAD LBL Y02072*/ 01700002 * EXLITLAB FIXED(8) CONSTANT(3), /*IN TRAIL LBL Y02072*/ 01750002 * EXLOTLAB FIXED(8) CONSTANT(4), /*OUT TRAIL LBL Y02072*/ 01800002 * EXLDCBEX FIXED(8) CONSTANT(5), /*DCB EXIT Y02072*/ 01850002 * EXLEOVEX FIXED(8) CONSTANT(6), /*EOV EXIT Y02072*/ 01900002 * EXLUSTOT FIXED(8) CONSTANT(10), /*USER TOTALING Y02072*/ 01950002 * EXLBLCNT FIXED(8) CONSTANT(11), /*UNEQUAL BLK CNT Y02072*/ 02000002 * EXLDFRIT FIXED(8) CONSTANT(12), /*DEFER USR INPUT Y02072*/ 02050002 * /*TRAILER LABEL PROCESS Y02072*/ 02060002 * EXLDFNIT FIXED(8) CONSTANT(13), /*DEFER PROCESS Y02072*/ 02100002 * /*NONSTANDARD INPUT Y02072*/ 02110002 * /*TRAILER LABEL Y02072*/ 02120002 * EXLFCBIM FIXED(8) CONSTANT(16), /*DEFINE FCB IM Y02072*/ 02150002 * EXLDCBAB FIXED(8) CONSTANT(17), /*ABEND EXIT Y02072*/ 02200002 * EXLLASTE FIXED(8) CONSTANT(128), /*LAST ENTRY Y02072*/ 02250002 * EXLLENTH FIXED(8) CONSTANT(4); /*LEN OF EXLST ENTRY Y02072*/ 02350002