* %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