MACRO 01000020 &NAME HOLD &MS,&RL,&INTVL=,&CONNECT=OR,&STATION=**,&LEVEL=MSG, *01300091 &BLANK=YES 02100091 GBLA &IEDQZE(64),&IEDQZD,&IEDQZK 02900091 GBLB &IEDQZA(64) 03700091 LCLA &FLG,&LEN,&LN2,&RCL 04500091 LCLB &NOGO,&BIT 05300091 LCLC &SC,&SV 06100091 .******************* MICROFICHE FLAGS *********************** SUPT CODE 07000022 .*C130000-999999 @OY12688 07001091 .*A670010 @OY13629 07201000 .*A505010,510010 @OY14507 07301000 .*A145010 @OS77935 07401000 .*C515010-520010,710010 @OY15029 07451000 .*D665010-675010,690010-705010 @OY20645 07451182 SPACE 1 07501091 AIF (&IEDQZE(4) NE 0).VCON 08001091 ORG IEDAS 08501091 DC V(IEDQAS01) 09001091 ORG 09501091 .VCON IEDQVCON 4,IEDQAS 10001091 &LEN SETA 8 BASIC PARM LIST LENGTH 10501091 AIF (&IEDQZA(5) OR &IEDQZA(4) OR &IEDQZA(3)).HOK 11001091 MNOTE 12,'*** IHB070 SEQUENCE ERROR - MUST FOLLOW INHDR,INMSX11501091 G,OUTHDR OR OUTMSG MACRO' 12001091 &NOGO SETB 1 12501091 .HOK AIF (NOT &IEDQZA(9)).TSO 13001091 MNOTE 12,'*** IHB312 MUST FOLLOW STARTMH MACRO WITH TSOMH=NO' 13501091 &NOGO SETB 1 14001091 .TSO AIF ('&INTVL' EQ '').CKRL 14501091 AIF (NOT &IEDQZA(1)).RTGRP @OS77935 14581000 MNOTE 4,'*** IHB300 INTVL OPERAND INVALID IN INHDR OR INMSG *14661000 SUBGROUPS - IGNORED' 14741000 AGO .CKRL @OS77935 14821000 .RTGRP ANOP @OS77935 14901000 AIF ('&RL' NE '').RLER 15001091 &FLG SETA &FLG+64 SET INTVL SPECIFIED 15501091 AIF ('&INTVL'(1,1) GE '0' AND '&INTVL'(1,1) LE '9').INTMS 16001091 AIF ('&INTVL'(1,1) EQ 'X' AND '&INTVL'(K'&INTVL,1) EQ '''').X16501091 INTMS 17001091 &LEN SETA &LEN+4 17501091 &LN2 SETA 4 INDICATE VCON REQUIRED 18001091 &FLG SETA &FLG+32 SET INTVL IN OPFIELD 18501091 AGO .CKSUB 19001091 .INTMS IEDQMASK &INTVL,2 19501091 AIF (NOT &IEDQZA(24)).CKSUB 20001091 MNOTE 12,'*** IHB300 INTERVAL OPERAND INVALID AS SPECIFIED' 20501091 &NOGO SETB 1 21001091 AGO .CKSUB CHECK SUBGROUP 21501091 .RLER MNOTE 4,'*** IHB076 INTVL AND RELEASE MUTUALLY EXCLUSIVE, RELX22001091 EASE ASSUMED' 22501091 .CKRL AIF ('&RL' EQ '' OR '&RL' EQ 'RELEASE').CKSUB 23001091 MNOTE 4,'*** IHB086 &RL OPERAND INVALID - RELEASE ASSUMED' 23501091 .CKSUB AIF (&IEDQZA(5)).CMSK IN/OUTMSG 24001091 AGO .NST CONCHARS NOT SPECIFIED @OY12688 24501091 IEDQCHAR 8,&MS 25001091 AIF (NOT &IEDQZA(24) AND &IEDQZD LE 8).CST 25501091 MNOTE 12,'*** IHB300 CHARACTER OPERAND INVALID AS SPECIFIED' 26001091 &NOGO SETB 1 26501091 .CST AIF ('&STATION' EQ '**').NST 27001091 &LEN SETA &LEN+8 ADJUST LENGTH 27501091 &FLG SETA &FLG+128 INDICATE STATION SPECIFIED 28001091 AIF ('&STATION'(1,1) EQ '''').NST 28501091 &FLG SETA &FLG+16 SET OPFIELD OR REG 29001091 AIF ('&STATION'(1,1) EQ '(').NST IF REGISTER NOTATION 29501091 &FLG SETA &FLG+8 STATION IN OPFIELD 30001091 AIF (&LN2 NE 0).NST VCON FLAG SET 30501091 &LN2 SETA 4 SET TO VCON IEDQAE 31001091 &LEN SETA &LEN+4 ADJUST LENGTH FOR VCON 31501091 .NST AIF ('&CONNECT' EQ 'OR').CNOK 32001091 MNOTE 4,'*** IHB300 CONNECT OPERAND INVALID IN HEADER SUBGROX32501091 UPS - IGNORED' 33001091 .CNOK AIF ('&LEVEL' EQ 'MSG').LVOK 33501091 MNOTE 4,'*** IHB300 LEVEL OPERAND INVALID IN HEADER SUBGROUPX34001091 S - IGNORED' 34501091 .LVOK AIF (&NOGO).MEND 35001091 &NAME DS 0H 35501091 AGO .NOSC IF NO CONCHARS @OY12688 36001091 IEDQSCAN &IEDQZD,&MS,&BLANK 36501091 AIF (&IEDQZA(24)).MEND 37001091 LTR 15,15 37501091 &SC SETC 'IEDM'.'&SYSNDX' 38001091 BNP &SC 38501091 L 1,IEDADBUF 39001091 STH 15,24(,1) 39501091 .NOSC CNOP 0,4 @OY12688 40001091 AIF ('&STATION'(1,1) NE '(').GNBL 40501091 ANOP &STATION(1),*+16 @OY12688 41001091 .GNBL BAL 1,*+&LEN+4 41501091 DC AL1(&IEDQZE(4),&LEN,&FLG,0) 42001091 AIF (&FLG LE 127).INTEST 42501091 &FLG SETA &FLG-128 43001091 DC AL1(255,4) 43501091 AIF ('&STATION'(1,1) EQ '''').GNMSC 44001091 DC AL1(&STATION(1),5),A(0) 44501091 AGO .INTEST 45001091 .GNMSC DC AL1(0,0),A(IEDQMISC+&IEDQZK) 45501091 &SV SETC '&SYSECT' 46001091 IEDQMISC CSECT 46501091 DC C&STATION 47001091 &IEDQZK SETA &IEDQZK+K'&STATION-2 47501091 &SV CSECT 48001091 AGO .INTEST 48501091 .CMSK AIF ('&STATION' EQ '**').STAK 49001091 MNOTE 4,'*** IHB300 STATION OPERAND INVALID IN INMSG/OUTMSG X49501091 SUBGROUPS- IGNORED' 50001091 .STAK ANOP 50501091 AIF (NOT &IEDQZA(2)).NORCL @OY14507 50701000 &RCL SETA 2 51001091 .NORCL ANOP @OY14507 51201000 AIF ('&MS' NE '' AND '&MS' NE '0' AND '&MS' NE 'X''000000000*51501000 0''' AND '&MS' NE 'XL5''0000000000''').CNDTL @OY15029 51701000 &BIT SETB 1 @OY15029 52001000 AIF ('&MS' EQ '' OR '&LEVEL' NE 'BLK').CKCNT @OY15029 52101000 &LEN SETA &LEN+4 @OY15029 52201000 AGO .CKCNT @OY15029 52301000 .CNDTL ANOP @OY15029 52401000 &LEN SETA &LEN+4 ADJUST FOR MASK 52501091 IEDQMASK &MS,5 53001091 AIF (NOT &IEDQZA(24)).MSOK 53501091 .ER1 MNOTE 12,'*** IHB300 MASK OPERAND INVALID AS SPECIFIED' 54001091 &NOGO SETB 1 54501091 AGO .CKCNT 55001091 .MSOK AIF ('&MS'(1,1) NE 'X').CKCNT 55501091 AIF ('&MS'(2,1) EQ 'L' AND '&MS'(3,1) NE '5').ER1 56001091 AIF ('&MS'(2,1) NE 'L' AND K'&MS NE 13).ER1 56501091 .CKCNT AIF ('&CONNECT' EQ 'OR').CCN 57001091 AIF ('&CONNECT' NE 'AND').CNMT 57501091 &LEN SETA &LEN+1 58001091 AGO .CCN 58501091 .CNMT MNOTE 4,'*** IHB086 CONNECT= INVALID KEYWORD, OR ASSUMED' 59001091 .CCN AIF ('&LEVEL' EQ '' OR '&LEVEL' EQ 'MSG').CKNO 59501091 AIF ('&LEVEL' EQ 'BLK').CKCON 60001091 MNOTE 4,'*** IHB086 LEVEL OPERAND INVALID, LEVEL=MSG ASSUMED' 60501091 AGO .CKNO 61001091 .CKCON ANOP 61501091 &FLG SETA &FLG+2 62001091 AIF ('&RL' EQ '' AND '&INTVL' NE '').CKNO 62501091 MNOTE 12,'*** IHB300 RELEASE OPERAND INVALID WITH LVL=BLK' 63001091 &NOGO SETB 1 63501091 AGO .CKNO 64001091 .CKSBG AIF (&IEDQZA(2)).CKNO 64501091 MNOTE 12,'*** IHB300 LEVEL=BLK VALID ONLY IN OUTMSG SUBGROUP' 65001091 &NOGO SETB 1 65501091 .CKNO AIF (&NOGO).MEND 66001091 .NODEF ANOP 68001091 &NAME DC AL1(&IEDQZE(4)+&BIT+&RCL,&LEN,&FLG) 68501091 AIF ('&MS' NE '' AND '&MS' NE '0' AND '&MS' NE 'X''000000000*71001000 0''' AND '&MS' NE 'XL5''0000000000''').MSCT @OY15029 71201000 DC AL1(0) 71501091 AGO .INTEST 72001091 .MSCT AIF ('&MS'(1,1) EQ 'X').XM 72501091 DC FL5'&MS' 73001091 AGO .INTEST 73501091 .XM DC &MS 74001091 .INTEST AIF (&LN2 EQ 0).VCOK 74501091 DC V(IEDQAE) 75001091 .VCOK AIF (&FLG GT 63).INTV 75501091 DC F'0' 76001091 AGO .CKUI 76501091 .INTV AIF (&FLG LT 96).CKXI 77001091 DC AL2(0),AL1(&INTVL,24) 77501091 AGO .CKUI 78001091 .CKXI AIF ('&INTVL'(1,1) EQ 'X').XI 78501091 DC AL2(&INTVL,0) 79001091 AGO .CKUI 79501091 .XI AIF ('&INTVL'(2,1) EQ 'L').XL 80001091 AIF ((K'&INTVL-2)/2 EQ 2).GO 80501091 AGO .AL1 81001091 .XL AIF ('&INTVL'(3,1) EQ '2').GO 81501091 .AL1 DC AL1(0) 82001091 .GO DC &INTVL,H'0' 82501091 .CKUI AIF (&IEDQZA(5)).MEND IF IN/OUTMSG 83001091 .GNUI L 15,IEDUI 83501091 BALR 14,15 84001091 AIF ('&SC' EQ '').MEND 84501091 &SC EQU * 85001091 .MEND SPACE 2 85501091 MEND 86001091