MACRO 00050000 &NAME TPROCESS &PCB=,&QUEUES=,&ALTDEST=,&OPDATA=,&SECTERM=NO, *00100000 &SYNC=NO,&CKPTSYN=NO,&X=(A,B,C,D,E,F),&SECURE=NO, S22024*00150000 &QS=(DN,DR,MO,MR,MN,34,18,66,82,98),&LEVEL=(0), *00200000 &RECDEL=00,&DATE=NO,&QBACK=NO,&LU=NO,&POS @OX21220 00250082 GBLB &IEDQZA(64),&IEDQTTF(64),&IEDQFL(16) @PI06895 00300000 GBLA &IEDQAR(64) 00400000 GBLC &IEDQSV(8) 00410000 LCLA &A,&L 00460000 LCLB &NO,&B(8) 00510000 LCLC &V 00560000 .*A553000 S22027 00570000 .*C035000,553000 S22027 00580000 .*A840000 S99528 00590000 .*A080000,493000,500000 S22029 00600000 .*A490000,497000 CHANGED 10/15/71 A44888 00610000 .*C868000 S21101 00620000 .*A519000-524000,556000 S22025 00630000 .*C035000,511000 S22025 00640000 .*D707000 S22025 00650000 .*A605000,843000,897000-902000 X01004 00660000 .*C511000,882000 X01004 00670000 .*D350000,518000,854000-875000,903--- X01004 00680000 .*C581000 Y01004 00690000 .*A847000 X02004 00700000 .*A602000 SA63593 00710000 .*A840100,843100,882000,900000 Y05330 00720000 .*C000014 Y05330 00730000 .*C002500,553060,553900,555100,833000 00740000 .*D0060000 00750000 .*A083600,53120 00760000 .*C580000 @PI02863 00780000 .*A696000 @OZ26494 00780182 .*C580000,582000 @G36XRFF 00790000 .*C002500 @OX21220 00790182 .*A008000,136000 @OX21220 00790282 .*C652000 @OZ48579 00790382 .*PACKAGE ERROR @OZ49699 00795182 &IEDQFL(9) SETB 0 S22025 00800000 AIF ('&POS' NE '').INVPO @OX21220 00810082 AIF (&IEDQAR(10) EQ 0).C0 08400000 AIF ('&NAME' EQ '&IEDQSV(1)' AND &IEDQAR(10) EQ 2).OPT 08800000 IEDQGCH 2 09200000 .C0 ANOP @YM06883 09300000 &IEDQFL(14) SETB 1 WANT TPROCESS DEV DEP INFO @PI06895 09400000 &IEDQFL(1) SETB 1 WANT BUFSIZE DEV DEP INFO @PI06895 09600000 &IEDQAR(17) SETA 0 INIT BUFSIZE VALUE @YM06883 09800000 AIF (&IEDQZA(55)).C1 10000000 AIF (&IEDQZA(54) EQ &IEDQZA(55) AND &IEDQZA(53) EQ &IEDQZA(5*10800000 4)).NOTAB 11600000 MNOTE 12,'*** IHB315 SEQUENCE ERROR- MUST PRECEDE LAST ENTRY *12000000 SPECIFIED BY TTABLE MACRO' 12800000 AGO .SETNO 13600000 .INVPO MNOTE 12,'*** IHB027 EXECSSIVE POSITIONAL PARAMETER SPECIFIED-*13610082 &POS' @OX21220 13620082 AGO .SETNO @OX21220 13630082 .NOTAB MNOTE 12,'*** IHB070 SEQUENCE ERROR- MUST FOLLOW TTABLE MACRO' 14400000 .SETNO ANOP 14800000 &NO SETB 1 15600000 .C1 AIF ('&NAME' NE '').C1A 16400000 MNOTE 12,'*** IHB076 MACRO NAME FIELD BLANK- NAME REQUIRED' 17200000 &NO SETB 1 17600000 .C1A AIF ('&PCB' NE '').C2 18400000 MNOTE 12,'*** IHB004 REQUIRED OPERAND(S) NOT SPECIFIED' 19200000 SPACE 2 20000000 MEXIT 20400000 .C2 AIF (&NO).C3 21200000 AIF (K'&NAME LE &IEDQAR(1)-3).C3 22000000 &A SETA &IEDQAR(1)-3 22800000 MNOTE 4,'*** IHB302 NAME FIELD LONG- TRUNCATED TO &A CHARS' 23200000 SPACE 2 24000000 &A SETA 0 24800000 .C3 AIF ('&CKPTSYN' EQ 'NO').C3A 25600000 &B(6) SETB 1 26000000 AIF ('&CKPTSYN' EQ 'YES').C3B 26800000 MNOTE 12,'*** IHB002 INVALID CKPTSYN OPERAND SPECIFIED- &CKPTS*27600000 YN' 28400000 &NO SETB 1 28800000 AGO .C3B 29600000 .C3A AIF ('&SYNC' EQ 'NO').C3B 30400000 &B(6) SETB 1 31200000 AIF ('&SYNC' EQ 'YES').C3B 31600000 MNOTE 12,'*** IHB002 INVALID SYNC OPERAND SPECIFIED- &SYNC' 32400000 &NO SETB 1 33200000 .C3B AIF ('&QUEUES' EQ '').PUT @PI06895 34400000 &B(5) SETB 1 36000000 .C4 AIF (&A GT 4).ERR3 36800000 &A SETA &A+1 37200000 AIF ('&QUEUES' NE '&QS(&A)').C4 38000000 &A SETA &QS(&A+5) 38800000 AIF (&A LE 34).C5 39600000 AIF (NOT &IEDQZA(42)).ERR2 40000000 .C5 AIF (K'&RECDEL EQ 2).C6 40800000 MNOTE 12,'*** IHB002 INVALID RECDEL OPERAND SPECIFIED- &RECDEL*41600000 ' 42400000 &NO SETB 1 42800000 .C6 AIF (&L+1 GT N'&LEVEL-1).C7 43600000 &L SETA &L+1 44400000 AIF ('&LEVEL(&L+1)' GT '&LEVEL(&L)').C6 45200000 MNOTE 12,'*** IHB002 INVALID LEVEL OPERAND SPECIFIED- &LEVEL(&*45600000 L)' 46400000 &NO SETB 1 47200000 AGO .C6 48000000 .C7 AIF (&NO).EXT 48400000 &IEDQZA(39) SETB 1 A44888 49200000 &IEDQZA(17) SETB 1 S22029 49400000 IEDQTQ &PCB,&A,0,0,&LEVEL 49600000 &IEDQZA(39) SETB 0 A44888 50000000 &IEDQAR(5) SETA 0 SA51075 50200000 &IEDQZA(17) SETB 0 S22029 50300000 &NAME IEDQTT 50400000 &B(7) SETB ('&OPDATA' NE '') X01004 50800000 .C7A AIF ('&DATE' EQ 'NO').GEN S22025 51200000 &IEDQTTF(1) SETB 1 SET DATE=YES INDICATOR @Y17XAFF 52100000 AIF ('&DATE' EQ 'YES').GEN S22025 52200000 MNOTE 12,'*** IHB002 INVALID DATE OPERAND SPECIFIED - &DATE' 52300000 &NO SETB 1 S22025 52400000 .GEN DC BL1'0010&B(5)&B(6)&B(7)&B(8)' . TRMSTATE @Y17XAFF 52420000 DC AL3(&IEDQSV(2)),2H'01' TRMDESTQ,INSEQ,OUTSQ @PI06895 52440000 AIF ('&ALTDEST' EQ '').NAL 52600000 &A SETA 82-&IEDQAR(1) 53600000 DC AL2((&ALTDEST-IEDQTNT-&A)/&IEDQAR(1)) 54000000 .ST AIF ('&SECURE' EQ 'NO').L1 @PI06895 54830000 AIF ('&SECURE' NE 'YES').SECERR S22024 54860000 &IEDQZA(43) SETB 1 INDICATE SECURE=YES @Y17XAFF 54890000 AGO .L1 S22024 54920000 .SECERR MNOTE 4,'*** IHB086 SECURE INVALID KEYWORD, NO ASSUMED' S22024 54950000 .L1 AIF ('&LU' EQ 'NO').L10 VALIDATE LU OPERAND @PI06895 55100000 AIF ('&LU' EQ 'YES').L5 @Y17XAFF 55130000 MNOTE 4,'*** IED930 INVALID LU OPERAND,LU=NO ASSUMED' @Y17XAFF 55160000 AGO .L10 @Y17XAFF 55320000 .L5 ANOP @Y17XAFF 55324000 &IEDQZA(49) SETB 1 INDICATE LU=YES CODED @Y17XAFF 55328000 .L10 AIF ('&QBACK' EQ 'NO').ST1A @PI06895 55336000 AIF ('&QBACK' NE 'YES').QBERR S22027 55340000 DC BL2'&IEDQFL(1).000000000000&IEDQFL(14).00' @Y17XAFF 55360000 .* DEV DEP FLD FLAGS @Y17XAFF 55380000 DC XL3'0',XL1'01',XL1'&RECDEL' . S22024 55400000 AGO .ST1 S22027 55420000 .QBERR MNOTE 12,'*** IHB300 QBACK OPERAND INVALID AS SPECIFIED' 55440000 .ST1A DC BL2'&IEDQFL(1).000000000000&IEDQFL(14).00' @PI06895 55480000 .* DEV DEP FLD FLAGS @Y17XAFF 55500000 DC XL4'0',XL1'&RECDEL' . S22024 55520000 .ST1 AIF (&IEDQZA(53)).ST2 Y02027 55600000 &IEDQZA(53) SETB 1 56000000 &IEDQSV(4) CSECT . Y02027 56800000 ORG IEDOCQPT 57600000 DC V(IEDQEU) OPEN/CLOSE QCB ADDRESS @G36XRFF 58200000 ORG 58400000 .ST2 ANOP Y02027 58800000 &IEDQZA(54) SETB 1 59600000 IEDQSTCS CSECT . SA63593 60400000 IEDQTRMC CSECT X01004 60800000 ORG &IEDQSV(2)+28 61200000 &V SETC 'IED'.'&IEDQAR(4)'.'&X(&IEDQAR(7))' 62000000 DC A(&V) 62400000 ORG 63200000 AIF (N'&OPDATA EQ 0).CSE 64000000 .OPT ANOP @OZ48579 65200082 &NAME IEDQTO &OPDATA @OZ48579 65250082 AIF (&IEDQAR(5) EQ 0).CSE 66000000 &IEDQAR(10) SETA 2 66800000 AGO .EXT 67600000 .NAL DC AL2(0) . NO ALTERNATE DESTINATION 68000000 AGO .ST 68800000 .PUT ANOP 69600000 AIF ('&LU' EQ 'YES').BADPUT @OZ26494 69650082 &IEDQZA(38) SETB 1 70400000 &A SETA 2 71600000 AIF ('&SECTERM' EQ 'NO').C5 72400000 &B(8) SETB 1 73200000 AIF ('&SECTERM' EQ 'YES').C5 73600000 MNOTE 12,'*** IHB002 INVALID SECTERM OPERAND SPECIFIED- &SECTE*74400000 RM' 75200000 &NO SETB 1 76000000 AGO .C5 76400000 .BADPUT MNOTE 12,'*** IHB345 QUEUES OPERAND REQUIRED WHEN LU=YES IS SPX76400182 ECIFIED' @OZ26494 76400282 &NO SETB 1 @OZ26494 76400382 AGO .C5 @OZ26494 76400482 .ERR2 MNOTE 12,'*** IHB318 QUEUES OPERAND &QUEUES INVALID WITH MSUNI*77200000 TS=0' 78000000 &NO SETB 1 78800000 AGO .C5 79200000 .ERR3 MNOTE 12,'*** IHB002 INVALID QUEUES OPERAND SPECIFIED- &QUEUES*80000000 ' 80800000 &NO SETB 1 81600000 AGO .C5 82000000 .CSE ANOP @Y17XAFF 82800000 .* GO GENERATE DEV DEP FIELDS @Y17XAFF 83200000 IEDQGCH @Y17XAXF 83600000 AIF ('&NAME' NE '&IEDQSV(5)').EXT 84000000 IEDNOL , S99528 84030000 AIF (&IEDQAR(14) NE 0).GOTSCB Y05330 84060000 &IEDQAR(14) SETA 1 Y05330 84120000 .GOTSCB ANOP Y05330 84240000 IEDQSCBC CSECT Y05330 84320000 IEDQTRME DC AL2(&IEDQAR(11)),AL2((&IEDQAR(14)+7)/8) X01004 84400000 &IEDQZA(55) SETB 0 84600000 IEDQTNT CSECT X02004 84800000 DC A(IEDQTRMC) X02004 85500000 AIF (&IEDQAR(3) EQ 0).CKR X01004 86200000 IEDQOPC CSECT 88300000 DC X'FF' END OF TABLE Y05330 88500000 IEDQOPT CSECT 88700000 IEDQOPTN DC AL2(&IEDQAR(15)) 89000000 .CKR ANOP X01004 89700000 &IEDQSV(4) CSECT X01004 89800000 &A SETA 0 Y05330 89900000 &L SETA 0 Y05330 90000000 IEDOCQE EQU 255 INDICATE IEDQEU TO BE Y05330 90100000 * LOADED BY OPEN Y05330 90200000 AIF (&IEDQAR(33) EQ 0 AND &IEDQAR(34) EQ 0).CXXG Y05330 90400000 &A SETA (&IEDQAR(34)*4+1) Y05330 90500000 &L SETA (&IEDQAR(33)*4+3) Y05330 90600000 .CXXG ANOP Y05330 90700000 IEDQNADR EQU &L Y05330 90800000 IEDQNADN EQU &A Y05330 90900000 .EXT SPACE 2 91000000 MEND 91100000