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

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

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

注意:
RESTRUCTURExx または STORE 機能用のオプションの Recovery Aid（ADARAI）を使用して実行している場合は、中間データセットもすべてジョブ制御にカタログする必要があります。

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

BS2000

データセット リンク名 ストレージ 追加情報
アソシエータ DDASSORn ディスク  
データストレージ DDDATARn ディスク  
中間ストレージ DDFILEA テープ／ディスク  
リカバリログ（RLOG） DDRLOGR1 ディスク  
ADARUN パラメータ DDCARD   オペレーションマニュアル
ADAORD パラメータ SYS/DTA/DDKARTE    
ADARUN メッセージ SYSOUT/ DDPRINT   メッセージおよびコード
ADAORD メッセージ SYSLST/ DDDRUCK   メッセージおよびコード

ADAORD JCL の例（BS2000）

ファイルデータストレージのリオーダ、ファイルのリオーダ、データのリオーダ、データベースのリオーダ

SDF フォーマットの場合：

/.ADAORD LOGON
 /MODIFY-TEST-OPTIONS DUMP=YES
 /REMARK *
 /REMARK * A D A O R D REORDER FILE DATA, REORDER FILE, REORDER DATA
 /REMARK * REORDER DATABASE
 /REMARK *
 /DELETE-FILE ADAyyyyy.FILEA
 /SET-JOB-STEP
 /CREATE-FILE ADAyyyyy.FILEA,PUB(SPACE=(4800,480))
 /SET-JOB-STEP
 /ASS-SYSLST L.ORD.DATA
 /ASS-SYSDTA *SYSCMD
 /SET-FILE-LINK DDLIB,ADAvrs.MOD
 /SET-FILE-LINK DDASSOR1,ADAyyyyy.ASSO,SHARE-UPD=YES
 /SET-FILE-LINK DDDATAR1,ADAyyyyy.DATA,SHARE-UPD=YES
 /SET-FILE-LINK DDWORKR1,ADAyyyyy.WORK,SHARE-UPD=YES
 /SET-FILE-LINK DDFILEA,ADAyyyyy.FILEA              
 /START-PROGRAM *M(ADA.MOD,ADARUN),PR-MO=ANY
 ADARUN PROG=ADAORD,DB=yyyyy,IDTNAME=ADABAS5B
 ADAORD REORDATA FILE=1,DSSIZE=80,DATAPFAC=30
 /LOGOFF SYS-OUTPUT=DEL

ISP フォーマットの場合：

/.ADAORD LOGON
 /OPTION MSG=FH,DUMP=YES
 /REMARK *
 /REMARK * A D A O R D REORDER FILE DATA, REORDER FILE, REORDER DATA
 /REMARK * REORDER DATABASE
 /REMARK *
 /SYSFILE SYSLST=L.ORD.DATA
 /FILE ADA.MOD,LINK=DDLIB
 /FILE ADAyyyyy.ASSO ,LINK=DDASSOR1,SHARUPD=YES
 /FILE ADAyyyyy.DATA ,LINK=DDDATAR1,SHARUPD=YES
 /FILE ADAyyyyy.WORK ,LINK=DDWORKR1,SHARUPD=YES
 /FILE ADAyyyyy.FILEA ,LINK=DDFILEA ,SPACE=(4800,480)
 /EXEC (ADARUN,ADA.MOD)
 ADARUN PROG=ADAORD,DB=yyyyy,IDTNAME=ADABAS5B
 ADAORD REORDATA FILE=1,DSSIZE=80,DATAPFAC=30
 /LOGOFF NOSPOOL

アソシエータのリオーダ

SDF フォーマットの場合：

