* % GO TO BSLWTPCB; /* 00400020 MACRO 00900019 IEFWTPCB 01800019 DS 0F 02700019 .* 03600019 .* THE WTPCB IS USED BY MODULES IN RELEASE 19 FOR I/I 254 04500019 .* 05400019 */* Y010001 02/16/72*/ 05450001 *********************************************************************** 06300019 * 07200019 * FORMAT OF WTP CONTROL BLOCK 08100019 * 09000019 * ********************************************* 09900019 * * * * 10800019 * * * * 11700019 * * WTPSMB * WTPFLGSA * 12600019 * * * * 13500019 * * 3 * 1 * 14400019 * 0 ********************************************* 15300019 * * * * 16200019 * * * * 17100019 * * WTPBYTES * WTPQMPA * 18000019 * * * * 18900019 * * 1* 3* 19800019 * 4 ********************************************* 20700019 * * * * 21600019 * * * * 22500019 * * WTPCRSMB * WTPCRCNT * 23400019 * * * * 24300019 * * 3 * 1 * 25200019 * 8 ********************************************* 26100019 * * * * 27000019 * * * * 27900019 * * WTPLIMIT * WTPRSMBS * 28800019 * * * * 29700019 * * 1 * 3 * 30600019 * 12 ********************************************* 31500019 * 32400019 ********************************************************************** 33300019 * 34200019 WTPCB DSECT 35100019 WTPDSECT EQU WTPCB 36000019 * 36900019 WTPSMB DS CL3 TTR USED BY WTP 37800019 * 38700019 WTPFLGSA DS CL1 WTP FLAGS 39600019 * 42300019 WTPIOERR EQU X'80' BIT 0 ON= SYSTEM LIMIT MSG PROCESSED R384 43200001 * 44100019 WTPLMSGP EQU X'40' BIT 1 ON= LIMIT MESSAGE PROCESSED 45000019 * 45900019 WTPSSOUT EQU X'20' BIT 2 ON= STEP CONTAINS SYSOUT 46800019 * 47700019 WTPASGN EQU X'10' BIT 3 ON= RETURN FROM 3RD LOAD OF WTP 48600019 * TO 2ND LOAD OF WTP. 49500019 * 50400019 WTPNRMSG EQU X'08' BIT 4 ON= NO RECORD MSG PROCESSED 51300019 * 52200019 WTPSYSMB EQU X'04' BIT 5 ON= LAST SMB USED FOR JOB 53100019 * 54000019 WTPINVKD EQU X'02' BIT 6 ON= WTP INVOKED FOR THIS STEP 54900019 * 55800019 WTPTOWTO EQU X'01' BIT 7 ON= WTOR OR WTO WITH ADDITIONAL 56700019 * ROUTING CODE 57600019 * 58500019 WTPBYTES DS CL1 REMAINING BYTES IN WTP SMB 59400019 * AVAILABLE FOR A WTP MESSAGE 60300019 * 61200019 WTPQMPAD DS CL3 ADDR OF MSGCLASS QMPA 62100019 * 63000019 WTPQMPA EQU WTPBYTES 63900019 * 64800019 WTPCRSMB DS CL3 TTR OF 1ST WTP SMB. NEEDED 65700019 * FOR AUTOMATIC CHECKPOINT 66600019 * RESTART. 67500019 * 68400019 WTPCRCNT DS CL1 NUMBER OF WTP SMBS USED IN STEP 69300019 * 70200019 WTPLIMIT DS CL1 WTP RECORD LIMIT COUNTER 71100019 * 72000019 WTPRSMBS DS CL3 TTR OF RESERVED WTP SMBS 72900019 * 73800019 WTPCBSIZ EQU *-WTPCB SYMBOL USED FOR WTP CONTROL 74700019 * BLOCK SIZE. 75600019 * 76500019 ********************************************************************** 77400019 MEND 90900019 */ % BSLWTPCB: ; 90990020 */* Y010001 02/16/72*/ 91040000 DCL 1 WTPCB BASED(WTPCBPTR), 91080020 2 WTPDSECT, 91170020 3 WTPSMB PTR(24) BDY(WORD), /*TTR USED BY WTP*/ 91260020 3 WTPFLGSA BIT(8), /*WTP FLAGS*/ 91350020 4 WTPIOERR BIT(1), /*BIT0 ON-SYSTEM LIMIT MESSAGE*/ 91440001 /*PROCESSED R384*/ 91490001 4 WTPLMSGP BIT(1), /*BIT1 ON-LIMIT MSG PROCESSED*/ 91530020 4 WTPSSOUT BIT(1), /*BIT2 ON-STEP CONTAINS SYSOUT*/ 91620020 4 WTPASGN BIT(1), /*BIT3 ON-RETURN FROM 3RD LOAD OF*/ 91710020 /*WTP TO 2ND LOAD OF WTP*/ 91800020 4 WTPNRMSG BIT(1), /*BIT4 ON-NO REC MSG PROCESSED*/ 91890020 4 WTPSYSMB BIT(1), /*BIT5 ON-LAST SMB USED FOR JOB*/ 91980020 4 WTPINVKD BIT(1), /*BIT6 ON-WTP INVOKED FOR STEP*/ 92070020 4 WTPTOWTO BIT(1), /*BIT7 ON-WTO OR WTOR WITH*/ 92160020 /*ADDITIONAL ROUTING CODE*/ 92250020 3 WTPBYTES PTR(8), /*REMAINING BYTES IN WTP SMB */ 92340020 /*AVAILABLE FOR WTP MESSAGE*/ 92430020 4 WTPQMPA PTR(8), 92520020 3 WTPQMPAD PTR(24) BDY(BYTE), /*ADDR OF MSGCLASS QMPA*/ 92610020 3 WTPCRSMB PTR(24) BDY(WORD), /*TTR OF 1ST SMB NEEDED*/ 92700020 /*FOR CHKPT/RESTART*/ 92790020 3 WTPCRCNT PTR(8), /*NUMBER OF WTP SMBS USED IN STEP*/ 92880020 3 WTPLIMIT PTR(8), /*WTP RECORD LIMIT COUNTER*/ 92970020 3 WTPRSMBS PTR(24) BDY(BYTE); /*TTR OF RESERVED WTP*/ 93060020 /*SMBS*/ 93150020