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

— ユーティリティ —

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

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

注意:
リカバリログがアクティブな場合、実行ログが RLOG に記録されるユーティリティで使用されるシーケンシャルデータセットが、リカバリ処理用に維持され、かつ使用できる状態になっている必要があります（例えば、ADALOD LOAD 処理の DD/EBAND 入力）。

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

ユーザー出口を使用した ADACMP
BS2000
z/OS
z/VM
VSE

ユーザー出口を使用した ADACMP

ユーザー出口を使用した圧縮

レコードが ADACMP COMPRESS ユーティリティで処理される前に、ユーザー出口 6 を使用してそのレコードに対してユーザー処理を実行することができます。これは、ADACMP DECOMPRESS ユーティリティから出力された非圧縮レコードの順序および内容を制御するためにも使用できます。このように使用すると、ユーザー出口により、どの非圧縮レコードが ADACMP により DDAUSBA データセットに書き込まれるかが制御されます。ユーザー出口 6 の詳細は、「ユーザー出口 6（データ圧縮前のユーザー処理）」を参照してください。

ADACMP 実行中にユーザー出口 6 を使用するには、実行時にロード可能なユーザー出口ルーチンが必要です。つまり、ユーザー出口ルーチンをアセンブルして、次の Adabas ライブラリにリンクしておく必要があります。

BS2000、z/OS、z/VM 用のロードライブラリ（またはそれに連結されたライブラリ）
VSE 用のコアイメージライブラリ、またはコアイメージライブラリ検索チェーン内のライブラリ

ADACMP COMPRESS ユーティリティジョブでは、以下を指定する必要があります。

graphics/util_adarun_uex6.png

上記の意味は次に示すとおりです。

exit-name

ユーザー出口で制御されるユーザールーチン名。最大 8 文字。

詳細は、「UEXn：ユーザー出口」を参照してください。

ユーザー出口を使用した照合

ADACMP 実行中に照合ユーザー出口を使用するには、ADARUN ユーティリティの実行用に CDXnn パラメータを指定する必要があります。

UES（ユニバーサルエンコーディングサポート）と組み合わせて使用する場合、照合ディスクリプタユーザー出口パラメータのフォーマットは次のようになります。

graphics/util_adarun_cdxnn.png

上記の意味は次に示すとおりです。

`nn`	照合ディスクリプタ出口の番号。01 から 08 までの 2 桁の 10 進数。
`exit-name`	照合ディスクリプタ出口で制御を持つユーザールーチン名。最大 8 文字。

照合ディスクリプタ出口に指定できるプログラムは 1 つだけです。最大 8 個の照合ディスクリプタ出口を任意の順序で指定できます。詳細は、「CDXnn：照合ディスクリプタユーザー出口」を参照してください。

BS2000

データセット	リンク名	ストレージ	追加情報
ユーザー入力データ（COMPRESS 機能）	DDEBAND	テープ／ディスク
圧縮データ（DECOMPRESS 機能）	DDEBAND	テープ／ディスク	INFILE パラメータを指定している場合は不要
ラージオブジェクト（LB）フィールドを含むファイルを有するデータベースの圧縮データ（COMPRESS 機能）	DDAUSB1	テープ／ディスク	この追加データセットは、圧縮されたラージオブジェクトレコードを受け取ります。このレコードは、最初の出力データセット（DDAUSBA）の圧縮レコードが基本ファイルにロードされるときに LOB ファイルにロードされます。
圧縮データ（COMPRESS 機能）	DDAUSBA	テープ／ディスク
圧縮解除データ（DECOMPRESS 機能）	DDAUSBA	テープ／ディスク
拒否データ	DDFEHL	テープ／ディスク
ECS エンコードオブジェクト	DDECSOJ	テープ／ディスク	UES（ユニバーサルエンコーディングサポート）に必要です。
ADARUN パラメータ	DDCARD		Adabas オペレーション
ADACMP パラメータおよびデータ定義	SYSDTA/ DDKARTE		Adabas ユーティリティ
ADARUN メッセージ	SYSOUT/ DDPRINT	プリンタ／ディスク	Adabas メッセージおよびコード
ADACMP レポート	SYSLST/ DDDRUCK	プリンタ／ディスク	Adabas メッセージおよびコード

JCL の例（BS2000）

ADACMP COMPRESS

SDF フォーマットの場合：

