Re: How do I clip a vary length field? -- RPG400-L

I made two mistakes in my code sample. (Double facepalm)
- I should have made exdaep_full_t a template so the compiler would give an
error if it was used in a calculation
- I should have used datain in the assignment to Upper

Here's a more correct version of my suggestion.

/copy qsysinc/qrpglesrc,ezdaep
dcl-ds ezdaep_full_t template;
header likeds(EZDSQLF2);
data char(10000); // not sure how big this should be
end-ds;

dcl-pi ODBCEXIT;
allow char(1);
datain likeds(exdaep_full_t);
end-pi;

dcl-s Upper varchar(128);

Upper = %subst(datain.data : 1 : datain.header.EZDQLSTL);

----------------------------------------------------------------------

Original message:
date: Thu, 16 Jan 2020 14:53:43 -0500
from: "Barbara Morris" <bmorris@xxxxxxxxxx>
subject: Re: How do I clip a vary length field?

...

dcl-ds ezdaep_full_t;
header likeds(EZDSQLF2);
data char(10000); // not sure how big this should be
end-ds;

dcl-pi ODBCEXIT;
allow char(1);
datain likeds(exdaep_full_t);
end-pi;
...
Upper = %subst(exdaep_full.data : 1 : extaep_full.header.EZDQLSTL);

------------------------------

Original message
date: Thu, 16 Jan 2020 12:06:38 -0500
from: Chris Holko <christopherholko@xxxxxxxxx>
subject: Re: How do I clip a vary length field?

EZDQLSTL appears as junk, using the code sample I posted earlier; it is the
simplest way to demo my issue; data_in looks right but I am of the opinion
I am making a pointer to the wrong variable.I cannot determine how to put a
pointer to what is received on entry to the program as I would have
suspected a qualified name for the data structure but that isn?t right.

I am not looking for a gimmick solution and sorry if I implied that
earlier. I am trying to receive in the data from the exit point regardless
of size and I need to deal with it in more than one size as the program
processes the data. Hence the need to move a portion to a much smaller
variable. I used 128 because I can easily submit statements larger than
that.

------------------------------

message: 2
date: Thu, 16 Jan 2020 21:52:13 +0000
from: Justin Taylor <JUSTIN@xxxxxxxxxxxxx>
subject: Find special characters in RPG source

I regularly paste text into RPG source (in RDi). Sometimes the text
contains special characters (e.g. tabs). Does anyone know of a good way to
check a source member for special characters?

TIA

------------------------------

message: 3
date: Thu, 16 Jan 2020 21:59:51 +0000
from: Alan Shore via RPG400-L <rpg400-l@xxxxxxxxxxxxxxxxxx>
subject: RE: Find special characters in RPG source

Hi Justin
The problem that I have been having is that what is copied is special
characters that cannot be displayed on the AS/400
I built this SQL

with nontrans as
(SELECT rrn(a), a.CHNUM,
TRANSLATE(UPPER(a.CHTXT), ' ',
'ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890!@#$%^&*()-=+/\{}[];:.,<>?
????????~???_`"|''') as TRANSL
, CHTXT
FROM nbjdta.csthistp a
WHERE
(TRANSLATE(UPPER(a.CHTXT), ' ',
'ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890!@#$%^&*()-=+/\{}[];:.,<>?
????????~???_`"|''')
<> ' ')
order by rrn(a))
select hex(substr(trim(x.TRANSL), 1, 1)),
x.* from nontrans x
where substr(trim(x.TRANSL), 1, 1) < x'40'
and hex(substr(trim(x.TRANSL), 1, 1)) not in ('1A', '36')

This will display those characters

You can manipulate the above to remove the | from the translation and see
the results

Alan Shore
E-mail : ASHORE@xxxxxxxx
Phone [O] : (631) 200-5019
Phone [C] : (631) 880-8640
'If you're going through hell, keep going.'
Winston Churchill

-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxxxxxxxx] On Behalf Of
Justin Taylor
Sent: Thursday, January 16, 2020 4:52 PM
To: RPG programming on IBM i <rpg400-l@xxxxxxxxxxxxxxxxxx>
Subject: [EXTERNAL] Find special characters in RPG source

