|
midrange.com
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
+---
+---
| 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
+---
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