/.ADAORD LOGON
 /MODIFY-TEST-OPTIONS DUMP=YES
 /REMARK *
 /REMARK * A D A O R D REORDER FILE ASSO, REORDER ASSO
 /REMARK *
 /DELETE-FILE ADAyyyyy.FILEA
 /SET-JOB-STEP
 /CREATE-FILE ADAyyyyy.FILEA,PUB(SPACE=(4800,480))
 /SET-JOB-STEP
 /ASS-SYSLST L.ORD.REOR
 /ASS-SYSDTA *SYSCMD
 /SET-FILE-LINK DDLIB,ADAvrs.MOD
 /SET-FILE-LINK DDASSOR1,ADAyyyyy.ASSO,SHARE-UPD=YES
 /SET-FILE-LINK DDDATAR1,ADAyyyyy.DATA,SHARE-UPD=YES
 /SET-FILE-LINK DDFILEA,ADAyyyyy.FILEA              
 /START-PROGRAM *M(ADA.MOD,ADARUN),PR-MO=ANY
 ADARUN PROG=ADAORD,DB=yyyyy,IDTNAME=ADABAS5B
 ADAORD REORFASSO
 ADAORD FILE=1,MAXISN=20000,NISIZE=300B
 ADAORD FILE=3,NISIZE=400B,ASSOPFAC=2
 /LOGOFF SYS-OUTPUT=DEL

ISP フォーマットの場合：

/.ADAORD LOGON
 /OPTION MSG=FH,DUMP=YES
 /REMARK *
 /REMARK * A D A O R D REORDER FILE ASSO, REORDER ASSO
 /REMARK *
 /SYSFILE SYSLST=L.ORD.REOR
 /FILE ADA.MOD,LINK=DDLIB
 /FILE ADAyyyyy.ASSO ,LINK=DDASSOR1,SHARUPD=YES
 /FILE ADAyyyyy.DATA ,LINK=DDDATAR1,SHARUPD=YES
 /FILE ADAyyyyy.FILEA ,LINK=DDFILEA ,SPACE=(4800,480)
 /EXEC (ADARUN,ADA.MOD)
 ADARUN PROG=ADAORD,DB=yyyyy,IDTNAME=ADABAS5B
 ADAORD REORFASSO
 ADAORD FILE=1,MAXISN=20000,NISIZE=300B
 ADAORD FILE=3,NISIZE=400B,ASSOPFAC=2
 /LOGOFF NOSPOOL

再構築

SDF フォーマットの場合：

/.ADAORD LOGON
 /MODIFY-TEST-OPTIONS DUMP=YES
 /REMARK *
 /REMARK * A D A O R D RESTRUCTURE
 /REMARK *
 /DELETE-FILE ADAyyyyy.FILEA
 /SET-JOB-STEP
 /CREATE-FILE ADAyyyyy.FILEA,PUB(SPACE=(4800,480))
 /SET-JOB-STEP
 /ASS-SYSLST L.ORD.REST
 /ASS-SYSDTA *SYSCMD
 /SET-FILE-LINK DDLIB,ADAvrs.MOD
 /SET-FILE-LINK DDASSOR1,ADAyyyyy.ASSO,SHARE-UPD=YES
 /SET-FILE-LINK DDRLOGR1,ADAyyyyy.RLOGR1,SHARE-UPD=YES
 /SET-FILE-LINK DDFILEA,ADAyyyyy.FILEA              
 /START-PROGRAM *M(ADA.MOD,ADARUN),PR-MO=ANY
 ADARUN PROG=ADAORD,DB=yyyyy,IDTNAME=ADABAS5B
 ADAORD RESTRUCTUREF
 ADAORD FILE=1,DATADEV=dddd
 /LOGOFF SYS-OUTPUT=DEL

ISP フォーマットの場合：

/.ADAORD LOGON
 /OPTION MSG=FH,DUMP=YES
 /REMARK *
 /REMARK * A D A O R D RESTRUCTURE
 /REMARK *
 /SYSFILE SYSLST=L.ORD.REST
 /FILE ADA.MOD,LINK=DDLIB
 /FILE ADAyyyyy.ASSO ,LINK=DDASSOR1,SHARUPD=YES
 /FILE ADAyyyyy.RLOGR1 ,LINK=DDRLOGR1,SHARUPD=YES
 /FILE ADAyyyyy.FILEA ,LINK=DDFILEA ,SPACE=(4800,480)
 /EXEC (ADARUN,ADA.MOD)
 ADARUN PROG=ADAORD,DB=yyyyy,IDTNAME=ADABAS5B
 ADAORD RESTRUCTUREF
 ADAORD FILE=1,DATADEV=dddd
 /LOGOFF NOSPOOL

