// JOB文
//*********************************************************************
//** CREATE 99.08.05
//**
//*********************************************************************
//*********************************************************************
//** STEP1 : GENERATE ASM-SRC (FROM KZAIN-DD TO KZAOUT-DD)
//*********************************************************************
//GENSRC EXEC PGM=JVTUGSRC,REGION=1024K
//KZALIST DD SYSOUT=*
//KZAIN DD *
***********************************************************************
* COMMON DEFINITION *
***********************************************************************
JVTGCBGN
JVTGCOMM NODENM=MFCLOSE, /
FUNC=BTS, /
TYPSPI=IDCM, /
BSCALE=100, /
BBUFF=(8000,300),BUFF=(8000,100), /
BCOMNM=BFTP, /
BRBFIL=10000, /
BTSPROC=JVTJBTS
JVTGCEND
***********************************************************************
* NODE DEFINITION *
***********************************************************************
JVTGNBGN
JVTGNODE NODENM=APSNPFTP, /
TRANRTY=(12,5)
JVTGNPTH PATHNM=APSNSYS1, /
SCOMBUF=65535, /
DUPRSP=16, /
DUPINT=16, /
PROT=BFTP, /
APPLNO=1, /
GRPNM=GAPSNP, /
IPADDR=(123,45,67,120), /
PARTNM=SERVER, /
BPORT=9362
JVTGNODE NODENM=APSNPFT2, /
TRANRTY=(12,5)
JVTGNPTH PATHNM=APSNSYS2, /
SCOMBUF=65535, /
DUPRSP=16, /
DUPINT=16, /
PROT=BFTP+, /
APPLNO=2, /
GRPNM=GAPSNP, /
IPADDR=(123,45,67,120), /
PARTNM=SERVER, /
BPORT=9362
JVTGNEND
***********************************************************************
* APPL DEFINITION *
***********************************************************************
JVTGABGN
JVTGAPPL APPLNM=#APSNP, /
USEGRP=GAPSNP, /
APLTYPE=(BTS,SYS), /
TBLNM=KDIMPPDT
JVTGAEND
/*
//KZAOUT DD DSN=&&SRC,UNIT=SYSDA,SPACE=(6080,(200)),DISP=(,PASS),
// DCB=(LRECL=80,BLKSIZE=6080,RECFM=FB,DSORG=PS)
//*********************************************************************
//** STEP2 : ASM
//*********************************************************************
//ASM EXEC PGM=JLAX00,REGION=1024K,PARM='DECK,NOBATCH,NOOBJ,LIST',
// COND=(0,NE)
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD UNIT=SYSDA,SPACE=(1000,(400,50))
//SYSUT2 DD UNIT=SYSDA,SPACE=(1000,(400,50))
//SYSUT3 DD UNIT=SYSDA,SPACE=(1000,(400,50))
//SYSPUNCH DD DSN=&&DECK,UNIT=SYSDA,SPACE=(6080,(500)),DISP=(,PASS),
// DCB=(LRECL=80,BLKSIZE=6080,RECFM=FB,DSORG=PS)
//SYSIN DD DSN=&&SRC,UNIT=SYSDA,DISP=(OLD,DELETE)
//*********************************************************************
//** STEP3 : LKED
//*********************************************************************
//LKED EXEC PGM=JQAL,REGION=1024K,PARM='XREF,MAP,LET,NCAL,LIST',
// COND=(0,NE)
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD UNIT=SYSDA,SPACE=(1700,(400,50))
//SYSLIN DD DSN=&&DECK,UNIT=SYSDA,DISP=(OLD,DELETE)
//SYSLMOD DD DSN=&&LOAD,UNIT=SYSDA,SPACE=(6144,(500,,5)),
// DISP=(,PASS),DCB=(BLKSIZE=6144,RECFM=U,DSORG=PO)
//*********************************************************************
//** STEP4 : COPY
//*********************************************************************
//COPY EXEC PGM=JVTUGCPY,REGION=1024K,COND=(0,NE)
//SYSPRINT DD SYSOUT=*
//KZALIST DD SYSOUT=*
//KZADEF DD DSN=&&LOAD,DISP=(OLD,DELETE)
//KZALIB DD DSN=XXXXX.LOAD,DISP=SHR
//SYSUT3 DD UNIT=SYSDA,SPACE=(TRK,(10,1))
//SYSUT4 DD UNIT=SYSDA,SPACE=(TRK,(10,1))
//SYSIN DD *
COPY OUTDD=KZALIB,INDD=KZALIB
COPY OUTDD=KZALIB,INDD=((KZADEF,R))
/*
//