function returns logical
Parameters
icComponentName | input | character | |
icReportName | input | character | |
ihDataset | input | handle | |
oiReturnStatus | output | integer | |
Internal usage
BLF
program code (program5/bgenericreportadapter.p)
DEFINE VARIABLE i AS INTEGER NO-UNDO.
IF icComponentName = "":U OR icComponentName = ? THEN
DO:
<M-1 run SetMessage
(input #T-1'A component name must be specified':100(5124)T-1# (icMessage),
input '' (icArguments),
input '' (icFieldName),
input '' (icFieldValue),
input 'E' (icType),
input 2 (iiSeverity),
input '' (icRowid),
input 'BLF-110':U (icFcMsgNumber),
input 'The component name input parameter cannot be blank' (icFcExplanation),
input '' (icFcIdentification),
input '' (icFcContext),
output oiReturnStatus (oiReturnStatus)) in BGenericReportAdapter>
oiReturnStatus = -1.
RETURN FALSE.
END.
IF icReportName = "":U OR icReportName = ? THEN
DO:
<M-2 run SetMessage
(input #T-2'A report name must be specified':100(5125)T-2# (icMessage),
input '' (icArguments),
input '' (icFieldName),
input '' (icFieldValue),
input 'E' (icType),
input 2 (iiSeverity),
input '' (icRowid),
input 'BLF-111':U (icFcMsgNumber),
input 'The report name input parameter cannot be blank' (icFcExplanation),
input '' (icFcIdentification),
input '' (icFcContext),
output oiReturnStatus (oiReturnStatus)) in BGenericReportAdapter>
oiReturnStatus = -1.
RETURN FALSE.
END.
IF ihDataset = ? THEN
DO:
<M-3 run SetMessage
(input #T-3'The dataset handle passed in is invalid':100(5126)T-3# (icMessage),
input '' (icArguments),
input '' (icFieldName),
input '' (icFieldValue),
input 'E' (icType),
input 2 (iiSeverity),
input '' (icRowid),
input 'BLF-112':U (icFcMsgNumber),
input #T-4'The dataset handle passed in is invalid':100(5126)T-4# (icFcExplanation),
input '' (icFcIdentification),
input '' (icFcContext),
output oiReturnStatus (oiReturnStatus)) in BGenericReportAdapter>
oiReturnStatus = -1.
RETURN FALSE.
END.
EMPTY TEMP-TABLE tDatasetInfo.
/* Create a record in tDatasetInfo for each table in the result dataset */
DO i = 1 to ihDataset:NUM-BUFFERS:
CREATE tDatasetInfo.
ASSIGN tDatasetInfo.tcComponentName = icComponentName
tDatasetInfo.tcReportName = icReportName
tDatasetInfo.thDatasetRef = ihDataset
tDatasetInfo.tcTableName = ihDataset:GET-BUFFER-HANDLE(i):NAME
tDatasetInfo.thQuery = ?
tDatasetInfo.tlTableAvailable = TRUE.
END.