Here is the LF definition.
A***************************************************************
A* Physical File: OEFRTL01 Created: 08/30/2021 by dhf
A* Description: Freight Policy Master File By code and date
A***************************************************************
A* Modifications:
A***************************************************************
A* 08/30/2021 dhf proj# 5042 - Freight Policy/Shipping charges
A* Allegion is modifying the freight policy effective Non 1, 2021
A* 1. Adding additional fields to enable effectivity dates.
A* 2. Adding Freight Code,
A* Minimum charge ($ 20)
A* Order threshold $
A* Order threshold %
A***************************************************************
A R OEFRTF TEXT('Freight Policy Master
file')
A PFILE(OEFRTP)
A*
A FTEMM
A FTEDD
A FTECC
A FTEYY
A FTTMM
A FTTDD
A FTTCC
A FTTYY
A FTFPCT
A FTFPRF
A FTTRMO
A FTTRMF
A FTTRMI
A FTPUD1
A FTPUD2
A FTCODE
A FTMIN$
A FTTHR1
A FTTHR2
A FTFPC2
A FTTHR3
A FTFPC3
A FTFFRT
A FTQUAD
A*
A FTPUD3
A FTPUD4
A FTPUD5
A FTPUD6
A*
A FTDATE CONCAT(FTECC FTEYY FTEMM FTEDD)
A TEXT('Effective Date YYYYMMDD')
A COLHDG('Effective' 'Date')
A ALIAS(EFFECTIVE_DATE)
A*
A FTDATT CONCAT(FTTCC FTTYY FTTMM FTTDD)
A TEXT('End YYYYMMDD')
A COLHDG('End' 'Date')
A ALIAS(END_DATE)
A*
A K FTCODE
A K FTDATE
Darryl Freinkel
A4G
Telephone: 770.321.8562 Mobile: 678.355.8562
-----Original Message-----
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of
dfreinkel@xxxxxxxxxxxxxxxxx
Sent: Thursday, October 14, 2021 12:24 PM
To: 'RPG programming on IBM i' <rpg400-l@xxxxxxxxxxxxxxxxxx>
Subject: RE: [EXTERNAL] Question on failing SETGT followed by SETGT
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
The line failing is the line with code ID.
Thanks
Darryl Freinkel
A4G
Telephone: 770.321.8562 Mobile: 678.355.8562
--
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
midrange.com
