Parameters
| bcDivision | input-output | character | |
| oiReturnStatus | output | integer | Return status of the method. |
Internal usage
unused
program code (program3/bjournalentry.p)
if bcDivision <> '':U
then do:
<Q-3 run DivisionBeginsCode (all) (Read) (NoCache)
(input viCompanyId, (CompanyId)
input bcDivision, (DivisionCode)
input true, (DivisionIsActive)
output dataset tqDivisionBeginsCode) in BDivision >
find first tqDivisionBeginsCode no-error.
if not available tqDivisionBeginsCode
then do:
assign oiReturnStatus = -4.
return.
end.
else do:
find first tqDivisionBeginsCode
where tqDivisionBeginsCode.tcDivisionCode = bcDivision no-error.
if not available tqDivisionBeginsCode
then do:
find tqDivisionBeginsCode
where tqDivisionBeginsCode.tcDivisionCode BEGINS bcDivision no-error.
/* if there's only one record */
if available tqDivisionBeginsCode
then assign bcDivision = tqDivisionBeginsCode.tcDivisionCode.
/* Ambiguous records will not be found and available will be false */
else do:
oiReturnStatus = -4.
return.
end.
end.
end.
end.