I regularly paste text into RPG source (in RDi). Sometimes the text
contains special characters (e.g. tabs). Does anyone know of a good way to
check a source member for special characters?

TIA
--
This is the RPG programming on IBM i (RPG400-L) mailing list To post a
message email: RPG400-L@xxxxxxxxxxxxxxxxxx To subscribe, unsubscribe, or
change list options,
visit:
https://urldefense.proofpoint.com/v2/url?u=https-3A__lists.midrange.com_mailman_listinfo_rpg400-2Dl&d=DwICAg&c=jf_iaSHvJObTbx-siA1ZOg&r=SG7jaPlJXRwf-hLLCGFPxfG6t80lJ1Bn7SySUnmzPLc&m=xNLlAFh5npDl7adorlpIihTavSNiqflLz53ukmvEy-4&s=o62WFfB9d2KfMHwfbW5ydgag-FVr3Gu54YnaBFFl-F4&e=

or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at
https://urldefense.proofpoint.com/v2/url?u=https-3A__archive.midrange.com_rpg400-2Dl&d=DwICAg&c=jf_iaSHvJObTbx-siA1ZOg&r=SG7jaPlJXRwf-hLLCGFPxfG6t80lJ1Bn7SySUnmzPLc&m=xNLlAFh5npDl7adorlpIihTavSNiqflLz53ukmvEy-4&s=Q8pIuLYiPoRR7d7vJIjQfXV_iJkPVr7rnSGs8MOvRss&e=
.

Please contact support@xxxxxxxxxxxx for any subscription related questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link:
https://urldefense.proofpoint.com/v2/url?u=https-3A__amazon.midrange.com&d=DwICAg&c=jf_iaSHvJObTbx-siA1ZOg&r=SG7jaPlJXRwf-hLLCGFPxfG6t80lJ1Bn7SySUnmzPLc&m=xNLlAFh5npDl7adorlpIihTavSNiqflLz53ukmvEy-4&s=fAZZnofcmbEpHn2qoQOn7TNeBF9x8dINbhCOWRQ7oW0&e=

------------------------------

message: 4
date: Thu, 16 Jan 2020 22:47:46 +0000
from: Francois Lavoie <Francois.Lavoie@xxxxxxxxxxxxxxxxxxxx>
subject: RE: Find special characters in RPG source

CLP FNDSTRPDM can find char by hex values

You will have to loop for each accented chars in for each source files you
have

-----Original Message-----
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Justin
Taylor
Sent: Thursday, January 16, 2020 16:52
To: RPG programming on IBM i <rpg400-l@xxxxxxxxxxxxxxxxxx>
Subject: Find special characters in RPG source

I regularly paste text into RPG source (in RDi). Sometimes the text
contains special characters (e.g. tabs). Does anyone know of a good way to
check a source member for special characters?

TIA
--
This is the RPG programming on IBM i (RPG400-L) mailing list To post a
message email: RPG400-L@xxxxxxxxxxxxxxxxxx To subscribe, unsubscribe, or
change list options,
visit:
https://urldefense.proofpoint.com/v2/url?u=https-3A__lists.midrange.com_mailman_listinfo_rpg400-2Dl&d=DwICAg&c=jf_iaSHvJObTbx-siA1ZOg&r=SG7jaPlJXRwf-hLLCGFPxfG6t80lJ1Bn7SySUnmzPLc&m=xNLlAFh5npDl7adorlpIihTavSNiqflLz53ukmvEy-4&s=o62WFfB9d2KfMHwfbW5ydgag-FVr3Gu54YnaBFFl-F4&e=

or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at
https://urldefense.proofpoint.com/v2/url?u=https-3A__archive.midrange.com_rpg400-2Dl&d=DwICAg&c=jf_iaSHvJObTbx-siA1ZOg&r=SG7jaPlJXRwf-hLLCGFPxfG6t80lJ1Bn7SySUnmzPLc&m=xNLlAFh5npDl7adorlpIihTavSNiqflLz53ukmvEy-4&s=Q8pIuLYiPoRR7d7vJIjQfXV_iJkPVr7rnSGs8MOvRss&e=
.

