* %GOTO DSTABPLS; 00050000 MACRO 00100000 IHJDSTAB 00150000 TABL DSECT , DATA SET TABLE ENTRY Y02076 00200000 TABDSORG DS CL1 DATA SET ORGANIZATION Y02076 00250000 TABISAM EQU X'80' ISAM Y02076 00300000 TABPS EQU X'40' PHYSICAL SEQUENTIAL Y02076 00350000 TABBDAM EQU X'20' BDAM Y02076 00400000 TABPO EQU X'02' PARTITIONED Y02076 00450000 TABUNDF EQU X'01' UNDEFINED Y02076 00500000 TABDCBAD DS CL3 ADDR OF ASSOCIATED DCB Y02076 00550000 TABFLG1 DS CL1 FLAG BYTE 1 Y02076 00600000 TABNULL EQU X'80' NULLFILE/DUMMY DS Y02076 00650000 TABSYS EQU X'40' SYSIN/SYSOUT DS Y02076 00700000 TABDA EQU X'20' DA DEVICE Y02076 00750000 TABTAPE EQU X'10' TAPE DEVICE Y02076 00800000 TABLAST EQU X'08' LAST TABLE ENTRY FLAG Y02076 00850000 TABUR EQU X'04' UNIT RECORD OR OTHER DEV Y02076 00900000 TABTCAM EQU X'02' TCAM DS Y02076 00950000 TABDOSTP EQU X'01' DOS TAPE DS Y02076 01000000 TABSEGAD DS CL3 ADDR OF ASSIGNED WA SEG Y02076 01050000 TABNVOLS DS CL1 TOTAL VOLUME COUNT Y02076 01100000 TABJFCB DS CL3 ADDR OF ASSOCIATED JFCB Y02076 01150000 TABOTIOT DS 0CL2 OLD TIOT OFFSET (DA ONLY)Y02076 01200000 TABTPLBL DS CL1 TAPE LABEL FLAG BYTE Y02076 01250000 TABNSLER EQU X'80' ERROR IN NSL ROUTINE Y02076 01300000 TABNSLMT EQU X'40' NSL MOUNT SWITCH Y02076 01350000 TABNSLCM EQU X'20' NSL COMMUNICATION BIT Y02076 01400000 TABLBBYP EQU X'10' BYPASS LABEL PROCESS BIT Y02076 01450000 TABASCII EQU X'08' ASCII LABEL Y02076 01500000 TABNSL EQU X'04' NONSTANDARD LABEL Y02076 01550000 TABSL EQU X'02' STANDARD LABEL Y02076 01600000 TABNL EQU X'01' NO LABEL Y02076 01650000 TABFSQNO DS CL1 FILE SEQ NO. (TAPE ONLY) Y02076 01700000 TABFLG2 DS CL1 FLAG BYTE 2 Y02076 01750000 TABG5V EQU X'80' GREATER THAN 5 VOLUMES Y02076 01800000 TABPOCAT EQU X'40' PO CONCATENATED Y02076 01850000 TABSW EQU X'20' PROCESS CONTROL SWITCH Y02076 01900000 TABRSDS EQU X'10' WORKING RESTART DS Y02076 01950000 TABCIDS EQU X'08' ISAM/VSAM CI DS Y02076 02000000 TABVIODS EQU X'04' VIO DS Y02076 02050000 TABOSSDS EQU X'02' OLD DS WAS SUBSYSTEM YM7399 02060000 TABFLG3 DS CL1 FLAG BYTE 3 Y02076 02100000 TABCKCK EQU X'80' CHKPT DS AT CHKPT TIME YM7337 02110000 TABCKRS EQU X'40' CHKPT DS AT RESTART TIME YM7337 02120000 TABFLG4 DS CL1 FLAG BYTE 4 Y02076 02150000 TABBYPSW EQU X'80' BYPASS PASSWORD CHKING @G32DSMI 02160000 * BECAUSE DATA SET IS @G32DSMI 02168000 * RAC AUTHORIZED @G32DSMI 02176000 TABRCINP EQU X'40' RAC AUTHORIZED INPUT @G32DSMI 02184000 TABRCOUT EQU X'20' RAC AUTHORIZED OUTPUT @G32DSMI 02192000 TABFLG5 DS CL1 FLAG BYTE 5 (USED AS 1 Y02076 02200000 * BYTE SAVEAREA FOR DSCB Y02076 02250000 * EXTENT COUNT) Y02076 02300000 TABVLID1 DS CL6 VOLUME ID 1 Y02076 02350000 TABVLID2 DS CL6 VOLUME ID 2 Y02076 02400000 TABVLID3 DS CL6 VOLUME ID 3 Y02076 02450000 TABVLID4 DS CL6 VOLUME ID 4 Y02076 02500000 TABVLID5 DS CL6 VOLUME ID 5 Y02076 02550000 MEND 02600000 %EJECT; 02650000 *%DSTABPLS: ; /* TO BE ADDED */ 02700000 @EJECT; 02750000