バージョン 8.1.3 検索   索引   目次   |   PDF BOOKS   |   ホーム   上へ   戻る   次へ
 —  ユーティリティ  —

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

このセクションでは、BS2000、z/OS、z/VM、および VSE システムで ADAFRM を実行するために必要なジョブ制御情報を説明し、各ジョブストリームの例を示します。

注意:
オプションの Recovery Aid（RLOG）で実行している場合は、すべての中間データセットがジョブ制御でもカタログされる必要があります。

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

BS2000

データセット リンク名 ストレージ 追加情報
アソシエータ DDASSORn ディスク フォーマット対象のデータセット
データストレージ DDDATARn    
ワーク DDWORKR1
DDWORKR4 		   
一時 DDTEMPR1    
ソート DDSORTRn    
マルチコマンドログ DDCLOGRn    
マルチプロテクションログ DDPLOGRn    
リカバリログ DDRLOGR1    
ADARUN パラメータ DDCARD   オペレーションマニュアル
ADAFRM パラメータ SYSDTA/ DDKARTE    
ADARUN メッセージ SYSOUT/ DDPRINT   メッセージおよびコード
ADAFRM メッセージ SYSLST/ DDDRUCK   メッセージおよびコード

ADAFRM JCL 例（BS2000）

SDF フォーマットの場合：

/.ADAFRM LOGON
/MODIFY-TEST-OPTIONS DUMP=YES
/REMARK *
/REMARK * A D A F R M ALL FUNCTIONS
/REMARK *

/ASS-SYSLST L.FRM
/ASS-SYSDTA *SYSCMD
/SET-FILE-LINK DDLIB,ADAvrs.MOD
/SET-FILE-LINK DDASSOR1,ADAyyyyy.ASSO,OPEN-MODE=OUTIN,BUFF-LEN=STD(1)
/SET-FILE-LINK DDDATAR1,ADAyyyyy.DATA,OPEN-MODE=OUTIN,BUFF-LEN=STD(2)
/SET-FILE-LINK DDWORKR1,ADAyyyyy.WORK,OPEN-MODE=OUTIN,BUFF-LEN=STD(2)
/SET-FILE-LINK DDTEMPR1,ADAyyyyy.TEMP,OPEN-MODE=OUTIN,BUFF-LEN=STD(2)
/SET-FILE-LINK DDSORTR1,ADAyyyyy.SORT,OPEN-MODE=OUTIN,BUFF-LEN=STD(2)
/SET-FILE-LINK DDPLOGR1,ADAyyyyy.PLOGR1,OPEN-MODE=OUTIN,BUFF-LEN=STD(2)
/SET-FILE-LINK DDPLOGR2,ADAyyyyy.PLOGR2,OPEN-MODE=OUTIN,BUFF-LEN=STD(2)
/SET-FILE-LINK DDRLOGR1,ADAyyyyy.RLOGR1,OPEN-MODE=OUTIN,BUFF-LEN=STD(2)
/START-PROGRAM *M(ADA.MOD,ADARUN),PR-MO=ANY
ADARUN PROG=ADAFRM,DB=yyyyy,IDTNAME=ADABAS5B
ADAFRM ASSOFRM SIZE=100
ADAFRM DATAFRM SIZE=200
ADAFRM WORKFRM SIZE=40
ADAFRM SORTFRM SIZE=25
ADAFRM TEMPFRM SIZE=10
ADAFRM PLOGFRM SIZE=40,NUMBER=1
ADAFRM PLOGFRM SIZE=40,NUMBER=2
ADAFRM RLOGFRM SIZE=10
/LOGOFF SYS-OUTPUT=DEL

ISP フォーマットの場合：

/.ADAFRM LOGON
/OPTION MSG=FH,DUMP=YES
/REMARK *
/REMARK * A D A F R M ALL FUNCTIONS
/REMARK *
/SYSFILE SYSLST=L.FRM
/FILE ADA.MOD,LINK=DDLIB
/FILE ADAyyyyy.ASSO ,LINK=DDASSOR1,OPEN=OUTIN,BLKSIZE=(STD,1)
/FILE ADAyyyyy.DATA ,LINK=DDDATAR1,OPEN=OUTIN,BLKSIZE=(STD,2)
/FILE ADAyyyyy.WORK ,LINK=DDWORKR1,OPEN=OUTIN,BLKSIZE=(STD,2)
/FILE ADAyyyyy.TEMP ,LINK=DDTEMPR1,OPEN=OUTIN,BLKSIZE=(STD,2)
/FILE ADAyyyyy.SORT ,LINK=DDSORTR1,OPEN=OUTIN,BLKSIZE=(STD,2)
/FILE ADAyyyyy.PLOGR1,LINK=DDPLOGR1,OPEN=OUTIN,BLKSIZE=(STD,2)
/FILE ADAyyyyy.PLOGR2,LINK=DDPLOGR2,OPEN=OUTIN,BLKSIZE=(STD,2)
/FILE ADAyyyyy.RLOGR1,LINK=DDRLOGR1,OPEN=OUTIN,BLKSIZE=(STD,2)
/EXEC (ADARUN,ADA.MOD)
ADARUN PROG=ADAFRM,DB=yyyyy,IDTNAME=ADABAS5B
ADAFRM ASSOFRM SIZE=100
ADAFRM DATAFRM SIZE=200
ADAFRM WORKFRM SIZE=40