Please contact support@xxxxxxxxxxxx for any subscription related questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link:
https://urldefense.proofpoint.com/v2/url?u=https-3A__amazon.midrange.com&d=DwICAg&c=jf_iaSHvJObTbx-siA1ZOg&r=SG7jaPlJXRwf-hLLCGFPxfG6t80lJ1Bn7SySUnmzPLc&m=xNLlAFh5npDl7adorlpIihTavSNiqflLz53ukmvEy-4&s=fAZZnofcmbEpHn2qoQOn7TNeBF9x8dINbhCOWRQ7oW0&e=

------------------------------

message: 5
date: Thu, 16 Jan 2020 18:41:49 -0600
from: Vernon Hamberg <vhamberg@xxxxxxxxxxxxxxx>
subject: Re: How do I clip a vary length field?

Hi Chris

EZDQLSTL is a 4-byte integer, which might look like junk - from the
looks of the data structure, the actual text is always at the same
location, after the end of the DS that is defined (note that EZDSQLST00
is commented out). And coincidentally, the actual is immediately after
EZDQLSTL, which is why it might work, as Barbara showed.

In another technique, you can set a pointer to the actual text by
setting a pointer to the start of the DS, then adding the size of the DS
to the pointer to the start of the DS, in order to get the pointer to
the actual text, which you might define in any way you want, although
that will probably not be a varying-length variable in the way I'm
describing.

Then to get your statement, use the minimum of EZDQLSTL and the length
of your statement variable. Use that minimum as the length of a
substring function.

I hope that makes some sense. It is a fairly standard way to get text of
varying length out of an API, if I am stating it correctly. One thought
- your DS does not need to have the SQL text in it - you can trust the
API to allocate the memory need for that statement, so once you have a
pointer to THAT space, you can get the data at that location in memory.

Vern

On 1/16/2020 11:06 AM, Chris Holko wrote:

EZDQLSTL appears as junk, using the code sample I posted earlier; it is

the simplest way to demo my issue; data_in looks right but I am of the
opinion I am making a pointer to the wrong variable.I cannot determine how
to put a pointer to what is received on entry to the program as I would
have suspected a qualified name for the data structure but that isn?t
right.

I am not looking for a gimmick solution and sorry if I implied that

earlier. I am trying to receive in the data from the exit point regardless
of size and I need to deal with it in more than one size as the program
processes the data. Hence the need to move a portion to a much smaller
variable. I used 128 because I can easily submit statements larger than
that.

On Jan 16, 2020, at 10:44 AM, Barbara Morris <bmorris@xxxxxxxxxx> wrote:

Vern, in the earlier part of this thread from last year, this technique

was

discussed (mapping a varying field across an integer followed by a

string).

dcl-ds ds;
whatever char(10);
len int(10);
data char(100);
more stuff char(100);
end-ds;

dcl-s varfld varchar(100:4) based(p);
dcl-s p pointer inz(%addr(len));

Chris is doing something like that. Whether it's a good idea or not, I
think it does work.

At least, it works if the length (subfield EZDQLSTL, in Chris's case) is
less than or equal to the defined length of the based VARCHAR field.

Chris, if you can debug this, what is the value of EZDQLSTL when you do

the

assignment to Upper?

-- Barbara

------------------------------

message: 6
date: Fri, 17 Jan 2020 06:20:05 +0100
from: "Birgitta Hauser" <Hauser@xxxxxxxxxxxxxxx>
subject: RE: JSON_OBJECT and Writing to IFS

You don't need to write it into the IFS from ACS (and if you want you still
can write the result of an SELECT statement into the IFS)

What I do is to run the SELECT statement that generates the JSON data.
Then I copy the JSON data into a JSON validator, just to make sure the data
is correct.
If everything is okay, I copy the SELECT-Statement into my program and add
the INTO FileReferenceFile.

Mit freundlichen Gr??en / Best regards

Birgitta Hauser

