Re: OPNQRYF to delete records using a position in the record as a selection criteria

In that case just use:

CPYF FROMFILE(VV) TOFILE(BB) INCCHAR(*RCD 1 *NE 'D')

(Note the *RCD parm)


Michael Ryan wrote:

I wonder if you could do it backwards? Select the records you want to
*keep*, then use CPYFRMOQRYF to copy those records to a temp file, then CPYF
the temp file records with MBROPT(*REPLACE) back to the original file.

On 10/5/06, Booth Martin <booth@xxxxxxxxxxxx> wrote:

Opnqryf orders  the file, including selections.  A program can then add,
update, or delete to the file, but it has to be done in a program.

Al Barsa wrote:

Hi,

My remembrance is that OPNQRYF only reports, and does not update/delete
data, but I could be wrong.

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




             "Charles
             St-Laurent"
             <dringpiece@hotma

                                          To

             il.com>                   midrange-l@xxxxxxxxxxxx
             Sent by:

cc

             midrange-l-bounce
             s@xxxxxxxxxxxx

                                        Subject

                                       OPNQRYF to delete records using a
                                       position in the record as a
             10/05/2006 09:10          selection criteria
             AM


             Please respond to
             Midrange Systems
                 Technical
                Discussion
             <midrange-l@midra
                 nge.com>






Hi!

I would like to know if it is possible to delete records from a file

with

the command OPNQRYF only if the first char of the record is equal to

'D'. I

don't know the name of the field at that position when I use the command

in

my CLP... Something like:

If (%subst(Record:1:1) = 'D')
    Delete Record

directly in a OPNQRYF command...

Thanks in advance for your answers
Charles



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