Re: NUMERIC FILE KEYS

All comments appreciated?

1)  Don't use all caps.
2)  If this had been down with SQL instead of RPG's CHAIN you'd not be 
having a problem now.  This kind of stuff happens all the time.  I am 
working with a vendor package that changed several field sizes in their 
latest release, like item number, etc.  What's really fun is when you have 
a standard library used by both divisions accessing the new version and 
divisions accessing the old version.  That's when you become an advocate 
for SQL even in a single record access situation.
3)  You could go into the billion programs and change their source fields 
from 7,0 to 8,0
4)
R TXR                       PFILE(TX)
  MYDEC         -1 
  MYCHAR 
K MYDEC

Rob Berendt
-- 
"They that can give up essential liberty to obtain a little temporary 
safety deserve neither liberty nor safety." 
Benjamin Franklin 





"Jeff Grace" <jeff.grace@xxxxxxxxx>
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
06/12/2003 12:42 PM
Please respond to RPG programming on the AS400 / iSeries
 
        To:     <rpg400-l@xxxxxxxxxxxx>
        cc: 
        Fax to: 
        Subject:        NUMERIC FILE KEYS


I AM DOING A CONVERSION A LEGACY SYTEM WITH A TON OF FILES WITH A KEY OF 
7/0 THE NEW MASTERFILE THE KEY IS 8/0.

IS THERE A WAY TO BUILD A LOGICAL USING THE LAST SEVEN POSITIONS OF THE 
8/0 FIELD.IF NOT I HAVE TO GO INTO A BILLION PRGRAMS AND MOVE THE 7/0 
FIELD TO AN 8/0 FIELD ANN THEN CHAIN.

A NOTE THE 8/0 FIELD WILL NOT OVER 9,999,999 IN THE NEXT 60 YEARS, THE 
LARGEST VALE IN THE 8/0 FIELD IS 14,000 AND THIS IS FROM 12 YEARS OF 
PROCESSING.

ANY RESOPNSE IS WELCOME. EVEN A GOOD JOKE IS APPRECIATED.

JEFF.GRACE@xxxxxxxxx


_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.