格納

SDF フォーマットのテープの例：

/.ADAORD LOGON
 /MODIFY-TEST-OPTIONS DUMP=YES
 /REMARK *
 /REMARK * A D A O R D STORE
 /REMARK *
 /DELETE-FILE ADAyyyyy.FILEA
 /SET-JOB-STEP
 /REMARK Here, a tape has already been initialized in TSOS by
 /REMARK  /START-INIT                                       
 /REMARK  INIT T-C4,VSN=ADA001,UNIT=M0 or M1
 /REMARK  END  
 /CREATE-FILE ADAyyyyy.FILEA,SUP=TAPE(DEVICE=TAPE-C4,VOL=ADA001)
 /SET-JOB-STEP
 /ASS-SYSLST L.ORD.STOR
 /ASS-SYSDTA *SYSCMD
 /SET-FILE-LINK DDLIB,ADAvrs.MOD
 /SET-FILE-LINK DDASSOR1,ADAyyyyy.ASSO,SHARE-UPD=YES
 /SET-FILE-LINK DDDATAR1,ADAyyyyy.DATA,SHARE-UPD=YES
 /SET-FILE-LINK DDRLOGR1,ADAyyyyy.RLOGR1,SHARE-UPD=YES
 /REMARK Do not set the BUFFER-SIZE option for this file
 /SET-FILE-LINK DDFILEA,ADAyyyyy.FILEA 
 /REMARK
 /REMARK  Here, using TAPEREL=NO, the tape will remain
 /REMARK  mounted This must be done from the console.
 /REMARK  if the tape is to be dismounted, omit this
 /REMARK  parameter
 /REMARK              
 /START-PROGRAM *M(ADA.MOD,ADARUN),PR-MO=ANY
 ADARUN PROG=ADAORD,DB=yyyyy,IDTNAME=ADABAS5B,TAPEREL=NO
 ADAORD STORE
 ADAORD FILE=1,DSSIZE=80,DATAPFAC=30,DSRABN=1234
 ADAORD MAXISN=200000
 /LOGOFF SYS-OUTPUT=DEL

ISP フォーマットのテープの例：

/.ADAORD LOGON
 /OPTION MSG=FH,DUMP=YES
 /REMARK *
 /REMARK * A D A O R D STORE
 /REMARK *
 /SYSFILE SYSLST=L.ORD.STOR
 /FILE ADA.MOD,LINK=DDLIB
 /FILE ADAyyyyy.ASSO ,LINK=DDASSOR1,SHARUPD=YES
 /FILE ADAyyyyy.DATA ,LINK=DDDATAR1,SHARUPD=YES
 /FILE ADAyyyyy.RLOGR1 ,LINK=DDRLOGR1,SHARUPD=YES
 /REMARK Here, a tape has already been initialized in TSOS by
 /REMARK  /START-INIT                                       
 /REMARK  INIT T-C4,VSN=ADA001,UNIT=M0 or M1
 /REMARK  END  
 /REMARK Do not set the BLKSIZE option for this file
 /FILE ADAyyyyy.FILEA ,LINK=DDFILEA ,DEVICE=TAPE-C4,VOLUME=ADA001,LABEL=STD
 /REMARK
 /REMARK  Here, using TAPEREL=NO, the tape will remain
 /REMARK  mounted This must be done from the console.
 /REMARK  if the tape is to be dismounted, omit this
 /REMARK  parameter
 /REMARK      
 /EXEC (ADARUN,ADA.MOD)
 ADARUN PROG=ADAORD,DB=yyyyy,IDTNAME=ADABAS5B,TAPEREL=NO
 ADAORD STORE
 ADAORD FILE=1,DSSIZE=80,DATAPFAC=30,DSRABN=1234
 ADAORD MAXISN=200000
 /LOGOFF NOSPOOL

