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
 

 

Easytrieve - get FB after using REPORT statement

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CA Products
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    Post subject: Easytrieve - get FB after using REPORT statement
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.
http://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

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7254

PostPosted: Sun Oct 27, 2013 11:04 pm    Post subject: Reply to: Easytrieve - get FB after using REPORT statement
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    Post subject: Easytrieve - get FB after using REPORT statement
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

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7254

PostPosted: Mon Oct 28, 2013 1:00 pm    Post subject: Reply to: Easytrieve - get FB after using REPORT statement
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    Post subject:
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    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 -913/-911 Deadlock during UPDATE stat... NoSleep319 DB2 5 Fri Nov 18, 2016 12:37 am
No new posts Detailed Transaction History report f... Kyle Carroll CICS 5 Tue Oct 18, 2016 12:42 am
No new posts Easytrieve - Report writing - Only 1 ... Abhi Nature CA Products 2 Wed Sep 14, 2016 11:40 am
No new posts COBOL DB2 - CALL statement - high CPU... TS70363 DB2 15 Sun Sep 11, 2016 6:07 am
No new posts Converting NULL column into NOT NULL ... Raghu navaikulam DB2 5 Sat Aug 06, 2016 3:45 pm


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