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
 

 

EZT - Generating report having value as '0'

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CA Products
View previous topic :: :: View next topic  
Author Message
krunalbafna
Warnings : 1

Active User


Joined: 18 Jan 2010
Posts: 143
Location: Pune

PostPosted: Wed Jul 27, 2011 12:26 pm    Post subject: EZT - Generating report having value as '0'
Reply with quote

Hi,
My input file has data "0" for variable - KIN-number.
When i generating the report for the same, it is showing Spaces for that value.
I need to display "0" in the report.

My definition:
KIN-NUMBER 40 5 N 0


Regards,
Krunal Bafna
Back to top
View user's profile Send private message

PeterHolland

Global Moderator


Joined: 27 Oct 2009
Posts: 2422
Location: Netherlands, Amstelveen

PostPosted: Wed Jul 27, 2011 12:30 pm    Post subject:
Reply with quote

KIN-NUMBER 40 5 N 0 MASK('ZZZZ9')
Back to top
View user's profile Send private message
krunalbafna
Warnings : 1

Active User


Joined: 18 Jan 2010
Posts: 143
Location: Pune

PostPosted: Wed Jul 27, 2011 12:37 pm    Post subject:
Reply with quote

Hi,
I used the above method, still the same. I am getting the same output.
Back to top
View user's profile Send private message
PeterHolland

Global Moderator


Joined: 27 Oct 2009
Posts: 2422
Location: Netherlands, Amstelveen

PostPosted: Wed Jul 27, 2011 12:43 pm    Post subject:
Reply with quote

Show your source.
Back to top
View user's profile Send private message
krunalbafna
Warnings : 1

Active User


Joined: 18 Jan 2010
Posts: 143
Location: Pune

PostPosted: Wed Jul 27, 2011 12:49 pm    Post subject:
Reply with quote

I cannot show my source due to security.
I read my input file and my defination is as said by you.

But while generating report it is showing spaces.
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10202
Location: italy

PostPosted: Wed Jul 27, 2011 12:55 pm    Post subject: Reply to: EZT - Generating report having value as '0'
Reply with quote

Quote:
I cannot show my source due to security.

when asking for help You are supposed to provide the info requested!
if You are not willing to do it Your chances if getting help are pretty slim!

nobody asked You to post ALL the code, just a significant excerpt of it,
if Your security requirement are so tight , You should refrain from asking for help on a public forum for such issues

Quote:
I read my input file and my defination is as said by you.

review Your point of view, when doing a problem determination
I said, You said, I checked, ... are not acceptable terms
we believe what we see icon_biggrin.gif and advice accordingly !
Back to top
View user's profile Send private message
krunalbafna
Warnings : 1

Active User


Joined: 18 Jan 2010
Posts: 143
Location: Pune

PostPosted: Wed Jul 27, 2011 1:06 pm    Post subject:
Reply with quote

Ok I will provide you some code:
File defination:

FILE RSTATFLE FB (0 0)
RUN-DATE 1 10 A HEADING +
(' RUN ' ' DATE ' '----------')
RUN-MO 1 2 A
YR 9 2 A
KIN-NUMBER 14 5 N 0 MASK ('ZZZZ9') HEADING +
('KIN' 'Number' '--------')

Report :
PRINT REPORT2

REPORT REPORT1F PRINTER WREPORT1 DTLCTL EVERY TALLYSIZE 4 +
LINESIZE 132 SPACE 3 NODATE NOADJUST
*
TITLE 01 W-RPT1-HDR1 +6
TITLE 02 W-RPT1-HDR2
TITLE 03 W-RPT1-HDR3
TITLE 05 COL 35 'INPUT DATASET IS:' W-DSN
TITLE 08 COL 22 'DAILY TOTALS' +
COL 84 'RUNNING TOTALS'
*
LINE 01 RUN-DATE +
KIN-RUN-EMAIL-ELIG +
KIN-RUN-EMAIL-YES +
KIN-RUN-EMAIL-NO +
KIN-RUN-PENETRATION +
KIN-DATE-EMAIL-ELIG +
KIN-DATE-EMAIL-YES
Back to top
View user's profile Send private message
PeterHolland

Global Moderator


Joined: 27 Oct 2009
Posts: 2422
Location: Netherlands, Amstelveen

PostPosted: Wed Jul 27, 2011 1:10 pm    Post subject:
Reply with quote

i dont see KIN-NUMBER in your report definition.
Back to top
View user's profile Send private message
krunalbafna
Warnings : 1

Active User


Joined: 18 Jan 2010
Posts: 143
Location: Pune

PostPosted: Wed Jul 27, 2011 1:11 pm    Post subject:
Reply with quote

Ok I will provide you some code:
File defination:

FILE RSTATFLE FB (0 0)
RUN-DATE 1 10 A HEADING +
(' RUN ' ' DATE ' '----------')
RUN-MO 1 2 A
YR 9 2 A
KIN-NUMBER 14 5 N 0 MASK ('ZZZZ9') HEADING +
('KIN' 'Number' '--------')

Report :
PRINT REPORT2

