Version 7.4.4
 —  Utilities  —

JCL/JCS 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.

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

This document covers the following topics:


BS2000

Dataset Link Name Storage More Information
Associator DDASSORn disk required if ASSO is being zapped
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 (BS2000)

In SDF Format:

/BEGIN-PROC A
/REMA
/REMA SAMPLE JCL FOR ADAZAP
/REMA
/ASS-SYSOUT L.ADAZAP.OUT
/ASS-SYSLST L.ADAZAP.LST
/ASS-SYSDTA *SYSCMD
/SET-FILE-LINK DDLIB,ADABAS.Vvrs.MOD
/SET-FILE-LINK DDASSOR1,DByyyyyy.ASSOR1,SUP=DISK(SHARE-UPD=YES)
/SET-FILE-LINK DDDATAR1,DByyyyyy.DATAR1,SUP=DISK(SHARE-UPD=YES)
/SET-FILE-LINK DDWORKR1,DByyyyyy.WORKR1,SUP=DISK(SHARE-UPD=YES)
/STA-PROG *M(ADABAS.Vvrs.MOD,ADARUN),RUN-MODE=*ADV(ALT=Y)
ADARUN PROG=ADAZAP,DB=yyyyyy
ADAZAP MCODE=xxxxxxxxxx                      <<--- MASTER PASSWORD
ADAZAP ASSO RABN=1,OFFSET=X'10',LENGTH=16     <=== DISPLAY ASSO RABN 1 
ADAZAP ASSO
RABN=1,OFFSET=X'10',VER=X'C1C2',REP=X'C2C1'
ADAZAP ASSO RABN=1,OFFSET=X'10',LENGTH=16     <=== DISPLAY ASSO RABN 1
/SET-JOB-STEP
/ASS-SYSDTA *PRIM
/ASS-SYSLST *PRIM
/ASS-SYSOUT *PRIM
/END-PROC

In ISP Format:

/.ADAZAP PROC
 /OPTION MSG=FH,DUMP=YES
 /REMARK *
 /REMARK * SAMPLE JCL FOR ADAZAP    
 /REMARK *
 /SYSFILE SYSLST=L.ZAP
 /SYSFILE SYSDTA=(SYSCMD)
 /FILE ADAyyyyy.TEMP ,LINK=DDTEMPR1
 /FILE ADAyyyyy.SORT ,LINK=DDSORTR1
 /FILE ADAyyyyy.ASSO ,LINK=DDASSOR1
 /EXEC (ADARUN,ADA.MOD)
 ADAZAP MCODE=xxxxxxxxxx <<    MASTER PASSWORD
 ADAZAP ASSO RABN=1,OFFSET=X 10 ,LENGTH=16 <===DISPLAY ASSO RABN 1
 ADAZAP ASSO RABN=1,OFFSET=X 10 ,VER=X C1C2 ,REP=X C2C1 
 ADAZAP ASSO RABN=1,OFFSET=X 10 ,LENGTH=16 <===DISPLAY ASSO RABN 1
 /STEP
 /SYSFILE SYSDTA=()
 /SYSFILE SYSLST=()
 /ENDP

Top of page

OS/390 or z/OS

Dataset Link Name Storage More Information
Associator DDASSORn disk required if ASSO is being zapped
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

Example (OS/390 or z/OS)

//ADAZAP    JOB                                        
//*                                                                    
//ZAP       EXEC PGM=ADARUN                                            
//STEPLIB   DD   DISP=SHR,DSN=ADABAS.Vvrs.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 MVSJOBS dataset for this example.

Top of page

VM/ESA or z/VM

Dataset Link Name Storage More Information
Associator DDASSORn disk required if ASSO is being zapped
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

Example (VM/ESA or z/VM)

DATADEF DDASSOR1,DSN=ADABASVv.ASSO,VOL=ASSOV1    <=== ASSO
DATADEF DDDATAR1,DSN=ADABASVv.DATA,VOL=DATAV1    <=== DATA
DATADEF DDWORKR1,DSN=ADABASVv.WORK,VOL=WORKV1    <=== WORK
DATADEF DDPRINT,DSN=ADAZAP.DDPRINT,MODE=A
DATADEF DUMP,DUMMY      

DATADEF DDDRUCK,DSN=ADAZAP.DDDRUCK,MODE=A
DATADEF DDCARD,DSN=RUNZAP.CONTROL,MODE=A
DATADEF DDKARTE,DSN=ADAZAP.CONTROL,MODE=A
ADARUN        

Contents of RUNREP CONTROL A1:

ADARUN PROG=ADAZAP,DEVICE=dddd:        

Contents of ADAREP CONTROL A1:

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             

Top of page

VSE/ESA

Dataset Link Name Storage More Information
Associator ASSORn disk required if ASSO is being zapped
Data Storage DATARn disk required if DATA is being zapped
Work WORKRn disk required if WORK is being zapped
ADARUN parameters CARD reader Operations
ADAZAP parameters KARTE reader  
ADARUN messages PRINT printer Messages and Codes
ADAZAP messages DRUCK printer Messages and Codes

Example (VSE/ESA)

* $$ JOB JNM=ADAZAP,CLASS=A,DISP=D
* $$ LST CLASS=A,DISP=D
// JOB ADAZAP
*
// EXEC PROC=ADAVvLIB
// EXEC PROC=ADAVvFIL
// EXEC ADARUN,SIZE=ADARUN
ADARUN PROG=ADAZAP,MODE=MULTI,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
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
/*
/&
* $$ EOJ

Refer to member ADAZAP.X for this example.

See Procedures for VSE/ESA Examples for descriptions of the VSE/ESA procedures (PROCs).

Top of page