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

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

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

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

BS2000

データセット リンク名 ストレージ 追加情報
アソシエータ DDASSORn ディスク WORKPRI に必要。
ワーク DDWORKR1
DDWORKR4 		ディスク WORKPRI に必要。
シーケンシャルプロテクションログ DDPLOG テープ／ディスク SPLOGPRI または IPLOGPRI に必要。
マルチプロテクションログ DDPLOGR1 ディスク NUMBER=1 のとき PLOGPRI に必要（デフォルト）。
マルチプロテクションログ DDPLOGRn ディスク NUMBER=n のとき PLOGPRI に必要。
ADARUN パラメータ DDCARD   オペレーションマニュアル
ADAPLP パラメータ SYSDTA/ DDKARTE    
ADARUN メッセージ SYSOUT DDPRINT   メッセージおよびコード
ADAPLP メッセージ SYSLST DDDRUCK   メッセージおよびコード

ADAPLP JCL の例（BS2000）

シーケンシャルプロテクションログの出力

SDF フォーマットの場合：

/.ADAPLP LOGON
 /MODIFY-TEST-OPTIONS DUMP=YES
 /REMARK *
 /REMARK * A D A P L P PRINT SEQUENTIAL PROTECTION LOG
 /REMARK *
 /ASS-SYSLST L.PLP.SPLO
 /ASS-SYSDTA *SYSCMD
 /SET-FILE-LINK DDLIB,ADAvrs.MOD
 /SET-FILE-LINK DDPLOG,ADAyyyyy.PLOG               
 /START-PROGRAM *M(ADA.MOD,ADARUN),PR-MO=ANY
 ADARUN PROG=ADAPLP,DB=yyyyy,IDTNAME=ADABAS5B
 ADAPLP SPLOGPRI PRINT
 /LOGOFF SYS-OUTPUT=DEL

ISP フォーマットの場合：

/.ADAPLP LOGON
 /OPTION MSG=FH,DUMP=YES
 /REMARK *
 /REMARK * A D A P L P PRINT SEQUENTIAL PROTECTION LOG
 /REMARK *
 /SYSFILE SYSLST=L.PLP.SPLO
 /FILE ADA.MOD,LINK=DDLIB
 /FILE ADAyyyyy.PLOG,LINK=DDPLOG
 /EXEC (ADARUN,ADA.MOD)
 ADARUN PROG=ADAPLP,DB=yyyyy,IDTNAME=ADABAS5B
 ADAPLP SPLOGPRI PRINT
 /LOGOFF NOSPOOL

シーケンシャル中間プロテクションログの出力

SDF フォーマットの場合：

/.ADAPLP LOGON
 /MODIFY-TEST-OPTIONS DUMP=YES
 /REMARK *
 /REMARK * A D A P L P PRINT SEQUENTIAL PROTECTION LOG
 /REMARK *
 /ASS-SYSLST L.PLP.SPLO
 /ASS-SYSDTA *SYSCMD
 /SET-FILE-LINK DDLIB,ADAvrs.MOD
 /SET-FILE-LINK DDPLOG,ADAyyyyy.PLOG               
 /START-PROGRAM *M(ADA.MOD,ADARUN),PR-MO=ANY
 ADARUN PROG=ADAPLP,DB=yyyyy,IDTNAME=ADABAS5B
 ADAPLP IPLOGPRI PRINT
 /LOGOFF SYS-OUTPUT=DEL

ISP フォーマットの場合：

/.ADAPLP LOGON
 /OPTION MSG=FH,DUMP=YES
 /REMARK *
 /REMARK * A D A P L P PRINT SEQUENTIAL PROTECTION LOG
 /REMARK *
 /SYSFILE SYSLST=L.PLP.SPLO
 /FILE ADA.MOD,LINK=DDLIB
 /FILE ADAyyyyy.PLOG,LINK=DDPLOG
 /EXEC (ADARUN,ADA.MOD)
 ADARUN PROG=ADAPLP,DB=yyyyy,IDTNAME=ADABAS5B
 ADAPLP IPLOGPRI PRINT
 /LOGOFF NOSPOOL

1 つのマルチプロテクションログデータセットの出力

SDF フォーマットの場合：

/.ADAPLP LOGON
 /MODIFY-TEST-OPTIONS DUMP=YES
 /REMARK *
 /REMARK * A D A P L P PRINT MULTIPLE PROTECTION LOG
 /REMARK *
 /ASS-SYSLST L.PLP.PLOG
 /ASS-SYSDTA *SYSCMD
 /SET-FILE-LINK DDLIB,ADAvrs.MOD
 /SET-FILE-LINK DDPLOGR1,ADAyyyyy.PLOG               
 /START-PROGRAM *M(ADA.MOD,ADARUN),PR-MO=ANY
 ADARUN PROG=ADAPLP,DB=yyyyy,IDTNAME=ADABAS5B
 ADAPLP PLOGPRI PRINT
 /LOGOFF SYS-OUTPUT=DEL

