|
Barbara, Vernon, Dave
I appreciate the help. I went off into the weeds and lost view of the same point brought up, I was not pointing where I should. The attempt was to find a way to have different lengths of the string for different uses throughout the process without having to %subst / other string manipulation my way through it. so my first step was to over complicate it for someone who has not been actively programming for years and then to keep digging.
So now I will try each of the solutions and see which best fits my understanding and style.
thank you
On Jan 17, 2020, at 6:50 AM, Barbara Morris <bmorris@xxxxxxxxxx> wrote:
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 isthe 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 thatearlier. 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.
was
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
string).discussed (mapping a varying field across an integer followed by a
thedcl-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
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 creatingcomplex).
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
So you will only get a single row! No need to limit the number of rows.Scripts.
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
If the JSON document is built correctly, copy the SELECT statementhttps://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=
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:
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxxhttps://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=
Before posting, please take a moment to review the archives at
.
Please contact support@xxxxxxxxxxxx for any subscription relatedhttps://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=
questions.
Help support midrange.com by shopping at amazon.com with our affiliate
link:
--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=
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@xxxxxxxxxxxxxxxxxxhttps://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=
Before posting, please take a moment to review the archives at
.
Please contact support@xxxxxxxxxxxx for any subscription relatedhttps://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=
questions.
Help support midrange.com by shopping at amazon.com with our affiliate
link:
--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=
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@xxxxxxxxxxxxxxxxxxhttps://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=
Before posting, please take a moment to review the archives at
.
Please contact support@xxxxxxxxxxxx for any subscription relatedhttps://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=
questions.
Help support midrange.com by shopping at amazon.com with our affiliate
link:
--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=
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@xxxxxxxxxxxxxxxxxxhttps://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=
Before posting, please take a moment to review the archives at
.
Please contact support@xxxxxxxxxxxx for any subscription relatedhttps://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=
questions.
Help support midrange.com by shopping at amazon.com with our affiliate
link:
--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=
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@xxxxxxxxxxxxxxxxxxhttps://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=
Before posting, please take a moment to review the archives at
.
Please contact support@xxxxxxxxxxxx for any subscription relatedhttps://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=
questions.
Help support midrange.com by shopping at amazon.com with our affiliate
link:
--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=
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@xxxxxxxxxxxxxxxxxxhttps://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=
Before posting, please take a moment to review the archives at
.
Please contact support@xxxxxxxxxxxx for any subscription relatedhttps://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=
questions.
Help support midrange.com by shopping at amazon.com with our affiliate
link:
--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=
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@xxxxxxxxxxxxxxxxxxhttps://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=
Before posting, please take a moment to review the archives at
.
Please contact support@xxxxxxxxxxxx for any subscription relatedhttps://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=
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:
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:
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:
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:
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=
------------------------------
Subject: Digest Footer
--
This is the RPG programming on IBM i (RPG400-L) digest 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=http-3A__archive.midrange.com_rpg400-2Dl&d=DwICAg&c=jf_iaSHvJObTbx-siA1ZOg&r=SG7jaPlJXRwf-hLLCGFPxfG6t80lJ1Bn7SySUnmzPLc&m=xNLlAFh5npDl7adorlpIihTavSNiqflLz53ukmvEy-4&s=m4Z82HUKBwoNm9WS_ZnFxgLHiYscobjMsGMiyQKQpN4&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=
------------------------------
End of RPG400-L Digest, Vol 19, Issue 45
****************************************
--
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://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.
Please contact support@xxxxxxxxxxxx for any subscription related questions.
Help support midrange.com by shopping at amazon.com with our affiliate link: https://amazon.midrange.com
As an Amazon Associate we earn from qualifying purchases.
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
