Parameters
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
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.