method CheckValidDirectory

Description

CheckValidDirectory

Parameters

icTransferFilePath	input	character	TransferFilePath
oiReturnStatus	output	integer	Return status of the method.

Internal usage

QadFinancials

method BPaymentSelection.ApiRepetitiveTransferPayments

program code (program1/bpaymentselection.p)

/* check directory */
assign file-info:file-name = icTransferFilePath.
if icTransferFilePath = '':U or
   index( file-info:file-type, "D":U ) = 0 or
   index( file-info:file-type, "R":U ) = 0
then do:
    <M-1 run SetMessage
          (input  #T-2'Directory $1 is not available on your system.':100(2995)T-2# (icMessage), 
           input  icTransferFilePath (icArguments), 
           input  '':U (icFieldName), 
           input  icTransferFilePath (icFieldValue), 
           input  'D':U (icType), 
           input  2 (iiSeverity), 
           input  '':U (icRowid), 
           input  'QADFIN-1113':U (icFcMsgNumber), 
           input  '' (icFcExplanation), 
           input  '' (icFcIdentification), 
           input  '' (icFcContext), 
           output viFcReturnSuper (oiReturnStatus)) in BPaymentSelection>
    assign oiReturnStatus = - 1.
    return.                     
end.