MACRO 00010000 &NAME IEDSHOW &KY,&STATION=**,&RESULT=,&FORMAT=NO,&TARGET= 00020082 .*C006900 @YM08126 00025000 .*A001300,001800,002300,002800,004700 @OZ41631 00025182 .*C004500 @OZ41631 00025282 .* A004745 @OX26340 00025382 .*C006200 @OZ50546 00027682 .*C004100 @OZ50600 00028482 .*A008600 @OZ50600 00029282 GBLA &IEDQZE(64),&IEDQZK,&IEDQZL(256) 00030000 GBLB &IEDQZA(64) 00040000 LCLB &NO 00050000 LCLC &KYT(10),&SAV 00060000 LCLA &CB(10),&OFF(10),&LEN(10),&I,&FLG,&LNG,&FMM 00070000 SPACE 1 00080000 &KYT(1) SETC 'TSTATUS' 00090000 &KYT(2) SETC 'ORIGIN' 00100000 &KYT(3) SETC 'DESTIN' 00110000 &KYT(4) SETC 'DATASIZE' 00120000 &KYT(5) SETC 'CURTERM' CURRENTLY CONNECTED 00130000 &KYT(9) SETC 'SNAVALS' SNA RH AND SEQUENCE NO @OZ41631 00133082 &CB(1) SETA 4 00140000 &CB(2) SETA 1 00150000 &CB(3) SETA 1 00160000 &CB(4) SETA 1 00170000 &CB(5) SETA 2 LCB 00180000 &CB(9) SETA 1 BUFFER @OZ41631 00183082 &OFF(1) SETA 255 00190000 &OFF(2) SETA 16 00200000 &OFF(3) SETA 40 00210000 &OFF(4) SETA 18 00220000 &OFF(5) SETA 90 LCB TTCIN 00230000 &OFF(9) SETA 0 OFFSET PRF1RH @OZ41631 00233082 &LEN(1) SETA 0 00240000 &LEN(2) SETA 1 00250000 &LEN(3) SETA 1 00260000 &LEN(4) SETA 1 00270000 &LEN(5) SETA 1 LENGTH IS 2 00280000 &LEN(9) SETA 5 MOVE LENGTH @OZ41631 00283082 &LNG SETA 12 00290000 &SAV SETC '0' 00300000 AIF ('&KY' EQ '').MN1 00310000 .LOOP AIF (&I GE 10).MN1 00320000 &I SETA &I+1 00330000 AIF ('&KY' NE '&KYT(&I)').LOOP 00340000 AIF ('&STATION' EQ '**').CKFM STATION= NOT SPECIFIED 00350000 &FMM SETA &FMM+1 00360000 AIF (&I NE 1).MNZ STATION= INVALID UNLESS TSTATUS 00370000 &LNG SETA &LNG+4 00380000 .CKST AIF ('&STATION'(1,1) EQ '(' OR '&STATION' EQ '''').CKFM 00390000 &SAV SETC '&STATION' 00400000 .CKFM ANOP @OZ50600 00404082 AIF (&I EQ 1 AND '&STATION' EQ '**' AND (NOT &IEDQZA(46))).MX00408082 N4 @OZ50600 00412082 .STOK ANOP @OZ50600 00414082 AIF ('&FORMAT' EQ 'NO').CKRS @OZ50600 00416082 AIF ('&FORMAT' NE 'YES').MN3 00420000 AIF (&I EQ 1 OR &I EQ 4).MN3 NO FORMAT TSTATUS/BUFSIZE 00430000 &FLG SETA &FLG+1 00440000 .CKRS ANOP @OZ41631 00450082 &NAME CNOP 0,4 @OZ41631 00452082 AIF ('&RESULT' NE '' AND '&TARGET' EQ '').NOS1 @OZ41631 00454082 AIF ('&RESULT' EQ '' AND '&TARGET' NE '').NOS2 @OZ41631 00456082 MNOTE 12,'*** IHB300 RESULT OR TARGET INVALID AS SPECIFIED' 00460082 &NO SETB 1 00470000 .NOS1 ANOP 00473082 B *+4+4 @OZ41631 00473182 S&SYSNDX DC A(&RESULT) @OZ41631 00473282 AGO .REGRES @OZ41631 00473382 .NOS2 ANOP @OZ41631 00473482 B *+4+4 @OZ41631 00473582 S&SYSNDX DC A(&TARGET) 00473682 * LOCOPT &TARGET,,STATION=&STATION @OZ41631 00473782 LOCOPT &TARGET,,STATION=&STATION 00473882 AIF (&IEDQZA(61)).REGRES @OZ41631 00473982 LTR 15,15 @OZ41631 00474082 BNZ *+12 @OZ41631 00474182 LA 15,12 @OZ41631 00474282 B SHOW&SYSNDX @OZ41631 00474382 ST 15,S&SYSNDX @OZ41631 00474482 .REGRES ANOP @OZ41631 00474582 AIF (&I NE 9).NOS NOT SNAVALS @OX26340 00475282 &FLG SETA &FLG+2 INDICATE NEGATIVE PRF @OZ41631 00476082 .NOS AIF (&IEDQZA(46)).CKMH 00480000 &LNG SETA &LNG+4 00490000 AIF (&IEDQZA(7)).NOMH 00500000 MNOTE 12,'***IHB070 SEQUENCE ERROR MUST FOLLOW INTRO' 00510000 &NO SETB 1 00520000 AGO .SBOK 00530000 .CKMH AIF (NOT &IEDQZA(5)).SBOK 00540000 MNOTE 12,'*** IHB07O SEQUENCE ERROR - MUST FOLLOW INHDR, INBUFX00550000 , INBLOCK, OUTHDR OF OUTBUF MACRO' 00560000 &NO SETB 1 00570000 .SBOK IEDQVCON 67,IEDQBS 00580000 .NOMH AIF (&NO).MEND 00590000 AIF ('&STATION'(1,1) NE '(').GNBL 00610000 ST &STATION(1),*+20 @OZ50546 00620082 .GNBL BAL 1,*+&LNG+4 00630000 AIF (&IEDQZA(46)).GNRDC 00640000 DC AL1(255,&LNG,0,&FMM) 00650000 AGO .GNCB 00660000 .GNRDC DC AL1(&IEDQZE(48),&LNG,&IEDQZL(3),&FMM) 00670000 .GNCB DC AL1(&FLG,&CB(&I),&OFF(&I),&LEN(&I)),A(S&SYSNDX) @OZ41631 00680082 AIF (&I NE 1 OR '&STATION' EQ '**').GNUI @YM08126 00690000 AIF ('&STATION'(1,1) NE '''').GNAO 00700000 DC A(IEDQMISC+&IEDQZK) 00710000 &SAV SETC '&SYSECT' 00720000 IEDQMISC CSECT 00730000 DC C&STATION 00740000 &SAV CSECT 00750000 &IEDQZK SETA &IEDQZK+K'&STATION 00760000 AGO .GNUI 00770000 .MN1 MNOTE 12,'*** IHB300 FIELD OPERAND INVALID AS SPECIFIED' 00780000 &NO SETB 1 00790000 AGO .CKFM 00800000 .MNZ MNOTE 12,'*** IHB300 STATION OPERAND INVALID AS SPECIFIED' 00810000 &NO SETB 1 00820000 AGO .CKST 00830000 .MN3 MNOTE 12,'*** IHB300 FORMAT OPERAND INVALID AS SPECIFIED' 00840000 &NO SETB 1 00850000 AGO .CKRS 00860000 .MN4 MNOTE 4,'*** IHB300 TSTATUS STATION=** CODED OUTSIDE MH - MUX00862582 ST HAVE BUFFER FORMAT TO LOCATE LCB' @OZ50600 00865082 AGO .STOK @OZ50600 00867582 .GNAO DC A(&SAV) 00870000 .GNUI AIF (&IEDQZA(46)).GOMH 00880000 DC V(IEDQBS) 00890000 L 15,*-4 00900000 BAL 14,4(,15) 00910000 AGO .MEND 00920000 .GOMH L 15,IEDUI 00930000 BALR 14,15 00940000 .MEND SPACE 2 00950000 SHOW&SYSNDX EQU * @OZ41631 00955082 MEND 00960000