Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Report is not generating,can anybody what is the problem

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CA Products
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    Post subject: Report is not generating,can anybody what is the problem
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

Site Director


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

PostPosted: Thu Jun 28, 2007 12:31 pm    Post subject:
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    Post subject:
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

Site Director


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

PostPosted: Thu Jun 28, 2007 1:07 pm    Post subject:
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    IBMMAINFRAMES.com Support Forums -> CA Products All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts SYMNAMES problem jacobdng DFSORT/ICETOOL 7 Thu Dec 22, 2016 7:47 am
No new posts Problem in writing Output file vickey_dw COBOL Programming 5 Mon Nov 14, 2016 11:14 pm
No new posts Problem in Running Query via JCL vickey_dw DB2 3 Tue Oct 18, 2016 11:11 pm
No new posts Detailed Transaction History report f... Kyle Carroll CICS 5 Tue Oct 18, 2016 12:42 am
No new posts DB2 Streaming Batch Processing Problem Manshadi DB2 4 Sat Sep 24, 2016 12:14 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us