SDF フォーマットのテープ以外の例：

/.ADAORD LOGON
 /MODIFY-TEST-OPTIONS DUMP=YES
 /REMARK *
 /REMARK * A D A O R D STORE
 /REMARK *
 /DELETE-FILE ADAyyyyy.FILEA
 /SET-JOB-STEP
 /CREATE-FILE ADAyyyyy.FILEA,PUB(SPACE=(4800,480))
 /SET-JOB-STEP
 /ASS-SYSLST L.ORD.STOR
 /ASS-SYSDTA *SYSCMD
 /SET-FILE-LINK DDLIB,ADAvrs.MOD
 /SET-FILE-LINK DDASSOR1,ADAyyyyy.ASSO,SHARE-UPD=YES
 /SET-FILE-LINK DDDATAR1,ADAyyyyy.DATA,SHARE-UPD=YES
 /SET-FILE-LINK DDRLOGR1,ADAyyyyy.RLOGR1,SHARE-UPD=YES
 /SET-FILE-LINK DDFILEA,ADAyyyyy.FILEA              
 /START-PROGRAM *M(ADA.MOD,ADARUN),PR-MO=ANY
 ADARUN PROG=ADAORD,DB=yyyyy,IDTNAME=ADABAS5B
 ADAORD STORE
 ADAORD FILE=1,DSSIZE=80,DATAPFAC=30,DSRABN=1234
 ADAORD MAXISN=200000
 /LOGOFF SYS-OUTPUT=DEL

ISP フォーマットのテープ以外の例：

/.ADAORD LOGON
 /OPTION MSG=FH,DUMP=YES
 /REMARK *
 /REMARK * A D A O R D STORE
 /REMARK *
 /SYSFILE SYSLST=L.ORD.STOR
 /FILE ADA.MOD,LINK=DDLIB
 /FILE ADAyyyyy.ASSO ,LINK=DDASSOR1,SHARUPD=YES
 /FILE ADAyyyyy.DATA ,LINK=DDDATAR1,SHARUPD=YES
 /FILE ADAyyyyy.RLOGR1 ,LINK=DDRLOGR1,SHARUPD=YES
 /FILE ADAyyyyy.FILEA ,LINK=DDFILEA ,SPACE=(4800,480)
 /EXEC (ADARUN,ADA.MOD)
 ADARUN PROG=ADAORD,DB=yyyyy,IDTNAME=ADABAS5B
 ADAORD STORE
 ADAORD FILE=1,DSSIZE=80,DATAPFAC=30,DSRABN=1234
 ADAORD MAXISN=200000
 /LOGOFF NOSPOOL

Top of page

z/OS

データセット DD 名 ストレージ 追加情報
アソシエータ DDASSORn ディスク  
データストレージ DDDATARn ディスク REORASSO または
REORFASSO には使用しない
中間ストレージ DDFILEA テープ／ディスク  
リカバリログ（RLOG） DDRLOGR1 ディスク ADARAI オプションの使用時に必要
ADARUN パラメータ DDCARD リーダー オペレーションマニュアル
ADAORD パラメータ DDKARTE リーダー  
ADARUN メッセージ DDPRINT プリンタ メッセージおよびコード
ADAORD メッセージ DDDRUCK プリンタ メッセージおよびコード

ADAORD JCL の例（z/OS）

ファイルアソシエータのリオーダ

