I am using CPYFRMIMPF to copy a flat text file to an AS/400 physical file. The copy is occurring, but the records are blank. The physical file contains the correct number of records after the copy, but the data is blank. Below is the command with parms.
CPYFRMIMPF FROMSTMF('/Interfaces/OCSEA/RS671WF@') +
TOFILE(RS671WFI) MBROPT(*ADD) +
STMFLEN(2046) FROMCCSID(819) TOCCSID(37) +
RCDDLM(*LF) DTAFMT(*FIXED) STRDLM(*NONE) +
STRESCCHR(*NONE) RMVBLANK(*NONE) +
FLDDFNFILE(RS671WFI) FROMRCD(*FIRST) +
RPLNULLVAL(*FLDDFT)
Example of one record below. This is an example of one record, 2,046 bytes long.
DTL AMD20130118STATE OF IL PEORIA 00000028228B00000005645B00000000000 00000000000 00000000000 00000000000 00000000000 00000033873BY00000016936000000338730000003669500000073391 14201301180765STATE DISBURSEMENT UNIT PO BOX 5400 CAROL STREAM IL6019754001700000HEALTHCARE AND FAMILY SERVICES DIVISION OF CHILD SUPPORT ENFORCEMENT YWWW.ILCHILDSUPPORT.COM WWW.ILCHILDSUPPORT.COM WWW.ILCHILDSUPPORT.COM INCOME WITHHOLDING UNIT 31280372533128030873 172013011811380500086 110429602080P000045 1700000INCOME WITHHOLDING UNIT IL DEPT OF HFS/DCSE PO BOX 6410 CHICAGO IL60664109731280372533128030873 EMERSON Shari 19941025 00000000000 080P000045 1700013011808590410001 F 17
Software/Hardware used:
AS400
ASKED:
January 25, 2013 5:27 PM
UPDATED:
January 28, 2013 4:15 PM
We need to see the data in order to even make a guess. You need to show at least one of the rows from RS671WF@ or we’ll have no idea what should be specified. — Tom