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

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

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

• BS2000

• z/OS

• z/VM

• VSE

BS2000

ADASEL JCL の例（BS2000）

SDF フォーマットの場合：

/.ADASEL LOGON
/MODIFY-TEST-OPTIONS DUMP=YES
/REMARK *
/REMARK * A D A S E L ALL FUNCTIONS
/REMARK *
/DELETE-FILE SEL.AUS        
/SET-JOB-STEP
/CREATE-FILE SEL.AUS,PUB(SPACE=(48,48))
/SET-JOB-STEP
/ASS-SYSLST L.SEL     
/ASS-SYSDTA *SYSCMD
/SET-FILE-LINK DDLIB,ADAvrs.MOD
/SET-FILE-LINK DDASSOR1,ADAyyyyy.ASSO
/SET-FILE-LINK DDSIIN,ADAyyyyy.SIBA
/SET-FILE-LINK DDEXPA1,SEL.AUS
/START-PROGRAM *M(ADA.MOD,ADARUN),PR-MO=ANY
ADARUN PROG=ADASEL,DB=yyyyy,IDTNAME=ADABAS5B
SELECT ALL FROM FILE 11
DISPLAY AA BB BA BC CA CC
END
/LOGOFF SYS-OUTPUT=DEL

ISP フォーマットの場合：

/.ADASEL LOGON
/OPTION MSG=FH,DUMP=YES
/REMARK *
/REMARK * A D A S E L ALL FUNCTIONS
/REMARK *
/SYSFILE SYSLST=L.SEL
/FILE ADA.ASSO ,LINK=DDASSOR1
/FILE ADA.MOD ,LINK=DDLIB
/FILE ADAyyyyy.SIBA ,LINK=DDSIIN
/FILE SEL.AUS ,LINK=DDEXPA1 ,SPACE=(48,48)
/EXEC (ADARUN,ADA.MOD)
ADARUN PROG=ADASEL,DB=yyyyy,IDTNAME=ADABAS5B
SELECT ALL FROM FILE 11
DISPLAY AA BB BA BC CA CC
END
/LOGOFF NOSPOOL

z/OS

ADASEL JCL の例（z/OS）

//ADASEL    JOB
//*
//*   ADASEL:
//*      SELECT PROTECTION DATA
//*
//SEL       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
//DDSIIN    DD   DISP=OLD,DSN=EXAMPLE.DByyyyy.PLOG5     <=== OUTPUT ADARES
//*                                                                PLCOPY
//DDEXPA1   DD   DISP=(,CATLG),DSN=EXAMPLE.DByyyyy.EXPA1, <= OUTPUT ADASEL
//               SPACE=(TRK,(10,5),RLSE),VOL=SER=vvvvvv,UNIT=uuuu
//DDDRUCK   DD   SYSOUT=X
//DDPRINT   DD   SYSOUT=X
//SYSUDUMP  DD   SYSOUT=X
//DDCARD    DD   *
ADARUN PROG=ADASEL,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
//DDKARTE   DD   *

*
*    SELECT UPDATES FOR FILE NUMBER 1
*
SELECT ALL FROM FILE 1
  OUTPUT TO EXPA1
END
/*

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

z/VM

例（z/VM）

DATADEF DDASSOR1,DSN=ADABASVv.ASSO,VOL=ASSOV1
DATADEF DDSIIN,DSN=ADABASVv.SIBA,UNIT=181,VOL=SIBAXX
DATADEF DDEXPA1,DSN=ADABASVv.EXPA1,MODE=A
DATADEF DDPRINT,DSN=ADASEL.DDPRINT,MODE=A
DATADEF DUMP,DUMMY
DATADEF DDDRUCK,DSN=ADASEL.DDDRUCK,MODE=A
DATADEF DDCARD,DSN=RUNSEL.CONTROL,MODE=A
DATADEF DDKARTE,DSN=ADASEL.CONTROL,MODE=A
LOAD ADARUN ( START    

RUNSEL CONTROL A1 の内容

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

ADASEL CONTROL A1 の内容

SELECT ALL FROM FILE 11
   DISPLAY ISN
END

VSE

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

ADASEL JCS の例（VSE）

* $$ JOB JNM=ADASEL,CLASS=A,DISP=D
* $$ LST CLASS=A,DISP=D
// JOB ADASEL
*       SELECT PROTECTION DATA
// EXEC PROC=ADAVvLIB
// EXEC PROC=ADAVvFIL
// PAUSE MOUNT LOAD INPUT PLOG FILE ON TAPE cuu
// ASSGN SYS010,TAPE
// TLBL SIIN,'EXAMPLE.DByyyyy.PLOG5'
// DLBL EXPA1,'EXAMPLE.ADAyyyyy.EXPA1'
// EXTENT SYS015,,,,ssss,nnnn
// ASSGN SYS015,DISK,VOL=vvvvvv,SHR
// EXEC ADARUN,SIZE=ADARUN
ADARUN PROG=ADASEL,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
*    SELECT UPDATES FOR FILE NUMBER 1
*
SELECT ALL FROM FILE 1
  OUTPUT TO EXPA1

END
/*
/&
* $$ EOJ

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

www.softwareag.com

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

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