ADAFRM SORTFRM SIZE=25
ADAFRM TEMPFRM SIZE=10
ADAFRM PLOGFRM SIZE=40,NUMBER=1
ADAFRM PLOGFRM SIZE=40,NUMBER=2
ADAFRM RLOGFRM SIZE=10
/LOGOFF NOSPOOL

Top of page

z/OS

データセット DD 名 ストレージ 追加情報
アソシエータ DDASSORn ディスク フォーマット対象のデータセット
データストレージ DDDATARn    
ワーク DDWORKR1
DDWORKR4 		   
一時 DDTEMPR1    
ソート DDSORTRn    
マルチコマンドログ DDCLOGRn    
マルチプロテクションログ DDPLOGRn    
リカバリログ DDRLOGR1    
ADARUN パラメータ DDCARD リーダー オペレーションマニュアル
ADAFRM パラメータ DDKARTE ディスク  
ADARUN メッセージ DDPRINT プリンタ メッセージおよびコード
ADAFRM メッセージ DDDRUCK プリンタ メッセージおよびコード

ADAFRM JCL 例（z/OS）

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

//ADAFRM    JOB
//*
//*     ALLOCATE AND FORMAT THE DATABASE COMPONENTS
//*
//*     MORE THAN ONE DATA SET CAN BE FORMATTED IN A SINGLE RUN
//*
//*

