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

Easytrieve - get FB after using REPORT statement


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

New User


Joined: 15 Jan 2012
Posts: 4
Location: India

PostPosted: Sun Oct 27, 2013 7:23 pm
Reply with quote

hi,
For one of our Easytrieve programs we need to use the REPORT option but the output file should be a FB dataset instead of a FBA.

We are defining output dataset with
OUT-FILE2 PRINTER RPTOUT

and we use the REPORT statement as below:
REPORT REPORT1 PRINTER RPTOUT NOHEADING NOPAGE NODATE

The ddname RPTOUT is defined in the JCL as FB and with LRECL 210 but yet we get a FBA with 1's and 0's in the first column. This file will be eventually sent as a email attachment(.txt file) and the 1st column zeroes and 1's do not look good.

I tried go through the syntax in the EZT manual and googled for related to this and found the below, but unfortunately cannot make a solution of it.
ibmmainframes.com/viewtopic.php?t=61647

Can someone please help on this if they have come across similar scenario. Thanks in advance!!
Back to top
View user's profile Send private message
Bill Woodger

Moderator Emeritus


Joined: 09 Mar 2011
Posts: 7309
Location: Inside the Matrix

PostPosted: Sun Oct 27, 2013 11:04 pm
Reply with quote

Does your FILE statement even compile?

Why do you need the REPORT statement?

What happened when you put a RECFM=FB on the DD for the report file?

Please also show your entire REPORT through to and including LINE and any report-procedures you may have. In the Code tags.
Back to top
View user's profile Send private message
solusish

New User


Joined: 15 Jan 2012
Posts: 4
Location: India

PostPosted: Mon Oct 28, 2013 6:49 am
Reply with quote

Thanks for responding Bill.

Does your FILE statement even compile?
Yes. The FILE statement compiles fine - infact whole pgm works fine except that a FBA instead FB is created.
I missed out the keyword FILE above:
FILE OUT-FILE2 PRINTER RPTOUT


Why do you need the REPORT statement?
As per the standards set in the department. icon_sad.gif

What happened when you put a RECFM=FB on the DD for the report file?
Using RECFM=FM in the jcl with LRECL 210 still produces a FBA file with same LRECL.

Do you need to see the sample report (output)?
I can get the report-procedure. I was hoping to know if at all a FB can be created after use of REPORT statement.

Thanks much for the help Bill.
Back to top
View user's profile Send private message
Bill Woodger

Moderator Emeritus


Joined: 09 Mar 2011
Posts: 7309
Location: Inside the Matrix

PostPosted: Mon Oct 28, 2013 1:00 pm
Reply with quote

The link you provided was for a program not using the capabilities of REPORT, but still using REPORT. Let's assume yours is different.

If Easytrieve Plus does not allow override through the JCL., then you are going to have to trap the output and write it yourself.

This is an example of a "FILE EXIT" for a PRINTER file. You should be able to adapt this to write out your F 133 record. CLOSE and exit when you get the end-of-processing indication and exit, OPEN the output first time write the your and exit.

In your LINKAGE SECTION define an 01, with two subordinate items, a FILLER of length one, and your data of 132.

Your other possibility is to "post-process" your report output to read an FA and write an F.

This could be with Easytrieve Plus or with SORT or anything else you like.

Peter I think has previously posted an example in Easytrieve Plus. SORT would be:
Code:

   OPTION COPY
   INREC BUILD=(2,132)
Back to top
View user's profile Send private message
solusish

New User


Joined: 15 Jan 2012
Posts: 4
Location: India

PostPosted: Mon Oct 28, 2013 10:54 pm
Reply with quote

Thanks Bill! We have been using the SORT to eliminate the first column in a separate step.
Your suggestion to "FILE EXIT" for a PRINTER file. You should be able to adapt this to write out your F 133 record. CLOSE and exit when you get the end-of-processing indication and exit, OPEN the output first time write the your and exit. " is what i will try out .
We wanted to try something different. I will let you know how it goes icon_smile.gif

Again, appreciate your help!! Shall keep you posted.

Thanks!
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 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
No new posts JOIN STATEMENT PERFORMANCE. DFSORT/ICETOOL 12
Search our Forums:

Back to Top