REPORT REPORT1F PRINTER WREPORT1 DTLCTL EVERY TALLYSIZE 4 +
LINESIZE 132 SPACE 3 NODATE NOADJUST
*
TITLE 01 W-RPT1-HDR1 +6
TITLE 02 W-RPT1-HDR2
TITLE 03 W-RPT1-HDR3
TITLE 05 COL 35 'INPUT DATASET IS:' W-DSN
TITLE 08 COL 22 'DAILY TOTALS' +
COL 84 'RUNNING TOTALS'
*
LINE 01 RUN-DATE +
KIN-NUMBER +
KIN-RUN-EMAIL-YES +
KIN-RUN-EMAIL-NO +
KIN-RUN-PENETRATION +
KIN-DATE-EMAIL-ELIG +
KIN-DATE-EMAIL-YES
Back to top
View user's profile Send private message
PeterHolland

Global Moderator


Joined: 27 Oct 2009
Posts: 2422
Location: Netherlands, Amstelveen

PostPosted: Wed Jul 27, 2011 1:38 pm    Post subject:
Reply with quote

Now show some output from your last post (where you included KIN-NUMBER). And why do you use DTLCTL without a CONTROL statement?
Back to top
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7228

PostPosted: Wed Jul 27, 2011 2:14 pm    Post subject: Reply to: EZT - Generating report having value as '0'
Reply with quote

You print REPORT2, but you have shown REPORT1F. Maybe you just picked the wrong bits of code?
Back to top
View user's profile Send private message
PeterHolland

Global Moderator


Joined: 27 Oct 2009
Posts: 2422
Location: Netherlands, Amstelveen

PostPosted: Wed Jul 27, 2011 2:17 pm    Post subject:
Reply with quote

Good morning Bill,

that is very sharp. Failed to see that one.
Back to top
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7228

PostPosted: Wed Jul 27, 2011 2:22 pm    Post subject:
Reply with quote

Good morning Peter. Hectic day yesterday. Woke up later than usual.

Spot not necessarily significant, but it is possible he's looking in the wrong places. Can't see how what he has coded will fail.
Back to top
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7228

PostPosted: Wed Jul 27, 2011 2:36 pm    Post subject:
Reply with quote

krunalbafna wrote:
[...]
Code:
FILE RSTATFLE FB (0 0)
RUN-DATE 1 10 A HEADING +
(' RUN ' ' DATE ' '----------')
RUN-MO 1 2 A
YR 9 2 A
KIN-NUMBER 14 5 N 0 MASK ('ZZZZ9') HEADING +
('KIN' 'Number' '--------')
[...]


Krunal,

A couple of things here.

You have a RUN-DATE, which I always like to see.

However, you are "redefining" the position in the file for the first two characters to be RUN-MO, which I'm assuming is month. Just checking that you are having "US-style" dates, (MMDDYY) not "European" (DDMMYY).

Code:
FILE RSTATFLE FB (0 0)
RUN-DATE * 10 A HEADING +
(' RUN ' ' DATE ' '----------')
RUN-MO RUN-DATE 2 A
YR RUN-DATE +8 2 A
KIN-NUMBER 14 5 N 0 MASK ('ZZZZ9') HEADING +
('KIN' 'Number' '--------')


If you note the changes I have made to your date field, including the *, you can consider if the knowledge is useful to your future efforts.

I always generated the file layouts for Easytrieve. And using the "*" format. The "*" says, use the next byte that hasn't already got a name. Saves a lot of counting. Easytrieve supply a record layout generator, but last time I saw it it was pretty dumb. Cobol listing and a bit of rexx, unless you have something cleverer which is able to generate Cobol layouts from designs, so can be exteneded to do Easytrieve as well (like a Data Dictionary).

The advantage of the "*" notation is that you can copy blocks from your input files to temporary files without having to worry about changing the start positions (just change the data-name prefixes, which I note you don't have - never use "qualification", that was something for the punched-card era).
Back to top
View user's profile Send private message
PeterHolland

Global Moderator


Joined: 27 Oct 2009
Posts: 2422
Location: Netherlands, Amstelveen

PostPosted: Wed Jul 27, 2011 2:45 pm    Post subject:
Reply with quote

Quote:

just change the data-name prefixes


Well you can always prefix fields with the filename, if you use same name fields for different files.
Back to top
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7228

PostPosted: Wed Jul 27, 2011 3:22 pm    Post subject: Reply to: EZT - Generating report having value as '0'
Reply with quote

Mmmm... that's thar's qualification, that be, Peter. Never liked them, never will. Particularly as you get the implicit qualification. Then someone decides they know which one the compiler is using, and they're looking at the wrong one.

OK, you can't avoid with things like record-length, file-status, but that's the only sort of place I'd use them.

I like macros for record layouts as well.
Back to top
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7228

PostPosted: Thu Aug 25, 2011 2:18 pm    Post subject: Reply to: EZT - Generating report having value as '0'
Reply with quote

Belatedly (very) realised this should be with the CA stuff, not the Compuware, if soom kind Moderator is passing this way. 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 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 Daily report to be extracted from CA ... polymathtarun DFSORT/ICETOOL 5 Mon Jul 11, 2016 4:33 pm
No new posts Report view in Mobile devices Robert Sample All Other Mainframe Topics 0 Thu Jun 23, 2016 7:05 pm
No new posts COBOL Report view in Mobile devices balaji81_k COBOL Programming 4 Thu Jun 23, 2016 6:41 pm


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