Quando esta rodando um backup e por algum motivo o job abend ou ocorre o é cancelado por algum motivo o job fica fica "online" no banco, se você tentar rodar de novo o backup vai dar erro pois já tem um job de backup para o banco esta rodando para ele, mesmo não rodando o processo do backup internamente continua online, para conseguir rodar o backup de novo a saída temos duas saida, retirar pelo SYSAOS o jobname do backup ou rodar um job que faça isso, abaixo vamos colocar como se faz isso;
SYSAOS
O job do backup do banco já estava rodando e ocorreu um erro de cartucho dai o job do backup deu pau;
Dá para fazer em um JCL este procedimento todo, segue abaixo um exemplo;
SYSAOS
O job do backup do banco já estava rodando e ocorreu um erro de cartucho dai o job do backup deu pau;
03.39.26 JOB06932 *IEC501A M 0791,PRIVAT,SL,COMP,BKP177CL,AAFAUTIP.SAVE,ADABAS.
03.39.26 JOB06932 *CTS001 IEC501A M 0791,PRIVAT,SL,COMP,BKP177CL,AAFAUTIP.SAVE
03.40.46 JOB06932 CAT9040I TP0876 ON 0791 REJECTED BY CA-DYNAM/TLMS
03.40.46 JOB06932 CAT9041I VOLUME IS NOT A SCRATCH TAPE
03.40.46 JOB06932 IEC999I IFG0552B,BKP177CL,AAFAUTIP
03.40.46 JOB06932 IEA995I SYMPTOM DUMP OUTPUT 299
299 SYSTEM COMPLETION CODE=0C4 REASON CODE=00000004
299 TIME=03.40.46 SEQ=00480 CPU=0000 ASID=0078
299 PSW AT TIME OF ERROR 070C1000 00CC7BBC ILC 4 INTC 04
299 NO ACTIVE MODULE FOUND
299 NAME=UNKNOWN
299 DATA AT PSW 00CC7BB6 - C8C29680 A023D205 41F4A01C
299 GR 0: 00000000_0000000C 1: 00000000_00AA6B24
299 2: 00000000_00AA50E0 3: 00000000_00CC65D0
299 4: 00000000_00AA54A8 5: 00000000_00AA6840
299 6: 00000000_00AA574C 7: 00000000_00AA57A4
299 8: 00000000_00AA576C 9: 00000000_00AB83D8
299 A: 00000000_00AB0E60 B: 00000000_00CC8310
299 C: 00000000_00CC7310 D: 00000000_00AA69A8
299 E: 00000000_00CC77A0 F: 00000010_00000000
299 END OF SYMPTOM DUMP
--------------------------------------------------------------------------------
OP=S CL=ALL IN=ALL JB=BKP177CL,06932 DS=1 SI=SM LR=33 LL=80 PP=0 DC=
RL=999999 AD=J DE= SC= PT= SQ=C RR=0 OC= SD=200003:57:00 ***** A D A B A S BASIC SERVICES ***** 2010-07-01
Isolated - 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 ....... o
Database ... 177 (DB.PROD.SINTEGRA)
Command ==>
PF1----- PF2------ PF3------ PF4------ PF6----- PF7----- PF8----- PF12-----
Help Exit03:57:00 ***** A D A B A S BASIC SERVICES ***** 2010-07-01
Isolated - Main Menu - PMAIN02
Code Service Code Service
---- ------------------------------ ---- ------------------------------
E Extended Error Recovery T Termination Commands
F Force CLOG or PLOG switch U Manage Online Utilities
L Lock or unlock files V User Table Maintenance
R Reset ONLINE-DUMP-Status X Replicator Management
S Stop user(s)
? Help
. Exit
---- ------------------------------ ---- ------------------------------
Code ........... s
Userid(ETID) ... ________
CLOG/PLOG Ind .. _
Database ID .... 177 (DB.P177.SINTEGRA)
Command ==>
PF1----- PF2------ PF3------ PF4------ PF6----- PF7----- PF8----- PF12-----
Help Exit Menu23:11:45 ***** A D A B A S BASIC SERVICES ***** 2010-04-14
- Stop Users - PACIS02
Code Service
---- -----------------------
F Stop users using file
I Stop inactive users
J Stop users by jobname
U Stop a selected user
? Help
. Exit
---- -----------------------
Code ............. _
File Number ...... _____
Last Activity .... ________ (elapsed time in seconds)
Job Name ......... ________
Purge UQE(s) ..... N
Selected Userid ..
Database ID ...... 177 (DB.P177.SINTEGRA)
Command ==>
PF1----- PF2------ PF3------ PF4------ PF6----- PF7----- PF8----- PF12-----
Help Disp UQ Exit Clear UID Menu22:54:33 ***** A D A B A S BASIC SERVICES ***** 2010-04-14
DBID 177 - Display User Queue - PACQA32
SEL-CRIT: MAX-NUM = 100
Total Users .. 24
Mark entries with 'D' (Display) or 'S' (Select):
I I I I User I I Last I I
M I TID I ET-ID I Job Name I Type I Status I Activity I File(s) I
-----------------------------------------------------------------------------
s I C5D48349 I I BKP177CL I UTI I I 2723 I None I
_ I C5CD7FFE I I BROKER01 I ET I ET I 84 I 39,57,61.. I
_ I C5CD7FFE I I BROKER01 I ET I ET I 16 I 39,57,61.. I
_ I C5D17109 I I BROKER02 I ET I ET I 27 I 17,27,33.. I
_ I C5D17109 I I BROKER02 I ET I ET I 101 I 15 I
_ I C5D19CA1 I I BROKER03 I ET I ET I 27 I 80,93,99.. I
_ I C5D19CC3 I I BROKER03 I ET I ET I 27 I 39,80,90.. I
_ I C5D2A263 I I BROKER02 I ET I ET I 8 I 33,39,105. I
_ I C5D2A263 I I BROKER02 I ET I ET I 751 I 15 I
_ I C5D2A281 I I BROKER02 I ET I ET I 34 I 33,39,105. I
_ I ELNS®'6? I I BROKER00 I ET I ET I 33 I 15,39,63.. I
_ I ELNS®=çb I I BROKER00 I ET I ET I 33 I 8,15 I
PF1----- PF2------ PF3------ PF4------ PF6----- PF7----- PF8----- PF12-----
Help Exit Refresh - + Menu22:54:48 ***** A D A B A S BASIC SERVICES ***** 2010-04-14
- Stop Users - PACIS02
Code Service
---- -----------------------
F Stop users using file
I Stop inactive users
J Stop users by jobname
U Stop a selected user
? Help
. Exit
---- -----------------------
Code ............. u
File Number ...... _____
Last Activity .... ________ (elapsed time in seconds)
Job Name ......... ________
Purge UQE(s) ..... N
Selected Userid .. C5D48349
Database ID ...... 177 (DB.P177.SINTEGRA)
Command ==>
PF1----- PF2------ PF3------ PF4------ PF6----- PF7----- PF8----- PF12-----
Help Disp UQ Exit Clear UID Menu22:55:01 ***** A D A B A S BASIC SERVICES ***** 2010-04-14
Isolated - 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 ... 177 (DB.P177.SINTEGRA)
MENU04 : 'Session Opercoms' function interrupted
Command ==>
PF1----- PF2------ PF3------ PF4------ PF6----- PF7----- PF8----- PF12-----
Help Exit22:55:13 ***** A D A B A S BASIC SERVICES ***** 2010-04-14
- 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 .......... r
File No. ...... 0
Coupled File .. 0
Database ID ... 177 (DB.P177.SINTEGRA)
Command ==>
PF1----- PF2------ PF3------ PF4------ PF6----- PF7----- PF8----- PF12-----
Help Exit Menu22:55:48 ***** A D A B A S BASIC SERVICES ***** 2010-04-14
Isolated - 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 ....... o
Database ... 177 (DB.P177.SINTEGRA)
Command ==>
PF1----- PF2------ PF3------ PF4------ PF6----- PF7----- PF8----- PF12-----
Help Exit22:55:57 ***** A D A B A S BASIC SERVICES ***** 2010-04-14
- Session Opercoms - PACI002
Code Service Code Service
---- ------------------------------ ---- ------------------------------
E Extended Error Recovery T Termination Commands
F Force CLOG or PLOG switch U Manage Online Utilities
L Lock or unlock files V User Table Maintenance
R Reset ONLINE-DUMP-Status X Replicator Management
S Stop user(s)
? Help
. Exit
---- ------------------------------ ---- ------------------------------
Code ........... r
Userid(ETID) ... ________
CLOG/PLOG Ind .. _
Database ID .... 177 (DB.P177.SINTEGRA)
Command ==>
PF1----- PF2------ PF3------ PF4------ PF6----- PF7----- PF8----- PF12-----
Help Exit Menu22:56:12 ***** A D A B A S BASIC SERVICES ***** 2010-04-14
- 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 .......... r
File No. ...... 0
Coupled File .. 0
Database ID ... 177 (DB.P177.SINTEGRA)
Command ==>
PF1----- PF2------ PF3------ PF4------ PF6----- PF7----- PF8----- PF12-----
Help Exit Menu22:56:17 ***** A D A B A S BASIC SERVICES ***** 2010-04-14
DBID 177 - List/Reset DIB Entries - PDMR002
Mark entries with 'R' to Reset, 'D' to Display:
M I Job Name I ID I Start Time I Locked Files I
------------------------------------------------------------------------------
r I BKP177CL I 3853 I 22:09:01 I ALL I
_ I I I I I
_ I I I I I
_ I I I I I
_ I I I I I
_ I I I I I
_ I I I I I
_ I I I I I
_ I I I I I
_ I I I I I
_ I I I I I
_ I I I I I
PF1----- PF2------ PF3------ PF4------ PF6----- PF7----- PF8----- PF12-----
Help Exit Menu22:56:23 ***** A D A B A S BASIC SERVICES ***** 2010-04-14
- 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 ... 177 (DB.P177.SINTEGRA)
EPDMR01 : DIB block is currently empty
Command ==>
PF1----- PF2------ PF3------ PF4------ PF6----- PF7----- PF8----- PF12-----
Help Exit MenuDá para fazer em um JCL este procedimento todo, segue abaixo um exemplo;
MEMBER=ADADBS1 000013 REC SAVE:08.09.2015 16:12 BY USERID AA01055 R=00000001
DSN=AAB.ADABAS.JCLS LIB=S4 VOL=PRL303 UNIT=1126
....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
//AAFSNATB JOB (AAFA,DIBD),CLAU,CLASS=S,MSGCLASS=A TYPRUN=HOLD
//*UQ ALLOW
//* ----------------------------------------------------
//* TIRAR BACKUP PRESO - PARA LIBERAR DO BANCO
//* ----------------------------------------------------
//ADADBS EXEC AAFAU240
//DDCARD DD *
ADARUN PROG=ADADBS,DBID=240
//DDKARTE DD *
ADADBS RESETDIB JOB="JOBNAME"
ADADBS OPERCOM STOPU="JOBNAME"
ADADBS OPERCOM RDUMPST
/*
0 comentários:
Enviar um comentário