project QadFinancials > class BBankStateImport > method AdditionalUpdatesCodaStart

Parameters

Internal usage

program code (program6/bbankstateimport.p)

assign oiReturnStatus = -98.

<M-4 run AdditionalUpdatesCodeStart1 (output viLineCounter (oiLineCounter), 
                                  output vcDocumentLine (ocDocumentLine), 
                                  output vcLastRecordType (ocLastRecordType), 
                                  output viFcReturnSuper (oiReturnStatus)) in BBankStateImport>
if oiReturnStatus < 0 
then assign oiReturnStatus = viFcReturnSuper.

/* check if this is a coda file */
IF  (viLineCounter = 1  AND SUBSTRING(vcDocumentLine, 1,1,"CHARACTER":U) <> "0":U) OR  
    length(trim(vcDocumentLine),"CHARACTER":U) > 128   
then do:    
    assign oiReturnStatus = -1
           vcmsgReturn    = trim(#T-5'The file you specified is not a CODA structured file.':255(17915)T-5#).
    <M-1 run SetMessage (input  vcmsgReturn (icMessage), 
                     input  '':U (icArguments), 
                     input  '':U (icFieldName), 
                     input  '':U (icFieldValue), 
                     input  'E':U (icType), 
                     input  3 (iiSeverity), 
                     input  '':U (icRowid), 
                     input  'QADFIN-1783':U (icFcMsgNumber), 
                     input  '' (icFcExplanation), 
                     input  '' (icFcIdentification), 
                     input  '' (icFcContext), 
                     output viFcReturnSuper (oiReturnStatus)) in BBankStateImport>
    return.                
end.

 /* check Record identification bit*/
if vclastRecordType <> '9':U and SUBSTRING(vcDocumentLine, 1,1,"CHARACTER":U) <> '':U
then assign vclastRecordType = SUBSTRING(vcDocumentLine, 1,1,"CHARACTER":U). 

/* check if something was read in and check if there was a trailer     */
if vclastRecordType <> '9':U 
then do:
    assign oiReturnStatus = -1
           vcmsgReturn    = if viLineCounter = 0 
                            then trim(#T-6'The file you specified could not be found.':150(413)T-6#)
                            else trim(#T-7'The file you specified is not a file in CODA format (the trailer is missing).':150(414)t-7#).
    <M-2 run SetMessage (input  vcmsgReturn (icMessage),
             input  '':U (icArguments),
             input  '':U (icFieldName),
             input  '':U (icFieldValue),
             input  'E':U (icType),
             input  3 (iiSeverity),
             input  '':U (icRowid),
             input  'QADFIN-1784':U (icFcMsgNumber),
             input  '' (icFcExplanation),
             input  '' (icFcIdentification),
             input  '' (icFcContext),
             output viFcReturnSuper (oiReturnStatus)) in BBankStateImport>
     return.
end. 

if oiReturnStatus = -98 
then assign oiReturnStatus = 0.