Re: Converting O specs to PRTF -- RPG400-L

× 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.

Identify the conditions that cause 50 to be on and 95 to be off. I'd
probably use named indicators. Then do something like:

/Free
If The50condition and Not The95condition;
Write TheHeader;
EndIf;

You also have conditioning for those literals. I'd probably set up a
field and move the literals into a field for printing.

On Tue, May 20, 2008 at 1:52 PM, Adam West <adamster@xxxxxxxxx> wrote:

THis is sone legacy code to make over to a PRTF. It doesn't use the
Except. I guess it is based on those indicators, then it prints if *IN50
is on and *95 is off ?

How would I convert this puppy?

OREPORT D 105 50N95
O* 88 40 'SERVICE CTR'
O N47 31 'SERVICE INC.'
O 55N47 31 'DESIGN INC. '
O 47 XADR1 30
--
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.

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.