Re: equivalent data type for packed field in Display file -- RPG400-L

Hi,

I meant to ask If the values in these two new fields displayed on the
screen3 are entered and and after that we want to see the entered values or
changed values of these fields back on the same screen like other field
values which we can see if we make the changes on those other fields then
what should be the RPGLE program for this ?

Thanks

On Thu, 28 Jul 2022 at 07:57, Frank Kolmann <Frank.Kolmann@xxxxxxxxx> wrote:

I have no idea what your problem is or what you are asking.
Your code makes no sense. Your DDS is not positionally aligned.
Your RPG code is fragmentary.
Your description is so verbose I cant make sense of what you are asking.

I need real code, real errors, real screen shots, and not so many words
Entire compilation listings of the DDS and RPG preferably.

On 27/07/2022 8:09 pm, jerry ven wrote:

Hi,

in DDS of Display file:-

FLD1 1 B 7 40
FLD2 2 0B 8 40

in RPGLE:-

1) first screen fields get cleared.

C MOVE *BLANKS FLD1
C Z-ADD 0 FLD2

2) Then corresponding fields of physical files are moved into the fields

of

the display file.

C MOVE PFLD1 FLD1
C MOVE PFLD2 FLD2

3) Then Display file's fields are moved into corresponding fields of
physical file.

C MOVE FLD1 PFLD1
C MOVE FLD2 PFLD2

I just made above changes in the existing RPGLE program which once gets
called shows the screen and on this screen if we enter some specific

field

value ( numeric) then another screen gets displayed and here if we press
enter ithout modifying any value on this screen then we get 3rd Screen

and

in this screen only I have added two new fields using STRSDA ( For
alphanumeric field using +B(1) and for numeric +9(2)) so program

displays

this screen correctly and even accepts the values from this screen and

once

we change some other fields values too then those are also changed and

then

if we press enter then after some warning message gets displayed at the
bottom of this screen may be because of some validations happening inside
this RPGLE program but if we again press enter then some another screen
gets displayed and if we again press enter on this screen without

changing

the screen fields on this screen then again the same 3rd screen

appears

where if i enter the numeric value on a specific field ( the same value
which i had entered very first when this 3rd screen appeared subsequently
after first and second screens) and then press enter two times and

proceed

further like i mentioned earlier then i am able to see the changed values
of other fields on this 3rd screen but this 3rd screen does not display

the

values which i had entered for the newly introduced fields by me on this
3rd screen.

I just noticed that other fields whose values is shown correctly after
modification on this 3rd screen are defined inside DDS of Display file
using 'REFFLD' and the two new fields which i have created on this 3rd
screen are created by me using first option 17 (work with Display

Records)

