1. No category

CA-Roscoe R6.0
ROSGBL, ROJES2XT
再アセンブル・リンク
について
CA Technologies
Advantage CA-Roscoe ROSGBL ROJES2XT 再アセンブル ・リンク
目次
（１） 作業を行なう前に．
．
．...................................................................... 3
（２） PTF の適用について ........................................................................ 3
（３） ROSGBL の設定について ..................................................................... 8
（４） JESEXIT の導入について ................................................................... 13
（５） JESPARM 設定について ..................................................................... 15
Advantage CA-Roscoe ROSGBL ROJES2XT 再アセンブル ・リンク
（１） 作業を行なう前に．．．
・ この作業は、SMP 方式で行ないます。
・ この作業で使用する各 JCL メンバーは、今後の利用を考慮して別名で保存して下さい。
（例えば、メンバー名の頭に｢@｣を追加し｢@XXXXXXX｣といった名称に変更して下さい。導入後に元の JCL 内容
が必要になるケースがあります。
）
・ ご利用中の CA-Roscoe のレベルが古い場合、最新予防保守 PTF を含んだ最新レベルへのアップグレードを推
奨致します。
（２） PTFの適用について
１．導入時に使用した“PTF 適用 JCL”が、
“Prefix.PTFLIB”格納されている場合は、これを使用してくださ
い。
適用 PTF は、
“Prefix.PTFLIB”にファイル転送で保存してください。
サンプルＪＣＬ：
//JOBCARD
//*--------------------------------------------------------------------*
//*
CA-ROSCOE R6.0
*
//*
PTF RECEIVE & APPLY JCL OF OS/390.
*
//*--------------------------------------------------------------------*
//CAIRO60 PROC TLIB=volume,
/* VOLSER FOR SMPTLIB WORK VOL
//
PERMDA=SYSDA,
/* UNIT NAME FOR PERM DATA SETS
//
WORK=SYSDA,
/* UNIT NAME FOR TEMP DATA SETS
//
SYSOUT='*',
/* STANDARD SYSOUT CLASS
//
CAI=datasetPrefix.'
/* DATA SET PREFIX
//*--------------------------------------------------------------------*
//SMPE
EXEC PGM=GIMSMP,REGION=4096K,PARM='DATE=U'
//*--------------------------------------------------------------------*
//*
SYSOUT DATA SETS
*
//*--------------------------------------------------------------------*
//SMPOUT DD SYSOUT=&SYSOUT
//SMPRPT DD SYSOUT=&SYSOUT
//SMPLIST DD SYSOUT=&SYSOUT
//SMPSNAP DD SYSOUT=&SYSOUT
//SYSPRINT DD SYSOUT=&SYSOUT
//SYSUDUMP DD SYSOUT=&SYSOUT
//*--------------------------------------------------------------------*
//*
SMP/E DATA SETS
*
//*--------------------------------------------------------------------*
//SMPPTS DD DSN=&CAI.SMPPTS,DISP=SHR
//SMPMTS DD DSN=&CAI.SMPMTS,DISP=OLD
//SMPSTS DD DSN=&CAI.SMPSTS,DISP=OLD
//SMPSCDS DD DSN=&CAI.SMPSCDS,DISP=OLD
//SMPLOG DD DUMMY
//SMPLOGA DD DUMMY
//SYSLIN DD DUMMY
//*--------------------------------------------------------------------*
//*
ZONE(S)
*
//*--------------------------------------------------------------------*
//SMPCSI DD DSN=&CAI.SMPCSI.CSI,DISP=SHR
次ページへ
Advantage CA-Roscoe ROSGBL ROJES2XT 再アセンブル ・リンク
前ページより
//*--------------------------------------------------------------------*
//*
SMP/E TEMPORARY WORK DATA SETS
*
//*--------------------------------------------------------------------*
//SMPWRK1 DD UNIT=&WORK,SPACE=(CYL,(2,2,165)),DCB=BLKSIZE=3120
//SMPWRK2 DD UNIT=&WORK,SPACE=(CYL,(2,2,165)),DCB=BLKSIZE=3120
//SMPWRK3 DD UNIT=&WORK,SPACE=(CYL,(2,2,165)),DCB=BLKSIZE=3120
//SMPWRK4 DD UNIT=&WORK,SPACE=(CYL,(2,2,165)),DCB=BLKSIZE=3120
//SMPWRK5 DD UNIT=&WORK,SPACE=(CYL,(2,2,165)),DCB=BLKSIZE=6144
//SMPWRK6 DD UNIT=&WORK,SPACE=(3120,(364,380,111)),
//
DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120,DSORG=PO)
//*--------------------------------------------------------------------*
//*
UTILITY WORK DATA SETS
*
//*--------------------------------------------------------------------*
//SMPTLIB DD UNIT=&PERMDA,VOL=SER=&TLIB,DISP=OLD
//SYSUT1 DD UNIT=&WORK,SPACE=(CYL,(5,3))
//SYSUT2 DD UNIT=&WORK,SPACE=(CYL,(5,3))
//SYSUT3 DD UNIT=&WORK,SPACE=(CYL,(5,3))
//SYSUT4 DD UNIT=&WORK,SPACE=(CYL,(5,3))
//*--------------------------------------------------------------------*
//*
SMP/E RECEIVE LIBRARY
*
//*--------------------------------------------------------------------*
//*SMPPTFIN DD &PTF.DSN=SMPMCS,DISP=(SHR,KEEP),
//*
UNIT=(&TAPE,,DEFER),
//*
VOL=(PRIVATE,SER=&TAPVOL),
//*
LABEL=(&FILE,SL,EXPDT=98000)
//*--------------------------------------------------------------------*
//*
ASSEMBLER SYSLIB DATA SET FOR
*
//*--------------------------------------------------------------------*
//SYSLIB DD DSN=SYS1.VxRxMx.SHASMAC,DISP=SHR,DCB=(BLKSIZE=32720)
//
DD DSN=&CAI.SMPMTS,DISP=SHR
//
DD DSN=&CAI.R060MAC,DISP=SHR
//*
DD DSN=&CAI.CAIMAC,DISP=SHR
//
DD DSN=SYS1.MACLIB,DISP=SHR
//
DD DSN=SYS1.MODGEN,DISP=SHR
//*
DD DSN=TLMS.MACLIB,DISP=SHR
<=== TLMS MACLIB
//*
DD DSN=CA-1.MACLIB,DISP=SHR
<=== CA-1 MACLIB
//*
DD DSN=EXTSEC.MACLIB,DISP=SHR
<=== EXTSEC MACLIB
//*--------------------------------------------------------------------*
//*
CA-ROSCOE TARGET LIBRARIES
*
//*--------------------------------------------------------------------*
//RO60LIB DD DSN=&CAI.RO60LIB,DISP=SHR
LOAD LIBRARY
//RO60MAC DD DSN=&CAI.RO60MAC,DISP=SHR
MACRO LIBRARY
//RO60OPT DD DSN=&CAI.RO60OPT,DISP=SHR
OPTIONS LIBRARY
//*--------------------------------------------------------------------*
//*
CAI TARGET LIBRARIES
*
//*--------------------------------------------------------------------*
//*CAILIB DD DSN=&CAI.CAILIB,DISP=SHR
//*CAICLIB DD DSN=&CAI.CAICLIB,DISP=SHR
CLIST LIBRARY
//*CAIMAC DD DSN=&CAI.CAIMAC,DISP=SHR
MACRO LIBRARY
//*CAIOPTN DD DSN=&CAI.PPOPTION,DISP=SHR
OPTIONS LIBRARY
//*CAIPROC DD DSN=&CAI.CAIPROC,DISP=SHR
PROCS LIBRARY
//*CAISRC DD DSN=&CAI.CAISRC,DISP=SHR
CAI SOURCE
次ページへ
Advantage CA-Roscoe ROSGBL ROJES2XT 再アセンブル ・リンク
前ページより
//*--------------------------------------------------------------------*
//*
CAI DISTRIBUTION LIBRARIES
*
//*--------------------------------------------------------------------*
//CRO60LLD DD DSN=&CAI.CRO60LLD,DISP=SHR CA-ROSCOE LOADLIB
//CRO60MLD DD DSN=&CAI.CRO60MLD,DISP=SHR CA-ROSCOE MACLIB
//CRO60SLD DD DSN=&CAI.CRO60SLD,DISP=SHR CA-ROSCOE SOURCE
//*CZ270LLD DD DSN=&CAI.JCOM.CZ270LLD,DISP=SHR CA-JCLCHK LOADLIB
//*CZ270MLD DD DSN=&CAI.JCOM.CZ270MLD,DISP=SHR CA-JCLCHK MACLIB
//*--------------------------------------------------------------------*
//*
IF CA-ROSCOE WAS INSTALLED VIA CA-ACTIVATOR, THE CA-PROFILE
//*
DISTRIBUTION LIBRARY, CPP10LLD, SHOULD BE COMMENTED OUT.
//*--------------------------------------------------------------------*
//*CPP10LLD DD DSN=&CAI.PROFILE.CPP10LLD,DISP=SHR CA-PROFILE LOADLIB
//*--------------------------------------------------------------------*
//*
THE CA90S SERVICES DISTRIBUTION LIBRARIES SHOULD HAVE
//*
ALREADY BEEN INCLUDED IN YOUR SMP PROC FROM THE INSTALLATION
//*
OF THE CA90S SERVICES (S910 COMPONENT)
//*--------------------------------------------------------------------*
//
PEND
//RO60PTF EXEC CAIRO60
//SMPHOLD DD DUMMY
//SMPPTFIN DD DISP=SHR,DSN=Prefix.PTFLIB(PTF No)
//SMPCNTL DD *
SET BDY(GLOBAL).
RECEIVE SELECT(PTF No).
SET BDY(CAITGT).
APPLY SELECT(PTF No) BYPASS(ID) .
//
SET BDY(CAITGT).
LIST SYSMODS APARS PTFS USERMODS.
//
SET BDY(CAITGT).
RESTORE SELECT(PTF No).
//
SET BDY(GLOBAL).
REJECT SELECT(PTF No) BYPASS(APPLYCHECK).
Advantage CA-Roscoe ROSGBL ROJES2XT 再アセンブル ・リンク
２．PTF 適用 JCL の修正と実行
下記の内容を参考にＪＣＬを変更してジョブを実行して下さい。
実行後のリターン・コードが“4”以下であれば正常処理です。
//JOBCARD
//*--------------------------------------------------------------------*
//*
CA-ROSCOE R6.0
*
//*
PTF RECEIVE & APPLY JCL
*
//*--------------------------------------------------------------------*
← この位置に ’Prefix.SAMPJCL(CAIRO60)’を挿入して下さい。
若干修正ヶ所がありますので、後述の PTF 用 CAIRO60 を参照して下さい。
//
PEND
← PEND を指定します。
//*
//RO60PTF EXEC CAIRO60
//*
//SMPHOLD DD DUMMY
//SMPPTFIN DD DSN=&CAI.PTFLIB(XXXXXXX),DISP=SHR
<-- 適用する PTF 番号を指定してください
//
DD DSN=&CAI.PTFLIB(XXXXXXX),DISP=SHR
に入力して下さい。
//
：
//
：
//
：
//SMPCNTL DD *
SET BDY(GLOBAL) .
<-- 環境にあわせて下さい。
RECEIVE SELECT ( XXXXXXX,
<-- 適用する PTF 番号を指定してください
：
：
XXXXXXX ) .
SET BDY(CAITGT) .
<-- 環境にあわせて下さい。
APPLY SELECT ( XXXXXXX ) ASSEM BYPASS(ID) . <-- 適用する PTF 番号を指定してください。
：
：
APPLY SELECT ( XXXXXXX ) ASSEM BYPASS(ID) .
/*
//
３．PTF の適用に失敗した場合は、DD 名 SMPCNTL を以下のように変更し、実行して下さい。
//*----------- RESTORE CARD ---------------------------*
//SMPCNTL DD *
SET BDY(CAITGT) .
RESTORE SELECT ( XXXXXXX ) .
//
Advantage CA-Roscoe ROSGBL ROJES2XT 再アセンブル ・リンク
PTF 用 CAIRO60
//*--------------------------------------------------------------------*
//*
PROCEDURE: CAIRO60
*
//*--------------------------------------------------------------------*
//CAIRO60 PROC PTF='DUMMY,',
<--PTF パラメータを削除して下さい。
//
TLIB=XXXXXX,
<--VOLUME 名を指定して下さい。
//
PERMDA=SYSDA,
<--UNIT 名を指定して下さい。
//
WORK=SYSDA,
<--UNIT 名を指定して下さい。
//
SYSOUT='*',
<--SYSOUT クラスを指定して下さい。
//
CAI='CAI.'
<--プレフィックスを指定して下さい。
//*
TAPE=TAPE,
<--TAPE パラメータを削除して下さい。
//*
TAPVOL=ROYYMM,
<--TAPVOL パラメータを削除して下さい。
//*
FILE=32
<--FILE パラメータを削除して下さい。
//*--------------------------------------------------------------------*
//*
SMP/E RECEIVE LIBRARY
*
//*--------------------------------------------------------------------*
//*SMPPTFIN DD &PTF.DSN=SMPMCS,DISP=(SHR,KEEP), <--SMFPTFIN DD は削除して下さい。
//*
UNIT=(&TAPE,,DEFER),
//*
VOL=(PRIVATE,SER=&TAPVOL),
//*
LABEL=(&FILE,SL,EXPDT=98000)
:
:
:
//*--------------------------------------------------------------------*
//*
ASSEMBLER SYSLIB DATA SET FOR OS/390 SYSYTEM
*
//*--------------------------------------------------------------------*
//SYSLIB DD DSN=SYS1.VxRxMx.SHASMAC,DISP=SHR,DCB=(BLKSIZE=32720)
//
DD DSN=&CAI.SMPMTS,DISP=SHR
//
DD DSN=&CAI.R060MAC,DISP=SHR
//
DD DSN=SYS1.MACLIB,DISP=SHR
//
DD DSN=SYS1.MODGEN,DISP=SHR
//*
DD DSN=&CAI.CAIMAC,DISP=SHR
<== CA COMMON MACROS
//*
DD DSN=TLMS.MACLIB,DISP=SHR
<=== TLMS MACLIB
//*
DD DSN=CA-1.MACLIB,DISP=SHR
<=== CA-1 MACLIB
//*
DD DSN=EXTSEC.MACLIB,DISP=SHR
<=== EXTSEC MACLIB
//*--------------------------------------------------------------------*
注意：
上記 SYSLIB コンカチ順は間違いのないように指定してくだい。
誤った指定を行うと、CA-Roscoe もしくは JES の ABEND 原因となります。
Advantage CA-Roscoe ROSGBL ROJES2XT 再アセンブル ・リンク
（３） ROSGBLの設定について
ROSGBL（JESインターフェース）の定義を行ないます。
ROSGBL 中のパラメータで、MVSSPL、JESSPL は、導入する OS のリリースによって設定値が異なります。リ
リースによる設定値は、それぞれの OS への対応 PTF 内のコメントに記述があります。
z/OS 2.1
PTF RO65153
MVSSPL=ZOS210
JESSPL=ZOS210
z/OS 1.13 PTF RO35278
MVSSPL=ZOS1D0
JESSPL=ZOS1D0
z/OS 1.12 PTF RO22957
MVSSPL=ZOS1C0
JESSPL=ZOS1C0
z/OS 1.11 PTF
RO12867
MVSSPL=ZOS1B0
JESSPL=ZOS1B0
z/OS 1.10 PTF
RO02554
MVSSPL=ZOS1A0
JESSPL=ZOS1A0
z/OS 1.9
QO92054
MVSSPL=ZOS190
JESSPL=ZOS190
PTF
注：上記 PTF 以外にも前提となる PTF 等がございますので、必要に応じて CA サポートまでお問い合わせ
ください。
ROSGBL中のその他パラメータ内容については、
“システム・リファレンス・マニュアル”をご参照ください。
Advantage CA-Roscoe ROSGBL ROJES2XT 再アセンブル ・リンク
メンバー：Prefix.SAMPJCL（MRO6010）
//JOBCARD JOB ...
//*********************************************************************
//*
*
//* RECEIVE AND APPLY CA-ROSCOE PRODUCT USERMOD.
*
//*
*
//* THIS USERMOD SHOULD BE USED TO TAILOR ROSGBL FOR YOUR
*
//* JES 2 ENVIRONMENT.
*
//*
*
//* NOTES:
*
//*
*
//*
1. MAKE APPLICABLE MODIFICATIONS TO THE PARAMETERS IN
*
//*
MEMBER ROSGBL2 IN THE RO60OPT LIBRARY. SEE BELOW IN
*
//*
ACCEPTABLE PARAMETERS FOR "SYSTEM=", "MVSSPL=" AND
*
//*
"JESSPL=" VALUES.
*
//*
*
//*
2. TO MAKE ADDITIONAL CHANGES AFTER THE INITIAL APPLY OF
*
//*
THIS USERMOD, YOU SHOULD EXECUTE AN SMP RESTORE, THEN
*
//*
RECEIVE AND APPLY AGAIN. SYSMOD CRO6000 AND ANY PTF'S
*
//*
AGAINST ROSGBL MUST BE ACCEPTED BEFORE EXECUTING THE
*
//*
RESTORE.
*
//*
*
//*
3. NOTE THAT YOU MAY NEED TO ADD ADDITIONAL SYSTEM LIBRARIES *
//*
TO THE SYSLIB CONCATENATION IN PROCEDURE CAIRO60 FOR A
*
//*
SUCCESSFUL ASSEMBLY DURING THE APPLY OF THIS USERMOD.
*
//*
*
//*
4. DO NOT ACCEPT THIS USERMOD.
*
//*
*
//*********************************************************************
次ページへ
Advantage CA-Roscoe ROSGBL ROJES2XT 再アセンブル ・リンク
前ページより
//*
*
//*
ACCEPTABLE PARAMETERS
*
//*
*
//* SYSTEM=
OS/390
MVSESA
MVSXA
MVS
* <-- SYSTEMパラメータ設定値
//*
z/OS
*
//*-------------------------------------------------------------------*
//*
*
//* MVSSPL=
ZOS140 z/OS V1R4
ZOS130 z/OS V1R3
* <-- MVSSPLパラメータ設定値
//*
ZOS120 z/OS V1R2
ZOS110 z/OS V1R1
*
//*
OS2100 OS/390 2.10.0
*
//*
OS290 OS/390 2.9.0
*
//*
OS280 OS/390 2.8.0
OS270 OS/390 2.7.0
*
//*
OS260 OS/390 2.6.0
OS250 OS/390 2.5.0
*
//*
OS240 OS/390 2.4.0
OS130 OS/390 1.3.0
*
//*
OS120 OS/390 1.2.0
OS120 OS/390 1.1.0
*
//*
SP522 MVS/ESA 5.2.2
SP510 MVS/ESA 5.1.0
*
//*
SP430 MVS/ESA 4.3.0
SP422 MVS/ESA 4.2.2
*
//*
SP420 MVS/ESA 4.2.0
SP410 MVS/ESA 4.1.0
*
//*
SP313 MVS/ESA 3.1.3
SP312 MVS/ESA 3.1.2
*
//*
SP311 MVS/ESA 3.1.1
SP310E MVS/ESA 3.1.0E
*
//*
SP310 MVS/ESA 3.1.0
SP223 MVS/XA 2.2.3
*
//*
SP221 MVS/XA 2.2.1
SP220 MVS/XA 2.2.0
*
//*
SP217 MVS/XA 2.1.7
SP215 MVS/XA 2.1.5
*
//*
SP213 MVS/XA 2.1.3
SP212 MVS/XA 2.1.2
*
//*
SP211 MVS/XA 2.1.1
SP210 MVS/XA 2.1.0
*
//*
SP136 MVS 1.3.6
SP135 MVS 1.3.5
*
//*
SP134 MVS 1.3.4
SP133 MVS 1.3.3
*
//*
*
//*-------------------------------------------------------------------*
//*
*
//* JESSPL= ZOS140 JES2 1.4.0
* <-- JESSPLパラメータ設定値
//*
ZOS130 JES2 1.3.0
ZOS120 JES2 1.2.0
*
//*
OS2100 JES2 2.10.0
*
//*
OS280 JES2 2.8.0
OS270 JES2 2.7.0
*
//*
OS250 JES2 2.5.0
OS240 JES2 2.4.0
*
//*
OS130 JES2 1.3.0
SP530 JES2 5.3.0
*
//*
SP522 JES2 5.2.2
SP520 JES2 5.2.0
*
//*
SP430 JES2 4.3.0
SP420 JES2 4.2.0
*
//*
SP410 JES2 4.1.0
SP313 JES2 3.1.3
*
//*
SP312 JES2 3.1.2
SP311 JES2 3.1.1
*
//*
SP310 JES2 3.1.0
SP223 JES2 2.2.3
*
//*
SP220 JES2 2.2.0
SP217 JES2 2.1.7
*
//*
SP215 JES2 2.1.5
SP213 JES2 2.1.3
*
//*
SP212 JES2 2.1.2
SP211 JES2 2.1.1
*
//*
SP210 JES2 2.1.0
SP136 JES2 1.3.6
*
//*
SP135 JES2 1.3.5
SP134 JES2 1.3.4
*
//*-------------------------------------------------------------------*
//*
次ページへ
Advantage CA-Roscoe ROSGBL ROJES2XT 再アセンブル ・リンク
前ページより
//*
*
//** EXECUTE YOUR PRODUCT'S SMP PROCEDURE **
<-- SMPプロシージャを記述
//*
//MRO6010 EXEC CAIRO60
<-- SMPプロシージャ名称を指定
//*
//SMPPTFIN DD DATA,DLM=$$
++USERMOD(MRO6010)
/* IDENTIFY USERMOD */.
++VER(Z038) FMID(CRO6000).
++JCLIN.
//MRO6010 JOB 1,'CA-ROSCOE MRO6010',MSGLEVEL=1,REGION=256K
//*--------------------------------------------------------------------*
//*
CA-ROSCOE RELEASE 6.0
*
//*
ASSEMBLE ROSGBL
*
//*--------------------------------------------------------------------*
//ASM1
EXEC PGM=ASMA90,REGION=2M,
//
PARM='DECK,NOOBJECT,XREF(SHORT)'
//SYSPUNCH DD DSN=CAI.CRO60LLD(ROSGBL2),DISP=OLD
//CRO60LLD DD DSN=CAI.CRO60LLD,DISP=SHR
//CRO60OPT DD DSN=CAI.CRO60OPT,DISP=SHR
//*
//LINK1
EXEC PGM=IEWL,PARM='XREF,LIST,NORENT'
//SYSLMOD DD DSN=CAI.RO60LIB,DISP=SHR
//SYSLIN
DD *
INCLUDE CRO60LLD(ROSGBL2)
ENTRY
ROSGBL
NAME
ROSGBL(R)
//*
++SRC (ROSGBL2) DISTLIB(CRO60MLD) DISTMOD(CRO60LLD) TXLIB(RO60OPT). <-- ROSGBLソースを指定
$$
(ここではPrefix.RO60OPTのROSGBL2)
//*
//* ======>
DEFINE SMP SELECT CONTROL STATEMENTS
//*
//SMPCNTL DD *
SET BDY(GLOBAL).
RECEIVE SELECT(MRO6010) SYSMODS LIST.
SET BDY(CRO60T).
<-- ターゲット名称を合わせて指定してください
APPLY SELECT(MRO6010) ASSEM BYPASS(ID) .
//
SET BDY(CRO60T).
RESTORE SELECT(MRO6010).
定義処理を行った後で、定義内容（パラメータ内容）に変更を行う場合は、JCL中の定義内容を変更の上、DD名
SMPCNTL を以下のように変更定義処理を行ってください。
//*----------- RESTORE CARD ---------------------------*
//SMPCNTL DD *
SET BDY(CAITGT) .
RESTORE SELECT ( MRO6010 ) .
//
Advantage CA-Roscoe ROSGBL ROJES2XT 再アセンブル ・リンク
ROSGBLソース例
メンバー：Prefix.PPOPTION（ROSGBL2）
OS/390 R2.10の場合
ROSGBL
ROSGBL SYSTEM=OS/390,
CMDTAB=$ALL,
DISACCT=NO,
DISBUF=8,
DISPRI=JOE,
FILEDSP=NOPRINT,
FILES=8,
FINDCT=100000,
JES=JES2,
JESNAME=JES2,
JESSPL=OS2100,
LOGNAME=SYSLOG,
MAXFIND=100000,
MVSSPL=OS2100,
MEMORY=36,
NOTES=1,
PAGES=128,
PREKEY=(1,00,3),
PRINTAL=YES
END
X <-- MRO6010内のコメントよりSYSTEMにはOS/390を指定
X
X
X
X
X
X
X
X
X
X <-- MRO6010内のコメントよりJESSPLにはOS2100を指定
X
X
X <-- MRO6010内のコメントよりMVSSPLにはOS2100を指定
X
X
X
X
z/OS 1.4の場合
ROSGBL
ROSGBL SYSTEM=Z/OS,
CMDTAB=$ALL,
DISACCT=NO,
DISBUF=8,
DISPRI=JOE,
FILEDSP=NOPRINT,
FILES=8,
FINDCT=100000,
JES=JES2,
JESNAME=JES2,
JESSPL=ZOS140,
LOGNAME=SYSLOG,
MAXFIND=100000,
MVSSPL=ZOS140,
MEMORY=36,
NOTES=1,
PAGES=128,
PREKEY=(1,00,3),
PRINTAL=YES
END
X <-- MRO6010内のコメントよりSYSTEMにはZ/OSを指定
X
X
X
X
X
X
X
X
X
X <-- MRO6010内のコメントよりJESSPLにはZOS140を指定
X
X
X <-- MRO6010内のコメントよりMVSSPLにはZOS140を指定
X
X
X
X
注） PREKEYについて
PREKEYパラメータは｢DIS｣コマンドでJOBを表示する際、JOB名開始位置、サインオンキー名もしくはPREFIXキー
名、桁数を設定します。デフォルトはPREKEY=(1,00,3)でPREFIX名3桁にてJOBを表示します。ユーザー名で表示
する場合にはPREKEY=(1,1,7)といった設定に修正してください。
PREKEY=(jobstart,keystart,len)
jobstart JOB名の開始位置。
keystart サインオンキー開始位置もしくはPREFIXキー。0を指定した場合にはPREFIXキー。
len
サインオンキーもしくはPREFIXキーの桁数
Advantage CA-Roscoe ROSGBL ROJES2XT 再アセンブル ・リンク
（４） JESEXITの導入について
ROJES2XT(JESEXIT)の定義を行ないます。
JES は、JES SP4.1.0 以降、保留ファイルの出力グループが厳密にグループ化されております。これらに
対応するためには、ROJERS2XT を導入する必要があります。
ROJES2XT の ソ ー ス 部 分 が 古 い 場 合 、 JES の ア ベ ン ド を 引 き 起 こ す 可 能 性 が あ り ま す 。
Prefix.RO60OPT(ROJES2XT)には、過去に報告された障害対応など修正更新されております。旧リリースの
ROJES2XT を使用することは、これら予防保守が未適用状態となります。必ず PTF 適用後の最新版の Prefix.
RO60OPT (ROJES2XT)を使用してください。
メンバー：Prefix.SAMPJCL（MRO6029）
//JOBCARD JOB ...
//*********************************************************************
//*
*
//* RECEIVE AND APPLY CA-ROSCOE PRODUCT USERMOD.
*
//*
*
//* THIS USERMOD SHOULD BE USED TO TAILOR ROJES2XT FOR YOUR
*
//* ENVIRONMENT.
*
//*
*
//* NOTES:
*
//*
*
//*
1. ---------------> DO NOT ACCEPT THIS USERMOD <----------*
//*
*
//*
2. TO MAKE ADDITIONAL CHANGES AFTER THE INITIAL APPLY OF
*
//*
THIS USERMOD, YOU SHOULD EXECUTE AN SMP RESTORE, THEN
*
//*
RECEIVE AND APPLY AGAIN. SYSMOD CRO6000 AND ANY PTF'S
*
//*
AGAINST ROJES2XT MUST BE ACCEPTED BEFORE EXECUTING THE
*
//*
RESTORE.
*
//*
*
//*
3. NOTE THAT YOU MAY NEED TO ADD ADDITIONAL SYSTEM LIBRARIES *
//*
TO THE SYSLIB CONCATENATION IN PROCEDURE CAIRO60 FOR A
*
//*
SUCCESSFUL ASSEMBLY DURING THE APPLY OF THIS USERMOD.
*
//*
*
//*********************************************************************
//*
//** EXECUTE YOUR PRODUCT'S SMP PROCEDURE **
<-- SMPプロシージャを記述
//*
//MRO6029 EXEC CAIRO60
<-- SMPプロシージャ名称を指定
//*
//SMPPTFIN DD DATA,DLM=$$
++USERMOD(MRO6029)
/* IDENTIFY USERMOD */.
++VER(Z038) FMID(CRO6000).
++JCLIN.
//MRO6029 JOB 1,'CA-ROSCOE MRO6029',MSGLEVEL=1,REGION=256K
次ページへ
Advantage CA-Roscoe ROSGBL ROJES2XT 再アセンブル ・リンク
前ページより
//*--------------------------------------------------------------------*
//*
CA-ROSCOE RELEASE 6.0
*
//*
ASSEMBLE ROJES2XT
*
//*--------------------------------------------------------------------*
//ASM1
EXEC PGM=ASMA90,REGION=2M,
//ASM1
EXEC PGM=ASMA90,REGION=2M,
//
PARM='DECK,NOOBJECT,XREF(SHORT)'
//SYSPUNCH DD DSN=CAI.CRO60LLD(ROJES2XT),DISP=OLD
//CRO60LLD DD DSN=CAI.CRO60LLD,DISP=SHR
//CRO60OPT DD DSN=CAI.CRO60OPT,DISP=SHR
//*
//LINK1
EXEC PGM=IEWL,PARM='XREF,LIST,RENT'
//SYSLMOD DD DSN=CAI.RO60LIB,DISP=SHR
//SYSLIN
DD *
INCLUDE CRO60LLD(ROJES2XT)
ENTRY
ROJES2XT
NAME
ROJES2XT(R)
//*
++SRC (ROJES2XT) DISTLIB(CRO60MLD) DISTMOD(CRO60LLD) TXLIB(RO60OPT). <-- ROJES2XTLソースを指定
$$
(Prefix.RO60OPTのROJES2XT)
//*
//* ======>
DEFINE SMP SELECT CONTROL STATEMENTS
//*
//SMPCNTL DD *
SET BDY(GLOBAL).
RECEIVE SELECT(MRO6029) SYSMODS LIST.
SET BDY(CRO60T).
<-- ターゲット名称を合わせて指定してください
APPLY SELECT(MRO6029) ASSEM BYPASS(ID).
//
SET BDY(CRO60T).
RESTORE SELECT(MRO6029).
定義処理を行った後で、再度アセンブル・リンク処理を行う場合は、DD名 SMPCNTL を以下のように変更定義処理
を行ってください。
//*----------- RESTORE CARD ---------------------------*
//SMPCNTL DD *
SET BDY(CAITGT) .
RESTORE SELECT ( MRO6029 ) .
//
Advantage CA-Roscoe ROSGBL ROJES2XT 再アセンブル ・リンク
（５） JESPARM設定について
JESPARMには、EXIT5に関する以下の指定を行ってください。
LOADMOD(ROJES2XT) STORAGE=PVT
LOADMOD(HASX05C) STORAGE=PVT
EXIT(5) ROUTINE=(RO$EXIT5,HASX5CTR),STATUS=ENABLED,TRACE=NO
EXIT5で2つ以上のEXITを指定する場合にはRO$EXIT5を先に指定してください
CA-Roscoe でROJES2XTのSTORAGE領域に特定な指定はありません。御社の環境、運用に合わせて指定してください。
JES2PARMにモジュールROJES2XTを登録することにより、JESはスタート時にモジュールROJES2XTをLOADします。JES
スタート時にモジュールROJES2XTが参照可能とするために、当モジュールはLINKLSTに指定してください。
ILP後CA-Roscoeの再起動を行い、JESスプールの参照等の確認を行ってください。
以上