| View previous topic :: View next topic |
| Author |
Message |
pdaula Beginner
Joined: 24 Aug 2006 Posts: 2 Topics: 1
|
Posted: Thu Aug 24, 2006 3:33 pm Post subject: EZtrieve to format numeric display for file, not report |
|
|
Hi all.
A general question: Can I use easytrieve to format a packed numeric field (W 5 P 2) to an unpacked display for a *file* in Z,ZZZ,ZZ9.99 format.
I know that this is easily doable for reports, but I would like to format this for custom file output. Any recommendation is greatly appreciated.
Thanks in advance. |
|
| Back to top |
|
 |
shekar123 Advanced
Joined: 22 Jul 2005 Posts: 528 Topics: 90 Location: Bangalore India
|
Posted: Thu Aug 24, 2006 3:54 pm Post subject: |
|
|
pdaula,
If you can format it for a report then you can obviously route the edited output to a file also. _________________ Shekar
Grow Technically |
|
| Back to top |
|
 |
kolusu Site Admin

Joined: 26 Nov 2002 Posts: 12399 Topics: 75 Location: San Jose
|
Posted: Thu Aug 24, 2006 6:28 pm Post subject: |
|
|
pdaula,
Please check this thread for an examle of formatting the packed decimal field
http://www.mvsforums.com/helpboards/viewtopic.php?p=13780#13780
| shekhar123 wrote: | | If you can format it for a report then you can obviously route the edited output to a file also. |
Shekhar,
Formatting the output with edit mask is NOT possible when writting output files.
Kolusu _________________ Kolusu
www.linkedin.com/in/kolusu |
|
| Back to top |
|
 |
pdaula Beginner
Joined: 24 Aug 2006 Posts: 2 Topics: 1
|
Posted: Fri Aug 25, 2006 8:06 am Post subject: Thanks Kolusu |
|
|
| Thanks Kolusu - it works well! |
|
| Back to top |
|
 |
dz Beginner
Joined: 02 Apr 2006 Posts: 26 Topics: 0
|
Posted: Fri Aug 25, 2006 8:34 am Post subject: |
|
|
Yes, there is another way of doing it outside of the method recommended above.
It is done via Easytrieve DISPLAY. I have this example done recently:
| Quote: |
//OUTFILE DD DSN=<mydsn>,
- - - - - - - - - - - - - - - - 31 Line(s) not Displayed
W-EDIT-AMT W 6 P 2 MASK('ZZZZZZZ99.99')
- - - - - - - - - - - - - - - - 46 Line(s) not Displayed
W-EDIT-AMT = SHR-A
PERFORM DISPLAY-PROC
- - - - - - - - - - - - - - - - 30 Line(s) not Displayed
DISPLAY-PROC. PROC.
DISPLAY OUTFILE 'D' +
QUOTE W-ACCT QUOTE HORIZTAB +
QUOTE W-BOX QUOTE HORIZTAB +
QUOTE W-EDIT-AMT QUOTE
|
|
|
| Back to top |
|
 |
|
|
|