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
midrange.com
