3.4 Modifying your JCL for Input or Output Files

Specify input and output file names by adding DD statements to your JCL as shown below:

Output file referred to as INFCST in program.

//USER1U JOB (PS),PSOFT,CLASS=A,MSGCLASS=X,
//*  USER=USER1,PASSWORD=password,
// NOTIFY=USER1
//**********************************************************************
//* RUN SQR
//*   
//**********************************************************************
//SQRPROC PROC DB2LOAD='DSNC10.GA.SDSNLOAD',   DB2 LOAD LIB
//      DB2EXIT='DS7P.SDSNEXIT',       DB2 LOAD LIB
//      SQRHLQ='PT.USER1.SQRPT860', SQR HLQ FOR LOADLIB,ERRDAT,LINKLIB 
//      PSHLQ='PT.USER1.PT860',   SQR,SQC PARMS LIB
//      OUTNODE='PT.USER1.PT860.OUT',  OPTIONAL:USER-DEF OUTPUT
//      PRMID=NOPARMS,         SQR PARM ID
//      SQRID=                 SQR MEMBER ID
//SQR      EXEC PGM=IKJEFT01,REGION=0M
//STEPLIB  DD DSN=&DB2EXIT.,DISP=SHR
//         DD DSN=&SQRHLQ..UNICODE.LOAD,DISP=SHR
//         DD DSN=&SQRHLQ..PDFLIB.LOAD,DISP=SHR
//         DD DSN=&SQRHLQ..ROSETTE.LOAD,DISP=SHR
//         DD DSN=&DB2LOAD.,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//*********************************************************************
//* Uncomment CTRANS below if get error: Unable To Load Runtime I/O
//*     Module.  Set to MITI-delivered LINKLIB which contains dynamic
//*     C runtime library.
//*********************************************************************
//*CTRANS   DD DSN=&SQRHLQ..LINKLIB,DISP=SHR
//SQRDIR   DD DSN=&SQRHLQ..ERRDAT,DISP=SHR
//SI       DD DSN=&PSHLQ..SQRINC,DISP=SHR
//SYSTERM  DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//DBGLOG   DD SYSOUT=*
//SYSTMPDB DD UNIT=WORK,SPACE=(TRK,25)  VS1 ONLY
//SP       DD DSN=&PSHLQ..SQRSRC(&SQRID),DISP=SHR
//SYSTERM  DD SYSOUT=*
//INFCST   DD DSN=&OUTNODE..INS9080.P01,
//           DISP=(NEW,CATLG,DELETE),
//           DCB=(DSORG=PO,RECFM=VB,LRECL=250),
//           VOL=SER=,
//           SPACE=(CYL,(100,50,100),RLSE),
//           UNIT=SYSDA
//*
//*
//SYSERR   DD SYSOUT=*
//SYSTSIN  DD DSN=&PSHLQ..PARMLIB(SQRPDF),DISP=SHR
//SYSIN    DD DSN=&PSHLQ..PARMLIB(&PRMID),DISP=SHR
//SQRINI   DD DSN=&PSHLQ..SQRSRC(PSSQRINI),DISP=SHR
//        PEND
//*
/INS9080 EXEC SQRPROC,SQRID=INS9080
//SYSIN  DD *
/*
//*

Input file referred to as INCOUNT in program.

//USER1P JOB (PS),PSOFT,CLASS=A,MSGCLASS=X,
//*  USER=USER1,PASSWORD=password,
// NOTIFY=USER1
//**********************************************************************
//* RUN SQR
//**********************************************************************
//SQRPROC PROC DB2LOAD='DSNC10.GA.SDSNLOAD',   DB2 LOAD LIB
//      DB2EXIT='DS7P.SDSNEXIT',   DB2 LOAD LIB
//      SQRHLQ='PT.USER1.SQRPT860', SQR HLQ FOR LOADLIB,ERRDAT,LINKLIB 
//      PSHLQ='PT.USER1.PT860',   SQR,SQC PARMS LIB
//      OUTNODE='PT.USER1.REL859.OUT',  OPTIONAL:USER-DEF OUTPUT
//*     PRMID=NOPARMS,        SQR PARM ID
//      SQRID=                 SQR MEMBER ID
//SQR      EXEC PGM=IKJEFT01,REGION=0M
//STEPLIB  DD DSN=&DB2EXIT.,DISP=SHR
//         DD DSN=&SQRHLQ..UNICODE.LOAD,DISP=SHR
//         DD DSN=&SQRHLQ..PDFLIB.LOAD,DISP=SHR
//         DD DSN=&SQRHLQ..ROSETTE.LOAD,DISP=SHR
//         DD DSN=&DB2LOAD.,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//*********************************************************************
//* Uncomment CTRANS below if get error: Unable To Load Runtime I/O
//*     Module.  Set to MITI-delivered LINKLIB which contains dynamic
//*     C runtime library.
//*********************************************************************
//*CTRANS   DD DSN=&SQRHLQ..LINKLIB,DISP=SHR
//SQRDIR   DD DSN=&SQRHLQ..ERRDAT,DISP=SHR
//SI       DD DSN=&PSHLQ..SQRINC,DISP=SHR
//SYSTERM  DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//DBGLOG   DD SYSOUT=*
//SYSTMPDB DD UNIT=WORK,SPACE=(TRK,25)  VS1 ONLY
//SP       DD DSN=&PSHLQ..SQRSRC(&SQRID),DISP=SHR
//SYSTERM  DD SYSOUT=*
//SYSERR   DD SYSOUT=*
//SYSTSIN  DD DSN=&PSHLQ..PARMLIB(SQRPARMS),DISP=SHR
//INCOUNT   DD DSN=USER1.INS9050(INS9050),DISP=SHR
//SQRINI   DD DSN=&PSHLQ..SQRSRC(PSSQRINI),DISP=SHR
//        PEND
//*
/INS9050   EXEC SQRPROC,SQRID=INS9050
//SYSIN  DD *
/*
//*