and then by choosing option 12( against this 3rd screen( whose type is
Record)
and then when i come to this screen by giving some names to these fields
and putting one space between their names and +B(1) , 9(2) (Like i
mentioned above) I created these two new fields on this screen.

So What changes in the program code i should do so that like other fields
if i change the values of these two new fields on this 3rd screen then
after inputting or changing their values when i cross check their values

by

entering that unique numeric value on the first screen and then
subsequently coming to this 3rd screen i should be able to see their

values

like i can see other fields values on this screen which I had changed
parallelly to these two new fields. However as per existing program

logic

as I mentioned above i also tried the movement of my new fields in a
similar way ( from PF to DSPF and then DSPF to PF after their
initializations with blanks and '0' values) but it' seems the values
entered on this 3rd screen for these two new fields are not being

accepted

by the RPGLE program that is why i can not see the entered values in

these

two new fields but can see other changed values on this 3rd screen.

Thanks.

On Wed, 27 Jul 2022 at 04:48, Roger Harman <roger.harman@xxxxxxxxxxx>

wrote:

Have you tried RDi screen designer? Honestly, I jumped on it and loved
it. Screens and reports both. You couldn't make me use RLU under

threat

of death though.

Yeah, SDA is/was comfortable but the benefits of RDi are really worth

it.

-----Original Message-----
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Alan
Campin
Sent: Tuesday, July 26, 2022 12:44 PM
To: RPG programming on IBM i <rpg400-l@xxxxxxxxxxxxxxxxxx>
Subject: Re: equivalent data type for packed field in Display file

Funny isn't it. I am the always pushing new things and getting nothing

but

flak for doing it but in this case I just don't see the value. I guess I
should have said I just don't see the value in switching rather than I

am

too old.

On Tue, Jul 26, 2022, 12:26 PM Charles Wilt <charles.wilt@xxxxxxxxx>
wrote:

If you're too old to learn new and better things Alan....

:D

Charles

On Tue, Jul 26, 2022 at 9:37 AM Alan Campin <alan0307d@xxxxxxxxx>

wrote:

Sorry Jon. Way too old to be switching to new screen design aids. SDA

seems

easy to me. The monster is RLU. What a mess that is.

On Tue, Jul 26, 2022 at 6:32 AM Jon Paris <jon.paris@xxxxxxxxxxxxxx>
wrote:

SDA? Today Alan? For those of us who know it, its perversities are
second nature. But for a newbie it is tough because it really doesn't

work

like anything else in the universe.

For a newbie I would suggest either RDi which has a great screen

designer,

or if using Liam's VS Code extension for IBM i as your editor (which

is

where you should start if the shop won't buy RDi) use the new Preview
option which you can find here:

https://nam12.safelinks.protection.outlook.com/?url=https%3A%2F%2Fmarketplace.visualstudio.com%2Fitems%3FitemName%3DHalcyonTechLtd.vscode-displayfile&data=05%7C01%7C%7C9fe3f9b343a54bcfc74608da6f3f2954%7C84df9e7fe9f640afb435aaaaaaaaaaaa%7C1%7C0%7C637944614305641430%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7C&sdata=hnXvX2r35K%2BOTfIMEiUAe92gZepLn4rNbbBsI0JBfJg%3D&reserved=0

<

https://nam12.safelinks.protection.outlook.com/?url=https%3A%2F%2Fmarketplace.visualstudio.com%2Fitems%3FitemName%3DHalcyonTechLtd.vscode-displayfile&data=05%7C01%7C%7C9fe3f9b343a54bcfc74608da6f3f2954%7C84df9e7fe9f640afb435aaaaaaaaaaaa%7C1%7C0%7C637944614305641430%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7C&sdata=hnXvX2r35K%2BOTfIMEiUAe92gZepLn4rNbbBsI0JBfJg%3D&reserved=0

Jon P.

On Jul 25, 2022, at 5:48 PM, Alan Campin <alan0307d@xxxxxxxxx>

wrote:

Have you tried SDA (Screen Design Aid)? There is a bit to learn but

it

will

let you see a screen as it looks.

For the display file that you have defined, go to option 3 in PDM

to

display your display file source. Take option 17 and you should

see a

list

of record formats that you have defined. Take option 12 on the

record

format to display the screen. F4 will show you a list of fields in

the

record. F6 will sort them by location. If you wanted to define a

numeric

5,0 field for input and output (Both) you would type +9(5,0) and it

will

define the field for you where the cursor is. Putting ? in front of

the

field lets you rename it. Putting * in front of field allows you to

specify

editing on the field. I always use a different name for the fields

on

my

screens. For a standard, I B_ for Both fields, I_ for input, O_ for

output

and H_ for hidden fields. For example, if I had an order # that I

wanted

to

input to, I would do something like B_ORDER#.

Anyway, it would allow you to see what the screen looks like..

On Mon, Jul 25, 2022 at 1:47 PM Brian Parkins <

goodprophet.bp@xxxxxxxxx>

wrote:

I see a few problems with this.

- Almost all of DDS has to be coded in uppercase, unless it's in

quotes,

e.g. COLHDG('Jerry')
- As others have pointed out, you have left the Decimal Positions

blank

- so FLD1 would default to Character
- The keyboard shift numeric 'N' applies to input only and has no
bearing on output

You may have more luck with:
A FLD1 2S 0O 7 39
- but this supposes you don't have any overlapping fields which

would

result in FLD1 not being displayed. Don't forget you MUST leave at

least

one space between fields in a Display File, (so the attribute

bytes

don't overlap).

To respond to your earlier query, DDS has no concept of Packed

Numeric

fields, only Signed Numeric (Zoned Decimal). (You cannot

display/print a

Packed field because each byte - i.e. character position -

contains

2-digits.) RPG IV automagically redefines Signed Numeric field in

DDS

to

Packed Decimal in the program. (Look at the compiler listing to

prove

it

to yourself.)

Time to hit the manuals and programming guides?

Brian.

On 25/07/2022 15:42, jerry ven wrote:

i am also trying to define my field directly for the screen like

below

only difference is i am defining like below without using

EDTCDE-

A Fld1 2N O 7 39

But i don't see my field name 'FLD1' on the screen like above,

whereas

within the same DDS other fields which are defined using reffld

and

have

some text under Functions their data is displayed as is on the

screen.

So not sure how the field name could be displayed here if I am

not

using

REFFLD and Functions.in the DDS of display file.

Thanks

--
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://nam12.safelinks.protection.outlook.com/?url=https%3A%2F%2Flists.midrange.com%2Fmailman%2Flistinfo%2Frpg400-l&data=05%7C01%7C%7C9fe3f9b343a54bcfc74608da6f3f2954%7C84df9e7fe9f640afb435aaaaaaaaaaaa%7C1%7C0%7C637944614305641430%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7C&sdata=uQtBpwiMpymbbLAFHABSnw4A3%2FzmdZgdSNWUNdvZV3s%3D&reserved=0

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

https://nam12.safelinks.protection.outlook.com/?url=https%3A%2F%2Farchive.midrange.com%2Frpg400-l&data=05%7C01%7C%7C9fe3f9b343a54bcfc74608da6f3f2954%7C84df9e7fe9f640afb435aaaaaaaaaaaa%7C1%7C0%7C637944614305641430%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7C&sdata=gQFvy841g2pjIH9nEOhFbI%2BNSLI%2BtdtVZ3kpUhoK4dI%3D&reserved=0

.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription

related

questions.

Help support midrange.com by shopping at amazon.com with our

affiliate

link:

https://nam12.safelinks.protection.outlook.com/?url=https%3A%2F%2Famazon.midrange.com%2F&data=05%7C01%7C%7C9fe3f9b343a54bcfc74608da6f3f2954%7C84df9e7fe9f640afb435aaaaaaaaaaaa%7C1%7C0%7C637944614305641430%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7C&sdata=ieIbdICg%2FKysHHJDiBLAXTuqcdSdlW669TT4plWBmAU%3D&reserved=0

--
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://nam12.safelinks.protection.outlook.com/?url=https%3A%2F%2Flists.midrange.com%2Fmailman%2Flistinfo%2Frpg400-l&data=05%7C01%7C%7C9fe3f9b343a54bcfc74608da6f3f2954%7C84df9e7fe9f640afb435aaaaaaaaaaaa%7C1%7C0%7C637944614305641430%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7C&sdata=uQtBpwiMpymbbLAFHABSnw4A3%2FzmdZgdSNWUNdvZV3s%3D&reserved=0

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

https://nam12.safelinks.protection.outlook.com/?url=https%3A%2F%2Farchive.midrange.com%2Frpg400-l&data=05%7C01%7C%7C9fe3f9b343a54bcfc74608da6f3f2954%7C84df9e7fe9f640afb435aaaaaaaaaaaa%7C1%7C0%7C637944614305641430%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7C&sdata=gQFvy841g2pjIH9nEOhFbI%2BNSLI%2BtdtVZ3kpUhoK4dI%3D&reserved=0

.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription

related questions.

Help support midrange.com by shopping at amazon.com with our

affiliate

link:

https://nam12.safelinks.protection.outlook.com/?url=https%3A%2F%2Famazon.midrange.com%2F&data=05%7C01%7C%7C9fe3f9b343a54bcfc74608da6f3f2954%7C84df9e7fe9f640afb435aaaaaaaaaaaa%7C1%7C0%7C637944614305641430%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7C&sdata=ieIbdICg%2FKysHHJDiBLAXTuqcdSdlW669TT4plWBmAU%3D&reserved=0

--
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://nam12.safelinks.protection.outlook.com/?url=https%3A%2F%2Flists.midrange.com%2Fmailman%2Flistinfo%2Frpg400-l&data=05%7C01%7C%7C9fe3f9b343a54bcfc74608da6f3f2954%7C84df9e7fe9f640afb435aaaaaaaaaaaa%7C1%7C0%7C637944614305797642%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7C&sdata=lLPWjmF2nhUs5CKwNmuk%2B0Ff1g6jLx4k8ZnWVwx2Eng%3D&reserved=0

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

https://nam12.safelinks.protection.outlook.com/?url=https%3A%2F%2Farchive.midrange.com%2Frpg400-l&data=05%7C01%7C%7C9fe3f9b343a54bcfc74608da6f3f2954%7C84df9e7fe9f640afb435aaaaaaaaaaaa%7C1%7C0%7C637944614305797642%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7C&sdata=mUj9xKCf5mfYRlEz%2F3%2F05NfPbf1QGJQ0Ad0Ii6e%2BfkQ%3D&reserved=0

.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription

related

questions.

Help support midrange.com by shopping at amazon.com with our

affiliate

link:

https://nam12.safelinks.protection.outlook.com/?url=https%3A%2F%2Famazon.midrange.com%2F&data=05%7C01%7C%7C9fe3f9b343a54bcfc74608da6f3f2954%7C84df9e7fe9f640afb435aaaaaaaaaaaa%7C1%7C0%7C637944614305797642%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7C&sdata=z2P3RMUCmO5ucECTNeo3%2FGBcYukgANkKfnP%2F9ZvAsfU%3D&reserved=0

--
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://nam12.safelinks.protection.outlook.com/?url=https%3A%2F%2Flists.midrange.com%2Fmailman%2Flistinfo%2Frpg400-l&data=05%7C01%7C%7C9fe3f9b343a54bcfc74608da6f3f2954%7C84df9e7fe9f640afb435aaaaaaaaaaaa%7C1%7C0%7C637944614305797642%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7C&sdata=lLPWjmF2nhUs5CKwNmuk%2B0Ff1g6jLx4k8ZnWVwx2Eng%3D&reserved=0

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

https://nam12.safelinks.protection.outlook.com/?url=https%3A%2F%2Farchive.midrange.com%2Frpg400-l&data=05%7C01%7C%7C9fe3f9b343a54bcfc74608da6f3f2954%7C84df9e7fe9f640afb435aaaaaaaaaaaa%7C1%7C0%7C637944614305797642%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7C&sdata=mUj9xKCf5mfYRlEz%2F3%2F05NfPbf1QGJQ0Ad0Ii6e%2BfkQ%3D&reserved=0

.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription

related

questions.

Help support midrange.com by shopping at amazon.com with our

affiliate

link:

https://nam12.safelinks.protection.outlook.com/?url=https%3A%2F%2Famazon.midrange.com%2F&data=05%7C01%7C%7C9fe3f9b343a54bcfc74608da6f3f2954%7C84df9e7fe9f640afb435aaaaaaaaaaaa%7C1%7C0%7C637944614305797642%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7C&sdata=z2P3RMUCmO5ucECTNeo3%2FGBcYukgANkKfnP%2F9ZvAsfU%3D&reserved=0

--
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://nam12.safelinks.protection.outlook.com/?url=https%3A%2F%2Flists.midrange.com%2Fmailman%2Flistinfo%2Frpg400-l&data=05%7C01%7C%7C9fe3f9b343a54bcfc74608da6f3f2954%7C84df9e7fe9f640afb435aaaaaaaaaaaa%7C1%7C0%7C637944614305797642%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7C&sdata=lLPWjmF2nhUs5CKwNmuk%2B0Ff1g6jLx4k8ZnWVwx2Eng%3D&reserved=0

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

https://nam12.safelinks.protection.outlook.com/?url=https%3A%2F%2Farchive.midrange.com%2Frpg400-l&data=05%7C01%7C%7C9fe3f9b343a54bcfc74608da6f3f2954%7C84df9e7fe9f640afb435aaaaaaaaaaaa%7C1%7C0%7C637944614305797642%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7C&sdata=mUj9xKCf5mfYRlEz%2F3%2F05NfPbf1QGJQ0Ad0Ii6e%2BfkQ%3D&reserved=0

.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription

related

questions.

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

https://nam12.safelinks.protection.outlook.com/?url=https%3A%2F%2Famazon.midrange.com%2F&data=05%7C01%7C%7C9fe3f9b343a54bcfc74608da6f3f2954%7C84df9e7fe9f640afb435aaaaaaaaaaaa%7C1%7C0%7C637944614305797642%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7C&sdata=z2P3RMUCmO5ucECTNeo3%2FGBcYukgANkKfnP%2F9ZvAsfU%3D&reserved=0

--
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://nam12.safelinks.protection.outlook.com/?url=https%3A%2F%2Flists.midrange.com%2Fmailman%2Flistinfo%2Frpg400-l&data=05%7C01%7C%7C9fe3f9b343a54bcfc74608da6f3f2954%7C84df9e7fe9f640afb435aaaaaaaaaaaa%7C1%7C0%7C637944614305797642%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7C&sdata=lLPWjmF2nhUs5CKwNmuk%2B0Ff1g6jLx4k8ZnWVwx2Eng%3D&reserved=0

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

https://nam12.safelinks.protection.outlook.com/?url=https%3A%2F%2Farchive.midrange.com%2Frpg400-l&data=05%7C01%7C%7C9fe3f9b343a54bcfc74608da6f3f2954%7C84df9e7fe9f640afb435aaaaaaaaaaaa%7C1%7C0%7C637944614305797642%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7C&sdata=mUj9xKCf5mfYRlEz%2F3%2F05NfPbf1QGJQ0Ad0Ii6e%2BfkQ%3D&reserved=0

.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription

related

questions.

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

https://nam12.safelinks.protection.outlook.com/?url=https%3A%2F%2Famazon.midrange.com%2F&data=05%7C01%7C%7C9fe3f9b343a54bcfc74608da6f3f2954%7C84df9e7fe9f640afb435aaaaaaaaaaaa%7C1%7C0%7C637944614305797642%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7C&sdata=z2P3RMUCmO5ucECTNeo3%2FGBcYukgANkKfnP%2F9ZvAsfU%3D&reserved=0

--
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@xxxxxxxxxxxxxxxxxxxx for any subscription

related

questions.

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

--
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@xxxxxxxxxxxxxxxxxxxx for any subscription related
questions.

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