HELP! I HAVE TO WRITE FOCUS ON THE MAINFRAME WITH JCL. WHEN YOU CREATE YOUR MASTER FILE HOW DO YOU LINK THIS TO YOUR FOCEXCE FILE. ALSO, THE DATA FILE IS FROM A BATCH OR COPYBOOK FILE. HOW DO YOU CONTECT THIS WITH YOUR MASTER FILE. THIS IS A LOT DIFFERENT THAT A STRAIGHT TEXT FILE. ANY TUTORIALS AVAILABLE.

THANKS,

JOE

NOT SO LOUD, JOE (Unless, of course, you're writing to us from a mainframe terminal!)

An example JCL:

//YSMIC99P JOB (ZIZICG),'FRANCIS MARIANI',
//         MSGCLASS=T,NOTIFY=????????
//*
/*JOBPARM ROOM=O030
//*
/*ROUTE PRINT RMT225
//*
//HBCLIB JCLLIB ORDER=(YSMIC.FOCUS.PROCLIB)
//*
//***      FOCUS STEP
//*
//FOCUS    EXEC FOCUS
//MASTER   DD DSN=YSMIC.FM.MASTER,DISP=SHR
//FOCEXEC  DD DSN=YSMIC.FM.FOCEXEC,DISP=SHR
//FILEONE  DD DSN=YSMIC.FILE.ONE,DISP=SHR
//SYSIN    DD *
  EXEC PROGRAMME
  FIN
/*
//*

Masters are stored in the YSMIC.FM.MASTER library.
A member in the Master library is required with the same name as the DDNAME of the file allocated, eg. FILEONE.

What is the format of this "batch or copybook" file?

Joe:

Here is a sample of the JCL. You will of course have to change the data set names.

//FOCUS1 EXEC PGM=FOCUS
//STEPLIB DD DSN=SYSTFOC.FOCUS.LOAD,DISP=SHR
//USERLIB DD DSN=SYSTFOC.FUSELIB.LOAD,DISP=SHR
//ERRORS DD DSN=SYSTFOC.ERRORS.DATA,DISP=SHR
//SYSPRINT DD SYSOUT=*
//OFFLINE DD SYSOUT=*
//FOCSORT DD UNIT=SYSDA,SPACE=(CYL,(30,30))
//FOCEXEC DD DSN=G36297.FOCUSCLS.FOCEXEC,DISP=SHR
//MASTER DD DSN=G36297.FOCUSCLS.MASTER,DISP=SHR
//EMPLOYEE DD DSN=G36297.FOCUSCLS.EMPLOYEE.FOCUS,DISP=SHR
//SYSIN DD *
EX $DOTHIS
FIN

The MASTER DD statement pints to a PDS library one of the members called “EPLOYEE” is the master file description for the file pointed to the by the EMPLOYEE DD statement. “hen you say” TABLE FILE EMPLOYEE mainframe FOCUS brings these together and produces your report.

The FOCEXEC DD statement points t a PDS library one of the members called “$DOTHIS” This is the what will be run by the EX $DOTHIS

Thanks for your help. I’ll give these two a try and get back to you. What does //SYSIN DD * mean.

Thanks,

//SYSIN DD *

is the generic JCL statemewnt where you provide input to the program being executed in the JCL step.

In this case the program is FOCUS and the FOCUS program (fex) you want to execute is called $DOTHIS or PROGRAMME.

The FIN statement is required after the FOCUS commands or the JCL step will complete with a condition code of 16, which is an error.