"Shoot for the moon, even if you miss, you'll land among the stars." (Les
Brown)
"If you think education is expensive, try ignorance." (Derek Bok)
"What is worse than training your staff and losing them? Not training them
and keeping them!"
?Train people well enough so they can leave, treat them well enough so they
don't want to.? (Richard Branson)

-----Original Message-----
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Stephen
Piland
Sent: Donnerstag, 16. Januar 2020 20:12
To: RPG programming on IBM i <rpg400-l@xxxxxxxxxxxxxxxxxx>
Subject: RE: JSON_OBJECT and Writing to IFS

If I want to make sure this works in ACS SQL first, how do I save to IFS
there? Since can't use host variables there..

Into Clob_file('/temp/sample.json') ?

-----Original Message-----
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Stephen
Piland
Sent: Thursday, January 16, 2020 12:34 PM
To: RPG programming on IBM i <rpg400-l@xxxxxxxxxxxxxxxxxx>
Subject: RE: JSON_OBJECT and Writing to IFS

Awesome. Thanks. I'll give it a try.

-----Original Message-----
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Birgitta
Hauser
Sent: Thursday, January 16, 2020 11:48 AM
To: 'RPG programming on IBM i' <rpg400-l@xxxxxxxxxxxxxxxxxx>
Subject: RE: JSON_OBJECT and Writing to IFS

Instead of Fetch first 10 Rows Only, you use LIMIT and OFSET in composition
with a host variable.
But then you need to create multiple IFS files, with different names etc.

HostVar += 10;

with cte as (select * from dbtable Limit 10 Offset :HostVar)
select json_object('data' value json_arrayagg(json_object('id' value
id, 'account' value cust_acct)))
into :OutFile
from SysIBM.SysDummy1;

Mit freundlichen Gr??en / Best regards

Birgitta Hauser

"Shoot for the moon, even if you miss, you'll land among the stars." (Les
Brown) "If you think education is expensive, try ignorance." (Derek Bok)
"What is worse than training your staff and losing them? Not training them
and keeping them!"
?Train people well enough so they can leave, treat them well enough so they
don't want to.? (Richard Branson)

-----Original Message-----
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Charles
Wilt
Sent: Donnerstag, 16. Januar 2020 18:09
To: RPG programming on IBM i <rpg400-l@xxxxxxxxxxxxxxxxxx>
Subject: Re: JSON_OBJECT and Writing to IFS

cursor still isn't needed...

with cte as (select * from dbtable fetch first 10 rows only) select
json_object('data' value json_arrayagg(json_object('id' value id, 'account'
value cust_acct)))
from cte;

Charles

On Thu, Jan 16, 2020 at 10:04 AM Stephen Piland <
Stephen@xxxxxxxxxxxxxxxxxxxxxxxxxxxxx> wrote:

Understood. However, the outside vendor that we would be creating
this for is requesting we limit the size of the each file created to
100 rows worth of data for example.

Maybe it isn't possible and I have to go a more 'manual' route.

-----Original Message-----
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of
Birgitta Hauser
Sent: Thursday, January 16, 2020 10:59 AM
To: 'RPG programming on IBM i' <rpg400-l@xxxxxxxxxxxxxxxxxx>
Subject: RE: JSON_OBJECT and Writing to IFS

You do not need to define a cursor, because you'll build the complete
JSON document within a SQL Statement (which might be a little more

complex).

So you will only get a single row! No need to limit the number of rows.

A SELECT ... INTO or VALUES ... INTO will do the job:

DCL-S Outfile SQLType(CLOB_File) CCSID(1208);

Clear OutFile;
Outfile_Name = '/temp/accounts_{timestamp}.json'
Outfile_NL = %len(%trimr(Outfile_Name))
Outfile_FO = SQFCRT;

Exec SQL Values(SELECTStatementThatCreatesTheJSONData) into :OutFile;
If SQLCODE < *Zeros;
//Handle Error;
Else;
//Success
End;

Just a tip. Build your SELECT Statement first within ACS - Run SQL

Scripts.

If the JSON document is built correctly, copy the SELECT statement
into your program.

Mit freundlichen Gr??en / Best regards

Birgitta Hauser

