|
Bill, Was the data trimmed when it was written to the file? If it wasn't, it would likely store the full 60 characters. Matt -----Original Message----- From: Bill Hopkins [mailto:BHopkins@xxxxxxxxxxxxxxxxxxx] Sent: Wednesday, September 24, 2003 3:24 PM To: RPG programming on the AS400 / iSeries Subject: Re: Trailing Blanks with CPYTOIMPF v5r1 Thanks Rob for your time. Either, you can't at v5r1, there is a missing PTF or I'm just blind. 1) Cause I still get this WordPad (***note might not be layout the same when it hits list. Shows trailing blanks out to 60) 60A 60A "Customer Number ","Customer Name "00003248 ","KIMBALL OFFICE C "00003263 ","KRAFTMAID CABINE "00004566 ","MILL'S PRIDE (DW "00008228 ","THE HOME DEPOT, "00020078 ","MERILLAT INDUSTR "00020086 ","TARGET STORES "00027858 ","B & Q - Warehous "00029292 ","LOWE'S MAIN ACCO "99999999 ","All Other Custom 2) When ===> CPYTOIMPF FROMFILE(FXC) TOSTMF('/QOpenSys/forcastx/fxc.txt') MBROPT(*REPLA CE) STMFCODPAG(*PCASCII) RCDDLM(*CR) 3) With PF as and with Evals that are using %trim to populate fields in RPGIV. *********** Beginning of data ************************************* A R FXCR A* A FXABAN8 60 COLHDG('Customer Number') A VARLEN A FXABALPH 60 COLHDG('Customer Name') A VARLEN A* A K FXABAN8 ************** End of data **************************************** Thanks alot again, Bill Hopkins Questions, Comments, or "Knocks in the Head" welcomed. rob@xxxxxxxxx Sent by: rpg400-l-bounces@xxxxxxxxxxxx 09/24/2003 02:41 PM Please respond to RPG programming on the AS400 / iSeries To: RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx> cc: Subject: Re: Trailing Blanks with CPYTOIMPF v5r1 R HOPKINSR MYKEY 10A VARLEN MYDATA 10A CPYTOIMPF FROMFILE(ROB/HOPKINS) TOSTMF('/deleteme2.txt') MBROPT(*REPLACE) STMFCODPAG(*PCASCII) RCDDLM(*CR) resulted in: ....+....1....+....2....+....3....+....4....+ ************Beginning of data************** "A","B " ************End of Data******************** Data was entered in the file using UPDDTA V5R2 Rob Berendt -- "They that can give up essential liberty to obtain a little temporary safety deserve neither liberty nor safety." Benjamin Franklin _______________________________________________ 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. _______________________________________________ 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.
As an Amazon Associate we earn from qualifying purchases.
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.