Re: Searching Multi-Member Files without PDM

And what member were they from?

Rob Berendt
--
Group Dekko Services, LLC
Dept 01.073
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com





From:
"sjl" <sjl_abc@xxxxxxxxxxx>
To:
midrange-l@xxxxxxxxxxxx
Date:
12/18/2008 12:40 PM
Subject:
Re: Searching Multi-Member Files without PDM
Sent by:
midrange-l-bounces@xxxxxxxxxxxx



Jonathan wrote:

...I tried using Grep through Qshell,
but that only seems to work with IFS
and Source Physical Files and not
"ordinary" multi-member files.

Does anybody have any ideas on how I can find
the member containing the invoice number?
As it's a clients production machine I don't have
access to compilers, etc, to write any programs.


Jonathan -

Easy!

Use the CPYF command. Here is an example using JDE file F4211. I know
that
the invoice number is an 8-digit signed numeric, found in position 696. I

just created a copy of this file in QTEMP with two members. TO find
invoice
number 13, I executed the following command:

CPYF FROMFILE(QTEMP/F4211) TOFILE(*PRINT) FROMMBR(*ALL) INCCHAR(*RCD 696
*EQ
X'F0F0F0F0F0F0F1F3')

The output is not pretty, but it shows me the two records (one from each
member) that have invoice # 13...

- sjl





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