Re: OPNQRYF & CPYTOIMPF ///

[MWalter@xxxxxxxxxxxxxxx]

That's it. You must issue an OVRDBF(CUSTORD) SHARE(*YES) before your
OPNQRYF. Then don't forget to close the file and delete the override.


Thanks,

Mark


Mark Walter
Sr. Programmer/Analyst
Hanover Wire Cloth a div of CCX, Inc.
mwalter@hanoverwire.com
http://www.hanoverwire.com
717.637.3795 Ext.3040
/"\
\ /
 X
/ \




                    Jeff Silberberg
                    <jsilberberg@mindsp        To:     midrange-l@midrange.com
                    ring.com>                  cc:
                    Sent by:                   Subject:     OPNQRYF & CPYTOIMPF 
///
                    midrange-l-admin@mi
                    drange.com


                    12/16/2002 11:16 AM
                    Please respond to
                    midrange-l






--
[ Picked text/plain from multipart/alternative ]
Morning all,


         I have an Interesting issue, that I probably should know the
answer to but can't seem to recall..

         CLP That does opnqryf selection from a PF.. Then is supposed to
use this ODP as the input to a cpytoimpf  but the cpy is ignoring
         the opnqryf and copying the entire file to the IFS..  What am I
missing, do I need an ovrdbf to specify an shared ODP ??

         TIA,
         JMS...

PGM

       OPNQRYF    FILE((CUSTORD)) QRYSLT('SHPSTS = '' ''') +
                           OPNSCOPE(*JOB)

             CPYTOIMPF  FROMFILE(CUSTORD) +
                          TOSTMF('/GFBF/orders.txt') +
                          MBROPT(*REPLACE) RCDDLM(*CRLF)

             CLOF       OPNID(CUSTORD)


Jeffrey Silberberg
CompuDesigns, Inc.
Atlanta, GA. 30350
(770) 399-9464
--

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