* %GOTO ECTBSL ; /* 01000000 MACRO 02000000 IKJECT 03000000 ECT DSECT 04000000 *********************************************************************** 05000000 * THE ENVIRONMENT CONTROL TABLE (ECT) IS BUILT BY THE TMP AND * 06000000 * STORED IN A NON-SHARED SUBPOOL. ITS FIELDS CAN BE MODIFIED * 07000000 * BY A CP OR SERVICE RTN BUT NOT FREED. * 08000000 *********************************************************************** 09000000 SPACE 10000000 ECTRCDF DS X HIGH ORDER BIT INDICATES CP ABENDED 11000000 ECTRTCD DS CL3 RETURN CODE FROM LAST CP 12000000 * (ABEND CODE IF ECTRCDF IS SET) 12050000 ECTIOWA DS A ADDR OF I/O SERVICE ROUTINES WORK AREA 14000000 ECTMSGF DS X HIGH ORDER BIT SET MEANS DELETE SECOND LEVEL 15000000 * MESSAGE 16000000 ECTSMSG DS AL3 ADDR OF SECOND LEVEL MSG CHAIN 17000000 ECTPCMD DS CL8 PRIMARY COMMAND NAME 18000000 ECTSCMD DS CL8 SUBCOMMAND NAME 19000000 ECTSWS DS X 1 BYTE OF SWITCHES 19050000 ECTNOPD EQU X'80' 0 BIT ON= NO OPERANDS EXIST IN CMD BUFFER 21000000 * EQU X'40' RESERVED 23000000 ECTATRM EQU X'20' CP TERMINATED BY TMP DETACH W/ STAE 23050000 ECTLOGF EQU X'10' LOGON/OFF REQUESTED TMP TO LOGOFF USER 24000000 ECTNMAL EQU X'08' NO USER MSGS TO RECVED AT LOGON 25000000 ECTNNOT EQU X'04' NO BRDCST NOTICES TO BE RECVED AT LOGON 26000000 ECTBKGRD EQU X'02' BACKGROUND MODE 26020000 ECTATTN EQU X'01' ATTENTION MODE FOR CLIST Z30NQKM 26050000 ECTDDNUM DS AL3 COUNTER FOR GENERATING TEMP DDNAMES 27000000 ECTUSER DS A WORD RESERVED FOR INSTALLATION USE 29050000 ECTBKPB DS A ADDR OF BACKGROUND PARAMETER BLOCK 29070000 ECTSWS2 DS X EXTENDED FLAG FIELD 29100000 ECTDEFCS EQU X'80' DEFAULT DELETE CHARACTERS USED 29150000 ECTTABND EQU X'40' TEST SUBTASK ABENDED 29200000 * EQU X'20' RESERVED 29250000 * EQU X'10' RESERVED 29300000 * EQU X'08' RESERVED 29350000 * EQU X'04' RESERVED 29400000 ECTPARSA EQU X'02' PARS ACTIVE FOR IKJEGINT @ZA62818 29450000 * EQU X'01' RESERVED 29500000 DS CL(3) RESERVED 29550000 DS A RESERVED 29600000 DS A RESERVED 29650000 DS A RESERVED 29700000 **/ 30000000 MEND 31000000 * %ECTBSL : ; 32000000 * %IF ECTSTORAGE='' %THEN /* @ZA29467 */ 32050000 * %ECTSTORAGE='BASED(ECTPTR)'; /* @ZA29467 */ 32100000 * /* MAPPING OF ENVIRONMENT CONTROL TABLE */ 32150000 * DECLARE 32200000 * 1 ECT ECTSTORAGE, /* @ZA29467 */ 32250000 * /* *************************************************************** */ 35000000 * /* THE ENVIRONMENT CONTROL TABLE (ECT) IS BUILT BY THE TMP AND */ 36000000 * /* STORED IN A NON-SHARED SUBPOOL. ITS FIELDS CAN BE MODIFIED */ 37000000 * /* BY A CP OR SERVICE RTN BUT NOT FREED. */ 38000000 * /* *************************************************************** */ 39000000 * 40000000 * 2 ECTRCDF CHAR(1), /* HIGH ORDER BIT INDICATES CP 41000000 * ABENDED */ 42000000 * 2 ECTRTCD PTR(24), /* RETURN CODE FROM LAST CP OR 43000000 * ABEND CODE IF ECTRCDF IS SET */ 44000000 * 2 ECTIOWA PTR(31), /* ADDR I/O SRV RTNS WORK AREA */ 45000000 * 2 ECTMSGF CHAR(1), /* HIGH ORDER BIT SET MEANS 46000000 * DELETE SECOND LEVEL MSG */ 47000000 * 2 ECTSMSG PTR(24) BDY(BYTE), 48000000 * /* ADDR OF SECOND LEVEL MSG 49000000 * CHAIN */ 50000000 * 2 ECTPCMD CHAR(8), /* PRIMARY COMMAND NAME */ 51000000 * 2 ECTSCMD CHAR(8), /* SUBCOMMAND NAME */ 52000000 * 2 ECTSWS CHAR(1), /* 1 BYTE OF SWITCHES */ 52050000 * 3 ECTNOPD BIT(1), /* 0 BIT ON= NO OPERANDS EXIST 54000000 * IN CMD BUFFER */ 55000000 * 3 * BIT(1), /* RESERVED */ 56000000 * 3 ECTATRM BIT(1), /* CP TERMINATED BY TMP DETACH 57000000 * W/ STAE EQU */ 58000000 * 3 ECTLOGF BIT(1), /* LOGON/OFF REQUESTED TMP TO 59000000 * LOGOFF USER BITS */ 60000000 * 3 ECTNMAL BIT(1), /* NO USER MSGS TO BE RECVED AT 61000000 * LOGON */ 62000000 * 3 ECTNNOT BIT(1), /* NO BRDCST NOTICES TO BE RECVED 63000000 * LOGON */ 64000000 * 3 ECTBKGRD BIT(1), /* BACKGROUND MODE */ 64050000 * 3 ECTATTN BIT(1), /* ATTN MODE FOR CLIST Z30NQKM */ 65000000 * 2 ECTDDNUM PTR(24), /*COUNTER FOR TEMPORARY DDNAMES */ 67000000 * 2 ECTUSER PTR(31), /*RESERVED FOR INSTALLATION USE */ 67050000 * 2 ECTBKPB PTR(31), /*ADDR OF BACKGROUND PARM BLOCK */ 67070000 * 2 ECTSWS2 CHAR(4) BDY(WORD), /* EXTENDED FLAG FIELD */ 67100000 * 3 ECTSWS21 BIT(8), /* FLAGS */ 67150000 * 4 ECTDEFCS BIT(1), /* DEFAULT CONTROL CHARS USED */ 67200000 * 4 ECTTABND BIT(1), /* TEST SUBTASK ABENDED */ 67250000 * 4 * BIT(4), /* RESERVED */ 67266600 * 4 ECTPARSA BIT(1), /* ATTN FOR IKJEGINT @ZA62818 */ 67283300 * 4 * BIT(1), /* RESERVED */ 67316600 * 3 * CHAR(3), /* RESERVED */ 67350000 * 2 * PTR(32), /* RESERVED */ 67400000 * 2 * PTR(32), /* RESERVED */ 67450000 * 2 * PTR(32); /* RESERVED */ 67500000 * 70000000