Re: Trailing Blanks with CPYTOIMPF v5r1

["Bill Hopkins" <BHopkins@xxxxxxxxxxxxxxxxxxx>]

Thanks Rob and list, 

To much at one time going on.

"1)" is the one I have the question on.

1)"Will VARLEN get rid of the trailing spaces?  Yes." 

This is what I have at v5r1.

Here is PF = FXC

 A          R FXCR 
 A* 
 A            FXABAN8       60          VARLEN 
 A            FXABALPH      60          VARLEN 

 A* 
 A          K FXABAN8 

The above fields get their data like so:

C                         Eval      FXABAN8   = %trim(ABAN8) 
C                         Eval      FXABALPH  = %trim(ABALPH)
 

This is my CPYTOIMPF command in RPGIV:

 * 
C                   Eval      Qcmd = 'CPYTOIMPF FROMFILE('+ 
C                             %trim(DRKY) + 
C                             ') TOSTMF(''QOpenSys/forcastx/'+ 
C                             %trim(DRKY) + 
C                             '.txt'') MBROPT(*REPLACE) STMFC'+ 
C                             'ODPAG(*PCASCII) RCDDLM(*CR) D'+ 
C                             'TAFMT(*DLM) STRDLM(*NONE) FLD'+ 
C                             'DLM(X''A1'')' 
 * 

Sub in FXC for DRKY variable.

*****  Problem is that FXC still carries over the 60A with trailing blanks 
on CPYTOIMPF.
*****  What am I missing?



2)"Will CPYTOIMPF give you the column headings?  No.  But I suppose you 
could 
fake that by doing a CPYTOIMPF of just a heading file, then do a CPYTOIMPF 

with *ADD for the data."

Written as first record of file.

3)"Will CPYTOIMPF give you tilde's?  Yes."

Already had see code above on VARLEN question. 

4)"Will CPYTOIMPF give you a < at the end of a record?  No, but you can 
choose from CR, LF, CRLF, LFCR"
 
Already had see code above on VARLEN question. 



Thanks again
Bill Hopkins

Questions,Comments,"Knocks in the Head" welcomed.