COBOL + CICS Banking Transaction Module - Banking-cobol-variants Typing CST Test
Loading…
COBOL + CICS Banking Transaction Module — Banking-cobol-variants Code
A COBOL program handling a simple banking withdrawal transaction via CICS.
IDENTIFICATION DIVISION.
PROGRAM-ID. WITHDRAWAL.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 ACCOUNT-ID PIC X(10).
01 AMOUNT PIC 9(9)V99.
01 BALANCE PIC 9(9)V99.
PROCEDURE DIVISION.
EXEC CICS RECEIVE INTO(ACCOUNT-ID) END-EXEC.
EXEC CICS RECEIVE INTO(AMOUNT) END-EXEC.
EXEC SQL
SELECT BALANCE INTO :BALANCE
FROM ACCOUNTS WHERE ID = :ACCOUNT-ID
END-EXEC.
IF BALANCE >= AMOUNT THEN
SUBTRACT AMOUNT FROM BALANCE
EXEC SQL UPDATE ACCOUNTS SET BALANCE = :BALANCE
WHERE ID = :ACCOUNT-ID END-EXEC
ELSE
DISPLAY "INSUFFICIENT FUNDS"
END-IF.
EXEC CICS SEND FROM(BALANCE) END-EXEC.
STOP RUN.Banking-cobol-variants Language Guide
Banking COBOL variants are specialized implementations of COBOL used in financial institutions for core banking, batch processing, transaction management, and high-volume data processing. They include vendor-specific extensions like IBM Enterprise COBOL, Micro Focus COBOL, Unisys COBOL, and proprietary mainframe banking frameworks.
Primary Use Cases
- ▸Core banking transaction processing
- ▸ATM, POS, and card network message handling
- ▸Batch interest calculation and EOD processing
- ▸Loan origination and amortization systems
- ▸Interbank settlement and SWIFT formatting
Notable Features
- ▸Highly reliable numeric and decimal precision
- ▸Native integration with CICS, IMS, DB2, VSAM
- ▸Strong batch processing capabilities
- ▸Vendor-specific performance extensions
- ▸Robust file and record-level data handling
Origin & Creator
Originally developed by CODASYL (1960), banking-specific variants evolved via IBM, Micro Focus, Unisys, Fujitsu, and proprietary in-house banking platforms.
Industrial Note
More than 80% of global card transactions touch COBOL-based systems at some stage. Banking COBOL variants remain the backbone of financial processing globally.