
	バージョン 8.1.3	検索索引目次 \| PDF BOOKS \| ホーム上へ戻る次へ

— ユーティリティ —

JCL/JCS の必要項目と指定例

ADAZAP ユーティリティを使用するためのサンプルジョブを以下に示します。 DATA、ASSO、または WORK にある特定の Adabas RABN の内容を変更するために使用することができます。

RABN、オフセット、および置き換える値は 16 進数で指定してください。
マスタパスワードを取得するには、お近くのサポート部門に連絡してください。

重要:
このユーティリティは慎重に使用する必要があります。誤って使用すると深刻な問題を引き起こす可能性があります。

このドキュメントでは、次のトピックについて説明します。

BS2000
z/OS
z/VM
VSE

BS2000

データセット	リンク名	ストレージ	追加情報
アソシエータ	DDASSOR`n`	ディスク	ASSO が ZAP されている場合に必要
データストレージ	DDDATAR`n`	ディスク	DATA が ZAP されている場合に必要
ワーク	DDWORKR`n`	ディスク	WORK が ZAP されている場合に必要
ADARUN パラメータ	DDCARD	リーダー	オペレーションマニュアル
ADAZAP パラメータ	DDKARTE	リーダー
ADARUN メッセージ	DDPRINT	プリンタ	メッセージおよびコード
ADAZAP メッセージ	DDDRUCK	プリンタ	メッセージおよびコード

ADAZAP JCL の例（BS2000）

SDF フォーマットの場合：

/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

ISP フォーマットの場合：

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

z/OS

データセット	リンク名	ストレージ	追加情報
アソシエータ	DDASSORn	ディスク	ASSO が ZAP されている場合に必要
データストレージ	DDDATARn	ディスク	DATA が ZAP されている場合に必要
ワーク	DDWORKRn	ディスク	WORK が ZAP されている場合に必要
ADARUN パラメータ	DDCARD	リーダー	オペレーションマニュアル
ADAZAP パラメータ	DDKARTE	リーダー
ADARUN メッセージ	DDPRINT	プリンタ	メッセージおよびコード
ADAZAP メッセージ	DDDRUCK	プリンタ	メッセージおよびコード

例（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  
/*

この例については、MVSJOBS データセットの ADAZAP を参照してください。

z/VM

データセット	リンク名	ストレージ	追加情報
アソシエータ	DDASSORn	ディスク	ASSO が ZAP されている場合に必要
データストレージ	DDDATARn	ディスク	DATA が ZAP されている場合に必要
ワーク	DDWORKRn	ディスク	WORK が ZAP されている場合に必要
ADARUN パラメータ	DDCARD	リーダー	オペレーションマニュアル
ADAZAP パラメータ	DDKARTE	リーダー
ADARUN メッセージ	DDPRINT	プリンタ	メッセージおよびコード
ADAZAP メッセージ	DDDRUCK	プリンタ	メッセージおよびコード

例（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

RUNREP CONTROL A1 の内容

ADARUN PROG=ADAZAP,DEVICE=dddd:

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

VSE

データセット	リンク名	ストレージ	追加情報
アソシエータ	ASSOR`n`	ディスク	ASSO が ZAP されている場合に必要
データストレージ	DATAR`n`	ディスク	DATA が ZAP されている場合に必要
ワーク	WORKR`n`	ディスク	WORK が ZAP されている場合に必要
ADARUN パラメータ	CARD	リーダー	オペレーションマニュアル
ADAZAP パラメータ	KARTE	リーダー
ADARUN メッセージ	PRINT	プリンタ	メッセージおよびコード
ADAZAP メッセージ	DRUCK	プリンタ	メッセージおよびコード

例（VSE）

* $$ 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

この例については、メンバ ADAZAP.X を参照してください。

VSE プロシージャ（PROC）については「VSE 用のライブラリおよびファイルプロシージャの例」を参照してください。

検索索引目次 | PDF BOOKS | ホーム上へ戻る次へ