Vai ser adicionado 8000 cilindros no ASSO e 18704 no Data;
Formatar os novos disco do ASSO
Formatar os novos disco do ASSO
MEMBER=ADAF242A 000024 REC SAVE:30.06.2010 18:48 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
//* -----------------------------------------------------------
//* FORMATAR DISCOS NOVOS PARA O BANCO
//* -----------------------------------------------------------
//FRM EXEC PGM=ADARUN
//STEPLIB DD DISP=SHR,DSN=ADA5.LOADLIB
//* -----------------------------------------------------------
//DDASSOR1 DD DISP=(MOD,KEEP),DSN=ADABAS.DB445.ASSO1, <=== ASSO
// SPACE=(CYL,(0,1000),,CONTIG),UNIT=SYSDA,
// VOL=(,,,31,SER=(ADAL01,ADAL02,ADAL03,ADAL04,ADAL05,
// ADAL06,ADAL07,ADAL08,ADAL09,ADAL10,ADAL11,ADAL12,
// ADAL13,ADAL14,ADAL15,ADAL16,ADAL17,ADAL18,ADAL19,
// ADAL20,ADAL21,ADAL22,ADAL23,ADAL24,ADAL25,ADAL26,
// ADAL27,ADAL28,ADAL29,ADAL30,ADAL31))
//* -----------------------------------------------------------
//SYSUDUMP DD SYSOUT=A
//DDDRUCK DD SYSOUT=A
//DDPRINT DD SYSOUT=A
//DDCARD DD *
ADARUN PROG=ADAFRM,DBID=445
//DDKARTE DD *
ADAFRM ASSOFRM SIZE=1000,DEVICE=8391
/*MEMBER=ADAF242X 000024 REC SAVE:30.06.2010 18:28 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
//* -----------------------------------------------------------
//* FORMATAR DISCOS NOVOS PARA O BANCO
//* -----------------------------------------------------------
//FRM EXEC PGM=ADARUN
//STEPLIB DD DISP=SHR,DSN=ADA5.LOADLIB
//* -----------------------------------------------------------
//DDDATAR1 DD DISP=(MOD,KEEP),DSN=ADABAS.DB445.DATA1, <=== DATA
// SPACE=(CYL,(0,2338),,CONTIG),UNIT=SYSDA,
// VOL=(,,,31,SER=(ADAL01,ADAL02,ADAL03,ADAL04,ADAL05,
// ADAL06,ADAL07,ADAL08,ADAL09,ADAL10,ADAL11,ADAL12,
// ADAL13,ADAL14,ADAL15,ADAL16,ADAL17,ADAL18,ADAL19,
// ADAL20,ADAL21,ADAL22,ADAL23,ADAL24,ADAL25,ADAL26,
// ADAL27,ADAL28,ADAL29,ADAL30,ADAL31))
//* -----------------------------------------------------------
//SYSUDUMP DD SYSOUT=A
//DDDRUCK DD SYSOUT=A
//DDPRINT DD SYSOUT=A
//DDCARD DD *
ADARUN PROG=ADAFRM,DBID=445
//DDKARTE DD *
ADAFRM DATAFRM SIZE=2338,DEVICE=8391
/*MEMBER=IEHPD242 000023 REC SAVE:30.06.2010 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
//* ------------------------------------------------------------
//* DESCATALOGA E CATALOGA DISCOS DO BANCO ADABAS
//* ------------------------------------------------------------
//IEHPROGM EXEC PGM=IEHPROGM,COND=(0,NE)
//STEPLIB DD DISP=SHR,DSN=ADA5.LOADLIB
//* ------------------------------------------------------------
//DD1 DD UNIT=SYSDA,DISP=OLD,
// VOL=(,,,31,SER=(ADAL01,ADAL02,ADAL03,ADAL04,ADAL05,ADAL06,ADAL07,
// ADAL08,ADAL09,ADAL10,ADAL11,ADAL12,ADAL13,ADAL14,ADAL15,
// ADAL16,ADAL17,ADAL18,ADAL19,ADAL20,ADAL21,ADAL22,ADAL23,
// ADAL24,ADAL25,ADAL26,ADAL27,ADAL28,ADAL29,ADAL30,ADAL31))
//SYSPRINT DD SYSOUT=A
//SYSIN DD *
UNCATLG DSNAME=ADABAS.DB445.ASSO1
CATLG DSNAME=ADABAS.DB445.ASSO1, X
VOL=SYSDA=(ADAL01,ADAL02,ADAL03,ADAL04,ADAL05,ADAL06, X
ADAL07,ADAL08,ADAL09,ADAL10,ADAL11,ADAL12,ADAL13, X
ADAL14,ADAL15,ADAL16,ADAL17,ADAL18,ADAL19,ADAL20, X
ADAL21,ADAL22,ADAL23,ADAL24,ADAL25,ADAL26,ADAL27, X
ADAL28,ADAL29,ADAL30,ADAL31)
/*1 J E S 2 J O B L O G -- S Y S T E M C P A C -- N O
0
18.41.48 STC08494 ---- WEDNESDAY, 30 JUN 2010 ----
18.41.48 STC08494 IEF695I START AAFAI445 WITH JOBNAME AAFAI445 IS ASSIGNED TO
18.41.48 STC08494 $HASP373 AAFAI445 STARTED
18.41.48 STC08494 IEF403I AAFAI445 - STARTED - TIME=18.41.48
18.41.51 STC08494 +ADAN02 00445 Nucleus run without protection log
18.41.51 STC08494 +ADAL01 00445 2010-06-30 18:41:50 CLOG not active
18.41.51 STC08494 +ADAN03 00445 ADABAS coming up
18.41.52 STC08494 +ADAN19 00445 Buffer flush is a s y n c h r o n o u s
18.41.52 STC08494 +ADAN01 00445 A D A B A S V7.4.4 is active
18.41.52 STC08494 +ADAN01 00445 MODE = MULTI
18.41.52 STC08494 +ADAN01 00445 Running without recovery log18:42:26 ***** A D A B A S BASIC SERVICES ***** 2010-06-30
- Main Menu - PMAIN02
Code Basic Services Code Other Services
---- ---------------------- ---- ---------------------
A Session monitoring 1 Adabas Cache Facility
C Checkpoint maintenance 2 Delta Save Facility
F File maintenance 3 Trigger Maintenance
M Database maintenance 4 AOS Security
O Session opercoms 5 Transaction Manager
R Database report 6 Adabas Statistics
S Space calculation 7 Vista
? Help 8 Fastpath
. Exit 9 SAF Security
---- ---------------------- ---- ---------------------
Code ....... m
Database ... 445 (DB.D430.ADABASP1)
Command ==>
PF1----- PF2------ PF3------ PF4------ PF6----- PF7----- PF8----- PF12-----
Help Exit18:43:08 ***** A D A B A S BASIC SERVICES ***** 2010-06-30
- 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 .......... i
File No. ...... 0
Coupled File .. 0
Database ID ... 445 (DB.S445.ADABASP1)
Command ==>
PF1----- PF2------ PF3------ PF4------ PF6----- PF7----- PF8----- PF12-----
Help Exit Menu18:43:16 ***** A D A B A S BASIC SERVICES ***** 2010-06-30
DBID 445 - Increase/Decrease - PDMI002
Enter Parameters : Possible values:
Increase/Decrease .. i (I/D)
ASSO/DATA .. a (A/D)
Size .. 8000______
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:43:47 ***** A D A B A S BASIC SERVICES ***** 2010-06-30
DBID 445 - 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:43:51 ***** A D A B A S BASIC SERVICES ***** 2010-06-30
- 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 ... 445 (DB.S445.ADABASP1)
EDMI06: Asso has been increased by 8000 Cylinders
Command ==>
PF1----- PF2------ PF3------ PF4------ PF6----- PF7----- PF8----- PF12-----
Help Exit Menu1 J E S 2 J O B L O G -- S Y S T E M C P A C -- N O
0
18.41.48 STC08494 ---- WEDNESDAY, 30 JUN 2010 ----
18.41.48 STC08494 IEF695I START AAFAI445 WITH JOBNAME AAFAI445 IS ASSIGNED TO
18.41.48 STC08494 $HASP373 AAFAI445 STARTED
18.41.48 STC08494 IEF403I AAFAI445 - STARTED - TIME=18.41.48
18.41.51 STC08494 +ADAN02 00445 Nucleus run without protection log
18.41.51 STC08494 +ADAL01 00445 2010-06-30 18:41:50 CLOG not active
18.41.51 STC08494 +ADAN03 00445 ADABAS coming up
18.41.52 STC08494 +ADAN19 00445 Buffer flush is a s y n c h r o n o u s
18.41.52 STC08494 +ADAN01 00445 A D A B A S V7.4.4 is active
18.41.52 STC08494 +ADAN01 00445 MODE = MULTI
18.41.52 STC08494 +ADAN01 00445 Running without recovery log
18.43.51 STC08494 +ADAN78 00445 2010-06-30 18:43:50 INCREASE function
18.43.51 STC08494 +ADAN78 00445 Nucleus terminated after ASSO/DATA INCREASE
18.43.51 STC08494 +ADAM97 00445 This ASCB/initiator will be terminated by MVS
18.43.51 STC08494 IEF404I AAFAI445 - ENDED - TIME=18.43.51
18.43.51 STC08494 IEF352I ADDRESS SPACE UNAVAILABLE
18.43.51 STC08494 $HASP395 AAFAI445 ENDED
0------ JES2 JOB STATISTICS ------
- 30 JUN 2010 JOB EXECUTION DATE
--------------------------------------------------------------------------------
OP=S CL=ALL IN=ALL JB=AAFAI445,08494 DS=1 SI=SM LR=1 LL=80 PP=0 DC= RL=999999
AD=J DE= SC= PT= SQ=C RR=0 OC= SD=2000 30.06.2010, 19:00:52 ******************************** BOTTOM OF DATA *******************************
Select Function: CONSOLE
Operand/Command: s aafai445
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Retrv Up Down Left Right18:44:16 ***** A D A B A S BASIC SERVICES ***** 2010-06-30
- Main Menu - PMAIN02
Code Basic Services Code Other Services
---- ---------------------- ---- ---------------------
A Session monitoring 1 Adabas Cache Facility
C Checkpoint maintenance 2 Delta Save Facility
F File maintenance 3 Trigger Maintenance
M Database maintenance 4 AOS Security
O Session opercoms 5 Transaction Manager
R Database report 6 Adabas Statistics
S Space calculation 7 Vista
? Help 8 Fastpath
. Exit 9 SAF Security
---- ---------------------- ---- ---------------------
Code ....... m
Database ... 445 (DB.D230.ADABASP1)
Command ==>
PF1----- PF2------ PF3------ PF4------ PF6----- PF7----- PF8----- PF12-----
Help Exit18:44:34 ***** A D A B A S BASIC SERVICES ***** 2010-06-30
- 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 .......... i
File No. ...... 0
Coupled File .. 0
Database ID ... 445 (DB.S445.ADABASP1)
Command ==>
PF1----- PF2------ PF3------ PF4------ PF6----- PF7----- PF8----- PF12-----
Help Exit Menu18:44:42 ***** A D A B A S BASIC SERVICES ***** 2010-06-30
DBID 445 - Increase/Decrease - PDMI002
Enter Parameters : Possible values:
Increase/Decrease .. i (I/D)
ASSO/DATA .. d (A/D)
Size .. 18704_____
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:45:16 ***** A D A B A S BASIC SERVICES ***** 2010-06-30
DBID 445 - 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:45:19 ***** A D A B A S BASIC SERVICES ***** 2010-06-30
- 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 ... 445 (DB.S445.ADABASP1)
EDMI06: Data has been increased by 18704 Cylinders
Command ==>
PF1----- PF2------ PF3------ PF4------ PF6----- PF7----- PF8----- PF12-----
Help Exit Menu ******************************** BOTTOM OF DATA *******************************
Select Function: CONSOLE
Operand/Command: s aafai445
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Retrv Up Down Left Right1 J E S 2 J O B L O G -- S Y S T E M C P A C -- N O
0
18.45.33 STC08501 ---- WEDNESDAY, 30 JUN 2010 ----
18.45.33 STC08501 IEF695I START AAFAI445 WITH JOBNAME AAFAI445 IS ASSIGNED TO
18.45.33 STC08501 $HASP373 AAFAI445 STARTED
18.45.33 STC08501 IEF403I AAFAI445 - STARTED - TIME=18.45.33
18.45.35 STC08501 +ADAN02 00445 Nucleus run without protection log
18.45.35 STC08501 +ADAL01 00445 2010-06-30 18:45:34 CLOG not active
18.45.35 STC08501 +ADAN03 00445 ADABAS coming up
18.45.36 STC08501 +ADAN19 00445 Buffer flush is a s y n c h r o n o u s
18.45.36 STC08501 +ADAN01 00445 A D A B A S V7.4.4 is active
18.45.36 STC08501 +ADAN01 00445 MODE = MULTI
18.45.36 STC08501 +ADAN01 00445 Running without recovery log
UQS0009 - END OF DATA SET.
1 //AAFAI445 JOB MSGLEVEL=1
2 //STARTING EXEC AAFAI445
3 XXAAFAI445 PROC ADA=N,LOG=P
XX*UQ ALLOW
XX* --------------------------------------------------------------
XX* BANCO DE DADOS 445 - BANCO DE HISTORICOS
XX* --------------------------------------------------------------
--------------------------------------------------------------------------------
OP=S CL=ALL IN=ALL JB=AAFAI445,08501 DS=1 SI=SM LR=1 LL=80 PP=0 DC= RL=999999
AD=J DE= SC= PT= SQ=C RR=0 OC= SD=2000 30.06.2010, 18:52:1819:03:23 ***** A D A B A S BASIC SERVICES ***** 2010-06-30
DBID 445 - Display Unused Storage - PDRU012
I Device I Total Number of I Extent in Blk. I
I Type I Blocks / Cyls. I from - until I
------I--------I------------------------- I----------------------------I
DATA I 8391 I 179395 2391 I 2971608 - 3151002 I
I 8391 I 2447128 32628 I 3326218 - 5773345 I
------I--------I------------------------- I----------------------------I
ASSO I 8391 I 19839 110 I 1258550 - 1278388 I
I 8391 I 10729 59 I 1278601 - 1289329 I
I 8391 I 154212 856 I 1309340 - 1463551 I
I 8391 I 3010818 16726 I 1759171 - 4769988 I
PF1----- PF2------ PF3------ PF4------ PF6----- PF7----- PF8----- PF12-----
Help Exit Menu
0 comentários:
Enviar um comentário