Re: Creating a flat file

Sorry, I misread the question before.

Below is the method I use to send files to people from the iSeries.

Before I run it the first time, I create the doc TOEMAIL.TXT in folder BLAIR

/* Copy file to IFS folder */
          CPYTOPCD   FROMFILE(FLATFILE) TOFLR(BLAIR) +
                       TODOC(TOEMAIL.TXT) REPLACE(*YES)

/* Email file from IFS folder */
          SNDDST     TYPE(*DOC) TOINTNET((&$EMAIL)) DSTD('EMAIL') +
                       MSG('Text File') DOC(TOEMAIL.TXT) FLR(BLAIR)
          MONMSG     MSGID(CPF9D03)



"B Hamren" wrote

CRTPF FILE(FLATFIL100) RCDLEN(100) TEXT('Flat File RL 100')

I need to create a flat fixed lenth file from a file on the iSeries for
sending via email.

I don't want it comm delimited.

Is there software on the iSeries to make this happen.

I've never had the need to do this, so need some advice.

Thanks in advance

Darrell Lee
Information Technology
Extension 7127