* %GOTO TIOTXBSL ; /* 00050000 MACRO 00100000 TIOTEXT 00150000 TIOTEXT DSECT 00200000 *********************************************************************** 00250000 * THE TIOT EXTENSION TABLE (TIOTEXT) IS CONSTRUCTED DURING 00300000 * ALLOCATION AT LOGON. IT CONTAINS INFO WHICH IS USED IN 00350000 * DYNAMIC ALLOCATION ROUTINES 00400000 *********************************************************************** 00450000 DS 0F 00500000 TEXTTTR DS CL3 TTR OF TIOT EXT. TABLE 00550000 TEXTID DS CL1 CONTROL BLOCK IDENTIFIER 00600000 DS F RESERVED 00650000 TEXTSNO DS CL1 NUMBER OF RECORDS IN SIOTTR TABLE 00700000 TEXTSTTR DS 5CL3 TTR'S OF SIOTTTR TABLE RECORDS 00750000 DS CL1 RESERVED 00800000 TEXTLS DS CL3 TTR OF LAST MSG CLASS SYSOUT SIOT 00850000 DS CL1 RESERVED 00900000 TEXTLCTP DS CL3 LINKAGE CONTROL TBL ADDR 00950000 DS CL1 RESERVED 01000000 TEXTENQ DS CL3 TTR OF DATA SET ENQUEUE TBL (DSENQ) 01050000 TEXTMCLS DS CL1 MSG CLASS FOR THE JOB FROM THE JCT 01100000 TEXTMLEV DS CL1 MESSAGE LEVEL FOR THE FOB FROM THE JCT 01150000 DS H RESERVED 01200000 DS CL1 RESERVED 01250000 TEXTJCT DS CL3 TTR OF JCT 01300000 DS CL1 RESERVED 01350000 TEXTSCT DS CL3 TTR OF THE STEP SCT 01400000 DS CL128 NOT USED 01450000 **/ 01500000 MEND 01550000 * %TIOTXBSL: ; 01600000 * DECLARE 01650000 * 1 TIOTEXT BASED, 01700000 * /* *************************************************************** */ 01750000 * /* THE TIOT EXTENSION TABLE (TIOTEXT) IS CONSTRUCTED DURING */ 01800000 * /* ALLOCATION AT LOGON. IT CONTAINS INFO WHICH IS USED IN */ 01850000 * /* DYNAMIC ALLOCATION ROUTINES */ 01900000 * /* *************************************************************** */ 01950000 * 02000000 * 2 TEXTTTR CHAR(3) BDY(WORD), 02050000 * /* TTR OF TIOT EXT. TABLE */ 02100000 * 2 TEXTID CHAR(1), /* CONTROL BLOCK IDENTIFIER */ 02150000 * 2 * FIXED(31), 02200000 * 2 TEXTSNO CHAR(1), /* NUMBER OF RECORDS IN SIOTTR 02250000 * TABLE */ 02300000 * 2 TEXTSTTR (5) CHAR(3), /* TTRS OF SIOTTTR TBL RCDS */ 02350000 * 2 * CHAR(1), /* RESERVED */ 02400000 * 2 TEXTLS CHAR(3), /* TTR OF LAST MSG CLASS SYSOUT 02450000 * SIOT */ 02500000 * 2 * CHAR(1), /* RESERVED */ 02550000 * 2 TEXTLCTP CHAR(3), /* LINKAGE CONTROL TBL ADDR */ 02600000 * 2 * CHAR(1), /* RESERVED */ 02650000 * 2 TEXTENQ CHAR(3), /* TTR OF DATA SET ENQUEUE TBL 02700000 * (DSENQ) */ 02750000 * 2 TEXTMCLS CHAR(1), /* MSG CLASS FOR THE JOB FROM 02800000 * THE JCT */ 02850000 * 2 TEXTMLEV CHAR(1), /* MESSAGE LEVEL FOR THE FOB 02900000 * FROM THE JCT */ 02950000 * 2 * FIXED(15), 03000000 * 2 * CHAR(1), /* RESERVED */ 03050000 * 2 TEXTJCT CHAR(3), /* TTR OF JCT */ 03100000 * 2 * CHAR(1), /* RESERVED */ 03150000 * 2 TEXTSCT CHAR(3), /* TTR OF THE STEP SCT */ 03200000 * 2 * CHAR(128); /* NOT USED */ 03250000 * 03300000