Mode:
Duration:
1
Coding works best on desktop or with an external keyboard.
Coding works best on desktop or with an external keyboard.
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 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.
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.