RE: CL question

[Vernon Hamberg <vhamberg@xxxxxxxxxxx>]

The SHARE(*YES) is needed only if you use the file in a called program. 
This is because you have opened a data path (ODP) in the CL, and the RPG 
needs to share that ODP. For CPYFRMQRYF, it should not be set, IIRC.

Vern

At 06:23 AM 2/18/2005, you wrote:
> Is this actually true?  I saw documentation yesterday saying otherwise and
> wondered at the time if it was true.
>
>
>
> ---------------------------------
>
> Booth Martin
>
> http://www.martinvt.com
>
> ---------------------------------
>
> -------Original Message-------
>
>
>
> From: Midrange Systems Technical Discussion
>
> Date: 02/18/05 05:41:19
>
> To: Midrange Systems Technical Discussion
>
> Subject: RE: CL question
>
>
>
> The OVRDBF specifying SHARE(*YES) must proceed OPNQRYF.
>
>
>
> Al
>
>
>
> Al Barsa, Jr.
>
> Barsa Consulting Group, LLC
>
>
>
> 400>390
>
>
>
> "i" comes before "p", "x" and "z"
>
> e gads
>
>
>
> Our system's had more names than Elizabeth Taylor!
>
>
>
> 914-251-1234
>
> 914-251-9406 fax
>
>
>
> http://www.barsaconsulting.com
>
> http://www.taatool.com
>
> http://www.as400connection.com
>
>
>
>
>
>
>
>
>
>              "Chaudhary,
>
>              Sachin \(GE
>
>              Equipment                                                  To
>
>              Services,                 "Midrange Systems Technical
>
>              Consultant\)"             Discussion"
>
>              <sachin.chaudhary         <midrange-l@xxxxxxxxxxxx>
>
>              @ge.com>                                                   cc
>
>              Sent by:
>
>              midrange-l-bounce                                     Subject
>
>              s@xxxxxxxxxxxx            RE: CL question
>
>
>
>
>
>              02/18/2005 12:35
>
>              AM
>
>
>
>
>
>              Please respond to
>
>              Midrange Systems
>
>                  Technical
>
>                 Discussion
>
>              <midrange-l@midra
>
>                  nge.com>
>
>
>
>
>
>
>
>
>
>
>
>
>
> Cant you do an OPNQRYF with required selection after CPYF and prior to
>
> OVRDBF?
>
>
>
> -----Original Message-----
>
> From: midrange-l-bounces@xxxxxxxxxxxx
>
> [mailto:midrange-l-bounces@xxxxxxxxxxxx]On Behalf Of Muralidhar Narayana
>
> Sent: Thursday, February 17, 2005 5:43 PM
>
> To: midrange-l@xxxxxxxxxxxx
>
> Subject: CL question
>
>
>
>
>
> I have following code:
>
> Iam copying YWRKVOLF1 to qtemp/ywrkvolf1 .
>
> after copying (after cpyf condition and before overrdiing)I want to execute
>
> delete condition like
>
> DELETE FROM QTEMP/YWRKVOLF1 WHERE WVYEAR > 2004 AND WVMONTH > 02.
>
> Can some one advise me without creating addtional files how can I achieve
>
> it,Iam deleting qtemp file at the end.
>
>
>
> PGM        PARM(&ACCOUNT)
>
>   DCL        VAR(&ACCOUNT)    TYPE(*CHAR) LEN(8)
>
>   DCL        VAR(&FLIB)       TYPE(*CHAR) LEN(10)
>
>
>
>   OVRPRTF    FILE(BYACT) TOFILE(PRINTERF) PAGESIZE(66) +
>
>              LPI(6) OVRFLW(60)
>
>              CPYF       FROMFILE(QS36F/YWRKVOLF1) +
>
>                           TOFILE(QTEMP/YWRKVOLF1) MBROPT(*REPLACE) +
>
>                           CRTFILE(*YES) INCREL((*IF WVACCT *EQ +
>
>                           &ACCOUNT))
>
> OVRDBF     FILE(YWRKVOLF1) TOFILE(QTEMP/YWRKVOLF1)
>
> CALL       PGM(YVOLSTATR2) PARM(&ACCOUNT)
>
>   DLTF       FILE(QTEMP/YWRKVOLF1)
>
> DLTOVR     FILE(YWRKVOLF1)
>
> MONMSG     MSGID(CPF0000)
>
> DLTOVR     FILE(*ALL)
>
>
>
> --
>
> 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 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 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 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.