IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Report is not generating,can anybody what is the problem


IBM Mainframe Forums -> CA Products
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
Amittcs Gupta

New User


Joined: 27 Jun 2007
Posts: 1
Location: Chennai

PostPosted: Thu Jun 28, 2007 12:17 pm
Reply with quote

this is simple program to read the record form the input file and after increment just create the report. It giving max cc=00 .
But the there is nothing in the output.
//JOBNAME1 JOB (0670,,GU),'eztrieve',
// MSGCLASS=U,CLASS=0,NOTIFY=&SYSUID
//STEP001 EXEC PGM=EZTPA00
//INP1 DD DSN=NBKJWT7.TEST.INPUT,DISP=SHR
//REPORT1 DD DSN=NBKJWT7.TEST.RPT01,DISP=SHR
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
FILE INP1
RECORD1 01 30 A
FILE REPORT1 PRINTER FB(80 800)
W-COUNT W 08 N
JOB INPUT INP1
W-COUNT = W-COUNT + 1
DISPLAY 'TMP:' W-COUNT
IF EOF INP1
PRINT REPORT1
END-IF
REPORT REPORT1 +
LINESIZE 79 +
PRINTER REPORT1 +
SPACE 1 +
TALLYSIZE 8
TITLE 'THIS IS MY FIRST REPORT'
LINE 1 'COUNT:' W-COUNT
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix

PostPosted: Thu Jun 28, 2007 12:31 pm
Reply with quote

Hello,

Please post the output from your job - there is some output either in a sysout dataset and/or the NBKJWT7.TEST.RPT01 dataset. How many records are in NBKJWT7.TEST.INPUT?
Back to top
View user's profile Send private message
Devzee

Active Member


Joined: 20 Jan 2007
Posts: 684
Location: Hollywood

PostPosted: Thu Jun 28, 2007 12:42 pm
Reply with quote

Quote:
JOB INPUT INP1
W-COUNT = W-COUNT + 1
DISPLAY 'TMP:' W-COUNT
IF EOF INP1
PRINT REPORT1
END-IF


If you code JOB INPUT INP1 then you cannot trap EOF condition.
Quote:
IF EOF INP1
becomes void will never execute.
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix

PostPosted: Thu Jun 28, 2007 1:07 pm
Reply with quote

Good catch icon_smile.gif

d
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> CA Products

 


Similar Topics
Topic Forum Replies
No new posts Map Vols and Problem Dataset All Other Mainframe Topics 2
No new posts Need help on formatting a report DFSORT/ICETOOL 14
No new posts Creating Report using SORT DFSORT/ICETOOL 7
No new posts Ca7 long running jobs report All Other Mainframe Topics 1
No new posts Report of batch jobs JCL & VSAM 1
Search our Forums:

Back to Top