ADADEF NEWWORK: Defining a Work File

Como redimensionar o dataset Work

A partir dos manuais.

1 - Crie o novo dataset Work com o número correto de cilindros.
2 - ADAFRM é o utilitário que formata uma nova Work. Por exemplo: ADAFRM WORKFRM SIZE=3000,DEVICE=8393
3 - Shutdown o banco de dados (Nota a função ADADEF NEWWORK não pode ser executada se existe um autorestart pendente);
4 - Execute ADADEF NEWWORK. NOTA: A antiga Work deve ser especificada neste no JCL (ou alocar uma obra fictícia do mesmo tamanho e tipo de dispositivo, formatado). ADADEF atualiza GCB do Associator com o novo tamanho e tipo de dispositivo. Por exemplo: ADADEF Newwork WORKSIZE = 3000, WORKDEV = 8393
5 - Atualize na proc do banco o novo dataset de Work;
6 - Coloque no ar o banco de dados;

1 - Formatando a nova Work

Neste passo vamos formatar usando o ADAFRM

MEMBER=ADAFWORK 000019 REC SAVE:29.11.2012 11:37 BY   USERID AA99000  R=00000001
DSN=AAB.DIBD.JCLS                                LIB=S3 VOL=PRL303 UNIT=1126
....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8​
//AAFAFRMS  JOB (AAFA,DIBD),CLAUD,CLASS=S,MSGCLASS=X
//*UQ ALLOW
//* ------------------------------------------------------------
//*                     DEFINE AREA DE WORK
//* ------------------------------------------------------------
//FORMAT    EXEC PGM=ADARUN
//STEPLIB   DD   DSN=ADA5.LOADLIB,DISP=SHR
//* ------------------------------------------------------------
//DDWORKR1  DD   DISP=(NEW,CATLG),DSN=ADABAS.DBID072.WORK1, <=== WORK
//          SPACE=(CYL,(0,200)),UNIT=SYSDA,VOL=SER=ADSP03
//* ------------------------------------------------------------
//SYSUDUMP  DD   SYSOUT=A
//DDDRUCK   DD   SYSOUT=A
//DDPRINT   DD   SYSOUT=A
//DDCARD    DD   *
ADARUN PROG=ADAFRM,DBID=072
//DDKARTE   DD   *
ADAFRM WORKFRM SIZE=200,DEVICE=8391
/*

2 - Tirando o banco do ar

Retirando o banco do ar

k f aafai072,adaend
JOB     NUMBER     Q J O SYST  DEST     PRI  ST      LINES  FORM  FCB  FLASH
AAFAI072 S.09687   *X   - CPAC            15              0
AAFAI070 S.09289   *X   - CPAC            15              0
... 34 PERCENT SPOOL UTILIZATION.

3 - ADADEF NEWWORK WORKSIZE

Rodando o ADADEF para alterar internamente dentro do banco o tamanho da work do banco

MEMBER=ADADEFW  000013 REC SAVE:18.06.2008 11:04 BY   USERID AA99000  R=00000001
DSN=AAB.DIBD.JCLS                                LIB=S3 VOL=PRL303 UNIT=1024    
....+....1....+....2....+....3....+....4....+....5....+....6....
//AAFADEF JOB (AAFA,DIBD),KATIA,CLASS=S,MSGCLASS=A TUPRUN=HOLD                  
//*UQ ACCOUNT AABS                                                              
//* ----------------------------------------------------------                  
//*             DEFINE NOVA WORK PARA O BANCO                                  
//* ----------------------------------------------------------                  
//DEF       EXEC AAFAU072                                                      
//DDCARD    DD   *                                                              
ADARUN PROG=ADADEF,MODE=SINGLE,DBID=72                                
/*                                                                              
//DDKARTE   DD   *                                                              
ADADEF NEWWORK WORKSIZE=200,WORKDEV=8391                                      
/*

4 - Alterando a proc do banco

Vamos alterar a proc do banco, vamos colocar o novo dataset da WORK

MEMBER=AAFAI072 000021 REC SAVE:29.11.2012 12:00 BY   USERID AA99000  R=00000015
DSN=AAB.PROCLIB                                  LIB=PP VOL=PRL303 UNIT=1126
....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8​
//* ---------------------------------------------------------------
//*                ****   DATA SET'S DO ADABAS  ****
//* ---------------------------------------------------------------
//DDASSOR1   DD DISP=SHR,DSN=ADABAS.DBID072.ASSO1  <=== ASSO
//DDDATAR1   DD DISP=SHR,DSN=ADABAS.DBID072.DATA1  <=== DATA
//DDWORKR1   DD DISP=SHR,DSN=ADABAS.DBID072.WORK1  <=== WORK
//* ---------------------------------------------------------------

5 - Banco Online

Colocando o banco no ar

s aafai072
JOB     NUMBER     Q J O SYST  DEST     PRI  ST      LINES  FORM  FCB  FLASH
AAFAI072 S.09687    O B A                  7  H       1.387  STD
AAFAI070 S.09289   *X   - CPAC            15              0
... 34 PERCENT SPOOL UTILIZATION.

Depois de alguns segundos, banco online

JOB     NUMBER     Q J O SYST  DEST     PRI  ST      LINES  FORM  FCB  FLASH
AAFAI072 S.04199   *X   - CPAC            15              0
AAFAI070 S.09289   *X   - CPAC            15              0
... 34 PERCENT SPOOL UTILIZATION.

Checando o log do banco não tem nenhuma mensagem de erro;

1                       J E S 2  J O B  L O G  --  S Y S T E M  C P A C  --  N O
0
00.13.36 STC04199 ---- FRIDAY,    22 AUG 2014 ----
00.13.36 STC04199  IEF695I START AAFAI072 WITH JOBNAME AAFAI072 IS ASSIGNED TO
00.13.36 STC04199  $HASP373 AAFAI072 STARTED
00.13.36 STC04199  IEF403I AAFAI072 - STARTED - TIME=00.13.36
00.13.37 STC04199  ADAN02 00072 Nucleus run without protection log
00.13.37 STC04199  ADAL01 00072 2014-08-22 00:13:35 CLOG not active
00.13.37 STC04199  ADAN03 00072 ADABAS coming up
00.13.37 STC04199  ADAN19 00072 Buffer flush is  a s y n c h r o n o u s
00.13.37 STC04199  ADAN01 00072 A D A B A S  V7.4.4  is active
00.13.37 STC04199  ADAN01 00072 MODE = MULTI
00.13.37 STC04199  ADAN01 00072 Running without recovery log
UQS0009 - END OF DATA SET.

Categories: Adabas