JAUTOFT6 Sample Job Stream

Original JCL (VSE)

* $$ JOB JNM=JAUTOFT6,DISP=D,CLASS=4,PRI=3,XDEST=(PNET2,JOHN)
* $$ LST DISP=D,CLASS=Q,COPY=1,FNO=STK1
// JOB JAUTOFT6 AUTO/FT FILE TRANSFER
* PHOENIX AUTO/FT NON-DRIVER MODE P.90 - LAST UPDATED 01/02/03
// LIBDEF PHASE,SEARCH=(PHOENIX.PHOENIX)
// ASSGN SYS004,SYSLST  LOG
// ASSGN SYS005,SYSLST  PRINTER
// ASSGN SYS006,UA      NO NODE NAMES
// DLBL  SYS007,'AUTOFT.AUDIT.CLST',0,VSAM,CAT=DOSCAT
// DLBL FTMONTH,'PROD.FTMONTH.DAT.CLST',0,VSAM,CAT=DOSCAT,             C
               RECSIZE=00132,                                          C
               RECORDS=(05000,05000)
//      EXTENT ,DOS907,1
//      EXTENT ,DOS908,1
// EXEC AUTOFT,SIZE=AUTO,PARM='WAIT(1),LOCK(1),SIZE(100)'
LOGON
 APPLID(AUTOFT1 AUTOFT2 AUTOFT3 AUTOFT4)
 USERID(PROD)
STATION
 NAME(NLU0402)
 DIRECTORY(C:\DOWNLOAD)
 PKTSIZE(32K)
INPUT
 DDNAME(FTMONTH)
 LRECL(132)
 BLKSIZE(31944)
 RECFM(F)
DOWNLOAD
 DIRECTORY(C:\DOWNLOAD)
 DOSFILENAME(FTMONTH.TXT)
 INPUT(FTMONTH)
 CRLF(YES)
 REPLACE(YES)
/*
/&
* $$ EOJ
   

Return to the Sample Job Stream List

Translated JCL (MVS)

//JAUTOFT6 JOB (JAUTOFT6),'                    ',
//             CLASS=A,
//             MSGCLASS=X,
//             MSGLEVEL=(1,1),
//             REGION=6M
//*
//JOBLIB  INCLUDE MEMBER=JOBLIB
//*
//* PHOENIX AUTO/FT NON-DRIVER MODE P.90 - LAST UPDATED 01/02/03
//*
//*     STEP0010  PGM=AUTOFT
//*
//STEP0010 EXEC PGM=AUTOFT,PARM='WAIT(1),LOCK(1),SIZE(100)'
//*    VS    I DOSCAT              'AUTOFT.AUDIT.CLST'
//SYS007   DD  DSN=MVS.AUTOFT.AUDIT.CLST,
//             DISP=SHR
//*    VS    I DOSCAT              'PROD.FTMONTH.DAT.CLST'
//FTMONTH  DD  DSN=MVS.PROD.FTMONTH.DAT.CLST,
//             DISP=SHR
//* PR O SYS005 00E 0001
//SYSPRINT DD  SYSOUT=(Q,,STK1),
//             COPIES=1
//* PR O SYS004 00E 0001
//SYSLOG   DD  SYSOUT=(Q,,STK1),
//             COPIES=1
//* CD I SYSIPT 00C
//SYSIN    DD  *
LOGON
 APPLID(AUTOFT1 AUTOFT2 AUTOFT3 AUTOFT4)
 USERID(PROD)
STATION
 NAME(NLU0402)
 DIRECTORY(C:\DOWNLOAD)
 PKTSIZE(32K)
INPUT
 DDNAME(FTMONTH)
 LRECL(132)
 BLKSIZE(31944)
 RECFM(F)
DOWNLOAD
 DIRECTORY(C:\DOWNLOAD)
 DOSFILENAME(FTMONTH.TXT)
 INPUT(FTMONTH)
 CRLF(YES)
 REPLACE(YES)
/*
//
   

Return to the Sample Job Stream List