RE: CPYF question

["Dan Bale" <dbale@xxxxxxxxxxxxx>]

Well, you got something that works, but if I were to go to that extreme and
keep it CPYF, I'd convert the variable to a hex value and just test that.

Otherwise my vote goes to OPNQRYF & CPYFRMQRYF.

I'll be interested to see if Pat gets something to work.

db

> -----Original Message-----
> From: midrange-l-bounces@xxxxxxxxxxxx / pnelson@xxxxxxxxxx
> Sent: Friday, October 08, 2004 10:23 AM
>
> Thanks to Ted, wherever you are! Thanks, Google.
>
> I got it working with the hex41 example, and copied exactly one record
> instead of the previous 7. Here's a clip from the job log:
>
> 7400 - CPYF FROMFILE(EAM900F/ZPTMST) TOFILE(TEAMS/XZPTMST)
> FROMMBR(*FIRST) TOMBR(*FIRST) MBROPT(*REPLACE) CRTFILE(*NO) INCREL((*IF
> PTCMPY *EQ '02') (*AND PTLOC *EQ '0893') (*AND PTLOC *LT '0893  ') (*AND
> PTPART *EQ 'FOE6NN7N057A') (*AND PTPART *LT 'FOE6NN7N057A  '))
> FMTOPT(*MAP *DROP)
>
> Notice that the hex41 plugs in a trailing blank for both the location and
> the part number.
>
>
> Paul Nelson
> Arbor Solutions, Inc.
> 708-670-6978  Cell
> pnelson@xxxxxxxxxx