* %GOTO PLSTTTCD; /* BILINGUAL HEADER 01000000 MACRO 02000000 TTTCD 03000000 .*A000000-999999 @Y17XAXV 04000000 .*C160000,630000-640000 @G36XRXV 04500010 * ... TOTE/TCAM CONTROL BLOCKS ... 05000000 IEDTTCD DSECT 06000000 TTCSTOFF EQU LCBRCQCB-IEDQLCB OFFSET INTO LCB OF LCBRCQCB 07000000 ORG IEDTTCD+L'LCBRCQCB 08000000 * 09000000 TTCSVCPL DS 0F SVC 102 PARM LIST 10000000 TTCSVCW1 DS 0A WORD 1 11000000 TTCPCODE DS CL1 POST CODE 12000000 TTCFIRST DS AL3 ADDR OF FIRST ELEMENT 13000000 TTCSVCW2 DS 0A WORD 2 14000000 TTCLAST DS AL4 ADDR OF LAST ELEMENT 15000000 TTCCHAIN EQU X'B4' CHAIN AQCTL POST @G36XRXV 16000010 * 17000000 ORG IEDTTCD+LCBSTAT1-LCBRCQCB DISPLACEMENT TO NEXT LCB FLDS 18000000 ORG IEDTTCD+LCBSCBA-LCBRCQCB+L'LCBSCBA LOCATION PAST LCB 19000000 * FIELDS 20000000 * 21000000 TTCQCB DS 0F QCB 22000000 TTCQBFLG DS CL1 QCB FLAG FIELD - X'02 INDICATES 23000000 * ECB POST TO DISPATCHER 24000000 TTCQBELC DS AL3 QCB ELEMENT CHAIN POINTER 25000000 TTCQBECB DS 1F QCB ECB 26000000 TTCQSTCB DS 1F QCB STCB CHAIN 27000000 * 28000000 TTCSCB DS 0F SCB START 29000000 MEND */ 30000000 *%PLSTTTCD:; 31000000 */* */ 32000000 */* ... TOTE/TCAM CONTROL BLOCKS ... */ 33000000 */* */ 34000000 * DCL 35000000 * 1 IEDTTCD BASED (IEDTTCP), 36000000 * 2 * CHAR(*); /* LENGTH OF LCBRCQCB FIELD */ 37000000 * DCL 38000000 * 1 IEDTTCPL BASED(ADDR(IEDTTCD)+LENGTH(LCBRCQCB)), 39000000 * 2 TTCSVCPL BDY(WORD), /* SVC 102 PARM LIST */ 40000000 * 3 TTCSVCW1, /* WORD 1 */ 41000000 * 4 TTCPCODE CHAR(1), /* POST CODE */ 42000000 * 4 TTCFIRST PTR(24), /* ADDR OF FIRST ELEMENT */ 43000000 * 3 TTCSVCW2 PTR(31), /* WORD 2 */ 44000000 * 4 TTCLAST PTR(31), /* ADDR OF LAST ELEMENT */ 45000000 * 2 * CHAR(*); /* DISPLACEMENT OF NEXT LCB 46000000 * FIELDS */ 47000000 * DCL 48000000 * 1 IEDTTCFD BASED(ADDR(IEDTTCD)+(ADDR(LCBSTAT1)-ADDR(LCBRCQCB))), 49000000 * /* START OF LCB FIELDS USED */ 50000000 * 2 * CHAR(*); 51000000 * DCL 52000000 * 1 IEDTTCQB BASED(ADDR(IEDTTCD)+(ADDR(LCBSCBA)-ADDR(LCBRCQCB))+ 53000000 * LENGTH(LCBSCBA)), /*LOCATION PAST LCB FIELDS */ 54000000 * 2 TTCQCB BDY(WORD), /* QCB */ 55000000 * 3 TTCQBFLG CHAR(1), /* QCB FLAG FIELD - X'02' 56000000 * INDICATES ECB POST TO DISPATCHER */ 57000000 * 3 TTCQBELC PTR(24), /* QCB ELEMENT CHAIN POINTER */ 58000000 * 3 TTCQBECB BIT(32), /* QCB ECB */ 59000000 * 3 TTCQSTCB PTR(31), /* QCB STCB POINTER */ 60000000 * 2 TTCSCB CHAR(0) BDY(WORD); /* SCB START */ 61000000 * DCL 62000000 * TTCCHAIN BIT(8) CONSTANT('B4'X);/* POST CODE FOR CHAIN SVC 102 63000010 * POST @G36XRXV */ 66000010