* %GOTO UPTBSL ; /* 00050000 MACRO 01000000 IKJUPT 01050000 .* A 0-999999 S20031 01100000 *********************************************************************** 01150000 * THE USER PROFILE TABLE (UPT) IS BUILT BY THE LOGON/LOGOFF * 01200000 * SCHEDULER FROM INFORMATION STORED IN THE UADS AND FROM THE * 01250000 * LOGON COMMAND. IT IS IN CORE SHARED BY THE TMP AND THE * 01300000 * LOGON/LOGOFF SCHEDULER. CP'S AND SERVICE ROUTINES CAN MODIFY * 01350000 * THE UPT, BUT THEY CANNOT FREE IT. * 01400000 *********************************************************************** 01450000 UPT DSECT 01500000 DS 0F 01550000 DS CL2 RESERVED 01600000 UPTUSER DS CL10 RESERVED FOR INSTALLATION USE 01650000 UPTSWS DS X USERS ENVIRONMENT SWITCHES 01700000 UPTRCVR EQU X'80' EDIT RECOVER OPTION IS REQUESTED DEFLT @Z40NQKG 01750000 UPTNPRM EQU X'40' NO PROMPTING IS TO BE DONE 01800000 UPTMID EQU X'20' PRINT MESSAGE IDENTIFIERS 01850000 UPTNCOM EQU X'10' NO USER COMMUNICATION ALLOWED VIA SEND COMMAND 01900000 UPTPAUS EQU X'08' PAUSE FOR '?' WHEN IN NON-INTERACTIVE MODE 02000000 UPTALD EQU X'04' ATTN HAS BEEN SPECIFIED AS LINE DELETE CHAR 02040000 UPTMODE EQU X'02' MODE MESSAGES DESIRED Y01676 02080000 UPTWTP EQU X'01' WRITE TO PROGRAMMER MESSAGES DESIRED Y02669 02120000 UPTCDEL DS CL1 CHAR DELETE CHARACTER 02160000 UPTLDEL DS CL1 LINE DELETE CHARACTER 02200000 DS CL1 RESERVED 02240000 UPTPREFX DS CL7 DSNAME PREFIX Y02669 02280000 UPTPREFL DS BL1 LENGTH OF DSNAME PREFIX Y02669 02320000 **/ 02360000 MEND 02400000 * %UPTBSL: ; 02440000 * %IF UPTSTORAGE='' %THEN /* @ZA29467 */ 02480000 * %UPTSTORAGE='BASED(UPTPTR)'; /* @ZA29467 */ 02520000 * /* *************************************************************** */ 02560000 * /* THE USER PROFILE TABLE (UPT) IS BUILT BY THE LOGON/LOGOFF */ 02600000 * /* SCHEDULER FROM INFORMATION STORED IN THE UADS AND FROM THE */ 02640000 * /* LOGON COMMAND. IT IS IN CORE SHARED BY THE TMP AND THE */ 02680000 * /* LOGON/LOGOFF SCHEDULER. CP'S AND SERVICE ROUTINES CAN MODIFY */ 02720000 * /* THE UPT, BUT THEY CANNOT FREE IT. */ 02760000 * /* *************************************************************** */ 03000000 * DECLARE 03010000 * 1 UPT UPTSTORAGE, /* @ZA29467 */ 03020000 * 2 * CHAR(2) BDY(WORD), /* RESERVED */ 03050000 * 2 UPTUSER CHAR(10), /* RESERVED FOR INSTALLATION */ 03100000 * 2 UPTSWS CHAR(1), /* USERS ENVIRONMENT SWITCHES */ 03150000 * 3 UPTRCVR BIT(1), /* EDIT RECOVER OPTION IS 03200000 * REQUESTED DEFAULT @Z40NQKG*/ 03250000 * 3 UPTNPRM BIT(1), /* NO PROMPTING TO BE DONE */ 03300000 * 3 UPTMID BIT(1), /* PRINT MESSAGE IDENTIFIERS */ 03350000 * 3 UPTNCOM BIT(1), /* NO USER COMMUNICATION 03400000 * ALLOWED VIA SEND COMMAND */ 03450000 * 3 UPTPAUS BIT(1), /* PAUSE FOR '?' WHEN IN NON- 03500000 * INTERACTIVE MODE */ 03550000 * 3 UPTALD BIT(1), /* ATTN HAS BEEN SPECIFIED AS 03600000 * THE LINE DELETE CHARACTER */ 03650000 * 3 UPTMODE BIT(1), /* MODE MESSAGES DESIRED Y01676*/ 03700000 * 3 UPTWTP BIT(1), /* WRITE TO PROGRAMMER Y02669*/ 03750000 * /* MSGS ARE TO BE PUT OUT Y02669*/ 03800000 * 2 UPTCDEL CHAR(1), /* CHAR DELETE CHARACTER */ 03850000 * 2 UPTLDEL CHAR(1), /* LINE DELETE CHARACTER */ 03900000 * 2 * CHAR(1), /* RESERVED */ 03950000 * 2 UPTPREFX CHAR(7), /* DSNAME PREFIX Y02669*/ 04000000 * 2 UPTPREFL PTR(8); /* DSNAME PREFIX LENGTH Y02669*/ 04050000