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


  1.  Home
  2. RPG400-L
  3. October 2021

RE: [EXTERNAL] Question on failing SETGT followed by SETGT

Did you check whether your library list is set correctly?
May be it tries to read from a wrong 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
dfreinkel@xxxxxxxxxxxxxxxxx
Sent: Donnerstag, 14. Oktober 2021 19:42
To: 'RPG programming on IBM i' <rpg400-l@xxxxxxxxxxxxxxxxxx>
Subject: RE: [EXTERNAL] Question on failing SETGT followed by SETGT





Darryl Freinkel

A4G

Telephone: 770.321.8562 Mobile: 678.355.8562



-----Original Message-----
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Alan Shore
via RPG400-L
Sent: Thursday, October 14, 2021 1:18 PM
To: RPG programming on IBM i <rpg400-l@xxxxxxxxxxxxxxxxxx>
Cc: Alan Shore <ashore@xxxxxxxx>
Subject: RE: [EXTERNAL] Question on failing SETGT followed by SETGT



Hi Darryl

Looking at what you sent - its tough to determine what fields have what
value Can you put the data into a spreadsheet and copy and paste that into
the e-mail No need to put the entire record - just the values of the keys





FTCODE From To FTFPCT FTFPC2

FTTHR1 FTHR2 FTMIN$ FTPRF FTTRM FTFTRM I/C FTEMM FTEDD FTECC FTEYY

2009-03-01 2011-05-29 0.0300 0.0000 0 0 0

3 1 20 9

2011-05-30 2011-07-17 0.0350 0.0000 0 0 0

5 30 20 11

2011-07-18 2011-10-16 0.0360 0.0000 0 0 0

7 18 20 11

2011-10-17 2012-01-16 0.0350 0.0000 0 0 0

10 17 20 11

2012-01-16 2012-04-15 0.0350 0.0000 0 0 0

1 16 20 12

2012-04-16 2012-07-15 0.0350 0.0000 0 0 0

4 16 20 12

2012-07-16 2012-10-15 0.0350 0.0000 0 0 0

7 16 20 12

2012-10-16 2013-01-21 0.0350 0.0000 0 0 0

10 16 20 12

2013-01-22 2017-09-10 0.0350 0.0000 0 0 0

1 22 20 13

2017-09-11 0000-00-00 0.0000 0.0000 0 0 0 Y PD PD PD 9 11 20 17 CH
2021-05-31 2021-06-30 0.0300 0.0150 5000 0 20

5 31 20 21

CH 2021-07-01 0000-00-00 0.0300 0.0150 5000 99999 20

7 1 20 21

ID 2021-09-01 0000-00-00 0.0300 0.0150 3000 7000 20

9 1 20 21

RS 2021-05-31 0000-00-00 0.9900 0.0000 1000 99999 20

5 31 20 21

WH 2021-05-31 0000-00-00 0.0300 0.0150 3000 12000 20

5 31 20 21







Alan Shore

Solutions Architect

IT Supply Chain Execution



[cid:image001.png@01D7C0FD.EA354EE0]



60 Orville Drive

Bohemia, NY 11716

Phone [O] : (631) 200-5019

Phone [C] : (631) 880-8640

E-mail : <mailto:ASHORE@xxxxxxxxxxxxxxxxxxxx> ASHORE@xxxxxxxxxxxxxxxxxxxx



'If you're going through hell, keep going.'

Winston Churchill



From: RPG400-L [ <mailto:rpg400-l-bounces@xxxxxxxxxxxxxxxxxx>
mailto:rpg400-l-bounces@xxxxxxxxxxxxxxxxxx] On Behalf Of
<mailto:dfreinkel@xxxxxxxxxxxxxxxxx> dfreinkel@xxxxxxxxxxxxxxxxx

Sent: Thursday, October 14, 2021 1:15 PM

To: 'RPG programming on IBM i' < <mailto:rpg400-l@xxxxxxxxxxxxxxxxxx>
rpg400-l@xxxxxxxxxxxxxxxxxx>