ISP フォーマットの場合：

/.ADAPLP LOGON
 /OPTION MSG=FH,DUMP=YES
 /REMARK *
 /REMARK * A D A P L P PRINT MULTIPLE PROTECTION LOG
 /REMARK *
 /SYSFILE SYSLST=L.PLP.PLOG
 /FILE ADA.MOD,LINK=DDLIB
 /FILE ADAyyyyy.PLOG,LINK=DDPLOGR1
 /EXEC (ADARUN,ADA.MOD)
 ADARUN PROG=ADAPLP,DB=yyyyy,IDTNAME=ADABAS5B
 ADAPLP PLOGPRI PRINT
 /LOGOFF NOSPOOL

ワークの出力

SDF フォーマットの場合：

/.ADAPLP LOGON
 /MODIFY-TEST-OPTIONS DUMP=YES
 /REMARK *
 /REMARK * A D A P L P PRINT ADABAS WORK
 /REMARK *
 /ASS-SYSLST L.PLP.WORK
 /ASS-SYSDTA *SYSCMD
 /SET-FILE-LINK DDLIB,ADAvrs.MOD
 /SET-FILE-LINK DDASSOR1,ADAyyyyy.ASSO,SHARE-UPD=YES
 /SET-FILE-LINK DDWORKR1,ADAyyyyy.WORK,SHARE-UPD=YES
 /START-PROGRAM *M(ADA.MOD,ADARUN),PR-MO=ANY
 ADARUN PROG=ADAPLP,DB=yyyyy,IDTNAME=ADABAS5B
 ADAPLP WORKPRI PRINT,TYPE=ASSO
 /LOGOFF SYS-OUTPUT=DEL

ISP フォーマットの場合：

/.ADAPLP LOGON
 /OPTION MSG=FH,DUMP=YES
 /REMARK *
 /REMARK * A D A P L P PRINT ADABAS WORK
 /REMARK *
 /SYSFILE SYSLST=L.PLP.WORK
 /FILE ADA.MOD,LINK=DDLIB
 /FILE ADAyyyyy.ASSO ,LINK=DDASSOR1,SHARUPD=YES
 /FILE ADAyyyyy.WORK ,LINK=DDWORKR1,SHARUPD=YES
 /EXEC (ADARUN,ADA.MOD)
 ADARUN PROG=ADAPLP,DB=yyyyy,IDTNAME=ADABAS5B
 ADAPLP WORKPRI PRINT,TYPE=ASSO
 /LOGOFF NOSPOOL

Top of page

z/OS

データセット DD 名 ストレージ 追加情報
アソシエータ DDASSORn ディスク WORKPRI に必要。
ワーク DDWORKR1
DDWORKR4 		ディスク WORKPRI に必要。
シーケンシャルプロテクションログ DDPLOG テープ／ディスク SPLOGPRI または IPLOGPRI に必要。
マルチプロテクションログ DDPLOGR1 ディスク NUMBER=1 のとき PLOGPRI に必要（デフォルト）。
マルチプロテクションログ DDPLOGRn ディスク NUMBER=n のとき PLOGPRI に必要。
ADAPLP メッセージ DDDRUCK プリンタ メッセージおよびコード
ADARUN メッセージ DDPRINT プリンタ メッセージおよびコード
ADARUN パラメータ DDCARD リーダー オペレーションマニュアル
ADAPLP パラメータ DDKARTE リーダー  

ADAPLP JCL の例（z/OS）

次のジョブ例については、MVSJOBS データセットを参照してください。

ジョブメンバ 説明
ADAPLP プロテクションログの出力（マルチデータセット PLOG から）
ADAPLPS プロテクションログの出力（シーケンシャル PLOG から）
ADAPLPW Adabas ワークの出力

次に、これらのジョブを示します。

1 つのマルチプロテクションログデータセットの出力

