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

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

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

• BS2000

• z/OS

• z/VM

• VSE

BS2000

注意:
DDOUT1 および DDOUT2 のデータセットが同じブロックサイズでない場合は、ADAULD エラーが発生します。 DDOUT2 は、NUMOUT=2 が指定された場合にのみ必要とされます。

ADAULD JCL の例（BS2000）

データベースからのアンロード

SDF フォーマットの場合：

/.ADAULD LOGON
 /MODIFY-TEST-OPTIONS DUMP=YES
 /REMARK *
 /REMARK * A D A U L D NON-SAVETAPE FUNCTIONS
 /REMARK *
 /DELETE-FILE ADAyyyyy.OUT1     
 /SET-JOB-STEP
 /CREATE-FILE ADAyyyyy.OUT1,PUB(SPACE=(480,48))
 /SET-JOB-STEP
 /ASS-SYSLST L.ULD     
 /ASS-SYSDTA *SYSCMD
 /SET-FILE-LINK DDLIB,ADAvrs.MOD
 /SET-FILE-LINK DDOUT1,ADAyyyyy.OUT1
 /START-PROGRAM *M(ADA.MOD,ADARUN),PR-MO=ANY
 ADARUN PROG=ADAULD,DB=yyyyy,IDTNAME=ADABAS5B
 ADAULD FILE=1,SORTSEQ=AA
 /LOGOFF SYS-OUTPUT=DEL

ISP フォーマットの場合：

/.ADAULD LOGON
 /OPTION MSG=FH,DUMP=YES
 /REMARK *
 /REMARK * A D A U L D NON-SAVETAPE FUNCTIONS
 /REMARK *
 /SYSFILE SYSLST=L.ULD
 /FILE ADA.MOD ,LINK=DDLIB
 /FILE ADAyyyyy.OUT1 ,LINK=DDOUT1 ,SPACE=(480,48)
 /EXEC (ADARUN,ADA.MOD)
 ADARUN PROG=ADAULD,DB=yyyyy,IDTNAME=ADABAS5B
 ADAULD FILE=1,SORTSEQ=AA
 /LOGOFF NOSPOOL

オフラインセーブテープからのアンロード

SDF フォーマットの場合：

/.ADAULD LOGON
 /MODIFY-TEST-OPTIONS DUMP=YES
 /REMARK *
 /REMARK * A D A U L D SAVETAPE FUNCTION
 /REMARK *
 /DELETE-FILE ADAyyyyy.OUT1     
 /SET-JOB-STEP
 /CREATE-FILE ADAyyyyy.OUT1,PUB(SPACE=(480,48))
 /SET-JOB-STEP
 /ASS-SYSLST L.ULD     
 /ASS-SYSDTA *SYSCMD
 /SET-FILE-LINK DDLIB,ADAvrs.MOD
 /SET-FILE-LINK DDOUT1,ADAyyyyy.OUT1
 /SET-FILE-LINK DDSAVE,ADAyyyyy.SAVE
 /START-PROGRAM *M(ADA.MOD,ADARUN),PR-MO=ANY
 ADARUN PROG=ADAULD,DB=yyyyy,IDTNAME=ADABAS5B
 ADAULD FILE=1,SAVETAPE
 /LOGOFF SYS-OUTPUT=DEL

ISP フォーマットの場合：

/.ADAULD LOGON
 /OPTION MSG=FH,DUMP=YES
 /REMARK *
 /REMARK * A D A U L D SAVETAPE FUNCTION
 /REMARK *
 /SYSFILE SYSLST=L.ULD
 /FILE ADA.MOD ,LINK=DDLIB
 /FILE ADAyyyyy.OUT1 ,LINK=DDOUT1 ,SPACE=(480,48)
 /FILE ADAyyyyy.SAVE ,LINK=DDSAVE
 /EXEC (ADARUN,ADA.MOD)
 ADARUN PROG=ADAULD,DB=yyyyy,IDTNAME=ADABAS5B
 ADAULD FILE=1,SAVETAPE
 /LOGOFF NOSPOOL

z/OS

注意:
DDOUT1 および DDOUT2 のデータセットが同じブロックサイズでない場合は、ADAULD エラーが発生します。 DDOUT2 は、NUMOUT=2 が指定された場合にのみ必要とされます。

ADAULD JCL の例（z/OS）

ファイルのアンロード

//ADAULD    JOB
//*
//*   ADAULD:
//*      UNLOAD A FILE
//*
//ULD       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

//DDOUT1    DD  
DISP=(,CATLG),DSN=EXAMPLE.DByyyyy.OUT1,UNIT=DISK, <===
//          VOL=SER=DISK01,SPACE=(TRK,(200,10),RLSE)
//DDCARD    DD   *
ADARUN PROG=ADAULD,MODE=MULTI,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
//DDKARTE   DD   *
ADAULD FILE=1,SORTSEQ=AA                                               

