JTEC001527 : CA-RoscoeのROSLIBでインデックス・スペースがなくなった

Products

• Roscoe

Issue/Introduction

Question
ROSLIBのインデックス・スペースがなくなりました。リカバリー方法を知りたい。

Environment

Release:ALL

Resolution

Answer
PGM=LIBUTILを使ってROSLIBのバックアップを取得し、より大きいサイズのROSLIB00ファイルを含む新しいROSLIBセットを割り当て、最後にバックアップから復元を行ってください。
(ROSLIBのバックアップにつきましては、『JTEC001530 : CA-RoscoeのROSLIBをバックアップする方法について』をご参照ください)

新しいROSLIBセットの割り当てにつきましては、以下のサンプル(Prefix.SAMPJCL(RO60ALRU))をご参照いただき、必要に応じてBLKSIZEやROSLIBの数を増やしてください。
詳細は、『CA-Roscoe Programs and Utilities Guideの4.4 Library Management(LIBUTIL Program)』をご参照ください。

Sample
//RO60ALRU JOB
//RO60ALRU PROC CAI='CAI.',  /* COMMON HI-LEVEL QUALIFIER
//         SYSOUT='*',       /* GENERIC SYSOUT CLASS
//         UNIT=SYSDA,       /* GENERIC UNIT NAME
//         ULBLK='2560',     /* USERLIB BLKSIZE
//         ULISPC='3000',    /* USERLIB INDEX SPACE IN BLOCKS
//         ULDSPC='5000',    /* USERLIB DATA SPACE IN BLOCKS
//         ULIVOL='DUMSER',  /* USERLIB INDEX VOLSER
//         ULDVOL1='DUMSER', /* USERLIB DATA1 VOLSER
//         ULDVOL2='DUMSER'  /* USERLIB DATA2 VOLSER
//*         ULDVOLX='DUMSER'  /* USERLIB DATAX VOLSER
//*--------------------------------------------------------------------*
//* ALLOCATE CA-ROSCOE USER LIBRARY                                    *
//*--------------------------------------------------------------------*
//RO60ALRU EXEC PGM=IEFBR14
//ROSLIB00 DD DSN=&CAI.ROSLIB00,DISP=(NEW,CATLG,DELETE),
//         UNIT=&UNIT,VOL=SER=&ULIVOL,
//         SPACE=(&ULBLK,&ULISPC,,CONTIG,ROUND),
//         DCB=(DSORG=DA,BLKSIZE=&ULBLK)
//ROSLIB01 DD DSN=&CAI.ROSLIB01,DISP=(NEW,CATLG,DELETE),
//         UNIT=&UNIT,VOL=SER=&ULDVOL1,
//         SPACE=(&ULBLK,&ULDSPC,,CONTIG,ROUND),
//         DCB=(DSORG=DA,BLKSIZE=&ULBLK)
//ROSLIB02 DD DSN=&CAI.ROSLIB02,DISP=(NEW,CATLG,DELETE),
//         UNIT=&UNIT,VOL=SER=&ULDVOL2,
//         SPACE=(&ULBLK,&ULDSPC,,CONTIG,ROUND),
//         DCB=(DSORG=DA,BLKSIZE=&ULBLK)
//*         ROSLIB0X DD DSN=&CAI.ROSLIB0X,DISP=(NEW,CATLG,DELETE),
//*         UNIT=&UNITP,VOL=SER=&ULDVOLX,
//*         SPACE=(&ULBLK,&ULDSPC,,CONTIG,ROUND),
//*         DCB=(DSORG=DA,BLKSIZE=&ULBLK)
//*--------------------------------------------------------------------*
//* FORMAT CA-ROSCOE USER LIBRARY                                      *
//*--------------------------------------------------------------------*
//FORMAT   EXEC PGM=LIBUTIL,PARM='FORMAT'
//STEPLIB  DD DSN=&CAI.RO60LIB,DISP=SHR
//SYSPRINT DD SYSOUT=&SYSOUT
//ROSLIB00 DD DSN=&CAI.ROSLIB00,DISP=OLD
//ROSLIB01 DD DSN=&CAI.ROSLIB01,DISP=OLD
//ROSLIB02 DD DSN=&CAI.ROSLIB02,DISP=OLD
//* ROSLIB0X DD DSN=&CAI.ROSLIB0X,DISP=OLD
//*--------------------------------------------------------------------*
//RO60ALRU PEND
//*--------------------------------------------------------------------*
//RO60ALRU EXEC RO60ALRU
//

Additional Information

Old Japanese Knowledge Document ID : JTEC001527