project QadFinancials > class BBankEntry > method ApiStdMaintainTT

Description

This method can create new instances or update existing instances based on the content of the input temp-table. The action that is passed as a parameter will define if the records are saved, saved as draft or just validated.

If the banking entry can be found (based on his logical key : Company ID, GL_ID, bank statemenet year, bank statement number), the existing banking entry will be updated. If not, a new banking entry will be created.


Parameters


tApiBankStateinputtemp-tableInput temp-table holding the bank statement data to be created, updated or deleted.
tApiBankStateLineinputtemp-tableInput temp-table holding the bank statement line reocrds linked to the bank statement data to be created, updated or deleted.
tApiBankAllocinputtemp-tableInput temp-table holding the allocations records linked to the bank statement data to be created, updated or deleted.
tApiBankStateAllocCollinputtemp-tableInput temp-table holding the collection allocations records linked to the bank statement data to be created, updated or deleted.
tApiBankStateStageAllocinputtemp-tableInput temp-table holding the stage allocations records linked to the bank statement data to be created, updated or deleted.
icActioninputcharacterThis parameter defines what should happen with the input data : -SAVE: Save the data if there were no errors, -SAVESTORE : Save the data if there were no errors. If there were errors, save as draft. -STORE : Save the data as draft -VALIDATE : Validate the input data, but do no save the data.
ocLstPrimKeyoutputcharacterCharacter 4 separated list with the primary keys of the newly created main-table records. The fields of the primary key are separated with Character 2.
ocLstReturnoutputcharacterChar 4 separated list with the return status of the newly created main-table records. Zero means not errors occurred.
ocLstRowidoutputcharacterChar 4 separated list with the temporarely rowids (negative for new ones) of the newly created main-table records.
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


unused


program code (program9/bbankentry.p)

/* ================================================== */
/* Method Info:                                       */
/* BBankEntry will be loaded based on the logical key */
/* ================================================== */

/* ============================================================================ */
/* Clear the instance:                                                          */
/* this will also clear the t_s tables that were filled in ApiMaintainByDataset */
/* ============================================================================ */
<M-37 run ClearData (output viFcReturnSuper (oiReturnStatus)) in BBankEntry>
if viFcReturnSuper <> 0
then assign oiReturnStatus = viFcReturnSuper.
if oiReturnStatus < 0
then return.

/* ==================== */
/* Set Default Return   */
/* Parameter Validation */
/* ==================== */
assign oiReturnStatus         = -98
       vlDraftInstanceCreated = false.
if icAction = ? then assign icAction = "":U.
if icAction <> {&DAEMONACTION-SAVESTORE} and
   icAction <> {&DAEMONACTION-SAVE}      and
   icAction <> {&DAEMONACTION-STORE}     and
   icAction <> {&DAEMONACTION-VALIDATE}
then do:
    assign vcMsgApi       = trim(subst(#T-21'A bank statement integration error occurred. The specified action (&1) must be in the list '&2'.':255(306)t-21#,trim(icAction),"{&DAEMONACTION-SAVESTORE},{&DAEMONACTION-SAVE},{&DAEMONACTION-STORE},{&DAEMONACTION-VALIDATE}":U))
           oiReturnStatus = -1.
           <M-6 run SetMessage (input  vcMsgApi (icMessage),
                     input  '':U (icArguments),
                     input  '':U (icFieldName),
                     input  '':U (icFieldValue),
                     input  'E':U (icType),
                     input  1 (iiSeverity),
                     input  '':U (icRowid),
                     input  'QADFIN-1648':U (icFcMsgNumber),
                     input  '' (icFcExplanation),
                     input  '' (icFcIdentification),
                     input  '' (icFcContext),
                     output viFcReturnSuper (oiReturnStatus)) in BBankEntry>    
    return.
end. /* if icAction */

/* ======================== */
/* Count main-table records */
/* ======================== */
for each tApiBankState no-lock :
    assign viMainTableRecordCount = viMainTableRecordCount + 1.
end. /* for each */
if viMainTableRecordCount = 0
then do:
    assign vcMsgApi       = trim(#T-22'A bank statement integration error occurred. The system could not find main table records (bank state).':255(307)t-22#)
           oiReturnStatus = -1.
          <M-7 run SetMessage (input  vcMsgApi (icMessage),
                     input  '':U (icArguments),
                     input  '':U (icFieldName),
                     input  '':U (icFieldValue),
                     input  'E':U (icType),
                     input  1 (iiSeverity),
                     input  '':U (icRowid),
                     input  'QADFIN-1649':U (icFcMsgNumber),
                     input  '' (icFcExplanation),
                     input  '' (icFcIdentification),
                     input  '' (icFcContext),
                     output viFcReturnSuper (oiReturnStatus)) in BBankEntry>
    return.
end. /* if viMainTableRecordCount */

/* ================================ */
/* Start loop on main-table records */
/* ================================ */
for each tApiBankState by tApiBankState.tc_Rowid: 
    
    /* =========== */
    /* Start Block */
    /* =========== */
    MAIN-BLOCK: DO :
        
        /* ================================== */
        /* Initialise and Create new instance */
        /* ================================== */
        assign vcMsgApi         = "":U 
               vcNewRowid       = "":U
               vlWarningsFound  = false
               vlSaveAsDraft    = (icAction = {&DAEMONACTION-STORE}).

        /* ======================================================= */
        /* Period company_id should be the same as the viCompanyID */
        /* ======================================================= */
        if tApiBankState.Company_ID = ? or tApiBankState.Company_ID = 0
        then assign tApiBankState.Company_ID = viCompanyId.
        
        if tApiBankState.Company_ID <> viCompanyId
        then do:
            assign vcMsgApi      = trim(substitute(#T-39'The entity (ID &1) does not match the current entity.':200(2211)t-39#, trim(string(tApiBankState.Company_ID)) ))
                   ocLstReturn   = ocLstReturn  + chr(4) + (if viFcReturnSuper = 0 then "-3":U else string(viFcReturnSuper))
                   ocLstPrimKey  = ocLstPrimKey + chr(4) + "*":U
                   ocLstRowid    = ocLstRowid   + chr(4) + "*":U 
                   vlSaveAsDraft = false.
    
            <M-40 run SetMessage (input  vcMsgApi (icMessage), 
                      input  '':U (icArguments), 
                      input  '':U (icFieldName), 
                      input  '':U (icFieldValue), 
                      input  'E':U (icType), 
                      input  1 (iiSeverity), 
                      input  '':U (icRowid), 
                      input  'QADFIN-3248':U (icFcMsgNumber), 
                      input  '' (icFcExplanation), 
                      input  '' (icFcIdentification), 
                      input  '' (icFcContext), 
                      output viFcReturnSuper (oiReturnStatus)) in BBankEntry>
            leave MAIN-BLOCK.
        end.

        /* ============================================= */
        /* Get the BankEntry_ID based on the logical key */
        /* ============================================= */
        if (tApiBankState.BankState_ID    = ?  or
            tApiBankState.BankState_ID    = 0) and
            tApiBankState.BankStateYear   <> ? and
            tApiBankState.BankStateYear   <> 0 and
            tApiBankState.BankStateNumber <> ? and
            tApiBankState.BankStateNumber <> "":U
        then do:
            <M-79 run GetBankStateID
               (input  tApiBankState.Company_ID (iiCompanyID), 
                input  tApiBankState.tcGLCode (icGLCode), 
                input  tApiBankState.BankStateYear (iiBankStateYear), 
                input  tApiBankState.BankStateNumber (icBankStateNumber), 
                output viBankState_ID (oiBankStateID), 
                output viFcReturnSuper (oiReturnStatus)) in BBankEntry>

             if viBankState_ID <> ? and viBankState_ID <> 0
             then assign tApiBankState.BankState_ID = viBankState_ID.
        end.

        /* ====================== */
        /* Load/Create BankState       */
        /* ====================== */
        if tApiBankState.BankState_ID = ? or
           tApiBankState.BankState_ID = 0
        then assign viFcReturnSuper = -4.
        else do:                                                      
            <M-2 run DataLoad (input  '':U (icRowids), 
                   input  string(tApiBankState.BankState_ID) (icPkeys), 
                   input  '':U (icObjectIds), 
                   input  ? (icFreeform), 
                   input  false (ilKeepPrevious), 
                   output viFcReturnSuper (oiReturnStatus)) in BBankEntry>              
        end.

        /* INFO: if dataload fails because of invalid ID, -4 is returned and a new record should be created */
        if viFcReturnSuper = -4                                               
        then do:
            assign viFcReturnSuper = 0.
            <M-20 run DataNew (output viFcReturnSuper (oiReturnStatus)) in BBankEntry>                 
                       
            if viFcReturnSuper < 0
            then assign vcMsgApi = trim(subst(#T-23'Cannot create a new instance. Error number: &1.':255(308)t-23#, string(viFcReturnSuper))).
    
            
        end.
        else do:
            if viFcReturnSuper < 0
            then assign vcMsgApi = trim(subst(#T-24'Cannot load the instance (error number: &1, instance ID: &2).':255(289)t-24#, string(viFcReturnSuper), string(tApiBankState.BankState_ID))).
            else do:
                find tBankState where
                     tBankState.BankState_ID = tApiBankState.BankState_ID
                     no-error.
    
                if not available tBankState
                then assign vcMsgApi = trim(subst(#T-25'Cannot find the instance after it has been loaded (instance ID: &1).':255(290)t-25#, string(tApiBankState.BankState_ID))).
                else assign tBankState.tc_Status = "C":U.
            end.
        end.
                
        
        /* ================================================================= */
        /* Check for errors in the previous block                            */
        /* ================================================================= */
        if vcMsgApi <> "":U
        then do :
            assign vlSaveAsDraft  = false
                   ocLstReturn    = ocLstReturn  + chr(4) + (if viFcReturnSuper = 0 then "-3":U else string(viFcReturnSuper))
                   ocLstPrimKey   = ocLstPrimKey + chr(4) + "*":U
                   ocLstRowid     = ocLstRowid   + chr(4) + "*":U.

            <M-5 run SetMessage (input  vcMsgApi (icMessage),
                     input  '':U (icArguments),
                     input  '':U (icFieldName),
                     input  '':U (icFieldValue),
                     input  'E':U (icType),
                     input  1 (iiSeverity),
                     input  '':U (icRowid),
                     input  'QADFIN-1647':U (icFcMsgNumber),
                     input  '' (icFcExplanation),
                     input  '' (icFcIdentification),
                     input  '' (icFcContext),
                     output viFcReturnSuper (oiReturnStatus)) in BBankEntry>

            Leave MAIN-BLOCK.
        end. /* if viFcReturnSuper < 0 */
        
        /* get OpeningBalance when it's not yet filled */
        assign vhFcComponent = ?.
        <M-52 run ApiGetAccountBalance
           (input  9999 (iiAccYear), 
            input  99 (iiAccPeriod), 
            input  tApiBankState.GL_ID (iiGL_ID), 
            input  tApiBankState.tcGLCode (icGLCode), 
            input  tApiBankState.Company_ID (iiCompanyID), 
            input  '':U (icCompanyCode), 
            output vdDummy (odBalanceLC), 
            output vdDummy (odBalanceCC), 
            output tApiBankState.BankStateOpeningBalance (odBalanceTC), 
            output viFcReturnSuper (oiReturnStatus)) in BGL>
        if viFcReturnSuper < 0
        then next.
        else if viFcReturnSuper > 0
        then assign vlWarningsFound = true.   
                
        /* =========================================================================================== */
        /* Copy all data into the new BankState                                                        */        
        /* =========================================================================================== */
        buffer-copy tApiBankState except 
            BankState_ID 
            tc_Rowid 
            tc_ParentRowid 
            tc_Status 
            BankStateYear
            BankStateNumber
            GL_ID
            tcGLCode
            Company_ID        
            to tBankState.
        if tBankState.tc_Status = 'N':U
        then do:
            /* get BankStateNumber when it's not yet filled */            
            if tApiBankState.BankStateNumber = '':U or
               tApiBankState.BankStateNumber = ?
            then do:
                <M-36 run GetNewBankStateNumber
                   (input  tApiBankState.Company_ID (iiCompanyID), 
                    input  tApiBankState.GL_ID (iiBankGLID), 
                    input  tApiBankState.tcGLCode (icBankGLCode), 
                    input  tApiBankState.BankStateYear (iiBankStateYear), 
                    output tApiBankState.BankStateNumber (ocNewBankStateNumber), 
                    output viFcReturnSuper (oiReturnStatus)) in BBankEntry>
                if viFcReturnSuper < 0
                then next.
                else if viFcReturnSuper > 0
                then assign vlWarningsFound = true.
            end. /* if tApiBankState.BankStateNumber = '':U or */
            
            /* Assign fields in instance table from imported table */
            assign tBankState.BankStateNumber         = tApiBankState.BankStateNumber
                   tBankState.BankStateYear           = tApiBankState.BankStateYear
                   tBankState.GL_ID                   = tApiBankState.GL_ID
                   tBankState.tcGLCode                = tApiBankState.tcGLCode
                   tBankState.Company_ID              = tApiBankState.Company_ID
                   tBankState.BankStateMovement       = 0
                   tBankState.BankStateClosingBalance = tBankState.BankStateOpeningBalance.
        end. /* if tBankState.tc_status = 'N':U */                           
        
        assign  tApiBankState.BankState_ID = tBankState.BankState_ID
                vcNewRowid                 = tBankState.tc_Rowid.
                          
        /* =================================================================== */
        /* Process other Temp-Tables BankStateLine, Alloc and AlloColl                                      */
        /* =================================================================== */       
        <M-8 run ApiStdMaintainTTSub (input  icAction (icAction), 
                              input-output ocLstReturn (bcLstReturn), 
                              input-output ocLstPrimKey (bcLstPrimKey), 
                              input-output ocLstRowid (bcLstRowid), 
                              input-output vlSaveAsDraft (blSaveAsDraft), 
                              output viFcReturnSuper (oiReturnStatus)) in BBankEntry>
        
        if viFcReturnSuper < 0
        then Leave MAIN-BLOCK.
        else if viFcReturnSuper > 0
        then assign vlWarningsFound = true.           
        
        /* ================================================================= */
        /* If only save-as-draft is needed then set the return params as if  */
        /* there was an error and we skip further actions in the Mainblock   */
        /* ================================================================= */
        if vlSaveAsDraft 
        then do :
            assign ocLstReturn   = ocLstReturn  + chr(4) + "-1":U
                   ocLstPrimKey  = ocLstPrimKey + chr(4) + "*":U
                   ocLstRowid    = ocLstRowid   + chr(4) + "*":U.
            Leave MAIN-BLOCK.
        end. /* vlSaveAsDraft */
                                                                                                
        /* =============================== */
        /*          Set Actvity            */
        /* =============================== */
        if can-find (first tBankState where 
                           tBankState.tc_Status = "N":U) 
        then assign vcActivityCode = "Create":U.
        else if can-find (first tBankState where 
                                tBankState.tc_Status = "C":U) 
        then assign vcActivityCode = "Modify":U.

        /* ============================================================================== */
        /* Validate the data and Perform external updates (can also contain validations). */    
        /* ============================================================================== */         
        <M-12 run ValidateBC (output viFcReturnSuper (oiReturnStatus)) in BBankEntry>
        
        if viFcReturnSuper < 0
        then do :
            assign ocLstReturn   = ocLstReturn  + chr(4) + string(viFcReturnSuper)
                   ocLstPrimKey  = ocLstPrimKey + chr(4) + "*":U
                   ocLstRowid    = ocLstRowid   + chr(4) + "*":U
                   vlSaveAsDraft = (icAction <> {&DAEMONACTION-SAVE} and icAction <> {&DAEMONACTION-VALIDATE}).
            Leave MAIN-BLOCK.
        end. /* viFcReturnSuper < 0 */
        else if viFcReturnSuper > 0
        then assign vlWarningsFound = true.

        /* ================ */
        /* External updates */
        /* ================ */
        <M-13 run AdditionalUpdates (output viFcReturnSuper (oiReturnStatus)) in BBankEntry>       
        if viFcReturnSuper < 0
        then do :
            assign ocLstReturn   = ocLstReturn  + chr(4) + string(viFcReturnSuper)
                   ocLstPrimKey  = ocLstPrimKey + chr(4) + "*":U
                   ocLstRowid    = ocLstRowid   + chr(4) + "*":U
                   vlSaveAsDraft = (icAction <> {&DAEMONACTION-SAVE} and icAction <> {&DAEMONACTION-VALIDATE}).
            Leave MAIN-BLOCK.
        end. /* viFcReturnSuper < 0 */
        else if viFcReturnSuper > 0
        then assign vlWarningsFound = true.
        
        /* ================================================== */
        /* Save the data                                      */       
        /* ================================================== */
        if icAction <> {&DAEMONACTION-VALIDATE}
        then do :    
            <M-14 run DataSave (output viFcReturnSuper (oiReturnStatus)) in BBankEntry>            
            if viFcReturnSuper < 0
            then do :
                assign ocLstReturn   = ocLstReturn  + chr(4) + string(viFcReturnSuper)
                       ocLstPrimKey  = ocLstPrimKey + chr(4) + "*":U
                       ocLstRowid    = ocLstRowid   + chr(4) + "*":U
                       vlSaveAsDraft = (icAction <> {&DAEMONACTION-SAVE} and icAction <> {&DAEMONACTION-VALIDATE}).
                Leave MAIN-BLOCK.
            end. /* viFcReturnSuper < 0 */
            else if viFcReturnSuper > 0
            then assign vlWarningsFound = true.
        end. /* if icAction = {&DAEMONACTION-VALIDATE} */
        
        /* =========================================================== */
        /* Indicate the data is saved/stored correctly and set primkey */
        /* =========================================================== */
        assign ocLstReturn  = ocLstReturn  + chr(4) + (if vlWarningsFound = true then "1":U else "0":U)
               ocLstPrimKey = ocLstPrimKey + chr(4) + string(tApiBankState.BankState_ID)
               ocLstRowid   = ocLstRowid   + chr(4) + vcNewRowid.
        
    END. /* MAIN-BLOCK */
    
    /* ================================================================= */
    /* Handle errors; store if SaveAsDraft is needed                     */
    /* Check: only 1 draft is allowed in a single bus-component instance */
    /* ================================================================= */
    if vlSaveAsDraft and
        index(substring(ocLstReturn,r-index(ocLstReturn,chr(4)) + 1,-1,"CHARACTER":U),"-":U) <> 0
    then do :
        if vlDraftInstanceCreated = true
        then do :
            assign vcMsgApi = trim(#T-43'Only one draft instance can be created per method call.':255(13856)T-43#) +
                              chr(10) +
                              trim(#T-44'This second object cannot be stored as a draft instance and so is an error.':255(13879)t-44#).
            <M-45 run SetMessage (input  vcMsgApi (icMessage), 
                      input  '':U (icArguments), 
                      input  '':U (icFieldName), 
                      input  '':U (icFieldValue), 
                      input  'E':U (icType), 
                      input  1 (iiSeverity), 
                      input  '':U (icRowid), 
                      input  'QADFIN-3264':U (icFcMsgNumber), 
                      input  '' (icFcExplanation), 
                      input  '' (icFcIdentification), 
                      input  '' (icFcContext), 
                      output viFcReturnSuper (oiReturnStatus)) in BBankEntry>
            next.
        end.

        <M-15 run StoreState
          (input  '(':U + tBankState.BankStateNumber + ') ':U + trim(#T-26'The bank statement number was created using an API method.':200(295)t-26#) (icDescription), 
           input  ? (icUIClass), 
           output viFcReturnSuper (oiReturnStatus)) in BBankEntry>
            
        assign vlDraftInstanceCreated                                      = true
               entry(num-entries(ocLstReturn,chr(4)),ocLstReturn,chr(4))   = string(viFcReturnSuper)
               entry(num-entries(ocLstPrimKey,chr(4)),ocLstPrimKey,chr(4)) = string(tBankState.BankState_ID)
               entry(num-entries(ocLstRowid,chr(4)),ocLstPrimKey,chr(4))   = vcNewRowid.
        
    end. /* substring ... */
    
end. /* for each tApiBankState */

/* ============================================================ */
/* Trim the first character of ocLstReturn and primkey          */
/* Check for correct number and format of the return-parameters */
/* ============================================================ */
if length(ocLstReturn, "CHARACTER":U) > 1 
then assign ocLstReturn  = substring(ocLstReturn, 2,-1,"CHARACTER":U).
if length(ocLstPrimKey,"CHARACTER":U) > 1 
then assign ocLstPrimKey = substring(ocLstPrimKey,2,-1,"CHARACTER":U).
if length(ocLstRowid,  "CHARACTER":U) > 1 
then assign ocLstRowid   = substring(ocLstRowid,  2,-1,"CHARACTER":U).
if num-entries(ocLstReturn, chr(4)) <> viMainTableRecordCount or
   num-entries(ocLstPrimKey,chr(4)) <> viMainTableRecordCount or
   num-entries(ocLstRowid,  chr(4)) <> viMainTableRecordCount
then do :
    assign vcMsgApi       = trim(#T-27'A bank statement integration error occurred. An API method returned incomplete information. See other messages for further details.':200(309)t-27#) + chr(10) + 
                            trim(substitute(#T-28'Main table records: &1.':255(310)T-28#,string(viMainTableRecordCount))) + chr(10) + 
                            trim(substitute(#T-29'Return Statuses: &1.':255(311)T-29#,ocLstReturn))  + chr(10) +
                            trim(substitute(#T-30'Primary keys: &1.':255(312)T-30#,ocLstPrimKey)) + chr(10) +
                            trim(substitute(#T-31'Row IDs: &1.':255(313)T-31#,ocLstRowid)).
           oiReturnStatus = -3.

        <M-16 run SetMessage (input  vcMsgApi (icMessage),
                     input  '':U (icArguments),
                     input  '':U (icFieldName),
                     input  '':U (icFieldValue),
                     input  'E':U (icType),
                     input  1 (iiSeverity),
                     input  '':U (icRowid),
                     input  'QADFIN-1653':U (icFcMsgNumber),
                     input  '' (icFcExplanation),
                     input  '' (icFcIdentification),
                     input  '' (icFcContext),
                     output viFcReturnSuper (oiReturnStatus)) in BBankEntry>
    return.
end. /* if num-entries */

/* ===================================================== */
/* Set global return value based on the individual ones: */ 
/* assign it to zero if all individual ones are zero.    */
/* ===================================================== */
if ocLstReturn = substring(fill("0":U + CHR(4),viMainTableRecordCount),1,length(ocLstReturn,"CHARACTER":U),"CHARACTER":U)
then assign oiReturnStatus = 0.
else do :
    if index(ocLstReturn, '-':U) <> 0
    then do:
        assign vcMsgApi       = trim(#T-47'An error occurred while running the API method. See other error messages for more details.':255(14334)t-47#)
               oiReturnStatus = -1.
        <M-17 run SetMessage (input  vcMsgApi (icMessage),
                     input  '':U (icArguments),
                     input  '':U (icFieldName),
                     input  '':U (icFieldValue),
                     input  'E':U (icType),
                     input  1 (iiSeverity),
                     input  '':U (icRowid),
                     input  'QADFIN-1654':U (icFcMsgNumber),
                     input  '' (icFcExplanation),
                     input  '' (icFcIdentification),
                     input  '' (icFcContext),
                     output viFcReturnSuper (oiReturnStatus)) in BBankEntry>
    end.
    else do:
        assign vcMsgApi       = trim(#T-48'A warning has occurred while running this API method. See other error messages for more details.':255(14089)T-48#)
               oiReturnStatus = +1.
        <M-49 run SetMessage (input  vcMsgApi (icMessage), 
                      input  '':U (icArguments), 
                      input  '':U (icFieldName), 
                      input  '':U (icFieldValue), 
                      input  'W':U (icType), 
                      input  3 (iiSeverity), 
                      input  '':U (icRowid), 
                      input  'QADFIN-3265':U (icFcMsgNumber), 
                      input  '' (icFcExplanation), 
                      input  '' (icFcIdentification), 
                      input  '' (icFcContext), 
                      output viFcReturnSuper (oiReturnStatus)) in BBankEntry>
    end.
end. /* Not ocLstReturn = .... */


Sample code: how to call this method through RPCRequestService (QXtend Inbound)

define temp-table ttContext no-undo
    field propertyQualifier as character
    field propertyName as character
    field propertyValue as character
    index entityContext is primary unique
        propertyQualifier
        propertyName
    index propertyQualifier
        propertyQualifier.

define dataset dsContext for ttContext.

define variable vhContextDS as handle no-undo.
define variable vhExceptionDS as handle no-undo.
define variable vhServer as handle no-undo.
define variable vhInputDS as handle no-undo.
define variable vhInputOutputDS as handle no-undo.
define variable vhOutputDS as handle no-undo.
define variable vhParameter as handle no-undo.

/* Create context */
create ttContext.
assign ttContext.propertyName = "programName"
       ttContext.propertyValue = "BBankEntry".
create ttContext.
assign ttContext.propertyName = "methodName"
       ttContext.propertyValue = "ApiStdMaintainTT".
create ttContext.
assign ttContext.propertyName = "applicationId"
       ttContext.propertyValue = "fin".
create ttContext.
assign ttContext.propertyName = "entity"
       ttContext.propertyValue = "1000".
create ttContext.
assign ttContext.propertyName = "userName"
       ttContext.propertyValue = "mfg".
create ttContext.
assign ttContext.propertyName = "password"
       ttContext.propertyValue = "".

/* Create input dataset */
create dataset vhInputDS.
vhInputDS:read-xmlschema("file", "xml/bbankentry.apistdmaintaintt.i.xsd", ?).
vhParameter = vhInputDS:get-buffer-handle("tParameterI").
vhParameter:buffer-create().
assign vhParameter::icAction = <parameter value>.

vhParameter = vhInputDS:get-buffer-handle("tApiBankState").
vhParameter:buffer-create().
assign vhParameter::<field-name-1> = <field-value-1>
       vhParameter::<field-name-2> = <field-value-2>
       ...

vhParameter = vhInputDS:get-buffer-handle("tApiBankStateLine").
vhParameter:buffer-create().
assign vhParameter::<field-name-1> = <field-value-1>
       vhParameter::<field-name-2> = <field-value-2>
       ...

vhParameter = vhInputDS:get-buffer-handle("tApiBankAlloc").
vhParameter:buffer-create().
assign vhParameter::<field-name-1> = <field-value-1>
       vhParameter::<field-name-2> = <field-value-2>
       ...

vhParameter = vhInputDS:get-buffer-handle("tApiBankStateAllocColl").
vhParameter:buffer-create().
assign vhParameter::<field-name-1> = <field-value-1>
       vhParameter::<field-name-2> = <field-value-2>
       ...

vhParameter = vhInputDS:get-buffer-handle("tApiBankStateStageAlloc").
vhParameter:buffer-create().
assign vhParameter::<field-name-1> = <field-value-1>
       vhParameter::<field-name-2> = <field-value-2>
       ...

/* Connect the AppServer */
create server vhServer.
vhServer:connect("-URL <appserver-url>").

if not vhServer:connected()
then do:
    message "Could not connect AppServer" view-as alert-box error title "Error".
    return.
end.

/* Run */
assign vhContextDS = dataset dsContext:handle.

run program/rpcrequestservice.p on vhServer
    (input-output dataset-handle vhContextDS by-reference,
           output dataset-handle vhExceptionDS,
     input        dataset-handle vhInputDS by-reference,
     input-output dataset-handle vhInputOutputDS by-reference,
           output dataset-handle vhOutputDS).

/* Handle output however you want, in this example, we dump it to xml */
if valid-handle(vhExceptionDS)
then vhExceptionDS:write-xml("file", "Exceptions.xml", true).

if valid-handle(vhOutputDS)
then vhOutputDS:write-xml("file", "Output.xml", true).

/* Cleanup */
vhServer:disconnect().
assign vhServer = ?.

if valid-handle(vhInputDS)
then delete object vhInputDS.

if valid-handle(vhOutputDS)
then delete object vhOutputDS.

if valid-handle(vhExceptionDS)
then delete object vhExceptionDS.