* %GOTO PSCBBSL ; /* 01000000 MACRO 02000000 IKJPSCB 03000000 .* C 350000,890000 M0759 03050001 PSCB DSECT 04000000 *********************************************************************** 05000000 * THE PROTECTED STEP CONTROL BLOCK IS CONSTRUCTED BY LOGON AND 06000000 * FILLED IN FROM THE UADS . A FIXED LENGTH TABLE WITH ATTRIBUTE 07000000 * AND ACCOUNTING FIELDS, THE PSCB IS USED TO MAINTAIN USER ATTRI- 08000000 * BUTES AND ACCOUNTING DATA ON A USERID BASIS. THE ADDRESS OF PSCB 09000000 * IS PASSED TO THE TMP. HENCE IT IS AN EXTERNAL INTERFACE 10000000 *********************************************************************** 11000000 DS 0F 12000000 PSCBUSER DS CL7 USERID PADDED RIGHT WITH BLANKS 13000000 PSCBUSRL DS CL1 LENGTH OF USERID 14000000 PSCBGPNM DS CL8 ESOTERIC GROUP NAME INIT BY LOGON FROM UADS 15000000 * USED BY DYN ALLOC WHEN UNITNAME NOT SPECIFIED 16000000 * BUT IS REQUIRED 17000000 PSCBATR1 DS X A 15 BIT STRING OF USER ATTRIBUTES 18000000 PSCBCTRL EQU X'80' OPERATOR COMMAND USER 19000000 PSCBACCT EQU X'40' ACCOUNT COMMAND USER 20000000 PSCBJCL EQU X'20' SUBMIT COMMAND USER 21000000 PSCBVMNT EQU X'10' CNTL VOL MOUNT AUTH Y02669 21050000 PSCBATTN EQU X'08' LINE DELETE CHAR IS ATTENTION Y02669 21100000 PSCBRCVR EQU X'04' EDIT RECOVER/NORECOVER @Z40DQKV 22000000 * BITS 6 - 15 RESERVED FOR IBM USE 22050000 DS X RESERVED 23000000 PSCBATR2 DS X A 15 BIT STRING RESERVED FOR INSTALLATION USE 24000000 DS X 25000000 PSCBLTIM DS F DOUBLEWORD FOR LOGON TIME Y02669 26000000 PSCBLTI2 DS F IN STORE CLOCK UNITS Y02669 26050000 PSCBSUBH DS CL1 SUBMIT HOLD CLASS @DZ04005 26100000 PSCBSUBC DS CL1 SUBMIT CLASS @DZ04005 29000000 PSCBSUBM DS CL1 SUBMIT MSGCLASS @DZ04005 29050000 PSCBSOUT DS CL1 SYSOUT CLASS @DZ04005 29100000 DS 2F RESERVED 29150000 PSCBDEST DS CL8 DEST FOR SYSOUT DATA SETS Y02669 29200000 PSCBRLGB DS A PTR TO RELOGON BUFFER 29250000 PSCBUPT DS A PTR TO USER PROFILE TABLE 37000000 PSCBUPTL DS H LENGTH OF UPT 38000000 PSCBCHAR DS CL1 USER'S CHARACTER DELETE CHARACTER Y02669 38050000 PSCBLINE DS CL1 USER'S LINE DELETE CHARACTER Y02669 38100000 PSCBRSZ DS A REGION SIZE REQUESTED IN 2K UNITS 38600000 PSCBU DS CL8 RESERVED FOR INSTALLATION USE 40000000 **/ 41000000 MEND 42000000 * %PSCBBSL : ; 43000000 * %IF PSCBSTORAGE='' %THEN /* @ZA29467 */ 43050000 * %PSCBSTORAGE='BASED(PSCBPTR)'; /* @ZA29467 */ 43100000 * DECLARE 44000000 * 1 PSCB PSCBSTORAGE, /* @ZA29467 */ 44050000 * /* *************************************************************** */ 46000000 * /* THE PROTECTED STEP CONTROL BLOCK IS CONSTRUCTED BY LOGON AND */ 47000000 * /* FILLED IN FROM THE UADS . A FIXED LENGTH TABLE WITH ATTRIBUTE */ 48000000 * /* AND ACCOUNTING FIELDS, THE PSCB IS USED TO MAINTAIN USER ATTRI- */ 49000000 * /* BUTES AND ACCOUNTING DATA ON A USERID BASIS. THE ADDRESS OF THE */ 50000000 * /* PSCB IS PASSED TO THE TMP. HENCE IT IS AN EXTERNAL INTERFACE */ 51000000 * /* *************************************************************** */ 52000000 * 53000000 * 2 PSCBUSER CHAR(7) BDY(WORD), 54000000 * /* USERID PADDED RIGHT WITH 55000000 * BLANKS */ 56000000 * 2 PSCBUSRL PTR(8), /* LENGTH OF USERID */ 57000000 * 2 PSCBGPNM CHAR(8), /* ESOTERIC GROUP NAME INIT BY 58000000 * LOGON FROM UADS USED BY DYN 59000000 * ALLOC WHEN UNITNAME NOT 60000000 * SPECIFIED BUT IS REQUIRED */ 61000000 * 2 PSCBATR1 CHAR(2), /* A 15 BIT STRING OF USER 62000000 * ATTRIBUTES */ 63000000 * 3 PSCBCTRL BIT(1), /* OPERATOR COMMAND USER */ 64000000 * 3 PSCBACCT BIT(1), /* ACCOUNT */ 65000000 * 3 PSCBJCL BIT(1), /* SUBMIT BITS */ 66000000 * 3 PSCBVMNT BIT(1), /* CNTL VOL MOUNT AUTH Y02669*/ 67000000 * 3 PSCBATTN BIT(1), /* LINE DELETE CHAR IS ATTN Y02669*/ 68000000 * 3 PSCBRCVR BIT(1), /* EDIT RECOVER/NORECOVER@Z40DQKV*/ 68050000 * 3 * BIT(1), /* RESERVED */ 70000000 * 3 * BIT(1), /* RESERVED */ 71000000 * 2 PSCBATR2 CHAR(2), /* A 15 BIT STRING RESERVED FOR 72000000 * INSTALLATION USE */ 73000000 * 2 PSCBLTIM FIXED(32), /* DOUBLEWORD FOR LOGON Y02669*/ 74000000 * 2 PSCBLTI2 FIXED(32), /* TIME IN STORE CLOCK Y02669*/ 74050000 * /* UNITS Y02669*/ 74100000 * 2 PSCBSUBH CHAR(1), /* SUBMIT HOLD CLASS @DZ04005*/ 74150000 * 2 PSCBSUBC CHAR(1), /* SUBMIT CLASS @DZ04005*/ 74200000 * 2 PSCBSUBM CHAR(1), /* SUBMIT MSGCLASS @DZ04005*/ 74250000 * 2 PSCBSOUT CHAR(1), /* SYSOUT CLASS @DZ04005*/ 74300000 * 2 * FIXED(31), /* RESERVED */ 74350000 * 2 * FIXED(31), /* RESERVED */ 74400000 * 2 PSCBDEST CHAR(8), /* DEST FOR SYSOUT Y02669*/ 74450000 * /* DATA SETS Y02669*/ 74500000 * 2 PSCBRLGB PTR(31), /* PTR TO RELOGON BUFFER */ 79000000 * 2 PSCBUPT PTR(31), /* PTR TO USER PROFILE TABLE */ 91000000 * 2 PSCBUPTL FIXED(15), /* LENGTH OF UPT */ 92000000 * 2 PSCBCHAR CHAR(1), /*USER'S CHAR DELETE CHAR Y02669*/ 92500000 * 2 PSCBLINE CHAR(1), /*USER'S LINE DELETE CHAR Y02669*/ 92550000 * 2 PSCBRSZ POINTER(32), /* REGION SIZE REQUESTED IN 2K 93000000 * UNITS */ 93500000 * 2 PSCBU CHAR(8); /* RESERVED FOR INSTALLATION 94000000 * USE */ 95000000 * 97000000