//ADAORDA   JOB
//*
//*     ADAORD: REORDER FILE ASSO,
//*              REORDER ASSO
//*
//ORD      EXEC PGM=ADARUN
//STEPLIB   DD   DISP=SHR,DSN=ADABAS.Vvrs.LOAD       <=== ADABAS LOAD
//*
//DDASSOR1  DD   DISP=SHR,DSN=EXAMPLE.DByyyyy.ASSOR1 <=== ASSO
//DDFILEA   DD   DSN=&&DDFILEA,DISP=(,PASS), <===INTERMEDIATE
//          UNIT=SYSDA,VOL=SER=vvvvvv,SPACE=(CYL,NN)          STORAGE
//DDDRUCK   DD   SYSOUT=X
//DDPRINT   DD   SYSOUT=X
//SYSUDUMP  DD   SYSOUT=X
//DDCARD    DD   *
ADARUN PROG=ADAORD,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
//DDKARTE   DD   *
ADAORD REORFASSO
ADAORD FILE=1,ASSOPFAC=15,MAXISN=10000
/*

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

ファイルデータストレージのリオーダ、ファイルのリオーダ、データのリオーダ、データベースのリオーダ

//ADAORDD   JOB
//*
//*     ADAORD: REORDER DATA STORAGE
//*
//ORD      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
//DDFILEA   DD   DSN=DDFILEA,                        <=== INTERMEDIATE
//           UNIT=TAPE,VOL=SER=vvvvvv,DISP=(,PASS)             FILE
//DDDRUCK   DD   SYSOUT=X
//DDPRINT   DD   SYSOUT=X
//SYSUDUMP  DD   SYSOUT=X

//DDCARD    DD   *
ADARUN PROG=ADAORD,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
//DDKARTE   DD   *
ADAORD REORDATA
ADAORD FILE=1,DSSIZE=80,DATAPFAC=30
/*

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

再構築

//ADAORDR   JOB
//*
//*     ADAORD: RESTRUCTURE
//*
//ORD      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
//DDFILEA   DD   DSN=FILEA,                          <== INTERMEDIATE
//           UNIT=TAPE,VOL=SER=vvvvvv,DISP=(,KEEP)   <== FILE
//DDDRUCK   DD   SYSOUT=X
//DDPRINT   DD   SYSOUT=X
//SYSUDUMP  DD   SYSOUT=X
//DDCARD    DD   *
ADARUN PROG=ADAORD,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
//DDKARTE   DD   *
ADAORD RESTRUCTUREF
ADAORD FILE=1,DATADEV=eeee
/*

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

格納

//ADAORDS   JOB
//*
//*     ADAORD: STORE INTO A DIFFERENT DATABASE
//*              AFTER ADAORD RESTRUCTURE
//*

//ORD      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
//DDFILEA   DD   DSN=FILE1,                          <=== INTERMEDIATE
//               UNIT=TAPE,VOL=SER=vvvvvv,DISP=OLD              STORAGE
//DDDRUCK   DD   SYSOUT=X
//DDPRINT   DD   SYSOUT=X
//SYSUDUMP  DD   SYSOUT=X
//DDCARD    DD   *
ADARUN PROG=ADAORD,SVC=xxx,DEVICE=dddd,DBID=yyyyy   <=== DBID
/*
//DDKARTE   DD   *
ADAORD STORE
ADAORD FILE=1,DSSIZE=80,DATAPFAC=30,DSRABN=1234,MAXISN=200000
/*

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

Top of page

z/VM

データセット DD 名 ストレージ 追加情報
アソシエータ DDASSORn ディスク  
データストレージ DDDATARn ディスク  
中間ストレージ DDFILEA テープ／ディスク  
リカバリログ（RLOG） DDRLOGR1 ディスク ADARAI オプションの使用時に必要
ADARUN パラメータ DDCARD ディスク／端末／リーダー オペレーションマニュアル
ADAORD パラメータ DDKARTE ディスク／端末／リーダー  
ADARUN メッセージ DDPRINT ディスク／端末／プリンタ メッセージおよびコード
ADAORD メッセージ DDDRUCK ディスク／端末／プリンタ メッセージおよびコード

ADAORD JCL の例（z/VM）

アソシエータのリオーダ

DATADEF DDDATAR1,DSN=ADABASVv.DATA,VOL=DATAV1
DATADEF DDFILEA,DSN=ADAORD.FILEA,MODE=A
DATADEF DDPRINT,DSN=ADAORD.DDPRINT,MODE=A
DATADEF DUMP,DUMMY
DATADEF DDDRUCK,DSN=ADAORD.DDDRUCK,MODE=A
DATADEF DDCARD,DSN=RUNORD.CONTROL,MODE=A
DATADEF DDKARTE,DSN=REORASSO.CONTROL,MODE=A 
ADARUN

RUNORD CONTROL A1 の内容 

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

REORASSO CONTROL A1 の内容 

ADAORD REORFASSO 
ADAORD    FILE=1,MAXISN=20000,ASSOPFAC=20
ADAORD    FILE=3,NISIZE=400B,ASSOPFAC=20

データストレージのリオーダ

DATADEF DDASSOR1,DSN=ADABASVv.ASSO,VOL=ASSOV1
DATADEF DDDATAR1,DSN=ADABASVv.DATA,VOL=DATAV1
DATADEF DDFILEA,DSN=ADAORD.FILEA,MODE=A
DATADEF DDPRINT,DSN=ADAORD.DDPRINT,MODE=A
DATADEF DUMP,DUMMY
DATADEF DDDRUCK,DSN=ADAORD.DDDRUCK,MODE=A
DATADEF DDCARD,DSN=RUNORD.CONTROL,MODE=A
DATADEF DDKARTE,DSN=REORDATA.CONTROL,MODE=A
ADARUN

RUNORD CONTROL A1 の内容 

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

REORDATA CONTROL A1 の内容 

ADAORD REORDATA
ADAORD    FILE=1,DSSIZE=80,DATAPFAC=30

再構築

DATADEF DDASSOR1,DSN=ADABASVv.ASSO,VOL=ASSOV1
DATADEF DDFILEA,DSN=ADAORD.FILEA,MODE=A
DATADEF DDRLOGR1,DSN=ADABVv.RLOGR1,VOL=RLOGV1
DATADEF DDPRINT,DSN=ADAORD.DDPRINT,MODE=A
DATADEF DUMP,DUMMY
DATADEF DDDRUCK,DSN=ADAORD.DDDRUCK,MODE=A
DATADEF DDCARD,DSN=RUNORD.CONTROL,MODE=A
DATADEF DDKARTE,DSN=RESTRUCT.CONTROL,MODE=A
ADARUN

RUNORD CONTROL A1 の内容 

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

RESTRUCT CONTROL A1 の内容 

ADAORD RESTRUCTREF
ADAORD    FILE=1,DATADEV=eeee

格納

DATADEF DDASSOR1,DSN=ADABASVv.ASSO,VOL=ASSOV1
DATADEF DDDATAR1,DSN=ADABASVv.DATA,VOL=DATAV1
DATADEF DDRLOGR1,DSN=ADABVv.RLOGR1,VOL=RLOGV1
DATADEF DDFILEA,DSN=ADAORD.FILEA,MODE=A
DATADEF DDPRINT,DSN=ADAORD.DDPRINT,MODE=A
DATADEF DUMP,DUMMY
DATADEF DDDRUCK,DSN=ADAORD.DDDRUCK,MODE=A
DATADEF DDCARD,DSN=RUNORD.CONTROL,MODE=A
DATADEF DDKARTE,DSN=ORDSTORE.CONTROL,MODE=A
ADARUN

RUNORD CONTROL A1 の内容 

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

ORDSTORE CONTROL A1 の内容 

ADAORD STORE
ADAORD    FILE=1,DSSIZE=80,DATAPFAC=30,DSRABN=1234
ADAORD    MAXISN=200000

Top of page

VSE

ファイル 記号名 ストレージ 論理ユニット 追加情報
アソシエータ ASSORn ディスク *  
データストレージ DATARn ディスク *  
中間ストレージ FILEA テープ
ディスク 		SYS010
* 		 
リカバリログ（RLOG） RLOGR1 ディスク   ADARAI オプションの使用時に必要
ADARUN パラメータ -
CARD
CARD 		リーダー
テープ
ディスク 		SYSRDR
SYS000
* 		 
ADAORD パラメータ   リーダー SYSIPT  
ADARUN メッセージ   プリンタ SYSLST メッセージおよびコード
ADAORD メッセージ   プリンタ SYS009 メッセージおよびコード

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

ADAORD JCS の例（VSE）

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

以下に例とメンバの対応表を示します。

例 メンバ
ファイルアソシエータのリオーダ ADAORDA.X
ファイルデータストレージのリオーダ ADAORDD.X
再構築 ADAORDR.X
ファイルの格納 ADAORDS.X

ファイルアソシエータのリオーダ

* $$ JOB JNM=ADAORDA,CLASS=A,DISP=D
* $$ LST CLASS=A,DISP=D
// JOB ADAORDA
*       REORDER THE ASSOCIATOR.
// EXEC PROC=ADAVvLIB
// EXEC PROC=ADAVvFIL
// ASSGN SYS010,DISK,VOL=DISK01,SHR
// DLBL FILEA,'ADABAS.Vvr.TEMP'
// EXTENT SYS010,DISK01,1,0,sssss,nnnnn
// EXEC ADARUN,SIZE=ADARUN
ADARUN PROG=ADAORD,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
ADAORD REORFASSO
ADAORD FILE=1,ASSOPFAC=15,MAXISN=10000
/*
/&
* $$ EOJ

ファイルデータストレージのリオーダ、ファイルのリオーダ、データのリオーダ、データベースのリオーダ

* $$ JOB JNM=ADAORDD,CLASS=A,DISP=D
* $$ LST CLASS=A,DISP=D
// JOB ADAORDD
*       REORDER DATA STORAGE
// EXEC PROC=ADAVvLIB
// EXEC PROC=ADAVvFIL
// ASSGN SYS010,TAPE,D0
// PAUSE MOUNT SCRATCH TAPE ON TAPE cuu
// MTC REW,SYS010
// MTC WTM,SYS010,5
// MTC REW,SYS010
// TLBL FILEA,'ADABAS.Vvr.TEMP'
// EXEC ADARUN,SIZE=ADARUN
ADARUN PROG=ADAORD,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
ADAORD REORDATA
ADAORD FILE=1,DSSIZE=80,DATAPFAC=30
/*
/&
* $$ EOJ

再構築

* $$ JOB JNM=ADAORDR,CLASS=A,DISP=D
* $$ LST CLASS=A,DISP=D
// JOB ADAORDR
*       RESTRUCTURE
// EXEC PROC=ADAVvLIB
// EXEC PROC=ADAVvFIL
// ASSGN SYS010,TAPE,D0
// PAUSE MOUNT SCRATCH TAPE ON TAPE cuu
// MTC REW,SYS010
// MTC WTM,SYS010,5
// MTC REW,SYS010
// TLBL FILEA,'ADABAS.Vvr.TEMP'
// EXEC ADARUN,SIZE=ADARUN
ADARUN PROG=ADAORD,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
ADAORD RESTRUCTUREF
ADAORD FILE=1,DATADEV=eeee
/*
/&
* $$ EOJ

ファイルの格納

* $$ JOB JNM=ADAORDS,CLASS=A,DISP=D
* $$ LST CLASS=A,DISP=D
// JOB ADAORDS
*       STORE
// EXEC PROC=ADAVvLIB
// EXEC PROC=ADAVvFIL
// ASSGN SYS010,TAPE,D0
// PAUSE MOUNT SCRATCH TAPE ON TAPE cuu
// MTC REW,SYS010
// MTC WTM,SYS010,5
// MTC REW,SYS010
// TLBL FILEA,'ADABAS.Vvr.TEMP'
// EXEC ADARUN,SIZE=ADARUN
ADARUN PROG=ADAORD,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
ADAORD STORE
ADAORD FILE=1,DSSIZE=80,DATAPFAC=30,DSRABN=1234,MAXISN=200000
/*
/&
* $$ EOJ

Top of page

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