MACRO 00600010 IEDQCHI &T,&FEATURE,&TTE=(1030,1050,1060,226L,226R,2265,5041,X02400010 274A,274B,274C,274D,274E,274F,274G,274H,274I,274J,2760, X04200010 BSC3,277B,278B,BSC1,2741,7770,83B3,115A,3335,WTTY,BSC2, X06600010 327L,327R,226C,327C,327S,367C), S99228X08400010 &A=(4112,4244,4112,512,4118,4118,1048576,1024,1024,4096,X09600010 4116,2068,1044,1044,2048,4116,4096,1045,36884,33844, X12600010 33844,33812,525312,256,4096,4096,8192,1088,33812,262656,X14400010 299028,69654,364564,430100,53268),&FMPROF=,&TSPROF=, *18000010 &USS=,&FMVAL=(0,0,5),&TSVAL=(1,1,5),&TERM=(PUNT,LUNT,LNC*18100010 P) @Y17XAFF 18200010 .*A-000000-999999 @X31X8F0 18300010 GBLA &IEDQCH1(128) @Y17XAFF 19800010 GBLA &IEDQAR(64),&IEDQCH(128),&IEDQFFL 19900010 GBLB &IEDQNO,&IEDQFL(16),&IEDQZA(64),&IEDQZZ(16) . S99228 20100010 LCLA &L,&L1,&FM,&TS,&I @Y17XAFF 24000010 .*C255000,240000,180000,330000,404000,420000,540000 @Y17XAFF 24020010 .*A196000,300700,406500,480000,680000 @Y17XAFF 24040010 .*C080000,090000,160000,170000,260000,388000,404000,412000 . S99228 24080010 .*A300200-302600,404500-411000 . S99228 24160010 .*D100000,180000 . S99228 24240010 .*C100000,180000,412000-420000 . S22025 24320010 .*C090000,170000 S21101 24600010 .*C120000 . Y06327 24900010 .*A330000,350000 . Y06327 25200010 .*A300700 X03039 25300010 .*C330000,350000,605000 @Z30X8FG 25350010 AIF ('&T' EQ '' AND &IEDQZA(63)).NOTSO @Y17XAFF 25500010 .C1 AIF (&L GE N'&TTE).BSC0 S99228 25800010 &L SETA &L+1 26400010 AIF ('&T' NE '&TTE(&L)').C1 28200010 AGO .GO . S99228 28300010 .BSC0 AIF ('&T' EQ '113B' OR '&T' EQ '202B' OR '&T' EQ 'S36B' OR X28400010 '&T' EQ 'S03B' OR '&T' EQ '180B' OR '&T' EQ '373B').BSC1 28500010 AIF ('&T' EQ 'LUNT').BSC1 X03039 28600010 &L SETA 0 INIT FIRST PART OF DCT @Y17XAFF 28700010 .* IF PUNT,LNCP,LINE,SSCP @Y17XAFF 28800010 AIF ('&T' EQ 'PUNT' OR '&T' EQ 'LNCP' OR '&T' EQ 'LINE' OR X28900010 '&T' EQ 'SSCP').NOTSO @Y17XAFF 29000010 AIF ('&T' EQ '277A' OR '&T' EQ '278A' OR '&T' EQ '113A' OR X29100010 '&T' EQ '202A' OR '&T' EQ 'S36A' OR '&T' EQ 'S03A').BSC3 30100010 AIF ('&T' EQ '180A' OR '&T' EQ '2972' OR '&T' EQ '373A' OR X30150010 '&T' EQ '367A').BSC3 . S99228 30200010 AGO .ER . S99228 30250010 .BSC1 ANOP . S99228 30300010 &L SETA 22 . S99228 30350010 AGO .GO . S99228 30400010 .BSC3 ANOP . S99228 30450010 &L SETA 19 . S99228 30500010 .GO ANOP . S99228 30550010 &L SETA &A(&L) 30600010 AIF (&IEDQZA(63)).VTAM BY PASS IF NCP RES @Y17XAFF 33000010 AIF ('&T' EQ '5041' AND &IEDQZA(12) EQ 0).ER TSO 33600010 .VTAM ANOP @Z30X8FG 34200010 AIF (NOT &IEDQFL(7)).NOBUF 35400010 &L SETA &L+8 36600010 .NOBUF AIF ((&IEDQZZ(8) AND NOT('&T' EQ '1050' OR '&T' EQ '226L' ORX38400010 '&T' EQ '226R' OR '&T' EQ '5041' OR '&T' EQ '2741' OR X39000010 '&T' EQ '3335' OR '&T' EQ '2265'))).ER2 . S99228 40200010 AGO .CHK3270 . S99228 40440010 .ER2 AIF ((&IEDQZZ(8) AND NOT('&T' EQ '226C' OR '&T' EQ '327C' ORX40500010 '&T' EQ '327L' OR '&T' EQ '327R' OR '&T' EQ '327S' OR *40530010 '&T' EQ 'LUNT'))).ER1 @Y17XAFF 40560010 .CHK3270 AIF ('&T'(1,3) EQ '327').SB1 . S99228 40620010 AIF ('&T' EQ 'LUNT').SB1 @Y17XAFF 40650010 AIF ('&T'(1,3) EQ '226').SB2 . S99228 40680010 AGO .TST . S99228 40740010 .SB1 ANOP . S99228 40800010 &IEDQZZ(1) SETB 1 . S99228 40830010 AGO .SB3 . S99228 40870010 .SB2 ANOP . S99228 40940010 &IEDQZZ(2) SETB 1 . S99228 40970010 .SB3 ANOP . S99228 41010010 &IEDQFL(8) SETB 1 . S99228 41080010 .TST AIF (NOT &IEDQZZ(8) AND '&T' NE '2741' AND '&T' NE '5041' X41150010 AND '&T' NE '1050').NOTSO @PI06012 42000010 IEDQFEA &T,&FEATURE,USS=&USS @PI05738 42600010 &L SETA &L+&IEDQFFL 44400010 .NOTSO ANOP TSO 46200010 .* @Y17XAFF 46500010 .* CHECKOUT FMPROF AND TSPROF OPERANDS @Y17XAFF 46800010 .* @Y17XAFF 47100010 AIF (T'&T EQ 'O').PF100 @Y17XAFF 47400010 AIF (T'&FMPROF EQ 'O' AND T'&TSPROF EQ 'O').PF1 @Y17XAFF 48100010 AIF ('&T' EQ 'LNCP' OR '&T' EQ 'PUNT' OR '&T' EQ 'LUNT').PF1 48130010 MNOTE 4,'*** IED920 FMPROF AND TSPROF INVALID WITH TERM=&T, *48160010 OPERANDS IGNORED' @Y17XAFF 48200010 AGO .PF100 @Y17XAFF 48230010 .* FIND DEFAULTS @Y17XAFF 48260010 .PF1 AIF (&I GT N'&TERM).PF100 FIND INDEX INTO TERM= @Y17XAFF 48290010 &I SETA &I+1 @Y17XAFF 48320010 AIF ('&T' EQ '&TERM(&I)').PF2 @Y17XAFF 48350010 AGO .PF1 @Y17XAFF 48380010 .PF2 ANOP @Y17XAFF 48410010 &FM SETA &FMVAL(&I) ASSIGN DEFAULT VALUES @Y17XAFF 48440010 &TS SETA &TSVAL(&I) TO FM AND TS @Y17XAFF 48470010 .* CHECK OUT FMPROF IF CODED @Y17XAFF 48500010 AIF (T'&FMPROF EQ 'O').PF20 IS IT OMMITTED @Y17XAFF 48530010 AIF (T'&FMPROF EQ 'N').PF10 IS IT NUMERIC @Y17XAFF 48560010 .PF05 ANOP 48600010 MNOTE 8,'*** IED921 INVALID FMPROF OPRAND,DEFAULT IS USED.' 48630010 .* @Y17XAFF 48660010 AGO .PF20 @Y17XAFF 48690010 .PF10 AIF (&FMPROF GE 7).PF05 LESS THAN 7 IS VALID @Y17XAFF 48720010 &FM SETA &FMPROF @Y17XAFF 48810010 .PF20 ANOP @Y17XAFF 48840010 .* CHECK OUT TSPROF IS CODED @Y17XAFF 48870010 AIF (T'&TSPROF EQ 'O').PF40 IS IT OMMITTED @Y17XAFF 48900010 AIF (T'&TSPROF EQ 'N').PF30 IS IT NUMERIC @Y17XAFF 48930010 .PF25 ANOP 48960010 MNOTE 8,'*** IED922 INVALID TSPROF OPERAND, DEFAULT IS USED.' 48990010 .* @Y17XAFF 49020010 AGO .PF40 @Y17XAFF 49050010 .PF30 AIF (&TSPROF GE 7).PF25 LESS THAN 7 IS VALID @Y17XAFF 49080010 &TS SETA &TSPROF @Y17XAFF 49170010 .PF40 ANOP @Y17XAFF 49200010 &L1 SETA (&TS+(&FM*16))*256 CREATE DCTBYTE4&5 @Y17XAFF 49210010 .* B'FMFMTSTS00000000' @Y17XAFF 49260010 .PF100 ANOP @Y17XAFF 49290010 .* @Y17XAFF 49320010 .* CHECKOUT USS OPRAND IF T=LUNT @Y17XAFF 49350010 .* @Y17XAFF 49380010 AIF ('&T' NE 'LUNT').US100 @Y17XAFF 49410010 AIF (&IEDQZZ(8) AND '&USS' EQ 'NONE').US05 @Y17XAFF 49440010 AGO .US10 @Y17XAFF 49470010 .US05 ANOP 49500010 MNOTE 8,'*** IED994 USS=NONE AND QUEUES EQ TS ARE MUTUALLY EXC*49530010 LUSIVE, USS=SCS ASSUMED' @YM08573 49560010 AGO .US21 @YM08573 49590010 .US10 AIF ('&USS' NE '3270').US20 @Y17XAFF 49620010 &L1 SETA &L1+(4*16) SET DCTL3270 @Y17XAFF 49650010 AGO .US100 @Y17XAFF 49710010 .US20 AIF ('&USS' NE 'SCS').US30 @Y17XAFF 49740010 .US21 ANOP @YM08573 49745010 &L1 SETA &L1+(8*16) SET DCTSCS @Y17XAFF 49770010 AGO .US100 @Y17XAFF 49800010 .US30 AIF ('&USS' EQ 'NONE').US100 @Y17XAFF 49820010 MNOTE 8,'***IED923 INVALID USS OPERAND, WILL USE DEFAULT' 49840010 .* @Y17XAFF 49860010 .US100 ANOP @Y17XAFF 49900010 &IEDQAR(12) SETA 1 50000010 .LOP AIF (&IEDQAR(12) GT &IEDQAR(11)).NEW 50100010 AIF ((&IEDQCH(&IEDQAR(12)) EQ &L) AND (&IEDQCH1(&IEDQAR(12))*54000010 EQ &L1)).MTC CHECK FOR DUPLICATES @Y17XAFF 54600010 &IEDQAR(12) SETA &IEDQAR(12)+1 55200010 AGO .LOP 56400010 .ER1 MNOTE 12,'*** IHB314 TERMINAL TYPE NOT SUPPORTED BY TSO- &T' 58200010 AGO .ERR 58800010 .ER AIF ('&T' EQ '').ERR S22024 59400010 MNOTE 12,'IHB002 INVALID TERM OPERAND SPECIFIED - &T' @Z30X8FG 60000010 .ERR ANOP 60600010 &IEDQNO SETB 1 61200010 MEXIT 62400010 .NEW ANOP 64200010 &IEDQCH(&IEDQAR(12)) SETA &L 66600010 &IEDQCH1(&IEDQAR(12)) SETA &L1 SET DCTBYTE4 + DCTBYTES@Y17XAFF 69000010 .MTC MEND 69600010