"Shoot for the moon, even if you miss, you'll land among the stars."
(Les
Brown)
"If you think education is expensive, try ignorance." (Derek Bok)
"What is worse than training your staff and losing them? Not training
them and keeping them!"
"Train people well enough so they can leave, treat them well enough so
they don't want to." (Richard Branson)

-----Original Message-----
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of
Stephen Piland
Sent: Donnerstag, 16. Januar 2020 16:46
To: RPG programming on IBM i <rpg400-l@xxxxxxxxxxxxxxxxxx>
Subject: RE: JSON_OBJECT and Writing to IFS

I was able to build a JSON document with multiple objects (rows from
DB) using json_arrayagg within a json_object and that worked fine.

I was wondering if anyone has ever tried to limit the number of rows
from DB table per IFS created in a SQL cursor like loop?

Pseudo code..
DCL-S OutFile SQLType(CLOB_FILE) CCSID(1208);

Exec sql Declare c1 cursor for json_object('data' value
json_arrayagg(json_object('id' value id, 'account' value cust_acct)))
from DB_Table offset 10 rows; Exec sql open c1;

Dow sqlcod = 0;
Outfile_Name = '/temp/accounts_{timestamp}.json'
Outfile_NL = %len(%trimr(Outfile_Name))
Outfile_FO = SQFCRT;
Exec sql fetch c1 for 10 rows into :Outfile; Enddo;

Exec sql close c1;

I know this isn't 100% 'correct' but hopefully someone gets a clue
what I'm trying to do.

Thanks!

-----Original Message-----
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of
Birgitta Hauser
Sent: Wednesday, January 8, 2020 9:53 AM
To: 'RPG programming on IBM i' <rpg400-l@xxxxxxxxxxxxxxxxxx>
Subject: RE: JSON_OBJECT and Writing to IFS

Select ... INTO can only handle a single return value/row!

In this way you should build the complete JSON document within a
single SELECT statement and write the result into the IFS.
For complex queries use common table expressions (CTE).
In the first (few) CTEs generate the raw data that must be included in
the JSON document.
In the next CTEs build successive the JSON data, starting with the
lowest level and then merging the result of these CTEs in the next
CTEs ... until the complete JSON document is built.

... on the other side it is possible to append data to an IFS table.
You have to change the _FO value to SQLAPP (=Append). After having
changed the File Operation, new data is added to the end of the IFS file.

Mit freundlichen Gr??en / Best regards

Birgitta Hauser

"Shoot for the moon, even if you miss, you'll land among the stars."
(Les
Brown)
"If you think education is expensive, try ignorance." (Derek Bok)
"What is worse than training your staff and losing them? Not training
them and keeping them!"
"Train people well enough so they can leave, treat them well enough so
they don't want to." (Richard Branson)

-----Original Message-----
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of
Stephen Piland
Sent: Mittwoch, 8. Januar 2020 16:06
To: RPG programming on IBM i <rpg400-l@xxxxxxxxxxxxxxxxxx>
Subject: RE: JSON_OBJECT and Writing to IFS

Great! Thanks! That did work. It only allows me to fetch the first
row to dump into the IFS file, which makes sense to me.

How could I include multiple JSON messages / 'rows'? Someone
approached us about doing ND JSON, which might be what this would be.
I'm not sure to be honest.

Any thoughts?

-----Original Message-----
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of
Birgitta Hauser
Sent: Tuesday, January 7, 2020 11:23 PM
To: 'RPG programming on IBM i' <rpg400-l@xxxxxxxxxxxxxxxxxx>
Subject: RE: JSON_OBJECT and Writing to IFS

Outfile must be a CLOB_FILE CCSID 1208.

DCL-S OutFle SQLType(CLOB_FILE) CCSID(1208);

Mit freundlichen Gr??en / Best regards

Birgitta Hauser

"Shoot for the moon, even if you miss, you'll land among the stars."
(Les
Brown)
"If you think education is expensive, try ignorance." (Derek Bok)
"What is worse than training your staff and losing them? Not training
them and keeping them!"
"Train people well enough so they can leave, treat them well enough so
they don't want to." (Richard Branson)

