* % GO TO BSLWTPST; /* 01000020 MACRO 02000000 IEFWTPST 03000000 DS 0F 04000000 MAINSTG DSECT 05000000 WTPCORAD DS CL4 06000000 WTPTTRAD DS CL3 07000000 DS CL1 08000000 WTPSMBIO DS CL176 09000000 WTPSMBID EQU WTPSMBIO+3 10000020 WTPSMBPT EQU WTPSMBIO+4 11000020 WORKSIZE DS CL4 12000000 CORESIZE EQU WORKSIZE+3 13000000 WTPEIA DS CL4 14000000 DS CL40 15000000 DS CL32 CCW'S S20201 16000020 DS CL8 SECTOR AREA ADDRESS S20201 16050020 PCPQMPA EQU WTPEIA 17000000 MEND 18000000 */ % BSLWTPST: ; 19000020 DCL 1 MAINSTG BASED(MNSTGPTR), /*WTP WORKAREA*/ 20000000 2 WTPCORAD PTR(31), /*PTR TO SMB CORE ADDR FOR Q-MGR*/ 21000000 2 WTPTTRAD PTR(24) BDY(WORD), /*TTR OF SMB FOR Q-MGR*/ 22000000 2 * CHAR(1), 23000000 2 WTPSMBIO, /*SMB READ/WRITE AREA*/ 24000000 3 * PTR(24) BDY(WORD), /*ADDR OF THIS SMB*/ 25000000 3 WTPSMBID BIT(8), /*SMB IDENTIFIER*/ 26000000 3 WTPSMBPT PTR(24) BDY(WORD), /*ADDR OF NEXT SMB*/ 27000000 3 * CHAR(5), /*RESERVED*/ 28000000 3 * BIT(8), /*LOGOUT BITS*/ 29000000 3 * PTR(8), /*PTR TO NEXT AVAILABLE BYTE*/ 30000000 3 * PTR(8), /*WTP MESSAGE LENGTH*/ 31000000 3 * CHAR(161), /*SPACE FOR WTP MESSAGE TEXT*/ 32000000 2 WORKSIZE, /*WORKAREA SIZE*/ 33000000 3 * CHAR(3), 34000000 3 CORESIZE CHAR(1), 35000000 2 WTPEIA, /*ECB*/ 36000000 3 * BIT(8), 37000000 3 * PTR(24), 38000000 2 WTPIOB, /*IOB*/ 39000000 3 * BIT(8), 40000000 3 * PTR(24), 41000000 3 * CHAR(1), 42000000 3 * PTR(24), 43000000 3 * BIT(8), 44000000 3 * BIT(8), 45000000 3 * CHAR(1), 46000000 3 * CHAR(1), 47000000 3 * CHAR(1), 48000000 3 * PTR(24), 49000000 3 * BIT(8), 50000000 3 * PTR(24), 51000000 3 * BIT(16), 52000000 3 * FIXED(15), 53000000 3 * CHAR(1), 54000000 3 * PTR(24), 55000000 3 * CHAR(1), 56000000 3 * PTR(24), 57000000 3 * CHAR(1), 58000000 3 * PTR(24), 59000000 3 * FIXED(15), 60000000 3 * FIXED(15), 61000000 2 WTPCCWS, /*CCWS*/ 62000000 3 * BIT(8), 63000000 3 * PTR(24), 64000000 3 * BIT(8), 65000000 3 * CHAR(1), 66000000 3 * FIXED(15), 67000000 3 * BIT(8), 68000000 3 * PTR(24), 69000000 3 * BIT(8), 70000000 3 * CHAR(1), 71000000 3 * FIXED(15), 72000000 3 * BIT(8), 73000000 3 * PTR(24), 74000000 3 * BIT(8), 75000000 3 * CHAR(1), 76000000 3 * FIXED(15), 77000020 3 * BIT(8), 77050020 3 * PTR(24), 77100020 3 * BIT(8), 77150020 3 * CHAR(1), 77200020 3 * FIXED(15), 77250020 2 WTPSECT CHAR(8); 77300020 %DCL PCPQMPA CHAR; 78000000 %DCL WTPQMERR CHAR; 79000000 %DCL WTPCBSIZ CHAR; 80000000 %PCPQMPA=WTPEIA; 81000000 %WTPQMERR='''81''X'; /*USED BY WTP Q-MGR ERROR ROUTINE*/ 82000000 %WTPCBSIZ='LENGTH(WTPCB)'; /*SYMBOL USED FOR WTP CONTROL*/ 83000000 /*BLOCK SIZE*/ 84000000