... is an old computer programming language.
It stands for "COmmon Business-Oriented Language.
Here's an example:
program-id. Program1 as "ConsoleApplication1.Program1".
data division.
working-storage section.
77 K PIC 99 VALUE ZERO.
01 STR.
05 A PIC X OCCURS 10.
procedure division.
000-BEGIN.
MOVE "ABCDEF" TO STR.
DISPLAY STR.
*****EXAMINE STR REPLACING ALL "D" BY "X".
PERFORM 2000-EXAMINE 10 TIMES.
DISPLAY ">" STR "< PRESS THE ENTER KEY:".
ACCEPT K.
goback.
2000-EXAMINE.
ADD 1 TO K.
IF A(K) = "D" THEN MOVE "X" TO A(K).
end program Program1.
---
program-id. Program1 as "ConsoleApplication1.Program1".
data division.
working-storage section.
01 IN-RECORD.
05 BIRTHDATE PIC 9(8).
05 THENAME PIC X(72).
01 TAPE-REC.
05 BIRTHDATE PIC S9(7) COMP-3.
05 NAME PIC X(76).
HEX
0 1 2 3 4 5 6 7 8 9 A B C D E F
OOO0 0
OOO1 1
OO10 2 BASE 2
OO11 3 BASE 2
O100 4 BASE 2
O101 5
O110 6
O111 7
1000 8 BASE 2
1001 9
1010 A
1011 B
1100 C
1101 D
1110 E
1111 F
01 DETAIL-LINE.
05 BIRTH-DATE PIC 9(8).
procedure division.
goback.
end program Program1.
