Re: Searching Multi-Member Files without PDM

["Vinay Gavankar" <vinaygav@xxxxxxxxx>]

sjl,
That's neat.


On 12/18/08, sjl <sjl_abc@xxxxxxxxxxx> wrote:
> 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.