Cobol Example

Common Business Orientated Language

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.
PROCEDURE DIVISION.
DISPLAY 'Welcome to BroFarOps Creations'.
.
(Execute)

Welcome to BroFarOps Creations

IDENTIFICATION DIVISION.
PROGRAM-ID. AUTHEN.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-NAME PIC A(20).
01 WS-ID PIC 9(7) VALUE '7885877'.
PROCEDURE DIVISION.
A000-AUTHEN-DOC.
DISPLAY 'BroFarOps Creations'.
DISPLAY 'Good Day'.
MOVE 'Robert B' TO WS-NAME.
DISPLAY 'My name is : 'WS-NAME.
DISPLAY 'My ID is : 'WS-ID.
AUTHORIZATION DIVISION.
RECOGNIZE 'User: 'WS-NAME.
DISPLAY 'Authorization Granted '.
DISPLAY 'User:'WS-NAME.
.
(Execute)

BroFarOps Creations

Good Day

Robert B
7885877

AUTHORIZATION GRANTED

User: Robert B

CoBOL Example