*        %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