validation procedure
Parameters
icReportChartCode | input | character | Value of the business field to validate. |
icTargetFieldName | input | character | Name of the business field to validate. |
icRowid | input | character | Contents of field tc_Rowid, if the target field is a field of a component temp-table. |
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
unused
program code (program1/bfrwanalysiscode.p)
assign oiReturnStatus = -98.
if icReportChartCode = "" or
icReportChartCode = ? then
do:
assign oiReturnStatus = -1.
<M-84 run SetMessage
(input #T-38'Report Chart Code must be entered.':255(672527208)T-38# (icMessage),
input '':U (icArguments),
input '':U (icFieldName),
input '':U (icFieldValue),
input 'E':U (icType),
input ? (iiSeverity),
input '':U (icRowid),
input 'qadfin-581290':U (icFcMsgNumber),
input '':U (icFcExplanation),
input '':U (icFcIdentification),
input '':U (icFcContext),
output viFcReturnSuper (oiReturnStatus)) in BFRWAnalysisCode>
return.
end.
<Q-64 run FRWChartByCode (all) (Read) (NoCache)
(input icReportChartCode, (FRWChartCode)
output dataset tqFRWChartByCode) in BFRWChart>
find first tqFRWChartByCode where tqFRWChartByCode.tcFRWChartCode = icReportChartCode no-error.
if not available tqFRWChartByCode then
do:
assign oiReturnStatus = -1.
<M-7 run SetMessage
(input #T-23'Report Chart code does not exist. Please re-enter.':255(545671204)T-23# (icMessage),
input '':U (icArguments),
input '':U (icFieldName),
input icReportChartCode (icFieldValue),
input 'E':U (icType),
input 3 (iiSeverity),
input '':U (icRowid),
input 'qadfin-874466':U (icFcMsgNumber),
input '':U (icFcExplanation),
input '':U (icFcIdentification),
input '':U (icFcContext),
output viFcReturnSuper (oiReturnStatus)) in BFRWAnalysisCode>
return.
end.
if oiReturnStatus = -98
then assign oiReturnStatus = 0.