MACRO 03000020 &NAME TSINPUT 06000020 GBLB &IEDQZA(64),&IEDQZZ(16) S22028 09000022 GBLB &IEDQRN(8) Y06327 10000005 LCLB &IEDLERR 12000020 LCLC &IEDLN 15000020 LCLC &XX S22029 16000022 .* VERSION DATED SEPT 1,1973 Y06327 17000005 .*A100000 Y06327 17100005 .*A6000000,660000,749700-749860 Y06327 17200005 .*C170000 Y06327 17300005 .*A749300-749800 A22028 17500022 .*C090000,170000 A22028 18000022 .*A160000,744400-749200 A22029 18500022 .*A720000 A44022 19000030 .*C744000 P00461 20000030 .*A510000 SA61077 20000122 .*C510000 X02004 20500005 .*A749980 @YM06172 20600000 .*C749990 @YM06977 20700000 .*A749980 @G36XRYP 20750000 .*A747900,748200 @OZ47458 20750182 .CHECKA AIF (&IEDQZA(51)).CHECKB 21000020 MNOTE 12,'*** IHB312 MUST FOLLOW INTRO MACRO WITH ENVIRON=TS-24000020 O OR ENVIRON=MIXED' 27000020 &IEDLERR SETB 1 30000020 .CHECKB AIF (NOT &IEDQZA(21)).GEN 33000020 MNOTE 12,'*** IHB311 TSINPUT MACRO PREVIOUSLY SPECIFIED' 36000020 &IEDLERR SETB 1 39000020 .GEN AIF (&IEDLERR).END 42000020 &IEDQZA(21) SETB 1 45000020 &IEDLN SETC '&SYSECT' 48000020 IEDQTRMC CSECT 51000005 DS 0F SA61077 52000022 IEDAYTSQ DC AL1(2),AL3(0),X'E4',AL3(0) 54000020 DC V(IEDAYI,IEDAYT) . TSINPUT, STAE ROUTINES 57000020 DC V(IEDAYE,IEDAYH) . EDIT, HANGUP ROUTINES 60000020 AIF (&IEDQRN(2)).O3705 Y06327 61000005 DC V(IEDAYS,IEDAYZ),2A(0) . SIMATTN, SCHEDULER ROUT@ZM46793 63000000 DC V(IEDAYP,IEDAYM,IEDAYF) .MPOST,MSGGEN,HALT @ZM46793 63050000 AGO .O270X Y06327 66500005 .O3705 ANOP Y06327 67000005 DC V(IEDAYS),3A(0) . SIMATTN @ZM46793 67500000 DC V(IEDAYP,IEDAYM),A(0) . POST AND MSGGEN @ZM46793 67550000 .O270X ANOP Y06327 68500005 IEDAYDQB DC AL1(2),AL3(IEDAYDQB) . TIME DLY QCB REMOVAL RTN'S QCB 69000020 DC X'EC',AL3(0),AL1(0),VL3(IEDAYY) 72000020 DC X'64',AL3(IEDTSIAB) AQCTL PARM LIST A44022 72600030 IEDTSIAB DC X'80',AL3(IEDTSIAB) PARM LIST ELEMENT A44022 73200030 DC X'FF',AL3(0) PRIORITY LINK FIELD A44022 73800030 DC V(IEDAYAB) STCB ADDRESS P00461 74400000 AIF (&IEDQZA(52)).TSO0010 S22029 74430022 DC 3A(0) S22029 74460022 AGO .TSO0030 S22029 74490022 .TSO0010 ANOP S22029 74520022 AIF (&IEDQZA(41) EQ &IEDQZA(42)).TSO0020 S22029 74550022 &XX SETC '2' S22029 74580022 AIF (&IEDQZA(41)).TSO0020 S22029 74610022 &XX SETC '1' S22029 74640022 .TSO0020 ANOP S22029 74670022 DC V(IEDQHM&XX,IEDQFA&XX,IEDQFQ) S22029 74700022 .TSO0030 ANOP S22029 74730022 DC V(IEDAYA) . TSO ATTENTION ROUTINE S22029 74760022 DC V(IEDAYD) . TSO DESTINATION SCHEDULER S22029 74790022 AIF (&IEDQRN(4)).SNAAYQ SNA REQUIRES IEDAYQ @OZ47458 74800082 AIF (NOT &IEDQZZ(1)).N3270 S22028 74820022 .SNAAYQ ANOP @OZ47458 74825082 DC V(IEDAYQ) 3270 EDITING MODULE @G36XRYU 74830000 AGO .CONTINU S22028 74880022 .N3270 ANOP S22028 74910022 DC A(0) S22028 74940022 .CONTINU ANOP S22028 74970022 AIF (&IEDQRN(2)).N270X Y06327 74972005 DC V(IEDAYW) 270X OUTPUT EDIT MODULE Y06327 74974005 AGO .CONTIN2 Y06327 74976005 .N270X ANOP Y06327 74978005 DC A(0) Y06327 74980005 .CONTIN2 ANOP Y06327 74982005 AIF (NOT &IEDQRN(1)).N3705 Y06327 74984005 DC V(IEDAYV) 3705 OUTPUT EDIT MODULE Y06327 74986005 DC V(IEDAYJ) 3705 TSO SCHEDULER Y06327 74988005 AGO .CONTIN1 Y06327 74990005 .N3705 ANOP Y06327 74992005 DC A(0) Y06327 74994005 DC A(0) Y06327 74996005 .CONTIN1 ANOP Y06327 74998005 DC V(IEDAYO) TSOUTPUT ADDRESS @G36XRYP 74998300 DC V(IEDAYO02) TSOUTPUT CLEANUP QCB @G36XRYP 74998600 DS CL62 EDIT WORK AREA @YM06977 74999000 &IEDLN CSECT 75000020 .END SPACE 2 78000020 MEND 81000020