* %GOTO PCCBBSL; /* 02000002 MACRO 03000002 IEFPCCB 04000002 *********************************************************************** 05000002 * * 06000002 * STATUS * 07000002 * VERSION - 002 DATE - JUNE 15, 1973 * 08000002 * * 09000002 * FUNCTION * 10000002 * A PRIVATE CATALOG CONTROL BLOCK * 11000002 * * 12000002 * ENTRY * 13000002 * IEFPCCB * 14000002 * * 15000002 * INPUT * 16000002 * BAL: DSECT * 17000002 * BSL: DCL (PCCBPTR) PTR * 18000002 * * 19000002 * ATTRIBUTES * 20000002 * BILINGUAL * 21000002 * * 22000002 * * 25000002 *********************************************************************** 26000002 IEFPCCB DSECT 27000002 SPACE 28000002 PCCACRO DS CL4 ACRONYM OF BLOCK - PCCB - 28050002 PCCNEXTP DS A - ADDRESS OF NEXT PCCB OR ZERO 29000002 PCCPREVP DS A - ADDR OF PREVIOUS PCCB OR ZERO 29050002 PCCSTATS DS 0F STATUS AND INDICATORS 29100002 PCCSTAT1 DS CL1 STATUS BYTE NUMBER 1 29150002 PCCSTEPC EQU X'80' CATALOG IS A STEPCAT 29200002 PCCALIAS EQU X'40' CTLG CONNECTOR IS ALIAS OF DSNAME 29250002 PCCACTIV EQU X'20' CATALOG ALLOCATED - ACTIVE 29300002 PCOSCVOL EQU X'10' CATALOG IS AN OS CVOL 29320002 PCCTCL EQU X'08' CTLG IS TEMPORARILY CLOSED @YM04224 29330002 PCCSTAT2 DS CL1 NOT USED 29350002 PCCSTAT3 DS CL1 NOT USED 29400002 PCCSTAT4 DS CL1 NOT USED 29450002 PCCACBP DS A - ADDRESS OF ACB FOR PVT CAT 30000002 PCCDDNAM DS CL8 DD NAME FOR DYN ALLOC CATALOG 30050002 PCCDSNAM DS CL44 CATALOG DATA SET NAME 30100002 PCCTGCON DS CL44 CATALOG CONNECTOR (ALIAS) 30150002 PCVOLSER DS CL6 CVOL VOLUME SERIAL 30170002 PCCRSVD1 DS CL2 NOT USED 30200002 PCCLACBP DS A - ACB ADDRESS IF TEMP CLOSED @YM04224 33200002 PCCRSVD2 DS CL48 NOT USED 36200002 *********************************************************************** 42000002 * END OF PCCB * 43000002 MEND 44000002 */ %PCCBBSL:; 45000002 */********************************************************************/ 46000002 */* STATUS */ 48000002 */* VERSION - 002 DATE - JUNE 15, 1973 */ 49000002 */* FUNCTION */ 51000002 */* A PRIVATE CATALOG CONTROL BLOCK */ 52000002 */* ENTRY */ 54000002 */* IEFPCCB */ 55000002 */* INPUT */ 57000002 */* BAL: DSECT */ 58000002 */* BSL: DCL (PCCBPTR) PTR */ 59000002 */* ATTRIBUTES */ 61000002 */* BILINGUAL */ 62000002 */* */ 65000002 */********************************************************************/ 67000002 * DCL 1 IEFPCCB BASED(PCCBPTR), /* PVT CAT CONTROL BLOCK */ 68000002 * 2 PCCACRO CHAR(4), /* ACRONYM OF BLOCK 'PCCB' */ 68050002 * 2 PCCNEXTP PTR(31), /* ADDR OF NEXT PCCB OR ZERO */ 69000002 * 2 PCCPREVP PTR(31), /* ADDR OF PREVIOUS PCCB OR 0 */ 69050002 * 2 PCCSTATS, /* PCCB INDICATORS */ 69100002 * 4 PCCSTAT1, /* STATUS BYTE NUMBER 1 */ 69150002 * 6 PCCSTEPC BIT(1), /* CATALOG IS A STEPCAT */ 69200002 * 6 PCCALIAS BIT(1), /* CTLG CON ALIAS FOR DSNAME */ 69250002 * 6 PCCACTIV BIT(1), /* CATALOG ALLOCATED - ACTIVE */ 69300002 * 6 PCOSCVOL BIT(1), /* CATALOG IS AN OS CVOL */ 69320002 * 6 PCCTCL BIT(1), /* TEMPORARILY CLOSED @YM04224*/ 69330002 * 6 * BIT(3), /* NOT USED */ 69360002 * 4 PCCSTAT2 BIT(8), /* NOT USED */ 69400002 * 4 PCCSTAT3 BIT(8), /* NOT USED */ 69410002 * 4 PCCSTAT4 BIT(8), /* NOT USED */ 69420002 * 2 PCCACBP PTR(31), /* ADDR OF ACB FOR PVT CAT */ 70000002 * 2 PCCDDNAM CHAR(8), /* DD NAME FOR DYN ALLOC CTLG */ 70050002 * 2 PCCDSNAM CHAR(44), /* CATALOG DATA SET NAME */ 70100002 * 2 PCCTGCON CHAR(44), /* CATALOG CONNECTOR (ALIAS) */ 70150002 * 2 PCVOLSER CHAR(6), /* CVOL VOLUME SERIAL */ 70170002 * 2 PCCRSVD1 CHAR(2), /* NOT USED */ 70200002 * 2 PCCLACBP PTR(31), /* ACB ADDRESS OF TEMPORARILY 73200002 * CLOSED CATALOG @YM04224*/ 76200002 * 2 PCCRSVD2 CHAR(48); /* NOT USED */ 79200002 * /******* *** END OF PCCB *** *******/ 84000002