DATA DIVISION.
WORKING-STORAGE SECTION.
01 A PIC S9.
01 B PIC S9.
01 S PIC S99.
PROCEDURE DIVISION.
DISPLAY "Please enter the first integer (A): "
ACCEPT A
DISPLAY "Please enter the second integer (B): "
ACCEPT B
MULTIPLY A BY B GIVING S
DISPLAY "The result of A * B is: " S
STOP RUN.
此 COBOL 程式從鍵盤輸入兩個一位數的整數 A 和 B,然後計算 A 乘以 B 的結果,並在螢幕上輸出 S 的值。程式假設使用者輸入的數據皆符合規範,即 A 和 B 皆在 -9 到 9 之間。