Re: Converting O specs to PRTF

["Michael Ryan" <michaelrtr@xxxxxxxxx>]

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.