*                                                                       00500001
*        %GOTO TIOTL1;   /*                                             00550001
         MACRO                                                          01000001
         IEFTIOT1   ,   */                                              01500001
*%TIOTL1 : ;                                                            01550001
*                                                                       01600001
*/* **************************************************************** */ 01650001
*/*            TASK INPUT/OUTPUT TABLE                               */ 01700001
*/*                                                                  */ 01750001
*/*  OS/VS1 RELEASE 4, OS/VS2 RELEASE 3, 09/30/74, LEVEL=1           */ 01800003
*/*                                                                  */ 01850001
*/*  METHOD OF ACCESS                                                */ 01900001
*/*      BAL  - A DSECT CARD SHOULD PRECEDE MACRO CALL.  USING ON    */ 01950001
*/*             TIOT1 GIVES ADDRESSABILITY FOR ALL SYMBOLS.          */ 01960001
*/*      PL/S - DCL TIOTPTR PTR                                      */ 01970001
*/* **************************************************************** */ 01980001
*%GOTO TIOTL2;  /*                                                      01990001
         SPACE 1                                                        01992001
         DS    0F                                                       02000001
TIOT1    EQU   * -            TIOTPTR                                   02500002
TIOCNJOB DS    CL8  -         JOB NAME                                  03000002
TIOCSTEP DS    CL16 -         FOR A JOB STEP THAT IS NOT A PROCEDURE    03500002
*                             STEP, 8-BYTE JOB STEP NAME AND 8 RESERVED 03550002
*                             BYTES.  FOR A JOB STEP THAT IS A          03600002
*                             PROCEDURE STEP, 8-BYTE PROCEDURE STEP     03650002
*                             NAME AND 8-BYTE JOB STEP NAME OF THE JOB  03700002
*                             STEP THAT CALLED THE PROCEDURE.           03750002
         SPACE 1                                                        03800002
*********************************************************************** 04000001
*                                                                     * 04500003
*   DD ENTRY                                                          * 05000002
*                                                                     * 05050002
*        THERE IS A 16-BYTE DD ENTRY FOR EACH DD STATEMENT IN THE     * 05100002
*        JOB STEP OR PROCEDURE STEP.  (REFERENCES TO GDG (ALL) DATA   * 05150002
*        SETS, THE JOBLIB DATA SET OR PGM=*.DDNAME CREATE STILL       * 05200002
*        OTHER DD ENTRIES.)                                           * 05250002
*                                                                     * 05500001
*        A DD ENTRY INCLUDES A DEVICE ENTRY.  BEFORE ALLOCATION,      * 06000002
*        THERE MAY BE SEVERAL DEVICE ENTRIES IN EACH DD ENTRY.        * 06500002
*                                                                     * 07000003
*********************************************************************** 07500001
         SPACE 1                                                        07550002
TIOENTRY EQU   * -            TIODDPTR                                  08000002
TIOELNGH DS    FL1 -          LENGTH, IN BYTES, OF THIS ENTRY           08500002
*                             (INCLUDING ALL DEVICE ENTRIES)            08550002
TIOESTTA DS    B -            STATUS BYTE A                             09000002
TIOSLTYP EQU   X'80' -        NONSTANDARD LABEL (TAPE) (OS/VS1)         09500003
*                             ENTRY NOT IN USE (OS/VS2)                 09550003
TIOSPLTP EQU   X'40' -        DURING ALLOCATION, SPLIT CYLINDER         10000002
*                             PRIMARY.  (THIS IS THE FIRST DD ENTRY FOR 10050002
*                             A SPLIT CYLINDER.)                        10100002
*                             DURING STEP TERMINATION, NO UNALLOCATION  10150002
*                             NECESSARY.                                10200002
TIOSPLTS EQU   X'20' -        DURING ALLOCATION, SPLIT CYLINDER         10500002
*                             SECONDARY.  (THIS IS NOT THE FIRST DD     10550002
*                             ENTRY FOR A SPLIT CYLINDER.)              10600002
*                             DURING STEP TERMINATION, REWIND BUT NO    10650002
*                             UNLOADING.                                10700002
TIOSJBLB EQU   X'10' -        JOBLIB INDICATOR                          11000002
TIOSDADS EQU   X'08' -        DADSM ALLOCATION NECESSRY                 11500002
TIOSLABL EQU   X'04' -        LABELED TAPE.  IF BIT 0 IS OFF, SL OR     12000002
*                             SUL.  IF BIT 0 IS ALSO ON, AL OR AUL.     12050002
TIOSDSP1 EQU   X'02' -        REWIND/UNLOAD THE TAPE VOLUME (TAPE)      12500002
*                             PRIVATE VOLUME (DIRECT ACCESS)     MDC001 12550002
TIOSDSP2 EQU   X'01' -        REWIND THE TAPE VOLUME (TAPE)             13000002
*                             PUBLIC VOLUME (DIRECT ACCESS)      MDC002 13050002
TIOERLOC DS    0CL2 -         RELATIVE LOCATION OF POOL                 15500002
TIOEWTCT DS    CL1 -          DURING ALLOCATION, NUMBER OF DEVICES      16000002
*                             REQUESTED FOR THIS DATA SET               16050002
TIOELINK DS    CL1 -          DURING ALLOCATION, LINK TO THE            17500002
*                             APPROPRIATE PRIME SPLIT, UNIT AFFINITY,   17550002
*                             VOLUME AFFINITY OR SUBALLOCATE TIOT       17600002
*                             ENTRY.  AFTER ALLOCATION, FLAG BYTE.      17650002
TIOSYOUT EQU   X'80' -        THIS IS A SYSOUT DATA SET THAT CONTAINS   20500002
*                             DATA (AFTER CLOSE)                        20550002
TIOTRV01 EQU   X'40' -        RESERVED                           MDC006 21000002
TIOTTERM EQU   X'20' -        DEVICE IS A TERMINAL                      21500002
TIOEDYNM EQU   X'10' -        DYNAM CODED ON DD STATEMENT               22000002
TIOEQNAM EQU   X'08' -        QNAME CODED ON DD STATEMENT               22500002
TIOESYIN EQU   X'04' -        ENTRY FOR SPOOLED SYSIN DATA SET          22550002
*                             (OS/VS1)                           MDC003 22560002
TIOESYOT EQU   X'02' -        ENTRY FOR SPOOLED SYSOUT DATA SET         22600002
*                             (OS/VS1)                           MDC004 22602002
TIOESSDS EQU   X'02' -        ENTRY FOR A SUBSYSTEM DATA SET            22610002
*                             (OS/VS2)                           MDC005 22620002
TIOTREM  EQU   X'01' -        ENTRY FOR A REMOTE DEVICE          ICB340 22650002
TIOEDDNM DS    CL8 -          DD NAME                                   24000002
TIOEJFCB DS    CL3 -          RELATIVE TRACK ADDRESS (TTR) OF THE JFCB. 24500002
*                             (DURING ALLOCATION, TTR OF THE SIOT IF    24550002
*                             SUBALLOCATE WAS REQUESTED.)               24600002
TIOESTTC DS    B -            STATUS BYTE C.  USED DURING ALLOCATION    25000002
*                             ONLY.  SET TO ZEROS AT END OF ALLOCATION. 25050002
TIOSDKCR EQU   X'80' -        MAIN STORAGE OR DASD ADDRESS              25500002
TIOSDEFR EQU   X'40' -        DEFERRED MOUNT                            26000002
TIOSAFFP EQU   X'20' -        PRIMARY UNIT AFFINITY                     26500002
TIOSAFFS EQU   X'10' -        SECONDARY UNIT AFFINITY                   27000002
TIOSVOLP EQU   X'08' -        PRIMARY VOLUME AFFINITY                   27500002
TIOSVOLS EQU   X'04' -        SECONDARY VOLUME AFFINITY                 28000002
TIOSBALP EQU   X'02' -        PRIMARY SUBALLOCATE                       28500002
TIOSBALS EQU   X'01' -        SECONDARY SUBALLOCATE                     29000002
         SPACE 1                                                        29050002
*********************************************************************** 29500001
*                                                                     * 30000003
*   DEVICE ENTRIES                                                    * 30500002
*                                                                     * 31000001
*      1. DURING ALLOCATION -                                         * 31500002
*                ONE DEVICE ENTRY FOR EACH DEVICE REQUIRED, OR FOR    * 32000001
*                EACH PUBLIC DEVICE ELIGIBLE.                         * 32500001
*                                                                     * 33000001
*      2. DURING PROBLEM PROGRAM -                                    * 33500002
*                ONE DEVICE ENTRY FOR EACH ALLOCATED DEVICE.          * 34000002
*                                                                     * 34500001
*********************************************************************** 35000001
         SPACE 1                                                        35050002
TIOESTTB DS    B -            STATUS BYTE B - DURING ALLOCATION AND     35500002
*                             DURING PROBLEM PROGRAM                    35550002
TIOSUSED EQU   X'80' -        DATA SET IS ON DEVICE                     36000002
TIOSREQD EQU   X'40' -        DATA SET WILL USE DEVICE                  36500002
TIOSPVIO EQU   X'20' -        DEVICE VIOLATES SEPARATION                37000002
TIOSVLSR EQU   X'10' -        VOLUME SERIAL PRESENT                     37500002
TIOSSETU EQU   X'08' -        SETUP MESSAGE REQUIRED                    38000002
TIOSMNTD EQU   X'04' -        IF 0, DELETE UNLOADED VOLUME IF UNLOAD    38500002
*                             REQUIRED.  IF 1, RETAIN UNLOADED VOLUME   38550002
*                             IF UNLOAD REQUIRED.                       38600002
TIOSUNLD EQU   X'02' -        UNLOAD REQUIRED                           39000002
TIOSVERF EQU   X'01' -        VERIFICATION REQUIRED                     39500002
TIOEFSRT DS    AL3 -          DURING PROBLEM PROGRAM, ADDRESS OF UCB.   40000002
*                             DURING ALLOCATION, BITS 0-11 CONTAIN      40050002
*                             OFFSET, IN THE UCB LOOK-UP TABLE, TO AN   40100002
*                             ADDRESS FOR A DEVICE REQUIRED OR ELIGIBLE 40150002
*                             FOR THIS DATA SET.  THE UCB LOOK-UP TABLE 40200002
*                             HAS ADDRESSES OF UCB'S.  BITS 12-23       40250002
*                             CONTAIN OFFSET, IN THE STEP VOLUME TABLE  40300002
*                             (VOLT), TO THE VOLUME SERIAL NUMBER FOR   40350002
*                             THE VOLUME REQUIRED OR ELIGIBLE FOR THIS  40400002
*                             DATA SET.                                 40450002
         SPACE 2                                                        40460002
*        TIOT POOL ENTRY                                                40500001
         SPACE 1                                                        40550002
POOLSTAR EQU   *                                                        41000001
         DS    CL1 -          RESERVED                                  41500002
TIOPNSLT DS    FL1 -          NUMBER OF SLOTS FOR POOL                  42000002
         DS    CL1 -          RESERVED                                  42500002
TIOPNSRT DS    FL1 -          NUMBER OF DEVICES (FILLED SLOTS)          43000002
TIOPPOOL DS    CL8 -          POOL NAME                                 44000002
TIOPSTTB DS    XL1 -          STATUS OF SLOT                            44500002
TIOPSLOT DS    AL3 -          UCB ADDRESS OR EMPTY SLOT                 45000002
TIOTFEND DS    CL4 -          FINAL END OF THE TIOT - BINARY ZEROS      45500002
         MEND   ,  */                                                   46500001
