Re: print attributes in pdf document

[Brian Parkins <goodprophet.bp@xxxxxxxxx>]

It appears two completely DIFFERENT techniques for handling Indicators 
have been mixed together. Highly likely then that the Indicator 
conditioning UNDERLINE will never be set. (We don't have enough code to 
judge.)

I hope this helps to explain. Personally, I would avoid INDDS/INDARA and 
apply method 2). but others may feel differently.

METHOD 1). Renaming Indicators
     A INDARA
      ** RPG IV program MUST use INDDS
     A          R HEADER
     A                                     1'Reporting software''
     A                                      SKIPB(1)
     A  54                                  UNDERLINE

Dcl-F E071155310 Printer Oflind(*in10)
                 IndDs(Indicators);
// The *INxx and *IN(xx) variables are no longer mapped to Indicators 01-99
// *In54 is no longer mapped on Indicator 54

Dcl-DS Indicators Len(99);
  UnderlineInd Ind Pos(54);  // MUST use UNDERLINEIND - not *IN54
End-DS;                      // to set UNDERLINE attribute in PRTF


METHOD 2). Alias names for Indicators
      ** RPG IV program CANNOT use INDDS
     A          R HEADER
     A                                     1'Reporting software''
     A                                      SKIPB(1)
     A  54                                  UNDERLINE

Dcl-F E071155310 Printer Oflind(*in10);

Dcl-S  IndicatorP  Pointer Inz(%addr(*in));

Dcl-DS Indicators Len(99) Based (IndicatorP);
  UnderlineInd Ind Pos(54);  // Can use both UNDERLINEIND and *IN54
End-DS;                      // to set UNDERLINE attribute in PRTF

Brian.




On 03/04/2025 20:30, tgarvey@xxxxxxxxxx wrote:
> Nope.
> Just checked.
> The printer file has the indds option, pointing to the data structure with
> the indicators. And the printer file has the indara keyword at the file
> level.
>
> Printer DDS file specs (beginning)
>       A                                      INDARA
>       A          R HEADER
>       A                                     1'Reporting software''
>       A                                      SKIPB(1)
>
>       A                                    53'Multi-File Audit Analysis'
>       A                                   114DATE(*YY)
>       A                                      EDTCDE(Y)
>       A                                   125TIME
>       A                                      EDTWRD('  :  : 0')
>       A                                      SPACEA(1)
>       A*---
>
> Printer file spec in RPGLE program...
> 0017.00      fE071155310o    e             printer oflind(*in10)
> indds(indicators)
> 0018.00      d IndicatorP      s               *   inz(%addr(*in))
>
> 0019.00      dIndicators       ds                  based(IndicatorP)