Re: Searching Multi-Member Files without PDM

["Vinay Gavankar" <vinaygav@xxxxxxxxx>]

The print actually prints 2 separate pages, listing the member name in the
header.

On 12/18/08, rob@xxxxxxxxx <rob@xxxxxxxxx> wrote:
> 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.