View previous topic :: View next topic
|
Author |
Message |
Amittcs Gupta
New User
Joined: 27 Jun 2007 Posts: 1 Location: Chennai
|
|
|
|
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 |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
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 |
|
|
Devzee
Active Member
Joined: 20 Jan 2007 Posts: 684 Location: Hollywood
|
|
|
|
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.
becomes void will never execute. |
|
Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
Good catch
d |
|
Back to top |
|
|
|