Step by step As400-cobol Get started Tutorial 02-Program Structure and logo Division (original)

The format of the identity department:

code example:

Identification Division.
Program-id. Idsample.
AUTHOR. PROGRAMMER NAME.
Installation. COBOL Development CENTER.
Date-written. 08/27/88.
Date-compiled. 09/01/88 12:57:53.
SECURITY. Non-confidential.

Format of the Ministry of the Environment:

code example

Environment Division.
CONFIGURATION section.
Source-computer. ibm-as400.
Object-computer. ibm-as400.
Special-names. Cð1 is top-of-page.

Source-computer defines the machine that needs to compile the original code.

Examples of Special-names:

Special-names. System-console is Systm
Requestor is work-station
C01 is Next-page
Local-data is Local-data-area
Attribute-data is Attrb-data
System-shutdown is Shutdown-switch
On STATUS is shutdown-pending
UPSI-0 is upsi-switch-0
On STATUS is u0-on
OFF STATUS is U0-off
UPSI-1 is upsi-switch-1
On STATUS is u1-on
OFF STATUS is U1-off
Ibm-ascii is STANDARD-1
Currency-sign is "Y".

Step by step As400-cobol Get started Tutorial 02-Program Structure and logo Division (original)