Subject: RE: [EXTERNAL] Question on failing SETGT followed by SETGT



Basically, it does not find the record and so executes the code for record
not found.



Darryl Freinkel

A4G

Telephone: 770.321.8562 Mobile: 678.355.8562



-----Original Message-----

From: RPG400-L <
<mailto:rpg400-l-bounces@xxxxxxxxxxxxxxxxxx%3cmailto:rpg400-l-bounces@lists.
midrange.com>
rpg400-l-bounces@xxxxxxxxxxxxxxxxxx<mailto:rpg400-l-bounces@lists.midrange.c
om>> On Behalf Of Alan Shore via RPG400-L

Sent: Thursday, October 14, 2021 12:36 PM

To: RPG programming on IBM i <
<mailto:rpg400-l@xxxxxxxxxxxxxxxxxx%3cmailto:rpg400-l@xxxxxxxxxxxxxxxxxx>
rpg400-l@xxxxxxxxxxxxxxxxxx<mailto:rpg400-l@xxxxxxxxxxxxxxxxxx>>

Cc: Alan Shore < <mailto:ashore@xxxxxxxx%3cmailto:ashore@xxxxxxxx>
ashore@xxxxxxxx<mailto:ashore@xxxxxxxx>>

Subject: RE: [EXTERNAL] Question on failing SETGT followed by SETGT



Hi Darryl

When you say

The line failing is the line with code ID.



How does it fail

I was assuming that the program couldn't find a particular key



Alan Shore

Solutions Architect

IT Supply Chain Execution



--

This is the RPG programming on IBM i (RPG400-L) mailing list To post a
message email:
<mailto:RPG400-L@xxxxxxxxxxxxxxxxxx%3cmailto:RPG400-L@xxxxxxxxxxxxxxxxxx>
RPG400-L@xxxxxxxxxxxxxxxxxx<mailto:RPG400-L@xxxxxxxxxxxxxxxxxx>

To subscribe, unsubscribe, or change list options,

visit:
<https://lists.midrange.com/mailman/listinfo/rpg400-l%3chttps:/lists.midrang
e.com/mailman/listinfo/rpg400-l>
https://lists.midrange.com/mailman/listinfo/rpg400-l<https://lists.midrange.
com/mailman/listinfo/rpg400-l>

or email:
<mailto:RPG400-L-request@xxxxxxxxxxxxxxxxxx%3cmailto:RPG400-L-request@lists.
midrange.com>
RPG400-L-request@xxxxxxxxxxxxxxxxxx<mailto:RPG400-L-request@lists.midrange.c
om>

Before posting, please take a moment to review the archives at
<https://archive.midrange.com/rpg400-l%3chttps:/archive.midrange.com/rpg400-
l>
https://archive.midrange.com/rpg400-l<https://archive.midrange.com/rpg400-l>
.



Please contact
<mailto:support@xxxxxxxxxxxxxxxxxxxx%3cmailto:support@xxxxxxxxxxxxxxxxxxxx>
support@xxxxxxxxxxxxxxxxxxxx<mailto:support@xxxxxxxxxxxxxxxxxxxx> for any
subscription related questions.



Help support midrange.com by shopping at amazon.com with our affiliate link:
<https://amazon.midrange.com%3chttps:/amazon.midrange.com>
https://amazon.midrange.com<https://amazon.midrange.com>

--

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

visit: <https://lists.midrange.com/mailman/listinfo/rpg400-l>
https://lists.midrange.com/mailman/listinfo/rpg400-l

or email: <mailto:RPG400-L-request@xxxxxxxxxxxxxxxxxx>
RPG400-L-request@xxxxxxxxxxxxxxxxxx

Before posting, please take a moment to review the archives at
<https://archive.midrange.com/rpg400-l>
https://archive.midrange.com/rpg400-l.



Please contact <mailto:support@xxxxxxxxxxxxxxxxxxxx>
support@xxxxxxxxxxxxxxxxxxxx for any subscription related questions.



Help support midrange.com by shopping at amazon.com with our affiliate link:
<https://amazon.midrange.com> 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


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.