Este banco esta ficando sem espaço livre como ele tem muitos files grandes se algum deles estender ficaremos com um problema sério - para não ocorrer isso este foi o passo a passo que foi feito para adicionar mais 2000 cilindros de ASSO e 14690 de DATA no banco 410;
Primeiro temos que formatar os novos discos do ASSO - um disco de cada vez;
MEMBER=ADAF410A 000022 REC SAVE:10.04.2011 18:27 BY USERID AA01055 R=00000001
DSN=AAB.DIBD.JCLS LIB=S3 VOL=PRL303 UNIT=1024
....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
//AAFAFRMS JOB (AAFA,DIBD),CLAUD,CLASS=S,MSGCLASS=A TYPRUN=HOLD
//*UQ ALLOW
//* -------------------------------------------------------------------
//* ALOCA E FORMATA DISCOS PARA UM BANCO ADABAS
//* -------------------------------------------------------------------
//FRM EXEC PGM=ADARUN
//* -----------------------------------------------------------------
//DDASSOR1 DD DISP=(MOD,KEEP),DSN=ADABAS.DB410.ASSO1, <=== ASSO
// SPACE=(CYL,(0,1000),,CONTIG),UNIT=SYSDA,
// VOL=(,,,28,SER=(ADAH01,ADAH02,ADAH03,ADAH04,ADAH05,ADAH06,
// ADAH07,ADAH08,ADAH09,ADAH10,ADAH11,ADAH12,ADAH13,ADAH14,
// ADAH15,ADAH16,ADAH17,ADAH18,ADAH19,ADAH20,ADAH26,ADAH27,
// ADAH28,ADAH29,ADAH33,ADAH34,ADAH35,ADAH36,ADAH37,ADAH38))
//* -----------------------------------------------------------------
//SYSUDUMP DD SYSOUT=A
//DDDRUCK DD SYSOUT=A
//DDPRINT DD SYSOUT=A
//DDCARD DD *
ADARUN PROG=ADAFRM,DBID=410
//DDKARTE DD *
ADAFRM ASSOFRM SIZE=1000,DEVICE=8391
/*
MEMBER=ADAF410D 000024 REC SAVE:10.04.2011 18:37 BY USERID AA01055 R=00000001
DSN=AAB.DIBD.JCLS LIB=S3 VOL=PRL303 UNIT=1024
....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
//AAFAFRMS JOB (AAFA,DIBD),CLAUD,CLASS=S,MSGCLASS=A TYPRUN=HOLD
//*UQ ALLOW
//* -----------------------------------------------------------------
//* ALOCA E FORMATA DISCOS PARA UM BANCO ADABAS
//* -----------------------------------------------------------------
//FRM EXEC PGM=ADARUN
//* -----------------------------------------------------------------
//DDDATAR1 DD DISP=(MOD,KEEP),DSN=ADABAS.DB410.DATA1, <=== DATA
// SPACE=(CYL,(0,3338),,CONTIG),UNIT=SYSDA,
// VOL=(,,,40,SER=(ADAH11,ADAH12,ADAH13,ADAH14,ADAH15,ADAH16,
// ADAH17,ADAH18,ADAH19,ADAH20,ADAH01,ADAH02,ADAH03,ADAH04,
// ADAH05,ADAH06,ADAH07,ADAH08,ADAH09,ADAH10,ADAH21,ADAH22,
// ADAH23,ADAH24,ADAH25,ADAH27,ADAH28,ADAH29,ADAH30,ADAH31,
// ADAH32,ADAH33,ADAH34,ADAH35,ADAH36,ADAH37,ADAH38,ADAH39,
// ADAH40,ADAH41))
//* -----------------------------------------------------------------
//SYSUDUMP DD SYSOUT=A
//DDDRUCK DD SYSOUT=A
//DDPRINT DD SYSOUT=A
//DDCARD DD *
ADARUN PROG=ADAFRM,DBID=410
//DDKARTE DD *
ADAFRM DATAFRM SIZE=3338,DEVICE=8391
/*
MEMBER=IEHP410A 000018 REC SAVE:10.04.2011 18:51 BY USERID AA01055 R=00000001
DSN=AAB.DIBD.JCLS LIB=S3 VOL=PRL303 UNIT=1024
....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
//AABSPROG JOB (AABS,OSB),CLAUD,CLASS=S,MSGCLASS=A TYPRUN=HOLD
//*UQ ALLOW
//IEHPROGM EXEC PGM=IEHPROGM
//DD1 DD UNIT=SYSDA,DISP=OLD,
// VOL=(,,,30,SER=(ADAH01,ADAH02,ADAH03,ADAH04,ADAH05,ADAH06,
// ADAH07,ADAH08,ADAH09,ADAH10,ADAH11,ADAH12,ADAH13,ADAH14,
// ADAH15,ADAH16,ADAH17,ADAH18,ADAH19,ADAH20,ADAH26,ADAH27,
// ADAH28,ADAH29,ADAH33,ADAH34,ADAH35,ADAH36,ADAH37,ADAH38))
//SYSPRINT DD SYSOUT=A
//SYSIN DD *
UNCATLG DSNAME=ADABAS.DB410.ASSO1
CATLG DSNAME=ADABAS.DB410.ASSO1,VOL=SYSDA=(ADAH01,ADAH02,ADAH03, X
ADAH04,ADAH05,ADAH06,ADAH07,ADAH08,ADAH09,ADAH10, X
ADAH11,ADAH12,ADAH13,ADAH14,ADAH15,ADAH16,ADAH17, X
ADAH18,ADAH19,ADAH20,ADAH26,ADAH27,ADAH28,ADAH29, X
ADAH33,ADAH34,ADAH35,ADAH36,ADAH37,ADAH38)
/*MEMBER=IEHP410D 000022 REC SAVE:10.04.2011 18:36 BY USERID AA01055 R=00000001
DSN=AAB.DIBD.JCLS LIB=S3 VOL=PRL303 UNIT=1024
....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
//AABSPROG JOB (AABS,OSB),CLAUD,CLASS=S,MSGCLASS=A TYPRUN=HOLD
//*UQ ALLOW
//IEHPROGM EXEC PGM=IEHPROGM
//DD1 DD UNIT=SYSDA,DISP=OLD,
// VOL=(,,,40,SER=(ADAH11,ADAH12,ADAH13,ADAH14,ADAH15,ADAH16,
// ADAH17,ADAH18,ADAH19,ADAH20,ADAH01,ADAH02,ADAH03,ADAH04,
// ADAH05,ADAH06,ADAH07,ADAH08,ADAH09,ADAH10,ADAH21,ADAH22,
// ADAH23,ADAH24,ADAH25,ADAH27,ADAH28,ADAH29,ADAH30,ADAH31,
// ADAH32,ADAH33,ADAH34,ADAH35,ADAH36,ADAH37,ADAH38,ADAH39,
// ADAH40,ADAH41))
//SYSPRINT DD SYSOUT=A
//SYSIN DD *
UNCATLG DSNAME=ADABAS.DB410.DATA1
CATLG DSNAME=ADABAS.DB410.DATA1,VOL=SYSDA=(ADAH11,ADAH12,ADAH13, X
ADAH14,ADAH15,ADAH16,ADAH17,ADAH18,ADAH19,ADAH20, X
ADAH01,ADAH02,ADAH03,ADAH04,ADAH05,ADAH06,ADAH07, X
ADAH08,ADAH09,ADAH10,ADAH21,ADAH22,ADAH23,ADAH24, X
ADAH25,ADAH27,ADAH28,ADAH29,ADAH30,ADAH31,ADAH32, X
ADAH33,ADAH34,ADAH35,ADAH36,ADAH37,ADAH38,ADAH39, X
ADAH40,ADAH41)
/*18:45:55 ***** A D A B A S BASIC SERVICES ***** 2011-04-10
DBID 410 - Increase/Decrease - PDMI002
Enter Parameters : Possible values:
Increase/Decrease .. i (I/D)
ASSO/DATA .. a (A/D)
Size .. 2000______
Blocks or Cylinders .. c (B/C)
Note: After an INCREASE operation is completed, the nucleus session will
be automatically ended to allows for the necessary Associator or Data
Storage formatting.
PF1----- PF2------ PF3------ PF4------ PF6----- PF7----- PF8----- PF12-----
Help Exit Menu18:46:16 ***** A D A B A S BASIC SERVICES ***** 2011-04-10
DBID 410 - Database Maintenance - PDMI002
*****************************************************************************
* *
* >>>>> W A R N I N G <<<<< *
* *
* The INCREASE ASSO/DATA Extent function will result in the Logical *
* and Physical Sizes of the database being different. *
* *
* If the new extent is NOT formatted as required and the nucleus does *
* try to use it, an I/O ERROR will occur and the nucleus will ABEND. *
* *
* User action : *
* *
* Format (ADAFRM Utility) the space once it has been allocated OR *
* terminate this request NOW, BEFORE the allocation is done. *
* *
* Hit 'ENTER' to continue, 'PF3' to Exit or 'PF12' for Menu ... _ *
* *
*****************************************************************************18:46:20 ***** A D A B A S BASIC SERVICES ***** 2011-04-10
- Database Maintenance - PDM0002
Code Service
---- ----------------------------
A Add new dataset to ASSO/DATA
I Increase/decrease ASSO/DATA
R List/reset DIB block entries
S Recover unused space
U Uncouple two ADABAS files
? Help
. Exit
---- ----------------------------
Code .......... _
File No. ...... 0
Coupled File .. 0
Database ID ... 410 (DB.P410.ADABASP1)
EDMI06: Asso has been increased by 2000 Cylinders
Command ==>
PF1----- PF2------ PF3------ PF4------ PF6----- PF7----- PF8----- PF12-----
Help Exit Menu18:46:51 ***** A D A B A S BASIC SERVICES ***** 2011-04-10
DBID 410 - Increase/Decrease - PDMI002
Enter Parameters : Possible values:
Increase/Decrease .. i (I/D)
ASSO/DATA .. d (A/D)
Size .. 14690_____
Blocks or Cylinders .. c (B/C)
Note: After an INCREASE operation is completed, the nucleus session will
be automatically ended to allows for the necessary Associator or Data
Storage formatting.
PF1----- PF2------ PF3------ PF4------ PF6----- PF7----- PF8----- PF12-----
Help Exit Menu18:47:22 ***** A D A B A S BASIC SERVICES ***** 2011-04-10
DBID 410 - Database Maintenance - PDMI002
*****************************************************************************
* *
* >>>>> W A R N I N G <<<<< *
* *
* The INCREASE ASSO/DATA Extent function will result in the Logical *
* and Physical Sizes of the database being different. *
* *
* If the new extent is NOT formatted as required and the nucleus does *
* try to use it, an I/O ERROR will occur and the nucleus will ABEND. *
* *
* User action : *
* *
* Format (ADAFRM Utility) the space once it has been allocated OR *
* terminate this request NOW, BEFORE the allocation is done. *
* *
* Hit 'ENTER' to continue, 'PF3' to Exit or 'PF12' for Menu ... _ *
* *
*****************************************************************************
18:47:27 ***** A D A B A S BASIC SERVICES ***** 2011-04-10
- Database Maintenance - PDM0002
Code Service
---- ----------------------------
A Add new dataset to ASSO/DATA
I Increase/decrease ASSO/DATA
R List/reset DIB block entries
S Recover unused space
U Uncouple two ADABAS files
? Help
. Exit
---- ----------------------------
Code .......... _
File No. ...... 0
Coupled File .. 0
Database ID ... 410 (DB.P410.ADABASP1)
EDMI06: Data has been increased by 14690 Cylinders
Command ==>
PF1----- PF2------ PF3------ PF4------ PF6----- PF7----- PF8----- PF12-----
Help Exit Menu18.46.20 STC02547 +ADAN78 00410 2011-04-10 18:46:19 INCREASE function
18.46.20 STC02547 +ADAN78 00410 Nucleus terminated after ASSO/DATA INCREASE
18.46.21 STC02547 +UEX2 00410 CHAMADA P/ PLOG, FLAGS=X'4000'
18.46.21 JOB02548 $HASP100 AAFAP410 ON INTRDR DBA FROM
18.46.21 STC02547 +UEX2 00410 JOB AAFAPLOG SUBMETIDO
18.46.21 STC02547 +UEX2 00410 RETORNO AO NUCLEO, WAITTIME= 000 S
18.46.21 STC02547 +UEX2 00410 CHAMADA P/ CLOG, FLAGS=X'4800'
18.46.21 JOB02549 $HASP100 AAFAC410 ON INTRDR DBA FROM
18.46.21 STC02547 +UEX2 00410 JOB AAFACLOG SUBMETIDO
18.46.21 STC02547 +UEX2 00410 RETORNO AO NUCLEO, WAITTIME= 000 S
18.46.21 STC02547 +ADAM97 00410 This ASCB/initiator will be terminated by MVS
18.46.21 STC02547 IEF404I AAFAI410 - ENDED - TIME=18.46.21
18.46.21 STC02547 IEF352I ADDRESS SPACE UNAVAILABLE
18.46.21 STC02547 $HASP395 AAFAI410 ENDED
0 comentários:
Enviar um comentário