/.ADACMP LOGON
/MODIFY-TEST-OPTIONS DUMP=YES
/REMARK *
/REMARK * A D A C M P COMPRESS
/REMARK *
/DELETE-FILE CMP.AUS
/SET-JOB-STEP
/DELETE-FILE CMP.FEHL
/SET-JOB-STEP
/CREATE-FILE CMP.AUS,PUB(SPACE=(48,48)
/SET-JOB-STEP
/CREATE-FILE CMP.FEHL,PUB(SPACE=(48,48))
/SET-JOB-STEP

/ASS-SYSLST L.CMP
/ASS-SYSDTA *SYSCMD
/SET-FILE-LINK DDLIB,ADAvrs.MOD
/SET-FILE-LINK DDEBAND,CMP.EIN                  
/SET-FILE-LINK DDAUSBA,CMP.AUS                  
/SET-FILE-LINK DDFEHL,CMP.FEHL                 
/START-PROGRAM *M(ADA.MOD,ADARUN),PR-MO=ANY
ADARUN PROG=ADACMP,DB=yyyyy,IDTNAME=ADABAS5B
ADACMP COMPRESS NUMREC=1000,FDT=1,USERISN,DEVICE=dddd,eeee
/LOGOFF SYS-OUTPUT=DEL

ISP フォーマットの場合：

/.ADACMP LOGON
/OPTION MSG=FH,DUMP=YES
/REMARK *
/REMARK * A D A C M P COMPRESS
/REMARK *
/ER CMP.AUS
/STEP
/ER CMP.FEHL
/STEP
/SYSFILE SYSLST=L.CMP
/FILE ADA.MOD,LINK=DDLIB
/FILE CMP.EIN,LINK=DDEBAND
/FILE CMP.AUS,LINK=DDAUSBA,SPACE=(48,48)
/FILE CMP.FEHL,LINK=DDFEHL,SPACE=(48,48)
/EXEC (ADARUN,ADA.MOD)
ADARUN PROG=ADACMP,DB=yyyyy,IDTNAME=ADABAS5B
ADACMP COMPRESS NUMREC=1000,FDT=1,USERISN,DEVICE=dddd,eeee
/LOGOFF NOSPOOL

ADACMP DECOMPRESS

SDF フォーマットの場合：

/.ADACMP LOGON
/MODIFY-TEST-OPTIONS DUMP=YES
/REMARK *
/REMARK * A D A C M P DECOMPRESS
/REMARK *

/DELETE-FILE CMP.AUS
/SET-JOB-STEP
/DELETE-FILE CMP.FEHL
/SET-JOB-STEP
/CREATE-FILE CMP.AUS,PUB(SPACE=(48,48))
/SET-JOB-STEP
/CREATE-FILE CMP.FEHL,PUB(SPACE=(48,48))
/SET-JOB-STEP
/ASS-SYSLST L.DEC
/ASS-SYSDTA *SYSCMD
/SET-FILE-LINK DDLIB,ADAvrs.MOD
/SET-FILE-LINK DDEBAND,CMP.EIN
/SET-FILE-LINK DDAUSBA,CMP.AUS                  
/SET-FILE-LINK DDFEHL,CMP.FEHL                 
/START-PROGRAM *M(ADA.MOD,ADARUN),PR-MO=ANY
ADARUN PROG=ADACMP,DB=yyyyy,IDTNAME=ADABAS5B
ADACMP DECOMPRESS
/LOGOFF SYS-OUTPUT=DEL

ISP フォーマットの場合：

/.ADACMP LOGON
/OPTION MSG=FH,DUMP=YES
/REMARK *
/REMARK * A D A C M P DECOMPRESS
/REMARK *
/ER CMP.AUS
/STEP
/ER CMP.FEHL
/STEP
/SYSFILE SYSLST=L.CMP.DEC

/FILE ADA.MOD,LINK=DDLIB
/FILE CMP.EIN,LINK=DDEBAND
/FILE CMP.AUS,LINK=DDAUSBA,SPACE=(48,48)
/FILE CMP.FEHL,LINK=DDFEHL,SPACE=(48,48)
/EXEC (ADARUN,ADA.MOD)
ADARUN PROG=ADACMP,DB=yyyyy,IDTNAME=ADABAS5B
ADACMP DECOMPRESS
/LOGOFF NOSPOOL

z/OS

データセット	DD 名	ストレージ	追加情報
ユーザー入力データ（COMPRESS 機能）	DDEBAND	テープ／ディスク
圧縮データ（DECOMPRESS 機能）	DDEBAND	テープ／ディスク	INFILE パラメータを指定している場合は不要
ラージオブジェクト（LB）フィールドを含むファイルを有するデータベースの圧縮データ（COMPRESS 機能）	DDAUSB1	テープ／ディスク	この追加データセットは、圧縮されたラージオブジェクトレコードを受け取ります。このレコードは、最初の出力データセット（DDAUSBA）の圧縮レコードが基本ファイルにロードされるときに LOB ファイルにロードされます。
圧縮データ（COMPRESS 機能）	DDAUSBA	テープ／ディスク
圧縮解除データ（DECOMPRESS 機能）	DDAUSBA	テープ／ディスク
拒否データ	DDFEHL	テープ／ディスク
ECS エンコードオブジェクト	DDECSOJ	テープ／ディスク	UES（ユニバーサルエンコーディングサポート）に必要です。
ADACMP レポート	DDDRUCK	プリンタ
ADARUN メッセージ	DDPRINT	プリンタ
ADARUN パラメータ	DDCARD	リーダー
ADACMP パラメータおよびデータ定義	DDKARTE	リーダー

JCL の例（z/OS）

MVSJOBS データセットで、COMPRESS の例については ADACMP および ADACMPS、DECOMPRESS の例については ADACMPD を参照してください。

ADACMP COMPRESS

この例は、MVSJOBS データセットのメンバ ADACMP 内にあります。

//ADACMP    JOB
//*
//*   ADACMP COMPRESS
//*      COMPRESS A FILE
//*
//CMP       EXEC PGM=ADARUN
//STEPLIB   DD   DISP=SHR,DSN=ADABAS.Vvrs.LOAD      <=== ADABAS LOAD
//*

//DDDRUCK   DD   SYSOUT=X
//DDPRINT   DD   SYSOUT=X
//SYSUDUMP  DD   SYSOUT=X
//DDEBAND   DD   DISP=OLD,DSN=EXAMPLE.DByyyyy.INPUT,UNIT=TAPE, <===
//          VOL=SER=TAPE01                                      <===
//DDAUSBA   DD   DISP=(NEW,KEEP),DSN=EXAMPLE.DByyyyy.COMP01,UNIT=DISK, <==
//          VOL=SER=DISK01,SPACE=(TRK,(200,10),RLSE)
//DDFEHL    DD   DISP=(NEW,KEEP),DSN=EXAMPLE.DByyyyy.FEHL,UNIT=DISK, <===
//          VOL=SER=DISK01,SPACE=(TRK,1)
//DDCARD    DD   *
ADARUN PROG=ADACMP,MODE=MULTI,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
//DDKARTE   DD   *
ADACMP COMPRESS FILE=1                                                 
ADACMP FNDEF='01,AA,008,B,DE'                                  
ADACMP FNDEF='01,BA,020,A,NU,DE'                               
ADACMP FNDEF='01,BB,015,A,NU,DE'                               
ADACMP FNDEF='01,BC,001,A,FI'                                  
ADACMP FNDEF='01,CA,001,A,NU,DE'                               
ADACMP FNDEF='01,CB,002,U,NU,DE'                               
ADACMP FNDEF='01,CC,010,A,NU,DE'                               
ADACMP FNDEF='01,CD,002,U,NU,DE'                               
ADACMP FNDEF='01,DA,005,U,NU'                                  
ADACMP FNDEF='01,DB,020,A,NU,DE'                               
ADACMP FNDEF='01,DC,015,A,NU,DE'                               
ADACMP FNDEF='01,DD,002,A,NU,DE'                               
ADACMP FNDEF='01,DE,005,U,NU,DE'                               
ADACMP FNDEF='01,DF,008,A,NU,DE'                               
ADACMP FNDEF='01,FA,020,A,NU,DE'                               
ADACMP FNDEF='01,FB,006,U,NU,DE'                               
ADACMP FNDEF='01,FC,006,U,NU'                                  
ADACMP FNDEF='01,GA,002,U,NU'                                  
ADACMP FNDEF='01,HA,002,U,NU'                                  
ADACMP FNDEF='01,IA,002,U,NU'                                  

ADACMP FNDEF='01,KA,002,U,NU'                  
ADACMP FNDEF='01,LA,030,A,NU,DE'                               
ADACMP SUBDE='SB=DE(3,5)'                                      
ADACMP SUPDE='SP=CA(1,1),CB(1,2),CD(1,2)'                      
ADACMP PHONDE='PA(BA)'                                         
/*

次の例は、MVSJOBS データセットのメンバ ADACMPS 内にあります。この例は、ADACMP スパンドレコードパラメータと拡張 MU/PE 制限パラメータの使用方法を示しています。

//ADACMP    JOB
//* 
//*   ADACMP COMPRESS 
//*      COMPRESS A FILE
//*         USING MUPEX AND SPAN OPTIONS WITH 2-BYTE MU/PE COUNTS
//* 
//CMP       EXEC PGM=ADARUN  
//STEPLIB   DD   DISP=SHR,DSN=ADABAS.VVRS.LOAD      <=== ADABAS LOAD   
//*  
//DDDRUCK   DD   SYSOUT=X 
//DDPRINT   DD   SYSOUT=X 
//SYSUDUMP  DD   SYSOUT=X
//DDEBAND   DD   DISP=OLD,DSN=EXAMPLE.DBYYYYY.INPUT,UNIT=TAPE, <=== 
//          VOL=SER=TAPE01                                       <===  
//DDAUSBA   DD   DISP=(NEW,KEEP),DSN=EXAMPLE.DBYYYYY.COMP01,UNIT=DISK, <
//          VOL=SER=DISK01,SPACE=(TRK,(200,10),RLSE)  
//DDFEHL    DD   DISP=(NEW,KEEP),DSN=EXAMPLE.DBYYYYY.FEHL,UNIT=DISK, <==
//          VOL=SER=DISK01,SPACE=(TRK,1)    
//DDCARD    DD   * 
ADARUN PROG=ADACMP,MODE=MULTI,SVC=XXX,DEVICE=3390,DBID=YYYYY 
/*  
//DDKARTE   DD   *
ADACMP COMPRESS FILE=1 
ADACMP FNDEF='01,AA,008,B,DE' 
ADACMP FNDEF='01,BA,020,A,NU,DE' 
ADACMP FNDEF='01,BB,015,A,NU,DE' 
ADACMP FNDEF='01,BC,001,A,FI'
ADACMP FNDEF='01,CA,001,A,NU,DE'
ADACMP FNDEF='01,CB,002,U,NU,DE'
ADACMP FNDEF='01,CC,010,A,NU,DE'
ADACMP FNDEF='01,CD,002,U,NU,DE'
ADACMP FNDEF='01,DA,005,U,NU'
ADACMP FNDEF='01,DB,020,A,NU,DE'
ADACMP FNDEF='01,DC,015,A,NU,DE'
ADACMP FNDEF='01,DD,002,A,NU,DE'
ADACMP FNDEF='01,DE,005,U,NU,DE'
ADACMP FNDEF='01,DF,008,A,NU,DE'
ADACMP FNDEF='01,FA,020,A,NU,DE'
ADACMP FNDEF='01,FB,006,U,NU,DE'
ADACMP FNDEF='01,FC,006,U,NU'
ADACMP FNDEF='01,GA,002,U,NU'
ADACMP FNDEF='01,HA,002,U,NU'
ADACMP FNDEF='01,IA,002,U,NU'
ADACMP FNDEF='01,KA,002,U,NU'
ADACMP FNDEF='01,LA,030,A,NU,DE'
ADACMP FNDEF='01,MA,010,A,MU,NU,DE'
ADACMP FNDEF='01,PB,PE'
ADACMP FNDEF='02,P1,008,A,NU'
ADACMP FNDEF='02,P2,002,A,NU'
ADACMP FNDEF='02,P3,020,A,NU'
ADACMP SUBDE='SB=DE(3,5)'
ADACMP SUPDE='SP=CA(1,1),CB(1,2),CD(1,2)'
ADACMP PHONDE='PA(BA)'
ADACMP MUPEX                       <== EXTENDED MU/PE FILE
ADACMP MUPECOUNT=2                 <== 2-BYTE MU/PE COUNTS IN INPUT
ADACMP SPAN                        <== SPANNED RECORD FILE 
ADACMP DATADEVICE=3390             <== DATA STORAGE DEVICE TYPE
/*
//

ADACMP DECOMPRESS

次の例は、MVSJOBS データセットのメンバ ADACMPD 内にあります。

//ADACMP    JOB
//*
//*   ADACMP COMPRESS
//*      DECOMPRESS A FILE
//*
//DECMP     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
//DDEBAND   DD   DISP=OLD,DSN=EXAMPLE.DByyyyy.COMP01,UNIT=TAPE,
//          VOL=SER=TAPE01
//DDAUSBA   DD   DISP=(NEW,KEEP),DSN=EXAMPLE.DByyyyy.DECOMP01,UNIT=DISK,
//          VOL=SER=DISK01,SPACE=(TRK,(200,10),RLSE)
//DDFEHL    DD   DISP=(NEW,KEEP),DSN=EXAMPLE.DByyyyy.FEHL,UNIT=DISK,
//          VOL=SER=DISK01,SPACE=(TRK,1)
//DDCARD    DD   *
ADARUN PROG=ADACMP,MODE=MULTI,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
//DDKARTE   DD   *
ADACMP DECOMPRESS INFILE=1                                             
/*

z/VM

データセット	DD 名	ストレージ	追加情報
ユーザー入力データ（COMPRESS 機能）	DDEBAND	テープ／ディスク
圧縮データ（DECOMPRESS 機能）	DDEBAND	テープ／ディスク	INFILE パラメータを指定している場合は不要
ラージオブジェクト（LB）フィールドを含むファイルを有するデータベースの圧縮データ（COMPRESS 機能）	DDAUSB1	テープ／ディスク	この追加データセットは、圧縮されたラージオブジェクトレコードを受け取ります。このレコードは、最初の出力データセット（DDAUSBA）の圧縮レコードが基本ファイルにロードされるときに LOB ファイルにロードされます。
圧縮データ（COMPRESS 機能）	DDAUSBA	テープ／ディスク
圧縮解除データ（DECOMPRESS 機能）	DDAUSBA	テープ／ディスク
拒否データ	DDFEHL	テープ／ディスク
ECS エンコードオブジェクト	DDECSOJ	テープ／ディスク	UES（ユニバーサルエンコーディングサポート）に必要
ADACMP レポート	DDDRUCK	ディスク／端末／プリンタ
ADARUN メッセージ	DDPRINT	ディスク／端末／プリンタ
ADARUN パラメータ	DDCARD	ディスク／端末／リーダー
ADACMP コントロールカードおよびデータ定義	DDKARTE	ディスク／端末／リーダー

JCL の例（z/VM）

ADACMP COMPRESS

DATADEF DDEBAND,DSN=FILE015.CMPD015,MODE=A
DATADEF DDAUSBA,DSN=FILE015.LODD015,MODE=A
DATADEF DDFEHL,DSN=FILE015.CMPERROR,MODE=A
DATADEF DDDRUCK,DSN=ADACMP.DDDRUCK,MODE=A
DATADEF DDPRINT,DSN=ADACMP.DDPRINT,MODE=A
DATADEF DUMP,DUMMY
DATADEF DDCARD,DSN=RUNCMP.CONTROL,MODE=A
DATADEF DDKARTE,DSN=FILE001.CMPC015,MODE=A
ADARUN

RUNCMP CONTROL A1 の内容

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

FILE001 CMPC015 A1 の内容

ADACMP COMPRESS
NUMREC=1000,FDT=1,USERISN,DEVICE=dddd,eeee

VSE

ファイル	ファイル名	ストレージ	論理ユニット	追加情報
ユーザー入力データ（COMPRESS 機能）	EBAND	テープディスク	SYS010 *
圧縮データ（DECOMPRESS 機能）	EBAND	テープディスク	SYS010 *	INFILE パラメータを指定している場合は不要
ラージオブジェクト（LB）フィールドを含むファイルを有するデータベースの圧縮データ（COMPRESS 機能）	AUSB1	テープディスク		この追加データセットは、圧縮されたラージオブジェクトレコードを受け取ります。このレコードは、最初の出力データセット（AUSBA）の圧縮レコードが基本ファイルにロードされるときに LOB ファイルにロードされます。
圧縮データ（COMPRESS 機能）	AUSBA	テープディスク	SYS012 *
圧縮解除データ（DECOMPRESS 機能）	AUSBA	テープディスク	SYS012 *
拒否データ	FEHL	テープディスク	SYS017 *
ECS エンコードオブジェクト	ECSOJ	テープディスク	SYS020 *	UES（ユニバーサルエンコーディングサポート）に必要です。
ADACMP レポート	-	プリンタ	SYS009
ADARUN メッセージ	-	プリンタ	SYSLST
ADARUN パラメータ	- CARD CARD	リーダーテープディスク	SYSRDR SYS000 *
ADACMP コントロールカードおよびデータ定義	-	リーダー	SYSIPT

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

JCS の例（VSE）

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

COMPRESS の例についてはメンバ ADACMP.X、DECOMPRESS の例についてはメンバ ADACMPD.X を参照してください。

ADACMP COMPRESS

* $$ JOB JNM=ADACMP,CLASS=A,DISP=D
* $$ LST CLASS=A,DISP=D
*       COMPRESS A FILE
// JOB ADACMP
// EXEC PROC=ADAVvLIB
// EXEC PROC=ADAVvFIL
// ASSGN SYS010,TAPE
// PAUSE MOUNT LOAD INPUT FILE ON TAPE cuu
// TLBL EBAND,'EXAMPLE.DByyyyy.UNCOMP01'
// MTC REW,SYS010
// DLBL AUSBA,'EXAMPLE.DByyyyy.COMP01',,SD
// EXTENT SYS016,,,,sssss,nnnnn
// ASSGN SYS016,DISK,VOL=DISK01,SHR
// DLBL FEHL,'EXAMPLE.DByyy.FEHL',,SD
// EXTENT SYS017,,,,sssss,nnnnn
// ASSGN SYS017,DISK,VOL=DISK02,SHR
// EXEC ADARUN,SIZE=ADARUN
ADARUN PROG=ADACMP,MODE=MULTI,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
ADACMP COMPRESS FILE=1
ADACMP FNDEF='01,AA,008,B,DE'
ADACMP FNDEF='01,BA,020,A,NU,DE'
ADACMP FNDEF='01,BB,015,A,NU,DE'
ADACMP FNDEF='01,BC,001,A,FI'
ADACMP FNDEF='01,CA,001,A,NU,DE'
ADACMP FNDEF='01,CB,002,U,NU,DE'
ADACMP FNDEF='01,CC,010,A,NU,DE'
ADACMP FNDEF='01,CD,002,U,NU,DE'
ADACMP FNDEF='01,DA,005,U,NU'
ADACMP FNDEF='01,DB,020,A,NU,DE'
ADACMP FNDEF='01,DC,015,A,NU,DE'
ADACMP FNDEF='01,DD,002,A,NU,DE'
ADACMP FNDEF='01,DE,005,U,NU,DE'
ADACMP FNDEF='01,DF,008,A,NU,DE'
ADACMP FNDEF='01,FA,020,A,NU,DE'
ADACMP FNDEF='01,FB,006,U,NU,DE'
ADACMP FNDEF='01,FC,006,U,NU'

ADACMP FNDEF='01,GA,002,U,NU'
ADACMP FNDEF='01,HA,002,U,NU'
ADACMP FNDEF='01,IA,002,U,NU'
ADACMP FNDEF='01,KA,002,U,NU'
ADACMP FNDEF='01,LA,030,A,NU,DE'
ADACMP SUBDE='SB=DE(3,5)'
ADACMP SUPDE='SP=CA(1,1),CB(1,2),CD(1,2)'
ADACMP PHONDE='PA(BA)'
/*
/&
* $$ EOJ

ADACMP DECOMPRESS

* $$ JOB JNM=ADACMPD,CLASS=A,DISP=D
* $$ LST CLASS=A,DISP=D
*       DECOMPRESS A FILE
// JOB ADACMPD
// EXEC PROC=ADAVvLIB
// EXEC PROC=ADAVvFIL
// ASSGN SYS010,TAPE
// PAUSE MOUNT LOAD INPUT FILE ON TAPE cuu
// TLBL EBAND,'EXAMPLE.DByyyyy.COMP01'
// MTC REW,SYS010
// DLBL AUSBA,'EXAMPLE.DByyyyy.DECOMP01',,SD
// EXTENT SYS016,,,,sssss,nnnnn
// ASSGN SYS016,DISK,VOL=DISK01,SHR
// DLBL FEHL,'EXAMPLE.DByyy.FEHL',,SD
// EXTENT SYS017,,,,sssss,nnnnn
// ASSGN SYS017,DISK,VOL=DISK02,SHR
*
* ******************************************************************
*     REMEMBER TO CUSTOMIZE PARAMETERS OF ADABAS UTILITY
* ******************************************************************
// EXEC ADARUN,SIZE=ADARUN
ADARUN PROG=ADACMP,MODE=MULTI,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
ADACMP DECOMPRESS INFILE=1
/*
/&
* $$ EOJ

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