function returns character
Parameters
icLineStatus | input | character | |
Internal usage
QadFinancials
program code (program1/bdpaymentselection.p)
if icLineStatus <> "":U
then do:
do viCounter = num-entries({&PAYSEL-LINE-STATUSES},chr(2)) to 1 by -2 :
if entry(viCounter,{&PAYSEL-LINE-STATUSES},chr(2)) = icLineStatus
then assign vcTranslatedLineStatus = entry(viCounter - 1,{&PAYSEL-LINE-STATUSES},chr(2)) no-error.
end. /* do */
end. /* if available */
else
assign vcTranslatedLineStatus = icLineStatus.
return vcTranslatedLineStatus.