Re: DoW (WAS DoU...) -- RPG400-L

Ahhh, I didn't know we could use named indicators now.  I will definitely
do that, thanks.

And FoundMatch is not a global variable, nor do I want it to be.  In theory
this function will eventually move to a bound directory in the future and
away from the program source code.

Someone did ask me a question off-line, where is my file being declared?  Well,
it's being declared in my main program, which brings up the question.  When I
move this function to it's own source file and compile it, I'm going to have
to declare the file spec in the new source file, right?

Regards,

Jim Langston

Contractor1@Parkdalemills.com wrote:
> 
> Two teensie-weensie suggestions hardly worth mentioning.
> 
> If you always want to return either *on/*off forever and ever, redefine
> your prototype to be a named indicator:
> 
>  D ContExistRefB   PR              N
> 
> instead of:
> 
>  D ContExistRefB   PR             1A
> 
> This way in future maintenance the compiler will catch anyone trying to
> return a single character for whatever reason.
> 
> Another minor detail is that if FoundMatch is a global variable you don't
> have to redefine it in your subprocedure.
> 
> (Anyone wondering about the baby-talk I have an eight-month-old at home)
> 
> Patrick Conner
> www.ConnecTown.com
> (828) 244-0822
> 
> 
>                     Jim Langston
>                     <jimlangston@conexfr        To:     RPG400-L@midrange.com
>                     eight.com>                  cc:
>                     Sent by:                    Subject:     Re: DoW (WAS 
>DoU...)
>                     owner-rpg400-l@midra
>                     nge.com
> 
> 
>                     12/11/00 05:15 PM
>                     Please respond to
>                     RPG400-L
> 
> 
> 
> This is not a question, but just the result of the questions I was
> asking.  I am posting the final code in case anyone lurking was
> interested in how it turned out.  The code was converted to a
> function with prototypes.
> 
> Again, thanks for all the help.
> 
> Regards,
> 
> Jim Langston
> 
>   *** Prototype for ContExistRefB Function ***
>  D ContExistRefB   PR             1A
>  D  CER_Alpha                     4A   Const
>  D  CER_Numeric                   7A   Const
>  D  CER_RefB                           Like(OHRefB) Const
> 
> ...
> 
>  D BillingRef      S                   Like(OHRefB)
> 
> ...
> 
>   *                  *** See if we can find a match in the CCOHD file ***
> 
>  C                   Eval      BillingRef = Bd_RXInv#
> 
>  C                   Eval      FoundMatch = ContExistRefB(Bd_RXEqId:
> 
>  C                                                    Bd_RXEqNo +
> Bd_RXCChk:
>  C                                                    BillingRef)
> 
> ...
> 
> 
>*********************************************************************************
> 
>   *** ContExistRefB - Does Container Exist by Billers Reference Number
> Function ***
> 
> 
>*********************************************************************************
> 
>  P ContExistRefB   B
> 
>  D ContExistRefB   PI             1A
> 
>  D  CER_Alpha                     4A   Const
> 
>  D  CER_Numeric                   7A   Const
> 
>  D  CER_RefB                           Like(OHRefB) Const
> 
>  D FoundMatch      S                   Like(*IN01)
> 
>  C     CCOHD_Key     KList
> 
>  C                   KFld                    CER_Alpha
> 
>  C                   KFld                    CER_Numeric
> 
>  C                   Eval      FoundMatch = *Off
> 
>  C     CCOHD_Key     SetLL     OHdRc
> 
>  C     CCOHD_Key     Reade     OHdRc
> 
>  C                   DoW       Not %Eof(CCOHD04) And
> 
>  C                             Not FoundMatch
> 
>   *                  *** Container matches, does the Biller's Reference
> Number? ***
>  C                   If        %Trim(OHRefB) = %Trim(CER_RefB)
> 
>  C                   Eval      FoundMatch = *On
> 
>  C                   Else
> 
>  C     CCOHD_Key     Reade     OHdRc
> 
>  C                   EndIf
> 
>  C                   EndDo
> 
>  C                   Return    FoundMatch
> 
>  P ContExistRefB   E
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---