project BLF > class BGenericReportAdapter > method initializeDatasetInfo

function returns logical


Parameters


icComponentNameinputcharacter
icReportNameinputcharacter
ihDatasetinputhandle
oiReturnStatusoutputinteger


Internal usage


BLF
method BGenericReportAdapter.openReport


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.