Re: Copy from Import File

["Michael Ryan" <michaelrtr@xxxxxxxxx>]

The command interpreter isn't going to expand the variable file name.
Try this instead:

CHGVAR     VAR(&FILE) VALUE('\kunip\MMF1010.dn')

CPYFRMIMPF FROMSTMF(&FILE)     +
              TOFILE(BSMF610/METUPF) MBROPT(*ADD) +
              RCDDLM(*ALL) STRDLM('"') FLDDLM(',') +
              RPLNULLVAL(*FLDDFT)

Quoting the FROMSTMF parm in your original attempt caused the system
to look for a file named  "\kunip\&FILE", which is incorrect.

On Nov 13, 2007 6:16 AM, Prevesh Kuni <KuniP@xxxxxxxxxxxxx> wrote:
> Hi guys,
>
> I am doing a CPYFRMIMPF :
>
> CPYFRMIMPF FROMSTMF('\kunip\MMF1010.dn')     +
>              TOFILE(BSMF610/METUPF) MBROPT(*ADD) +
>              RCDDLM(*ALL) STRDLM('"') FLDDLM(',') +
>              RPLNULLVAL(*FLDDFT)
>
> which works, however if I try to pass a variable as a file name using
>
> CHGVAR     VAR(&FILE) VALUE(MMF1010.dn)
>
> CPYFRMIMPF FROMSTMF('\kunip\&FILE')     +
>              TOFILE(BSMF610/METUPF) MBROPT(*ADD) +
>              RCDDLM(*ALL) STRDLM('"') FLDDLM(',') +
>              RPLNULLVAL(*FLDDFT)
>
> I end up with a blank TOFILE member - any help in where I could be
> going wrong?
>
> Thanks in advance,
>
> Prevesh Kuni
> RPG Developer
> Smollan Group SA (Pty) Ltd
> (011) 640 8154
> kunip@xxxxxxxxxxxxx
>
> --
> 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.