RE: CPYF question

[pnelson@xxxxxxxxxx]

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.