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 "Dan Bale" <dbale@xxxxxxxxxxxxx> Sent by: midrange-l-bounces@xxxxxxxxxxxx 10/08/2004 08:38 AM Please respond to Midrange Systems Technical Discussion To: "Midrange Systems Technical Discussion" <midrange-l@xxxxxxxxxxxx> cc: Subject: RE: CPYF question Yuck. May I recommend that you give consideration to OPNQRYF & CPYFRMQRYF? If you look at the article that prompted the one you linked, at http://www.itjungle.com/guruo/mgo012302-story02.html, even Ted recommends this approach. I can't believe IBM let this slip by. Was this the behavior right from the beginning of CPYF on the S/38? What should be done about this? On the one hand, it should be considered a bug, and be corrected. Paul was lucky in that he discovered this in testing. Others might not catch it and pay a big price later. On the other hand, 25+ years of history with this bug with programs using it, perhaps expecting this as a desirable behavior? (Yeah, 'MI' *EQuals 'MIabc'; sounds like new math to me!) Maybe the "fix" would be that IBM adds another parameter to CPYF: EQMEANSEQ (*YES or *NO). Bleahh, bleahh, bleahh. db > -----Original Message----- > From: midrange-l-bounces@xxxxxxxxxxxx / pnelson@xxxxxxxxxx > Sent: Friday, October 08, 2004 9:08 AM > > I've given up. I'm going to try this approach: > > http://www.itjungle.com/mgo/mgo082802-story01.html > > > Paul Nelson > Arbor Solutions, Inc. > 708-670-6978 Cell > pnelson@xxxxxxxxxx -- 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.
This mailing list archive is Copyright 1997-2013 by MIDRANGE dot COM and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available here. If you have questions about this, please contact