*%TIOTL2:;                                                              47000001
*                                                                       47100001
* DECLARE                                                               47500001
*  1 TIOT1    BASED(TIOTPTR) BDY(WORD),                                 48000002
*   2 TIOCNJOB    CHAR(8),               /* JOB NAME                 */ 48500002
*   2 TIOCSTEP    CHAR(16);              /* FOR A JOB STEP THAT IS      49000002
*                                           NOT A PROCEDURE STEP,       49050002
*                                           8-BYTE JOB STEP NAME AND    49100002
*                                           8 RESERVED BYTES.  FOR A    49150002
*                                           JOB STEP THAT IS A          49200002
*                                           PROCEDURE STEP, 8-BYTE      49250002
*                                           PROCEDURE STEP NAME AND     49300002
*                                           8-BYTE JOB STEP NAME OF     49350002
*                                           THE JOB STEP THAT CALLED    49400002
*                                           THE PROCEDURE.           */ 49450002
*                                                                       49460002
*/********************************************************************/ 49500001
*/*                                                                  */ 50000001
*/* DD ENTRY                                                         */ 50500002
*/*                                                                  */ 50550002
*/*      THERE IS A 16-BYTE DD ENTRY FOR EACH DD STATEMENT IN THE    */ 50600002
*/*      JOB STEP OR PROCEDURE STEP.  (REFERENCES TO GDG (ALL) DATA  */ 50650002
*/*      SETS, THE JOBLIB DATA SET OR PGM=*.DDNAME CREATE STILL      */ 50700002
*/*      OTHER DD ENTRIES.)                                          */ 50750002
*/*                                                                  */ 51000001
*/*      A DD ENTRY INCLUDES A DEVICE ENTRY.  BEFORE ALLOCATION,     */ 51500002
*/*      THERE MAY BE SEVERAL DEVICE ENTRIES IN EACH DD ENTRY.       */ 52000002
*/*                                                                  */ 52500001
*/********************************************************************/ 53000001
*                                                                       53100001
* DECLARE                                                               53500001
*%IF TIOENPTR=''  %THEN                                                 53550001
*    %GOTO TIOTA1;                                                      53600001
*  1 TIOENTRY   BASED(TIOENPTR) BDY(WORD),                              54000002
*%GOTO TIOTA3;                                                          54050001
*%TIOTA1 : ;                                                            54100001
*%IF IKEPLS='2'  %THEN                                                  54150001
*    %GOTO TIOTA2;                                                      54200001
*  1 TIOENTRY BASED(ADDR(TIOT1)+24) BDY(WORD),                          54250002
*%GOTO TIOTA3;                                                          54260001
*%TIOTA2 : ;                                                            54300001
*  1 TIOENTRY DEF(TIOT1) POS(25) BDY(WORD),                             54350002
*%TIOTA3 : ;                                                            54400001
*   2 TIOELNGH    PTR(8),                /* LENGTH, IN BYTES, OF THIS   54500002
*                                           ENTRY (INCLUDING ALL        54550002
*                                           DEVICE ENTRIES)          */ 54600002
*   2 TIOESTTA    BIT(8),                /* STATUS BYTE A            */ 55000002
*    3 TIOSLTYP BIT(1),                  /* NONSTANDARD LABEL (TAPE)    55500003
*                                           (OS/VS1)                    55550003
*                                           ENTRY NOT IN USE (OS/VS2)*/ 55600003
*    3 TIOSPLTP BIT(1),                  /* DURING ALLOCATION, SPLIT    56000002
*                                           CYLINDER PRIMARY.  (THIS    56050002
*                                           IS THE FIRST DD ENTRY FOR   56100002
*                                           A SPLIT CYLINDER.)          56150002
*                                           DURING STEP TERMINATION,    56200002
*                                           NO UNALLOCATION             56250002
*                                           NECESSARY.               */ 56300002
*    3 TIOSPLTS BIT(1),                  /* DURING ALLOCATION, SPLIT    56500002
*                                           CYLINDER SECONDARY.         56550002
*                                           (THIS IS NOT THE FIRST DD   56600002
*                                           ENTRY FOR A SPLIT           56650002
*                                           CYLINDER.)  DURING STEP     56700002
*                                           TERMINATION, REWIND BUT     56750002
*                                           NO UNLOADING.            */ 56800002
*    3 TIOSJBLB BIT(1),                  /* JOBLIB INDICATOR         */ 57000002
*    3 TIOSDADS BIT(1),                  /* DADSM ALLOCATION            57500002
*                                           NECESSARY                */ 57550002
*    3 TIOSLABL BIT(1),                  /* LABELED TAPE.  IF BIT 0     58000002
*                                           IS OFF, SL OR SUL.  IF      58050002
*                                           BIT 0 IS ALSO ON, AL OR     58100002
*                                           AUL.                     */ 58150002
*    3 TIOSDSP1 BIT(1),                  /* REWIND/UNLOAD THE TAPE      58500002
*                                           VOLUME  (TAPE)              58510002
*                                           PRIVATE VOLUME (DIRECT      58550002
*                                           ACCESS)            MDC001*/ 58600002
*    3 TIOSDSP2 BIT(1),                  /* REWIND THE TAPE VOLUME      59000002
*                                           (TAPE)                      59010002
*                                           PUBLIC VOLUME (DIRECT       59050002
*                                           ACCESS)            MDC002*/ 59100002
*   2 TIOERLOC    CHAR(2),               /* RELATIVE LOCATION OF POOL*/ 60500002
*    3 TIOEWTCT    PTR(8),               /* DURING ALLOCATION, NUMBER   61000002
*                                           OF DEVICES REQUESTED FOR    61050002
*                                           THIS DATA SET            */ 61100002
*    3 TIOELINK    CHAR(1),              /* DURING ALLOCATION, LINK     63000002
*                                           TO THE APPROPRIATE PRIME    63050002
*                                           SPLIT, UNIT AFFINITY,       63100002
*                                           VOLUME AFFINITY OR          63150002
*                                           SUBALLOCATE TIOT ENTRY.     63200002
*                                           AFTER ALLOCATION, FLAG      63250002
*                                           BYTE                     */ 63300002
*     4 TIOSYOUT BIT(1),                 /* THIS IS A SYSOUT DATA SET   66000002
*                                           THAT CONTAINS DATA          66050002
*                                           (AFTER CLOSE)            */ 66100002
*     4 TIOTRV01 BIT(1),                 /* RESERVED           MDC006*/ 66500002
*     4 TIOTTERM BIT(1),                 /* DEVICE IS A TERMINAL     */ 67000002
*     4 TIOEDYNM BIT(1),                 /* DYNAM CODED ON DD           67500002
*                                           STATEMENT                */ 67550002
*     4 TIOEQNAM BIT(1),                 /* QNAME CODED ON DD           68000002
*                                           STATEMENT                */ 68010002
*     4 TIOESYIN BIT(1),                 /* ENTRY FOR SPOOLED SYSIN     68050002
*                                           DATA SET (OS/VS1)  MDC003*/ 68052002
*     4 TIOESYOT BIT(1),                 /* ENTRY FOR SPOOLED SYSOUT    68100002
*                                           DATA SET (OS/VS1)  MDC004*/ 68150002
*      5 TIOESSDS BIT(1),                /* ENTRY FOR A SUBSYSTEM DATA  68200002
*                                           SET (OS/VS2)       MDC005*/ 68250002
*     4 TIOTREM  BIT(1),                 /* ENTRY FOR A REMOTE DEVICE   68500002
*                                                              ICB340*/ 68550002
*   2 TIOEDDNM    CHAR(8),               /* DD NAME                  */ 69000002
*   2 TIOEJFCB    CHAR(3),               /* RELATIVE TRACK ADDRESS      69500002
*                                           (TTR) OF THE JFCB.          69550002
*                                           (DURING ALLOCATION, TTR     69600002
*                                           OF THE SIOT IF SUBALLOCATE  69650002
*                                           WAS REQUESTED.)          */ 69700002
*   2 TIOESTTC    BIT(8),                /* STATUS BYTE C.  USED        70000002
*                                           DURING ALLOCATION ONLY.     70050002
*                                           SET TO ZEROS AT END OF      70100002
*                                           ALLOCATION.              */ 70150002
*    3 TIOSDKCR BIT(1),                  /* MAIN STORAGE OR DASD        70500002
*                                           ADDRESS                  */ 70550002
*    3 TIOSDEFR BIT(1),                  /* DEFERRED MOUNT           */ 71000002
*    3 TIOSAFFP BIT(1),                  /* PRIMARY UNIT AFFINITY    */ 71500002
*    3 TIOSAFFS BIT(1),                  /* SECONDARY UNIT AFFINITY  */ 72000002
*    3 TIOSVOLP BIT(1),                  /* PRIMARY VOLUME AFFINITY  */ 72500002
*    3 TIOSVOLS BIT(1),                  /* SECONDARY VOLUME AFFINITY*/ 73000002
*    3 TIOSBALP BIT(1),                  /* PRIMARY SUBALLOCATE      */ 73500002
*    3 TIOSBALS BIT(1),                  /* SECONDARY SUBALLOCATE    */ 74000002
*                                                                       74050002
*/********************************************************************/ 74500001
*/*                                                                  */ 75000001
*/* DEVICE ENTRIES                                                   */ 75500002
*/*                                                                  */ 76000001
*/*    1. DURING ALLOCATION -                                        */ 76500002
*/*              ONE DEVICE ENTRY FOR EACH DEVICE REQUIRED, OR FOR   */ 77000001
*/*              EACH PUBLIC DEVICE ELIGIBLE.                        */ 77500001
*/*                                                                  */ 78000001
*/*    2. DURING PROBLEM PROGRAM -                                   */ 78500002
*/*              ONE DEVICE ENTRY FOR EACH ALLOCATED DEVICE.         */ 79000002
*/*                                                                  */ 79500001
*/********************************************************************/ 80000001
*                                                                       80050002
*   2 TIOESTTB    BIT(8) BDY(WORD),      /* STATUS BYTE B - DURING      80500002
*                                           ALLOCATION AND DURING       80550002
*                                           PROBLEM PROGRAM          */ 80600002
*    3 TIOSUSED BIT(1),                  /* DATA SET IS ON DEVICE    */ 81000002
*    3 TIOSREQD BIT(1),                  /* DATA SET WILL USE DEVICE */ 81500002
*    3 TIOSPVIO BIT(1),                  /* DEVICE VIOLATES             82000002
*                                           SEPARATION               */ 82050002
*    3 TIOSVLSR BIT(1),                  /* VOLUME SERIAL PRESENT    */ 82500002
*    3 TIOSSETU BIT(1),                  /* SETUP MESSAGE REQUIRED   */ 83000002
*    3 TIOSMNTD BIT(1),                  /* IF 0, DELETE UNLOADED       83500002
*                                           VOLUME IF UNLOAD            83550002
*                                           REQUIRED.  IF 1, RETAIN     83600002
*                                           UNLOADED VOLUME IF          83650002
*                                           UNLOAD REQUIRED.         */ 83700002
*    3 TIOSUNLD BIT(1),                  /* UNLOAD REQUIRED          */ 84000002
*    3 TIOSVERF BIT(1),                  /* VERIFICATION REQUIRED    */ 84500002
*   2 TIOEFSRT    PTR(24),               /* DURING PROBLEM PROGRAM,     85000002
*                                           ADDRESS OF THE UCB.         85050002
*                                           DURING ALLOCATION, BITS     85100002
*                                           0-11 CONTAIN OFFSET, IN     85150002
*                                           THE UCB LOOK-UP TABLE, TO   85200002
*                                           AN ADDRESS FOR A DEVICE     85250002
*                                           REQUIRED OR ELIGIBLE FOR    85300002
*                                           THIS DATA SET.  THE UCB     85350002
*                                           LOOK-UP TABLE HAS           85400002
*                                           ADDRESSES OF UCB'S.         85450002
*                                           BITS 12-23 CONTAIN OFFSET,  85460002
*                                           IN THE STEP VOLUME TABLE    85470002
*                                           (VOLT) TO THE VOLUME        85480002
*                                           SERIAL NUMBER FOR THE       85490002
*                                           VOLUME REQUIRED OR          85492002
*                                           ELIGIBLE FOR THIS DATA      85494002
*                                           SET.                     */ 85496002
*                                                                       85498002
*/********************************************************************/ 85500001
*/*                                                                  */ 86000001
*/*            TIOT POOL ENTRY                                       */ 86500001
*/*                                                                  */ 87000001
*/********************************************************************/ 87500001
*                                                                       87550002
*   2 POOLSTAR,                                                         88000002
*    3 *           CHAR(1),              /* RESERVED                 */ 88500002
*    3 TIOPNSLT    PTR(8),               /* NUMBER OF SLOTS FOR POOL */ 89000002
*    3 *           CHAR(1),              /* RESERVED                 */ 89050002
*    3 TIOPNSRT    PTR(8),               /* NUMBER OF DEVICES (FILLED   90000002
*                                           SLOTS)                   */ 90500002
*    3 TIOPPOOL    CHAR(8),              /* POOL NAME                */ 91000002
*    3 TIOPSTTB    CHAR(1),              /* STATUS OF SLOT           */ 91500002
*    3 TIOPSLOT    PTR(24),              /* UCB ADDRESS OR EMPTY SLOT*/ 92000002
*    3 TIOTFEND    CHAR(4);              /* FINAL END OF THE TIOT -     92500002
*                                           BINARY ZEROS             */ 93000002
*                                                                       93050002
*/********************************************************************/ 93100002
*/*                                                                  */ 93150002
*/*            DECLARE FOR MULTIPLE DEVICE ENTRIES                   */ 93200002
*/*                                                                  */ 93250002
*/********************************************************************/ 93300002
*                                                                       93350002
*DECLARE                                                                93400002
*%IF IKEPLS='2'  %THEN                                                  93450002
*    %GOTO TIOTA4;                                                      93500002
*  1 TIOEDEVE (*) FIXED(31) BASED(ADDR(TIOESTTB)),                      93550002
*%GOTO TIOTA5;                                                          93600002
*%TIOTA4 : ;                                                            93650002
*  1 TIOEDEVE (*) FIXED(31) DEF(TIOESTTB),                              93700002
*%TIOTA5 : ;                                                            93750002
*   2 TIOSTTB     BIT(8),                /* STATUS BYTE B - DURING      93800002
*                                           ALLOCATION AND DURING       93810002
*                                           PROBLEM PROGRAM          */ 93820002
*    3 TIOUSED  BIT(1),                  /* DATA SET IS ON DEVICE    */ 93850002
*    3 TIOREQD  BIT(1),                  /* DATA SET WILL USE DEVICE */ 93900002
*    3 TIOPVIO  BIT(1),                  /* DEVICE VIOLATES             93950002
*                                           SEPARATION               */ 93960002
*    3 TIOVLSR  BIT(1),                  /* VOLUME SERIAL PRESENT    */ 94000002
*    3 TIOSETU  BIT(1),                  /* SETUP MESSAGE REQUIRED   */ 94050002
*    3 TIOMNTD  BIT(1),                  /* IF 0, DELETE UNLOADED       94100002
*                                           VOLUME IF UNLOAD            94110002
*                                           REQUIRED.  IF 1, RETAIN     94120002
*                                           UNLOADED VOLUME IF          94130002
*                                           UNLOAD REQUIRED.         */ 94140002
*    3 TIOUNLD  BIT(1),                  /* UNLOAD REQUIRED          */ 94150002
*    3 TIOVERF  BIT(1),                  /* VERIFICATION REQUIRED    */ 94200002
*   2 TIOUCBP     PTR(24);               /* DURING PROBLEM PROGRAM,     94250002
*                                           ADDRESS OF THE UCB.         94300002
*                                           DURING ALLOCATION, BITS     94350002
*                                           0-11 CONTAIN OFFSET, IN     94400002
*                                           THE UCB LOOK-UP TABLE, TO   94450002
*                                           AN ADDRESS FOR A DEVICE     94500002
*                                           REQUIRED OR ELIGIBLE FOR    94550002
*                                           THIS DATA SET.  THE UCB     94600002
*                                           LOOK-UP TABLE HAS           94650002
*                                           ADDRESSES OF UCB'S.         94700002
*                                           BITS 12-23 CONTAIN OFFSET,  94750002
*                                           IN THE STEP VOLUME TABLE    94800002
*                                           (VOLT) TO THE VOLUME        94850002
*                                           SERIAL NUMBER FOR THE       94900002
*                                           VOLUME REQUIRED OR          94950002
*                                           ELIGIBLE FOR THIS DATA      95000002
*                                           SET.                     */ 95050002