Re: Using DS for output to a printer file - indicators in DS

[Brian Parkins <goodprophet.bp@xxxxxxxxx>]

Would this work for you?

                                            INDARA
     A          R MYPRTFR
     A                                  3 40'MY PRINTER FILE'
     A  54                                  UNDERLINE
     A  32                              3 61'Optional Text'

(Note the INDARA keyword.)

**Free
Dcl-F TstPrtInd Printer;

Dcl-DS MyRec ExtName('TSTPRTIND':'MYPRTFR':*All);
End-DS;

Dcl-DS  IndDataStr Len(99) Based(IndPointer);
  Underline Ind Pos(54);
End-DS;

Dcl-S   IndPointer Pointer Inz(%Addr(*In));

  Underline = *On;
  *IN32 = *ON;
  Write MyPrtfR MyRec;
  *InLR = *On;
  Return;

(Note that *IN32 can be used as-is. *IN54 or UNDERLINE variable can be 
used interchangeably.)

Brian.

On 02/08/2018 20:48, Charles Wilt wrote:
> OK,
>
> So for those on midrange-l, you might have saw my post about SCS spool
> files.
>
> My "it's not working" ended up being caused by the fact I was using a
> LIKEREC() DS to write to the printer file; the indicators used by the
> record are included in the LIKEREC() DS.
>
> I had forgotten (maybe never realized) this.
>
> so now I've got
> dcl-ds myrec likerec(MYPRTFR);
>
> myrec.IN32 = *ON;
> write myprtfr myrec;
>
> Except, I'm not fond of the IN32:)
>
> Is there anyway give that indicator a name?
>
> I realize I could use INDDS() on the f-spec; But this is an existing
> program and I'd rather not have to retrofit names onto the other indicators
> right now.
>
> Declaring a standalone variable based on the %addr(myrec.in32) would be one
> solution I suppose.  But I'd need one for every indicator used.  Or perhaps
> since the indicators are at the start of the LIKEREC() DS I could just use
> it's address...
>
> Any other ideas?
>
> Thanks!
> Charles