×
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.
"RPG400-L" <rpg400-l-bounces@xxxxxxxxxxxx> wrote on 06/13/2018 10:55:31
AM:
I went back to your e-mail and made a new version of my program,
using your suggestion
Like I said - I was in moronic state, day 2
It definitely compiles
Let me see what happens in testing - although that maybe a couple ofdays
away
OK, just so we're clear... and at the risk of sounding like
Captain Obvious... Using this example:
dcl-ds MyRecord extname('MyFile') qualified end-ds;
dcl-s MyAryPtr pointer inz(%addr(MyRecord.Field1));
dcl-s MyArray like(MyRecord.Field1) dim(32) based(MyAryPtr);
Just make sure you're reading the data into your version of the
MyRecord data structure shown above -- whether you're using SQL or RLA.
The free-form RLA example is as follows:
read(e) MyFile MyRecord;
Sincerely,
Dave Clark
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.
midrange.com
