RE: AS/400 app FTPs file to IFS???

You're right, Loyd - I'm so into using QMQRY that I forget about INSERT INTO.

But STRQMQRY would create the file if it does not exist, with (I hope) the
right record length - unless it uses variable length.  <g>

Later

Vern

At 04:07 PM 11/6/2002 -0600, you wrote:

Thanks for jumping in, Vern, I was in a meeting for the past hour....

I do think that the below can be used with RUNSQLSTM, if you do the
following:

CRTPF FILE(MYFILE) RCDLEN(82)

In this example, the real record length is 80, with 2 positions for CRLF.

Then, do this in the RUNSQLSTM:

Insert into MYFILE (MYFILE)
(
select
/* first part */
AAA1 concat
/* numeric part, right justify with floating left - sign */
/* this is the leading blanks - 10 because 8,2 */
/* can have a decimal AND an optional sign */
substr(cast(' ' as char(10)),1,
   10 - length(strip(char(BBB2), b, ' '))) concat
/* the number itself with decimal, lefthand sign, */
/* and denuded of blanks */
  strip(char(BBB2),b,' ') concat
/* text */
CCC3 concat
/* CRLF */
x'0d25'
from yourlib/yourfile
)

Then, do a CPYTOSTMF, specifying ENDLINFMT(*FIXED).

Loyd