Not writing to OUTPUT FILE(output file empty)

kumar1234 · New User Joined: 06 Nov 2007 Posts: 84 Location: bangalore

Hi,

I have a program which reads number of input files and writes it in an output file.

I compiled the prog and then ran it, I got the required output in the output file.
Then again i ran the prog and the job went fine but nothing is written to the output file.
My sysout is showing 100 records read but records written showing 0.
Can anyone let me know what could be the possible reasons for this problem.

Thanks,

Craq Giegerich · Posted: Tue Mar 04, 2008 8:14 pm

Logic error.

Bitneuker · Posted: Wed Mar 05, 2008 1:08 am

disp=new?

Anuj Dhawan · Posted: Wed Mar 05, 2008 1:35 am

Hi,

Without knowing what the progrm is doing, no one here, at least me cann't predict why the output is empty in 'second' run. As Craq said, logical error.

Did You use the same input file in both the runs? Just another guess.

Phrzby Phil · Posted: Wed Mar 05, 2008 2:04 am

Try a DISPLAY before each WRITE.

Craq Giegerich · Posted: Wed Mar 05, 2008 2:07 am

Does the file have a file status and is it being checked after each write?

Bitneuker · Posted: Wed Mar 05, 2008 2:24 am

Give us information.........

kumar1234 · New User Joined: 06 Nov 2007 Posts: 84 Location: bangalore

The output file is having Disp=(,catlg,catlg). And the file is having a file status but we are not checking after every write.

This is what is displayed in my sysout after the successful execution of the prog

PROGRAM B8628800 : SUCCESSFUL EXECUTION
# 02 SEGMENT RECORDS READ: 0441083
# 45 SEGMENT RECORDS READ: 0006441
# TOTAL RECORDS READ : 0022291093
# RECORDS WROTE TO FILE : 0000000

kumar1234 · New User Joined: 06 Nov 2007 Posts: 84 Location: bangalore

Yes I used the same input files for both the runs.

kumar1234 · New User Joined: 06 Nov 2007 Posts: 84 Location: bangalore

I tried giving display after each write and then run the prog. But this display does not come in the sysout. I think there is some problem somewhere near write.
Any other suggestions ? please.

raak · Posted: Wed Mar 05, 2008 1:53 pm

Give us some details of ur input and output file.
Is any file opened in I-O mode?

kumar1234 · New User Joined: 06 Nov 2007 Posts: 84 Location: bangalore

There around 7 input files and 1 output file. And there is one input file which is in I/O mode.......

raak · Posted: Wed Mar 05, 2008 3:07 pm

See whether after contents of I/O file is getting chaged after ur first run.

I am thinking of some scenario in which the content of I/O mode is used to set some switch and once successfully processed the contents of I/O file are overwritten. So when the program enters the second time, the same situation might not exist as the first time ( due to change in contents of I/O file)

anyway its just a guess.. happy researching

raak · Posted: Wed Mar 05, 2008 3:10 pm

If all the other input files are same, then I guess the I/O file might be the reason for change in processing.

Try to find out the purpose of using that file in the program...

and do tell us ur findings alsoo

Purnendu.it · New User Joined: 11 May 2007 Posts: 57 Location: chennai

rpuhlman · Posted: Wed Mar 05, 2008 4:22 pm

Kumar,

Check your JOB/JES messages. If you have DISP=(,CATLG,CATLG), you are more than likely receiving a JCL error because the dataset has already been cataloged/created. Change the DISP parameter, for your output dataset, to DISP=SHR or DISP=OLD then comment out or remove your UNIT, SPACE and/or DCB parameters as well, before you rerun your JOB. You can also delete the output dataset before you rerun your JOB. Since you have not shown us your JCL, we can only guess as to what problem you are having.

Rick

kumar1234 · New User Joined: 06 Nov 2007 Posts: 84 Location: bangalore

Here is the job which I am executing.........