00000100
/*

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

オフラインで作成したセーブテープからのファイルのアンロード

//ADAULDS   JOB
//*
//*   ADAULD:
//*      UNLOAD A FILE  FROM AN OFFLINE SAVE TAPE
//*
//ULD       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
//DDSAVE    DD   DISP=SHR,DSN=EXAMPLE.DByyyyy.SAVE   <=== SAVE DATASET
//DDDRUCK   DD   SYSOUT=X
//DDPRINT   DD   SYSOUT=X
//SYSUDUMP  DD   SYSOUT=X
//DDOUT1    DD   DISP=(,CATLG),DSN=EXAMPLE.DByyyyy.OUT1,UNIT=DISK, <===
//          VOL=SER=DISK01,SPACE=(TRK,(200,10),RLSE)
//DDCARD    DD   *
ADARUN PROG=ADAULD,MODE=MULTI,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
//DDKARTE   DD   *
ADAULD FILE=1,SAVETAPE                                                 

00000100
/*

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

z/VM

注意:
DDOUT1 および DDOUT2 のデータセットが同じブロックサイズでない場合は、ADAULD エラーが発生します。 DDOUT2 は、NUMOUT=2 が指定された場合にのみ必要とされます。

例（z/VM）

データベースからのアンロード

DATADEF DDOUT1,DSN=ADABASVv.ULD1,UNIT=181,VOL=ULDF1
DATADEF DDPRINT,DSN=ADAULD.DDPRINT,MODE=A
DATADEF DUMP,DUMMY
DATADEF DDDRUCK,DSN=ADAULD.DDDRUCK,MODE=A
DATADEF DDCARD,DSN=RUNULD.CONTROL,MODE=A
DATADEF DDKARTE,DSN=ADAULD.CONTROL,MODE=A
ADARUN                                                

RUNULD CONTROL A1 の内容

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

ADAULD CONTROL A1 の内容

ADAULD FILE=1,SORTSEQ=AA   

オフラインセーブテープからのアンロード

DATADEF DDOUT1,DSN=ADABASVv.ULD1,UNIT=181,VOL=ULDF1
DATADEF DDSAVE,DSN=ADABASVv.ULD1,UNIT=181,VOL=ULDF1
DATADEF DDPRINT,DSN=ADAULD.DDPRINT,MODE=A
DATADEF DUMP,DUMMY
DATADEF DDDRUCK,DSN=ADAULD.DDDRUCK,MODE=A
DATADEF DDCARD,DSN=RUNULD.CONTROL,MODE=A
DATADEF DDKARTE,DSN=ADAULD.CONTROL,MODE=A
ADARUN                                                 

RUNULD CONTROL A1 の内容

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

ADAULD CONTROL A1 の内容

ADAULD FILE=1,SAVETAPE  

VSE

注意:

1. すべてのプログラマ論理ユニットを使用できます。
2. OUT1 および OUT2 のデータセットが同じブロックサイズでない場合は、ADAULD エラーが発生します。 OUT2 は、NUMOUT=2 が指定された場合にのみ必要です。

ADAULD JCS の例（VSE）

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

データベースからのファイルのアンロード

* $$ JOB JNM=ADAULD,CLASS=A,DISP=D
* $$ LST CLASS=A,DISP=D

// JOB ADAULD
*       UNLOAD A FILE
// EXEC PROC=ADAVvLIB
// EXEC PROC=ADAVvFIL
// ASSGN SYS004,DISK,VOL=vvvvvv,SHR
// DLBL OUT1,'EXAMPLE.ADA99.OUT1'
// EXTENT SYS004,,,,ssss,nnnn
// EXEC ADARUN,SIZE=ADARUN
ADARUN PROG=ADAULD,MODE=MULTI,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
ADAULD FILE=1,SORTSEQ=AA
/*
/&
* $$ EOJ

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

オフラインで作成したセーブテープからのファイルのアンロード

* $$ JOB JNM=ADAULDS,CLASS=A,DISP=D
* $$ LST CLASS=A,DISP=D
// JOB ADAULDS
*       UNLOAD A FILE FROM AN OFFLINE SAVE TAPE
// EXEC PROC=ADAVvLIB
// EXEC PROC=ADAVvFIL
// ASSGN SYS004,DISK,VOL=vvvvvv,SHR
// DLBL OUT1,'EXAMPLE.ADA99.OUT1'
// EXTENT SYS004,,,,ssss,nnnn
// ASSGN SYS013,TAPE
// PAUSE MOUNT LOAD SAVE FILE ON TAPE cuu
// TLBL SAVE,'EXAMPLE.DByyyyy.SAVE'
// EXEC ADARUN,SIZE=ADARUN
ADARUN PROG=ADAULD,MODE=MULTI,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
ADAULD FILE=1,SAVETAPE
/*
/&
* $$ EOJ

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

www.softwareag.com

Copyright © Software AG 1971-2008. All rights reserved.

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