//ADAPLP    JOB
//*
//*   ADAPLP: PROTECTION LOG PRINT (FROM MULTIPLE PLOG)
//*
//PLP       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
//DDPLOGR1  DD   DISP=SHR,DSN=EXAMPLE.DByyyyy.PLOGR1 <=== PLOG
DATASET
//DDDRUCK   DD   SYSOUT=X
//DDPRINT   DD   SYSOUT=X
//SYSUDUMP  DD   SYSOUT=X
//DDCARD    DD   *
ADARUN PROG=ADAPLP,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
//DDKARTE   DD   *
ADAPLP PLOGPRI
/*

シーケンシャルプロテクションログの出力

//ADAPLPS    JOB
//*
//*   ADAPLP: PROTECTION LOG PRINT (FROM SEQUENTIAL PLOG)
//*
//PLP       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
//DDPLOG    DD   DISP=SHR,DSN=EXAMPLE.DByyyyy.PLOG,  <=== PLOG DATASET
//                           UNIT=TAPE,VOL=SER=PLOG5
//DDDRUCK   DD   SYSOUT=X
//DDPRINT   DD   SYSOUT=X
//SYSUDUMP  DD   SYSOUT=X

//DDCARD    DD   *
ADARUN PROG=ADAPLP,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
//DDKARTE   DD   *
ADAPLP SPLOGPRI
/*

シーケンシャル中間プロテクションログの出力

//ADAPLPS    JOB
//*
//*   ADAPLP: PROTECTION LOG PRINT (FROM SEQUENTIAL PLOG)
//*
//PLP       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
//DDPLOG    DD   DISP=SHR,DSN=EXAMPLE.DByyyyy.PLOG,  <=== PLOG DATASET
//                           UNIT=TAPE,VOL=SER=PLOG5
//DDDRUCK   DD   SYSOUT=X
//DDPRINT   DD   SYSOUT=X
//SYSUDUMP  DD   SYSOUT=X

//DDCARD    DD   *
ADARUN PROG=ADAPLP,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
//DDKARTE   DD   *
ADAPLP IPLOGPRI
/*

Adabas ワークの出力

//ADAPLPW    JOB
//*
//*   ADAPLP: PRINT ADABAS WORK
//*
//PLP       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=ADAPLP,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
//DDKARTE   DD   *
ADAPLP WORKPRI PRINT
/*

Top of page

z/VM

データセット DD 名 ストレージ 追加情報
アソシエータ DDASSORn ディスク WORKPRI に必要。
ワーク DDWORKR1
DDWORKR4 		ディスク WORKPRI に必要。
シーケンシャルプロテクションログ DDPLOG テープ／ディスク SPLOGPRI または IPLOGPRI に必要。
マルチプロテクションログ DDPLOGR1 ディスク NUMBER=1 のとき PLOGPRI に必要（デフォルト）。
マルチプロテクションログ DDPLOGRn ディスク NUMBER=n のとき PLOGPRI に必要。
ADARUN パラメータ DDCARD ディスク／端末／リーダー オペレーションマニュアル
ADAPLP パラメータ DDKARTE ディスク／端末／リーダー  
ADARUN メッセージ DDPRINT ディスク／端末／プリンタ メッセージおよびコード
ADAPLP メッセージ DDDRUCK ディスク／端末／プリンタ メッセージおよびコード

ADAPLP の例（z/VM）

シーケンシャルプロテクションログの出力

DATADEF DDPLOG,DSN=ADABASVv.SIBA,MODE=A
DATADEF DDPRINT,DSN=ADAPLP.DDPRINT,MODE=A
DATADEF DUMP,DUMMY
DATADEF DDDRUCK,DSN=ADAPLP.DDDRUCK,MODE=A
DATADEF DDCARD,DSN=RUNPLP.CONTROL,MODE=A
DATADEF DDKARTE,DSN=PLPSPLOG.CONTROL,MODE=A
ADARUN

RUNPLP CONTROL A1 の内容

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

PLPSPLOG CONTROL A1 の内容

ADAPLP SPLOGPRI PRINT

シーケンシャル中間プロテクションログの出力

DATADEF DDPLOG,DSN=ADABASVv.SIBA,MODE=A
DATADEF DDPRINT,DSN=ADAPLP.DDPRINT,MODE=A
DATADEF DUMP,DUMMY
DATADEF DDDRUCK,DSN=ADAPLP.DDDRUCK,MODE=A
DATADEF DDCARD,DSN=RUNPLP.CONTROL,MODE=A
DATADEF DDKARTE,DSN=PLPSPLOG.CONTROL,MODE=A
ADARUN

RUNPLP CONTROL A1 の内容

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

PLPSPLOG CONTROL A1 の内容

ADAPLP IPLOGPRI PRINT

1 つのマルチプロテクションログデータセットの出力

DATADEF DDPLOG,DSN=ADABASVv.PLOG2,VOL=PLOGV2
DATADEF DDPRINT,DSN=ADAPLP.DDPRINT,MODE=A
DATADEF DUMP,DUMMY
DATADEF DDPLOGR1,DSN=ADAPLP.DDPLOG,MODE=A
DATADEF DDDRUCK,DSN=ADAPLP.DDDRUCK,MODE=A
DATADEF DDCARD,DSN=RUNPLP.CONTROL,MODE=A
DATADEF DDKARTE,DSN=PLPDPLOG.CONTROL,MODE=A
ADARUN

RUNPLP CONTROL A1 の内容

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

PLPDPLOG CONTROL A1 の内容

ADAPLP PLOGPRI PRINT

ワークの出力

DATADEF DDASSOR1,DSN=ADABASVv.ASSO,VOL=ASSOV1
DATADEF DDWORKR1,DSN=ADABASVv.WORK,VOL=WORKV1
DATADEF DDPRINT,DSN=ADAPLP.DDPRINT,MODE=A
DATADEF DUMP,DUMMY
DATADEF DDDRUCK,DSN=ADAPLP.DDDRUCK,MODE=A
DATADEF DDCARD,DSN=RUNPLP.CONTROL,MODE=A
DATADEF DDKARTE,DSN=PLPWORK.CONTROL,MODE=A 
ADARUN

RUNPLP CONTROL A1 の内容

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

PLPWORK CONTROL A1 の内容

ADAPLP WORKPRI PRINT,TYPE=ASSO

Top of page

VSE

ファイル 記号名 ストレージ 論理ユニット 追加情報
アソシエータ ASSORn ディスク * WORKPRI に必要。
ワーク WORKR1 ディスク * WORKPRI に必要。
シーケンシャルプロテクションログ PLOG テープ
ディスク 		SYS014
* 		SPLOGPRI または IPLOGPRI に必要。
マルチプロテクションログ PLOGR1 ディスク * NUMBER=1 のとき PLOGPRI に必要（デフォルト）。
マルチプロテクションログ PLOGRn ディスク * NUMBER=n のとき PLOGPRI に必要。
ADAPLP レポート   プリンタ SYS009  
ADARUN メッセージ   プリンタ SYSLST  
ADARUN パラメータ SYSRDR CARD リーダー／テープ／ディスク   オペレーションマニュアル
ADAPLP パラメータ SYSIPT リーダー    

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

ADAPLP JCS の例（VSE）

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

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

例 メンバ
シーケンシャルプロテクションログの出力 ADAPLPS.X
マルチプロテクションログの出力 ADAPLP.X
Adabas ワークの出力 ADAPLPW.X

シーケンシャルプロテクションログの出力

* $$ JOB JNM=ADAPLPS,CLASS=A,DISP=D
* $$ LST CLASS=A,DISP=D
// JOB ADAPLPS
*       PROTECTION LOG PRINT (FROM SEQUENTIAL PLOG)
// EXEC PROC=ADAVvLIB
// EXEC PROC=ADAVvFIL
// ASSGN SYS014,cuu
// PAUSE MOUNT LOAD INPUT FILE ON TAPE cuu
// TLBL PLOG,'EXAMPLE.DByyyyy.PLOG'
// MTC REW,SYS014
// EXEC ADARUN,SIZE=ADARUN
ADARUN PROG=ADAPLP,MODE=MULTI,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
ADAPLP SPLOGPRI
/*
/&
* $$ EOJ

シーケンシャル中間プロテクションログの出力

* $$ JOB JNM=ADAPLPS,CLASS=A,DISP=D
* $$ LST CLASS=A,DISP=D
// JOB ADAPLPS
*       PROTECTION LOG PRINT (FROM SEQUENTIAL PLOG)
// EXEC PROC=ADAVvLIB
// EXEC PROC=ADAVvFIL
// ASSGN SYS014,cuu
// PAUSE MOUNT LOAD INPUT FILE ON TAPE cuu
// TLBL PLOG,'EXAMPLE.DByyyyy.PLOG'
// MTC REW,SYS014
// EXEC ADARUN,SIZE=ADARUN
ADARUN PROG=ADAPLP,MODE=MULTI,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
ADAPLP IPLOGPRI
/*
/&
* $$ EOJ

1 つのマルチプロテクションログデータセットの出力

* $$ JOB JNM=ADAPLP,CLASS=A,DISP=D
* $$ LST CLASS=A,DISP=D
// JOB ADAPLP
*       PROTECTION LOG PRINT (FROM MULTIPLE PLOG)
// EXEC PROC=ADAVvLIB
// EXEC PROC=ADAVvFIL
// EXEC ADARUN,SIZE=ADARUN
ADARUN PROG=ADAPLP,MODE=MULTI,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
ADAPLP PLOGPRI
/*
/&
* $$ EOJ

Adabas ワークの出力

* $$ JOB JNM=ADAPLPW,CLASS=A,DISP=D
* $$ LST CLASS=A,DISP=D
// JOB ADAPLPW
*       PRINT ADABAS WORK
// EXEC PROC=ADAVvLIB
// EXEC PROC=ADAVvFIL
// EXEC ADARUN,SIZE=ADARUN
ADARUN PROG=ADAPLP,MODE=MULTI,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
ADAPLP WORKPRI PRINT
/*
/&
* $$ EOJ

Top of page

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