× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



Special files can be handy at times. Jon Paris had a nice presentation
about using one to convert from using spooled output to writing HTML for
use in CGI work.


Prakash.VaidhyanAthan@xxxxxxxxxx 03/18/2008 11:59:22 AM >>>
Hi Gary,
That was interesting especially tha part about SPECIAL files. Do they
still use the SPECIAL files? Thanks a ton for the details

Thanks,
Prakash

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Gary Bowers
Sent: March 17, 2008 9:55 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: RE: Numeric to character conversion in RPGIII

RPGIII. numeric conversion to character with zero-suppression.



Well, FIRST. RPGIII DID support external calls. SO, you could call a
nice program to handle the task. (that program could be ANYTHING that
DOES support the native,easy approach that had been suggested.) Nice,
simple, clean, clear.. but does not adhere to RPGIII throughout.



But SECOND, if they are BENT on not bending the RPGIII requirement, and
the code absolutely positively HAS to be RPGIII, you can use something
like this..

---

Make a 1 record, non-keyed disk workfile in QTEMP, and reference it in
your program as an internally described file, say 80 bytes. enough to
handle any editing you'd like.



It involved writing to a (direct) update disk workfile . always record#
1.
This was done with an EXCPT/update output operation. The numeric field
had it's edit code/word applied. 'Z' for zero-suppression, 'Y' for date,
fancy editwords for telephone number or social-security-number, etc.
Nice thing is that it includes decimals, commas, negative signs -
depending on which edit work you use. For instance:

F WORKFILE UF F 80 DISK



C EXCPT BALFMT

.

OWORKFILE E BALFMT

O BALAMT Z



Then they would turn around and read (CHAIN to record#1) from the file.
and move the input buffer (which held the edited bytes put out by the
previous EXCPT). Ta Daaa. The 'edited' field is moved into a character
field.

C 1 CHAIN WORKFILE

C MOVEL WRKBUF BALCHR



Now, if you don't like that there is a slow disk workfile needed, you
can use the SPECIAL file (another seldom used but valid RPGIII syntax).
Change
the CHAIN to a READ, and you are done. Your little SPECIAL
file-handling
program can also be RPGIII syntax. It does basically NOTHING. Just
allows the same buffer that was previously written to be used for input
on the READ. No disk activity needed, and it improves by a factor of
1000-10000.
Fast, but still ugly ;)

F WORKFILE UF F 80 SPECIAL

I'm sure these clever folks know some RPGIII syntax way of doing it.
But, just thought you'd get a kick out of it.



Another technique was to call a CL program, passing in a number to
zero-suppress. Then running a RTVMSGD with a specially-defined message
to get back the zero-suppressed result. Calls an external program, but
everything is still 100% Old/S38 syntax.



I am SOOO embarrassed I remembered these ;)



--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
http://archive.midrange.com/rpg400-l.


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.