//BTO1STL1 JOB (00010,TSTACCT,10E5),'KUMAR',
// CLASS=K,MSGCLASS=L,NOTIFY= BTO1STL1
//JOBLIB DD DSN=ADS.TEST.LOADLIB,DISP=SHR
//B8227300 EXEC PGM=IKJEFT1A
//*
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=H
//*
//WDDRN01 DD DUMMY
//*
//GTAMLIB DD DSN=PPMSVSAM.GTAMLIB,DISP=SHR
//ADDRIN DD DSN=LIST.A7550000.EMAIL.ADDRESS(0),DISP=SHR
//*
//FORMATCD DD DSN=PPMS.UTILLIB(COMPRESS),DISP=SHR
//*
//WDDRN02 DD DISP=SHR,DSN=PPMS.SY040010.WDW0101A(+0)
//*
//B8227301 DD DSN=BTO1STL1.CLAIMS.B82270Z0.PIFCLOS1,
// UNIT=TST1,
// DISP=(,CATLG,CATLG),SPACE=(16000,(450,40),RLSE),
// DCB=(RECFM=FB,LRECL=330,BLKSIZE=16500)

//B8227302 DD DISP=SHR,DSN=ADS.PROD.UTILLIB(B8227500)
//*
//B8227303 DD DSN=PCLMVSAM.TOTPOL0,DISP=SHR
//*
//B8227304 DD DSN=PPMSVSAM.FCOCHNGE,DISP=SHR
//*

//B8227305 DD DSN=PPMS.SY015010.WDD2503(+0),DISP=SHR
//*
//B8227306 DD DSN=BTO1STL1.CLAIMS.B8227100.DLYCLM0T,DISP=SHR
//*
//ICNTLTBL DD DSN=CLAIMS.B0601202,DISP=SHR
//ICLMSTBL DD DSN=CLAIMS.YR2K.EXP.B0601502,DISP=SHR
//IELMNTBL DD DSN=CLAIMS.YR2K.EXP.B0601503,DISP=SHR
//IRLTNTBL DD DSN=CLAIMS.YR2K.EXP.B0601504,DISP=SHR
//*
//SYSTSIN DD DSN=ADS.TEST.UTILLIB(B8227600),DISP=SHR
//*
//SYSUDUMP DD SYSOUT=H
//SYSOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSDBOUT DD SYSOUT=*
//PRNZONE DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//*

rpuhlman · Posted: Wed Mar 05, 2008 4:28 pm

Kumar,

Hit enter too fast ... check for Not Cat2 message in the JES log for your JOB as well ...

Rick

rpuhlman · Posted: Wed Mar 05, 2008 4:30 pm

Kumar,

Did you check your JOB in the JES log and read ALL the messages after execution?

Rick

rpuhlman · Posted: Wed Mar 05, 2008 4:36 pm

Kumar,

Change:

kumar1234 · New User Joined: 06 Nov 2007 Posts: 84 Location: bangalore

This is one of the messages that i got from the spool...... There a message as delete for the output dataset, is that anything to do.

U11-001 CA-11 - PARM RECEIVED FOR JOB BHSOO01M - PARM=P
U11-031 * PROC-STEP= STEP=B8227300
U11-073 GDG IN 'P' PROCESSING - DSN=LIST.A7550000.EMAIL.ADDRESS.G0629V00
U11-073 GDG IN 'P' PROCESSING - DSN=PPMS.SY040010.WDW0101A.G0612V00
U11-067 DELETE SCHEDULED FOR DSN = BHSOO01.CLAIMS.B82270Z0.PIFCLOS1
U11-073 GDG IN 'P' PROCESSING - DSN=PPMS.SY015010.WDD2503.G3220V00
U11-031 * PROC-STEP= STEP=B822730A
U11-069 IDC0550I ENTRY (A) BHSOO01.CLAIMS.B82270Z0.PIFCLOS1 DELETED
U11-069 IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 0
U11-069 IDC0002I IDCAMS PROCESSING COMPLETE. MAXIMUM CONDITION CODE WAS 0
U11-010 CA-11 - 'P' PROCESSING COMPLETE FOR JOB BHSOO01M
END OF REPORT 01 - TOTAL ITEMS LISTED= 11

kumar1234 · New User Joined: 06 Nov 2007 Posts: 84 Location: bangalore

sometimes i get as "locate unsuccessful" for that output dataset.

kumar1234 · New User Joined: 06 Nov 2007 Posts: 84 Location: bangalore

Can anyone let me know if any solution for this problem. This is very important.

Thanks.

acevedo · Active User Joined: 11 May 2005 Posts: 344 Location: Spain

raak · Posted: Thu Mar 06, 2008 2:42 pm

did u check the I/O dataset whether it's contents are getting changed after the first run??