JCL Requirements and Examples

Below are sample jobs to use the ADAZAP utility. They can be used to change the contents of a specific Adabas RABN in DATA, ASSO, or WORK.

  • Specify the RABN, the offset, and the values to be replaced in hexadecimal.

  • To obtain the master password, contact your local support center.

Important:
This utility must be used carefully. Any misuse may lead to serious problems.

This document covers the following topics:

Requirements to Run ADAZAP JCL

Data Set DD Name Storage More Information
Associator DDASSORn disk required if ASSO is being zapped and for all other operations. Must always be specified.
Data Storage DDDATARn disk required if DATA is being zapped
Work DDWORKRn disk required if WORK is being zapped
ADARUN parameters DDCARD reader Operations
ADAZAP parameters DDKARTE reader  
ADARUN messages DDPRINT printer Messages and Codes
ADAZAP messages DDDRUCK printer Messages and Codes

ADAZAP JCL Example

//ADAZAP    JOB                                        
//*                                                                    
//ZAP       EXEC PGM=ADARUN                                            
//STEPLIB   DD   DISP=SHR,DSN=ADABAS.ADAvrs.LOAD       <=== ADABAS LOAD
//*                                                                    
//DDASSOR1  DD   DISP=SHR,DSN=EXAMPLE.DByyyyy.ASSOR1 <=== ASSO      
//DDDATAR1  DD   DISP=SHR,DSN=EXAMPLE.DByyyyy.DATAR1 <=== DATA      
//DDWORKR1  DD   DISP=SHR,DSN=EXAMPLE.DByyyyy.WORKR1 <=== WORK      
//DDDRUCK   DD   SYSOUT=X                                              
//DDPRINT   DD   SYSOUT=X                                              
//SYSUDUMP  DD   SYSOUT=X                                              
//DDCARD    DD   *                                                     
ADARUN PROG=ADAZAP,MODE=MULTI,SVC=xxx,DEVICE=dddd,DBID=yyyyy           
//DDKARTE  DD   *                                                      
  ADAZAP MCODE=mmmmmmmm                              <<--- MASTER PASSWORD                   
  ADAZAP ASSO RABN=1,OFFSET=X'10',LENGTH=16          <=== DISPLAY ASSO RABN 1  
  ADAZAP ASSO RABN=1,OFFSET=X'10',VER='C1C2',REP=X'C2C1'     
  ADAZAP ASSO RABN=1,OFFSET=X'10',LENGTH=16          <=== DISPLAY ASSO RABN 1  
/*

Refer to ADAZAP in the JOBS data set for this example.