IBM Mainframe Forum

Hello everyone,
I am new here. And I got a problem with my JCL showed as Title.
I thought my codes were wrong, but can not fixed. Is there anyone who can help me?

Many thanks
Helen

p.s.
JCL file:

1 //XXXXXXXX JOB (account),'XXXX',CLASS=B,MSGLEVEL=(2,1),
// MSGCLASS=X,NOTIFY=XXXXXXX
/*JOBPARM ROOM=109,S=EIS1
2 //STEP005 EXEC PGM=SCRATCH
3 //SYSPRINT DD SYSOUT=X
4 //SYSIN DD *
5 //STEP010 EXEC FOCUS,REGION=4096K
16 //MASTER DD DSN=XXXXXXX.FOCUS.MASTER,DISP=SHR
17 // DD DSN=FED.PDS.PRODCOPY,DISP=SHR
18 //FOCEXEC DD DSN=XXXXXXX.FAMIS.PROGRAM,DISP=SHR
19 //HOLDMAST DD DSN=XXXXXXX.FOCUS.HOLDMAST,DISP=OLD
22 //FOCSORT DD UNIT=TEMP,SPACE=(CYL,(800,200))
23 //FOCSTACK DD UNIT=TEMP,SPACE=(CYL,(800,200))
25 //SYSOUT DD SYSOUT=X
26 //SYSPRINT DD SYSOUT=X
27 //OFFLINE DD SYSOUT=X
34 //SYSIN DD *
35 //FSB13P1 DD DSN=FOC.FSD00003.1,DISP=SHR
36 //FSB13P2 DD DSN=FOC.FSD00003.2,DISP=SHR
37 //FSB13P3 DD DSN=FOC.FSD00003.2,DISP=SHR
38 //FSB13P4 DD DSN=FOC.FSD00003.2,DISP=SHR
39 //FSFSTAT DD DSN=FOC.FSD00099.F,DISP=SHR
40 //FAM13 DD DSN=XXXXXXX.FAM13P.MONDATA,
// DISP=(NEW,CATLG,CATLG),
// UNIT=DISK,SPACE=(CYL,(800,120)),
// DCB=(RECFM=FB,LRECL=200,DSORG=PS,BLKSIZE=27800)
//*
41 //SYSPRINT DD SYSOUT=*
OFFLINE
USE FSB13P1 FOCUS * AS FSB13P
FSB13P2 FOCUS * AS FSB13P
FSB13P3 FOCUS * AS FSB13P
FSB13P4 FOCUS * AS FSB13P
FSFSTAT FOCUS *
END
IF DATE GE'02202000'
ON TABLE SAVE AS FAM13 FORMAT LOTUS
END
OFFLINE CLOSE
FIN

Hello Helen and welcome to the forum,

Please post the complete diagnostic info presented for this run. There may be info in more than one of the spooled output datasets.

Hello Dick,
Thanks for your quick reply. Here is the whole program except FOCUS.
You are right. In FOCUS log file there is a message '(FOC036) NO DATA FOUND FOR THE FOCUS FILE NAMED: FSB13P '.
And I got another message in MESSAGES of IOF as follows :
'IGD17038I DADSM INSTALLATION EXIT REJECTED THIS REQUEST WITH A RETURN CODE OF 4 FOR DATA SET FDX1701.FAM13P.MONDATA'
How can I fix it?
I am really brand new for the TSO/FOCUS.
Many Thanks and Regards,
Helen

// UNIT=DISK,SPACE=(CYL,(800,120)),...

Have you reviewed this with your storage team yet? That's a lot of disk space to be asking for.

Thanks MrSpock.
I deleted those two lines, but still got message '(FOC036) NO DATA FOUND FOR THE FOCUS FILE NAMED: FSB13P'.
By the way, I am little confused for MASTER DATA. Would you mind to tell me?
Thanks again,
Helen

Hello,

Do you have the Focus documentation? If not, you may get all of the material from Information Builders (http://www.informationbuilders.com/).

I am little confused for MASTER DATA

What is your confusion? A Focus Master File is used as input to a report or some other process. Is this what you mean by MASTER DATA (is it all caps for some reason?)?

Are you trying to scratch this file (FDX1701.FAM13P.MONDATA)? Is that what caused the "rejected" error?

Have you posted the messages in the order they appear in the output or did you pick and choose some things to post? For us to be able to help, you need to post things completely and in the order they were submitted/received.

Thanks Dick.
I got some ideas. Maybe the input data not cataloged.
FOC.FSD00003.1
FOC.FSD00003.2
FOC.FSD00003.3
FOC.FSD00003.4
....
If I use 'DYNAM ALLOC DD FSB13P1 FOC.FSD00003.1 DISP=SHR'
'DYNAM ALLOC DD FSB13P2 FOC.FSD00003.2 DISP=SHR'
'DYNAM ALLOC DD FSB13P3 FOC.FSD00003.3 DISP=SHR'
'DYNAM ALLOC DD FSB13P4 FOC.FSD00003.4 DISP=SHR'
,
The original data set won't be destroyed, will it?

Thanks for your helps.

Helen

Hi Helen,

If I use 'DYNAM ALLOC DD FSB13P1 FOC.FSD00003.1 DISP=SHR'

How does this relate to the info you've posted so far? This is not jcl which is where the attention had been directed. No, it should not destroy any data, but i don't understand what has caused it to be considered either. . .

I got some ideas. Maybe the input data not cataloged.

If the dataset(s) have not been created or have been previously deleted, neither the jcl nor the alloc will work with shr.

Unless they have completely changed the product (Focus), they shipped some test files and programs so the successful installation could be verified. You may want to find/excute those to make sure the Focus environment is properly set up. You may neet to talk to whoever installed/supports Focus.

As far as solving the problem(s) you've encountereed, i suggest a single solution approach rather than trying many things to see what happens. As i mentioned, the initial post is nothing like the most recent post.

If you've not already done so, i suggest you download the documentation.

Thanks Dick.
You are right. I need take look the manual first. I will ask you after that.
Thanks again
Helen

You're welcome - when you are ready, someone will be here

d