Re: [SYSTEM21] RPG question

["Roshan Joseph" <roshanjoseph@xxxxxxxxxxx>]

Is there any field that belongs to the key (PM02KY), being reset/updated in
GetDetails subroutine?

or... is there another read loop within GetDetails that changes %EOF value?


Roshan.

----- Original Message ----- 
From: <mon.ferriols@xxxxxxxxxxxxxx>
To: <system21@xxxxxxxxxxxx>
Sent: Wednesday, September 08, 2004 7:46 PM
Subject: [SYSTEM21] RPG question


> Dear list:
>
>
>
> I have a program here and it refuses to do what I want. First I read INP35
> and get all the parts masterfile stuff, then I read PMP01 because I want
to
> get all the suppliers (if any) of that item (can be more than 1). What the
> program does is once it gets a match, it gets all the details and proceeds
> to the next part number. What I want it do is to go back and see if there
> are anymore suppliers for the SAME item. My code looks like:
>
>
>
> GetSupplier   BEGSR
>
>
>
> PM02KY        Setll     VENDOR3
>
>               If        %Equal
>
> PM02KY        ReadE     VENDOR3
>
>               DoW       not %EOF
>
>
>
>               Eval      VNDRDL = VNDR01
>
>               Eval      BENDOR = VNDR01
>
>               Eval      CURCDL = CURC01
>
>               Eval      LEADDL = LEAD01
>
>
>
>               EXSR      GetDetails
>
>
>
> PM02KY        ReadE     VENDOR3
>
>               EndDo
>
>
>
>               Else
>
> Eval      VNDRDL = 'N/A'
>
> Eval      BENDOR = 'N/A'
>
> Eval      CURCDL = 'N/A'
>
> Eval      LEADDL = *zero
>
> Eval      SNAMDL = 'No Vendor'
>
> Eval      INCODL = 'N/A'
>
> Eval      SHPMDL = 'N/A'
>
> Eval      COCDDL = 'N/A'
>
> Eval      PTTD05 = *zero
>
> EndIf
>
>
>
> EndSr
>
>
>
>
>
> This SR is called from the main routine that reads INP35. How can I make
it
> loop within the PMP01 read? Thanks in advanced.
>
>
>
> Mona
>
>
>
>
>
> _______________________________________________
> This is the System 21 Users (SYSTEM21) mailing list
> To post a message email: SYSTEM21@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/system21
> or email: SYSTEM21-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/system21.
>
>