View previous topic :: View next topic
|
Author |
Message |
Dennis1SOIL
New User
Joined: 30 Jun 2009 Posts: 15 Location: Missouri, USA
|
|
|
|
Using ICETOOL, I want to use only a couple of columns on a DISPLAYed Report to show the value of flag types fields which are only 1 byte long.
It looks like the default minimum column width for character type fields is 20 bytes, even if the literal specified in the HEADER is smaller (I don't understand why this is the case? - I would think if the length of the HEADER literal is greater than the associated defined field length, the printed report would use the Header's length as the Column width for the Character type field).
At any rate, though I many ways to change the printable length of numeric fields, (i.e. 'ON(p,m,f,formatting)') -- I haven't found anything to help me get rid of the extra column width for 1-byte flag type of fields.
Thanks in advance for any help!
-Dennis
------------
(unfortunately, my mainframe access is hung just now - I'll try to get examples when it frees up) |
|
Back to top |
|
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
|
|
|
|
I believe the BLANK operand will give you what you want.
DISPLAY BLANK ... |
|
Back to top |
|
|
Dennis1SOIL
New User
Joined: 30 Jun 2009 Posts: 15 Location: Missouri, USA
|
|
|
|
Wow! Thanks Frank, for that amazingly quick and right on answer!
-Dennis
------------For example: ------------------------------------
BEFORE:
Code: |
DISPLAY FROM(TRUNCATE) LIST(OUT) -
TITLE('ICETOOL TRUNCATED RECS') DATE(MDY.) -
HEADER('T') ON(RFJ-YN-THIS-REC-TRUNCATED) -
HEADER('MAX-LEN') ON(RFJ-RFMT-RECORD-LENGTH) -
HEADER('BFOR-BYTES') ON(RFJ-LENGTH-OF-BFOR-DATA-IMAGE) -
HEADER('AFTR-BYTES') ON(RFJ-LENGTH-OF-AFTR-DATA-IMAGE) -
HEADER('REC-NAME') ON(RFJ-RECORD-NAME) -
HEADER('C') ON(RFJ-TRUNCATED-TRAILING-BYTE)
ICETOOL TRUNCATED RECS 04.23.10
T MAX-LEN BFOR-BYTES AFTR-BYTES REC-NAME C
-------------------- ---------------- ---------------- ---------------- -------------------- --------------------
N +000000000000944 +000000000000300 +000000000000300 JOB
N +000000000000680 +000000000000120 +000000000000120 EMPLOYEE
N +000000000000352 +000000000000032 +000000000000000 EMPOSITION
N +000000000000352 +000000000000000 +000000000000032 EMPOSITION
N +000000000000376 +000000000000020 +000000000000020 COVERAGE A |
With BLANK :
Code: |
DISPLAY BLANK FROM(TRUNCATE) LIST(OUT) -
TITLE('ICETOOL TRUNCATED RECS') DATE(MDY.) -
HEADER('T') ON(RFJ-YN-THIS-REC-TRUNCATED) -
HEADER('MAX-LEN') ON(RFJ-RFMT-RECORD-LENGTH) -
HEADER('BFOR-BYTES') ON(RFJ-LENGTH-OF-BFOR-DATA-IMAGE) -
HEADER('AFTR-BYTES') ON(RFJ-LENGTH-OF-AFTR-DATA-IMAGE) -
HEADER('REC-NAME') ON(RFJ-RECORD-NAME) -
HEADER('C') ON(RFJ-TRUNCATED-TRAILING-BYTE)
ICETOOL TRUNCATED RECS 04.23.10
T MAX-LEN BFOR-BYTES AFTR-BYTES REC-NAME C
- ------- ---------- ---------- ---------------- -
N 944 300 300 JOB
N 680 120 120 EMPLOYEE
N 352 32 0 EMPOSITION
N 352 0 32 EMPOSITION
N 376 20 20 COVERAGE A |
|
|
Back to top |
|
|
Anuj Dhawan
Superior Member
Joined: 22 Apr 2006 Posts: 6250 Location: Mumbai, India
|
|
|
|
Now, that’s the benefit of having kernel writer around! |
|
Back to top |
|
|
Dennis1SOIL
New User
Joined: 30 Jun 2009 Posts: 15 Location: Missouri, USA
|
|
|
|
For sure ...
and frankly speaking, I very much appreciate Frank's willingness to do all he does for us.
Let's be Frank (oh, don't I wish!) - he's a veritable treasure to the mainframe user community.
-Dennis |
|
Back to top |
|
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
|
|
|
|
Thanks for the kind words. |
|
Back to top |
|
|
Alexis Sebastian
New User
Joined: 04 Mar 2010 Posts: 38 Location: DC
|
|
|
|
Hi Dennis,
Please give the complete SYSIN cord if u dont have any problem so that i can understnd from your code.
Thanks in advance. |
|
Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
Hello,
The complete "SYSIN" for DISPLAY BLANK is already posted. . .
Unless i read the earlier reply from Dennis incorrectly. . . |
|
Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007 Posts: 8797 Location: Welsh Wales
|
|
|
|
Anuj Dhawan wrote: |
Now, that’s the benefit of having kernel writer around! |
And kernal Sanders isn't too bad to have around either |
|
Back to top |
|
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
|
|
|
|
Quote: |
Please give the complete SYSIN cord if u dont have any problem so that i can understnd from your code. |
This is a DFSORT/ICETOOL job so the control statements are in //TOOLIN, not in //SYSIN, and consists of the DISPLAY operator statements.
If you're not familiar with DFSORT and DFSORT's ICETOOL, I'd suggest reading through "z/OS DFSORT: Getting Started". It's an excellent tutorial, with lots of examples, that will show you how to use DFSORT, DFSORT's ICETOOL and DFSORT Symbols. You can access it online, along with all of the other DFSORT books, from:
www.ibm.com/support/docview.wss?rs=114&uid=isg3T7000080 |
|
Back to top |
|
|
Alexis Sebastian
New User
Joined: 04 Mar 2010 Posts: 38 Location: DC
|
|
|
|
Thanks Frank.
Sorry for the inconveniance.I have started reading this "z/OS DFSORT: Getting Started" manual.
Have a nice week ahead!!! |
|
Back to top |
|
|
|