Re: CPYF question

http://www.itjungle.com/mgo/mgo082802-story01.html



Paul Nelson
Arbor Solutions, Inc.
708-670-6978  Cell
pnelson@xxxxxxxxxx





Pat Barber <mboceanside@xxxxxxxxxxxxxxxx>
Sent by: midrange-l-bounces@xxxxxxxxxxxx
10/08/2004 10:11 AM
Please respond to Midrange Systems Technical Discussion
 
        To:     Midrange Systems Technical Discussion 
<midrange-l@xxxxxxxxxxxx>
        cc: 
        Subject:        Re: CPYF question


I noticed that the stream has 'single' quotes rather
than "double" quotes...hmmmmm what's up with that ???

I missed the X'41' trick ...where did you find that ???

pnelson@xxxxxxxxxx wrote:

> 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.


--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing 
list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.