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



I ended up going with Brian's solution...adding INDARA to the PRTF without
the INDDS keyword on the printer file f-spec.

Mainly because it provided a more obvious tie, POS(32) for indicator 32;
rather than pos(1) for the first indicator in the record buffer.

Plus, it appears the indicators are ordered in the buffer as the are
defined, rather than numerically.

So if somebody came along and added an indicator, they could break what I
was doing.

Thanks Brian!

Charles




On Thu, Aug 2, 2018 at 1:48 PM Charles Wilt <charles.wilt@xxxxxxxxx> 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




As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
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.