* %GOTO QCBBSL; /* 00900002 MACRO 01800002 &NAME IHAQCB 02700002 QCB DSECT 03600002 * * MAJOR QCB * 05400002 ******************************************* 06300002 *0(NMAJ) * 07200002 * ADDRESS OF THE NEXT MAJOR QCB * 08100002 * * 09000002 ******************************************* 09900002 *4(PMAJ) * 10800002 * ADDRESS OF THE PREVIOUS MAJOR * 11700002 * * 12600002 ******************************************* 13500002 *8(FMIN) * 14400002 * ADDRESS OF THE FIRST MINOR QCB * 15300002 * * 16200002 ******************************************* 17100002 *12(LMIN) * 18000002 * ADDRESS OF THE LAST MINOR QCB * 18900002 * * 19800002 ******************************************* 20700002 *16(NAME) * 21600002 * MAJOR QCB NAME * 22500002 * * 23400002 *********** * 24300002 * * 25200002 * * 26100002 * * 27000002 ******************************************* 27900002 * 30900003 * * MINOR QCB * 34200002 ******************************************* 35100002 *0(NMIN) * 36000002 * ADDRESS OF THE NEXT MINOR QCB * 36900002 * * 37800002 ******************************************* 38700002 *4(PMIN) * 39600002 * ADDRESS OF THE PREVIOUS MINOR QCB * 40500002 * * 41400002 ******************************************* 42300002 *8(FQEL) * 43200002 * ADDRESS OF THE FIRST QEL * 44100002 * * 45000002 ******************************************* 45900002 *12(LQEL) * 46800002 * ADDRESS OF THE LAST QEL * 47700002 * * 48600002 ******************************************* 49500002 *16(NAMEL)*17(FLGS) *18(ASID) * 50400002 * NAME * FLAGS * ADDRESS SPACE I.D. * 51300002 * LENGTH * * * 52200002 ******************************************* 53100002 *20(NAME) * 54000002 * MINOR NAME * 54900002 * (VARIABLE LENGTH) * 55800002 ******************************************* 56700002 MAJ EQU * 56800003 MAJNMAJ DS A ADDRESS OF NEXT MAJOR QCB 56900003 MAJPMAJ DS A ADDRESS OF PREVIOUS MAJOR QCB 57000003 MAJFMIN DS A ADDRESS OF THE FIRST MINOR QCB 57100003 MAJLMIN DS A ADDRESS OF THE LAST MINOR QCB 57200003 MAJNAME DS CL8 MAJOR NAME FOR THIS QCB 57300003 MIN DSECT 57400003 MINNMIN DS A ADDRESS OF THE NEXT MINOR QCB. 57600002 MINPMIN DS A ADDRESS OF THE PREVIOUS MINOR. 58500002 MINFQEL DS A ADDRESS OF THE FIRST QEL. 59400002 MINLQEL DS A ADDRESS OF THE LAST QEL 60300002 MINNAMEL DS AL1 LENGTH OF MINOR NAME 61200002 MINFLGS DS AL1 FLAGS FIELD 62100002 MINSYS EQU X'80' SCOPE OF SYSTEM 63000002 MINSYSS EQU X'40' SCOPE OF SYSTEMS 63900002 MINSTEP EQU X'20' SCOPE OF STEP 64800002 MINNOENQ EQU X'10' IF 1,NO ENQS ALLOWED (SET BY FRR) 65700002 MINASID DS H ADDRESS SPACE I.D. (STEP ONLY) 66600002 MINNAME DS C VARIABLE LENGTH MINOR NAME 67500002 MEND , */ 68400002 *%QCBBSL : ; 69300002 */* **************************************************************** */ 70200002 */* MAJOR QCB */ 71100002 */* **************************************************************** */ 72000002 *DECLARE 72900002 * 1 MAJ BASED, 73800002 * 2 MAJNMAJ PTR(31), /* ADDRESS OF NEXT MAJOR QCB */ 74700002 * 2 MAJPMAJ PTR(31), /* ADDRESS OF PREVIOUS MAJOR */ 75600002 * 2 MAJFMIN PTR(31), /* ADDRESS OF THE FIRST MINOR */ 76500002 * 2 MAJLMIN PTR(31), /* ADDRESS OF LAST MINOR QCB */ 77400002 * 2 MAJNAME CHAR(8); /* MAJOR NAME FOR THIS QCB */ 78300002 */* **************************************************************** */ 79200002 */* MINOR QCB */ 80100002 */* **************************************************************** */ 81000002 *DECLARE 81900002 * 1 MIN BASED, 82800002 * 2 MINNMIN PTR(31), /* ADDRESS OF THE NEXT MINOR */ 83700002 * 2 MINPMIN PTR(31), /* ADDRESS OF THE PREVIOUS MINOR */ 84600002 * 2 MINFQEL PTR(31), /* ADDRESS OF THE FIRST QEL */ 85500002 * 2 MINLQEL PTR(31), /* ADDRESS OF THE LAST QEL */ 86400002 * 2 MINNAMEL PTR(8), /* LENGTH OF MINOR NAME */ 87300002 * 2 MINFLGS CHAR(1), /* MINOR FLAGS */ 88200002 * 3 MINSYS BIT(1), /* SCOPE OF SYSTEM */ 89100002 * 3 MINSYSS BIT(1), /* SCOPE OF SYSTEMS */ 90000002 * 3 MINSTEP BIT(1), /* SCOPE OF STEP */ 90900002 * 3 MINNOENQ BIT(1), /* IF 1, ENQS DENIED (SET BY FRR) */ 91800002 * 3 * BIT(1), /* RESERVED */ 92700002 * 3 * BIT(1), /* RESERVED */ 93600002 * 3 * BIT(1), /* RESERVED */ 94500002 * 3 * BIT(1), /* RESERVED */ 95400002 * 2 MINASID PTR(16), /* ADDRESS SPACE I.D.(STEP ONLY) */ 96300002 * 2 MINNAME CHAR(1); /* MINOR NAME (VARIABLE LENGTH) */ 97200002