-----Original Message-----
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of
Stephen Piland
Sent: Mittwoch, 8. Januar 2020 01:46
To: rpg400-l@xxxxxxxxxxxxxxxxxx
Subject: JSON_OBJECT and Writing to IFS

Anyone have any luck writing the encoded JSON out to the IFS like we
have done with XML using sqltype(xml_clob_File) and Select-ing into
that variable? Do I need to convert / cast the JSON_OBJECT into a
CLOB in the SQL? Thanks!

Quick Test...
dcl-s Outfile sqltype(xml_clob_File) ; exec sql Set Option
COMMIT=*NONE,CLOSQLCSR=*ENDMOD,DATFMT=*ISO;

// Prep JSON File
Outfile_Name = %trim('/temp/test.json'); Outfile_NL =
%len(%trimr(Outfile_Name)); Outfile_FO = SQFCRT;

exec sql Select json_object ('upc' value fldupc, 'price' value price)
Into :Outfile From PRICING;

--
This is the RPG programming on IBM i (RPG400-L) mailing list To post a
message email: RPG400-L@xxxxxxxxxxxxxxxxxx To subscribe, unsubscribe,
or change list options,
visit:

https://urldefense.proofpoint.com/v2/url?u=https-3A__lists.midrange.com_mailman_listinfo_rpg400-2Dl&d=DwICAg&c=jf_iaSHvJObTbx-siA1ZOg&r=SG7jaPlJXRwf-hLLCGFPxfG6t80lJ1Bn7SySUnmzPLc&m=xNLlAFh5npDl7adorlpIihTavSNiqflLz53ukmvEy-4&s=o62WFfB9d2KfMHwfbW5ydgag-FVr3Gu54YnaBFFl-F4&e=

or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at

https://urldefense.proofpoint.com/v2/url?u=https-3A__archive.midrange.com_rpg400-2Dl&d=DwICAg&c=jf_iaSHvJObTbx-siA1ZOg&r=SG7jaPlJXRwf-hLLCGFPxfG6t80lJ1Bn7SySUnmzPLc&m=xNLlAFh5npDl7adorlpIihTavSNiqflLz53ukmvEy-4&s=Q8pIuLYiPoRR7d7vJIjQfXV_iJkPVr7rnSGs8MOvRss&e=
.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link:

https://urldefense.proofpoint.com/v2/url?u=https-3A__amazon.midrange.com&d=DwICAg&c=jf_iaSHvJObTbx-siA1ZOg&r=SG7jaPlJXRwf-hLLCGFPxfG6t80lJ1Bn7SySUnmzPLc&m=xNLlAFh5npDl7adorlpIihTavSNiqflLz53ukmvEy-4&s=fAZZnofcmbEpHn2qoQOn7TNeBF9x8dINbhCOWRQ7oW0&e=

--
This is the RPG programming on IBM i (RPG400-L) mailing list To post a
message email: RPG400-L@xxxxxxxxxxxxxxxxxx To subscribe, unsubscribe,
or change list options,
visit:

or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link:

--
This is the RPG programming on IBM i (RPG400-L) mailing list To post a
message email: RPG400-L@xxxxxxxxxxxxxxxxxx To subscribe, unsubscribe,
or change list options,
visit:

or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link:

--
This is the RPG programming on IBM i (RPG400-L) mailing list To post a
message email: RPG400-L@xxxxxxxxxxxxxxxxxx To subscribe, unsubscribe,
or change list options,
visit:

or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link:

--
This is the RPG programming on IBM i (RPG400-L) mailing list To post a
message email: RPG400-L@xxxxxxxxxxxxxxxxxx To subscribe, unsubscribe,
or change list options,
visit:

or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link:

--
This is the RPG programming on IBM i (RPG400-L) mailing list To post a
message email: RPG400-L@xxxxxxxxxxxxxxxxxx To subscribe, unsubscribe,
or change list options,
visit:

or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link:

--
This is the RPG programming on IBM i (RPG400-L) mailing list To post a
message email: RPG400-L@xxxxxxxxxxxxxxxxxx To subscribe, unsubscribe,
or change list options,
visit:

or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: