I've got this error when I was trying to build the library, it's at the goback keyword -verb- program-id. ExecuteTransaction as "CoreBanking.Transactions.ExecuteTransaction". data division. working-storage section. copy 'Records\TransactionRecord'. 77 operation-code pic X(10). 77 result-code pic X(50). 77 debit-account-balance pic S9(10)V9(03) comp-3. 88 internal-accounti-id values 1 thru 7. procedure division using by value operation-code, by reference tansaction-record returning result-code. copy 'DatabaseConnection'. if internal-accounti-id then perform debit-internal-account else perform debit-customer-account end-if. evaluate debit-account when 1 thru 7 perform debit-internal-account when other perform debit-customer-account end-evaluate. goback. debit-internal-account. exec sql insert into bank_transaction(DEBIT_ACCOUNT, CREDIT_ACCOUNT, AMOUNT) values(:debit-account, :credit-account, :transaction-amount) end-exec. exec sql commit end-exec. move 'Transaction completed' to result-code. debit-customer-account. exec sql select balance into :debit-account-balance from ( select sum(credit), sum(debit), sum(credit) - sum(debit) as balance from ( select transaction_id as voucher,transaction_date, amount as credit, 0 as debit from bank_transaction where credit_account = :credit-account union select transaction_id,transaction_date, 0 as credit, amount as debit from bank_transaction where debit_account = :credit-account ) ) end-exec. if debit-account-balance = transaction-amount then exec sql insert into bank_transaction(DEBIT_ACCOUNT, CREDIT_ACCOUNT, AMOUNT) values(:debit-account, :credit-account, :transaction-amount) end-exec exec sql commit end-exec move 'Transaction Was Successfuly Completed' to result-code else move 'Insufficient Funds!' to result-code end-if. exec sql disconnect current end-exec. sql-error-routine. move 'internal error' to result-code. end program ExecuteTransaction.
↧