ETERNUS SF XL-DATA/MV 使用手引書 |
目次
索引
![]() ![]() |
第8章 V10/V11L10からの移行 | > 8.1 V11L20/V11L30/V11L40での変更点 | > 8.1.1 転送用JCLの変更例(MSPの場合) |
ETERNUS8000/ETERNUS6000/ETERNUS GR800 series、F6494/F6495/F6496/F6497を使用する場合の変更内容を説明します。
[変更前JCL]
----+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8
//SENDJOB JOB CLASS=A,MSGCLASS=Y,USER=GSUSER1
// EXEC PGM=KJUMFTF,REGION=1024K
//SYSPRINT DD SYSOUT=*
//SENDIN DD DSN=PSFILE,DISP=SHR
//SENDOUT DD DSN=XCA.CNTL01,DISP=OLD,VOL=SER=XCA001,UNIT=SYSDA
//SYSIN DD *
*
SEND -
mftfuser -
/usr/tmp/mftf
/*
[変更後JCL]
----+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8
//SENDJOB JOB CLASS=A,MSGCLASS=Y,USER=GSUSER1
// EXEC PGM=KJUAMFTF,REGION=1024K (1)
//SYSPRINT DD SYSOUT=*
//SENDIN DD DSN=PSFILE,DISP=SHR
(2)
//SYSIN DD *
*
CKDDISK(volser) - (3)
SEND -
mftfuser -
/usr/tmp/mftf
/*(1): PGMをKJUAMFTFに変更します。
(2): SENDOUT DD文を削除します。
(3): CKDDISK制御文を記述します。
[変更前JCL]
----+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8
//RECVJOB JOB CLASS=A,MSGCLASS=Y,USER=GSUSER1
// EXEC PGM=KJUMFTF,REGION=1024K
//SYSPRINT DD SYSOUT=*
//RCVOUT DD DSN=PSFILE,DISP=OLD,
// DCB=(DSORG=PS,BLKSIZE=3120,LRECL=80,RECFM=FB)
//RCVIN DD DSN=XCA.CNTL01,DISP=OLD,VOL=SER=XCA001,UNIT=SYSDA
//SYSIN DD *
*
RECEIVE -
mftfuser -
/usr/tmp/mftf
/*
[変更後JCL]
----+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8
//RECVJOB JOB CLASS=A,MSGCLASS=Y,USER=GSUSER1
// EXEC PGM=KJUAMFTF,REGION=1024K (1)
//SYSPRINT DD SYSOUT=*
//RCVOUT DD DSN=PSFILE,DISP=OLD,
// DCB=(DSORG=PS,BLKSIZE=3120,LRECL=80,RECFM=FB)
(2)
//SYSIN DD *
*
CKDDISK(volser) - (3)
RECEIVE -
mftfuser -
/usr/tmp/mftf
/*(1): PGMをKJUAMFTFに変更します。
(2): RCVIN DD文を削除します。
(3): CKDDISK制御文を記述します。
[変更前JCL]
----+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8
//SENDJOB JOB CLASS=A,MSGCLASS=Y,USER=GSUSER1
// EXEC PGM=KJUMFTF,REGION=1024K
//SYSPRINT DD SYSOUT=*
//SENDIN DD DSN=PSFILE,DISP=SHR
//SENDOUT DD DSN=XCA.CNTL01,DISP=OLD,VOL=SER=XCA001,UNIT=SYSDA
//SYSIN DD *
*
SEND -
NT -
D:\WORK\MFTFDATA\MFTF
/*
[変更後JCL]
----+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8
//SENDJOB JOB CLASS=A,MSGCLASS=Y,USER=GSUSER1
// EXEC PGM=KJUAMFTF,REGION=1024K (1)
//SYSPRINT DD SYSOUT=*
//SENDIN DD DSN=PSFILE,DISP=SHR
(2)
//SYSIN DD *
*
CKDDISK(volser) - (3)
SEND -
WINDOWS - (4)
D:\WORK\MFTFDATA\MFTF
/*(1): PGMをKJUAMFTFに変更します。
(2): SENDOUT DD文を削除します。
(3): CKDDISK制御文を記述します。
(4): WINDOWS制御文に変更します。
[変更前JCL]
----+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8
//RECVJOB JOB CLASS=A,MSGCLASS=Y,USER=GSUSER1
// EXEC PGM=KJUMFTF,REGION=1024K
//SYSPRINT DD SYSOUT=*
//RCVOUT DD DSN=PSFILE,DISP=OLD,
// DCB=(DSORG=PS,BLKSIZE=3120,LRECL=80,RECFM=FB)
//RCVIN DD DSN=XCA.CNTL01,DISP=OLD,VOL=SER=XCA001,UNIT=SYSDA
//SYSIN DD *
*
RECEIVE -
NT -
D:\WORK\MFTFDATA\MFTF
/*
[変更後JCL]
----+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8
//RECVJOB JOB CLASS=A,MSGCLASS=Y,USER=GSUSER1
// EXEC PGM=KJUAMFTF,REGION=1024K (1)
//SYSPRINT DD SYSOUT=*
//RCVOUT DD DSN=PSFILE,DISP=OLD,
// DCB=(DSORG=PS,BLKSIZE=3120,LRECL=80,RECFM=FB)
(2)
//SYSIN DD *
*
CKDDISK(volser) - (3)
RECEIVE -
WINDOWS - (4)
D:\WORK\MFTFDATA\MFTF
/*(1): PGMをKJUAMFTFに変更します。
(2): RCVIN DD文を削除します。
(3): CKDDISK制御文を記述します。
(4): WINDOWS制御文に変更します。
目次
索引
![]() ![]() |