//FRM       EXEC PGM=ADARUN
//STEPLIB   DD   DISP=SHR,DSN=ADABAS.Vvrs.LOAD                <=== ADABAS LOAD
//*
//DDASSOR1  DD   DISP=(NEW,CATLG),DSN=EXAMPLE.DByyyyy.ASSOR1, <=== ASSO
//            SPACE=(CYL,(0,100)),UNIT=DISK,VOL=SER=VOL001
//DDDATAR1  DD   DISP=(NEW,CATLG),DSN=EXAMPLE.DByyyyy.DATAR1, <=== DATA
//            SPACE=(CYL,(0,200)),UNIT=DISK,VOL=SER=VOL002
//DDWORKR1  DD   DISP=(NEW,CATLG),DSN=EXAMPLE.DByyyyy.WORKR1, <=== WORK
//            SPACE=(CYL,(0,40)),UNIT=DISK,VOL=SER=VOL003
//DDSORTR1  DD   DISP=(NEW,CATLG),DSN=EXAMPLE.DByyyyy.SORTR1, <=== SORT
//            SPACE=(CYL,(0,100)),UNIT=DISK,VOL=SER=VOL003
//DDTEMPR1  DD   DISP=(NEW,CATLG),DSN=EXAMPLE.DByyyyy.TEMPR1, <=== TEMP
//            SPACE=(CYL,(0,100)),UNIT=DISK,VOL=SER=VOL003 
//DDPLOGR1  DD   DISP=(NEW,CATLG),DSN=EXAMPLE.DByyyyy.PLOGR1, <=== PLOG1
//            SPACE=(CYL,(50)),UNIT=DISK,VOL=SER=VOL003
//DDPLOGR2  DD   DISP=(NEW,CATLG),DSN=EXAMPLE.DByyyyy.PLOGR2, <=== PLOG2
//            SPACE=(CYL,(50)),UNIT=DISK,VOL=SER=VOL003
//DDCLOGR1  DD   DISP=(NEW,CATLG),DSN=EXAMPLE.DByyyyy.CLOGR1, <=== CLOG1
//            SPACE=(CYL,(50)),UNIT=DISK,VOL=SER=VOL003
//DDCLOGR2  DD   DISP=(NEW,CATLG),DSN=EXAMPLE.DByyyyy.CLOGR2, <=== CLOG2
//            SPACE=(CYL,(50)),UNIT=DISK,VOL=SER=VOL003
//DDDRUCK   DD   SYSOUT=X
//DDPRINT   DD   SYSOUT=X
//SYSUDUMP  DD   SYSOUT=X
//DDCARD    DD   *
ADARUN PROG=ADAFRM,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
//DDKARTE   DD   *
ADAFRM ASSOFRM SIZE=100,DEVICE=dddd
ADAFRM DATAFRM SIZE=200,DEVICE=dddd
ADAFRM WORKFRM SIZE=40,DEVICE=dddd
ADAFRM SORTFRM SIZE=100,DEVICE=dddd
ADAFRM TEMPFRM SIZE=100,DEVICE=dddd
ADAFRM PLOGFRM SIZE=50,NUMBER=1,DEVICE=dddd
ADAFRM PLOGFRM SIZE=50,NUMBER=2,DEVICE=dddd
ADAFRM CLOGFRM SIZE=50,NUMBER=1,DEVICE=dddd
ADAFRM CLOGFRM SIZE=50,NUMBER=2,DEVICE=dddd
/*

Top of page

z/VM

データセット DD 名 ストレージ 追加情報
アソシエータ DDASSORn ディスク フォーマット対象のデータセット
データストレージ DDDATARn    
ワーク DDWORKR1
DDWORKR4 		   
一時 DDTEMPR1    
ソート DDSORTRn    
マルチコマンドログ DDCLOGRn    
マルチプロテクションログ DDPLOGRn    
リカバリログ DDRLOGR1    
ADARUN パラメータ DDCARD ディスク／端末／リーダー オペレーションマニュアル
ADAFRM パラメータ DDKARTE ディスク／端末／リーダー  
ADARUN メッセージ DDPRINT ディスク／端末／プリンタ メッセージおよびコード
ADAFRM メッセージ DDDRUCK ディスク／端末／プリンタ メッセージおよびコード

ADAFRM JCL 例（z/VM）

DATADEF DDASSOR1,DSN=ADABASVv.ASSO,VOL=ASSOV1
DATADEF DDDATAR1,DSN=ADABASVv.DATA,VOL=DATAV1
DATADEF DDWORKR1,DSN=ADABASVv.WORK,VOL=WORKV1
DATADEF DDSORTR1,DSN=ADABASVv.SORT,VOL=SORTV1
DATADEF DDTEMPR1,DSN=ADABASVv.TEMP,VOL=TEMPV1
DATADEF DDPLOGR1,DSN=ADABASVv.PLOG1,VOL=PLOGV1
DATADEF DDPLOGR2,DSN=ADABASVv.PLOG2,VOL=PLOGV2
DATADEF DDRLOGR1,DSN=ADABASVv.RLOG1,VOL=RLOGV1
DATADEF DDPRINT,DSN=ADAFRM.DDPRINT,MODE=A
DATADEF DUMP,DUMMY
DATADEF DDDRUCK,DSN=ADAFRM.DDDRUCK,MODE=A
DATADEF DDCARD,DSN=RUNFRM.CONTROL,MODE=A
DATADEF DDKARTE,DSN=ADAFRM.CONTROL,MODE=A
ADARUN

RUNFRM CONTROL A1 の内容

ADARUN PROG=ADAFRM,DEVICE=dddd,DB=yyyyy

ADAFRM CONTROL A1 の内容

ADAFRM ASSOFRM SIZE=100
ADAFRM DATAFRM SIZE=200
ADAFRM WORKFRM SIZE=40
ADAFRM SORTFRM SIZE=25
ADAFRM TEMPFRM SIZE=10
ADAFRM PLOGFRM SIZE=40
ADAFRM PLOGFRM SIZE=40,NUMBER=2
ADAFRM RLOGFRM SIZE=10

Top of page

VSE

ファイル 記号名 ストレージ 論理ユニット 追加情報
アソシエータ ASSORn ディスク * フォーマットするファイル
データストレージ DATARn      
ワーク WORKR1      
一時 TEMPR1      
ソート SORTR1      
マルチコマンドログ CLOGRn      
マルチプロテクションログ PLOGRn      
リカバリログ RLOGR1      
ADARUN パラメータ -
CARD
CARD 		リーダー
テープ
ディスク 		SYSRDR
SYS000
* 		 
ADAFRM パラメータ - リーダー SYSIPT  
ADARUN メッセージ - プリンタ SYSLST メッセージおよびコード
ADAFRM メッセージ - プリンタ SYS009 メッセージおよびコード

* すべてのプログラマ論理ユニットを使用できます。

ADAFRM JCS 例（VSE）

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

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

* $$ JOB JNM=ADAFRM,CLASS=A,DISP=D
* $$ LST CLASS=A,DISP=D
// JOB ADAFRM
*       FORMAT THE DATABASE COMPONENTS
?/ EXEC PROC=ADAVvLIB
// EXEC PROC=ADAVvFIL
// EXEC ADARUN,SIZE=ADARUN
ADARUN PROG=ADAFRM,MODE=SINGLE,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
ADAFRM ASSOFRM SIZE=100,DEVICE=dddd
ADAFRM DATAFRM SIZE=200,DEVICE=dddd
ADAFRM WORKFRM SIZE=40,DEVICE=dddd
ADAFRM SORTFRM SIZE=100,DEVICE=dddd
ADAFRM TEMPFRM SIZE=100,DEVICE=dddd
ADAFRM PLOGFRM SIZE=50,NUMBER=1,DEVICE=dddd
ADAFRM PLOGFRM SIZE=50,NUMBER=2,DEVICE=dddd
ADAFRM CLOGFRM SIZE=50,NUMBER=1,DEVICE=dddd
ADAFRM CLOGFRM SIZE=50,NUMBER=2,DEVICE=dddd
/*
/&
* $$ EOJ

Top of page

 www.softwareag.com  Copyright © Software AG 1971-2008. All rights reserved.  検索   索引   目次   |   PDF BOOKS   |   ホーム   上へ   戻る   次へ