Transcript The IDENTIFICATION DIVISION Format : IDENTIFICATION DIVISION. PROGRAM-ID. program-name [AUTHOR. [ comment-entry ] ] [INSTALLATION.

The IDENTIFICATION DIVISION
Format :
IDENTIFICATION DIVISION.
PROGRAM-ID. program-name
[AUTHOR. [ comment-entry ] ]
[INSTALLATION. [ comment-entry ] ]
[DATE-WRITTEN. [ comment-entry ] ]
[DATE-COMPILED. [ comment-entry ] ]
[SECURITY. [ comment-entry ] ]
ตัวอย่ าง
IDENTIFICATION DIVISION.
PROGRAM-ID. ACCOUNT-PROGRAM.
AUTHOR.
VIRIYA TRAIPANYASART.
INSTALLATION. KMUTT.
DATE-WRITTEN. 1-06-2004.
DATE-COMPILED.
SECURITY.
DEPARTMENT USE ONLY.
ตัวอย่ าง
IDENTIFICATION DIVISION.
PROGRAM-ID. PROGRAM-UPDATE.
The ENVIRONMENT DIVISION
Format : ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. computer-name
OBJECT-COMPUTER. computer-name
WORDS
MEMORY SIZE integer CHARACTERS
MODULES
PROGRAM COLLATING SEQUENCE IS
alphabet-name ]
[SPECIAL-NAMES. ]
[PRINTER IS MNEMONIC-name. ]
STANDARD-1
[ alphabet-name IS NATIVE
implementor-name
[ CURRENCY SIGN IS literal]
[ DECIMAL_POINT IS COMMA ]
[INPUT-OUTPUT SECTION. ]
FILE-CONTROL.
{ file-control-entry } ]
[I-O-CONTROL.
RECORD
SAME SORT
AREA FOR file-name-3
SORT-MERGE
{ file-name-4 } ...]
SELECT Clause
SELECT filename ASSIGN TO DISK
PRINTER
[ORGANIZATION IS [LINE] SEQUENTIAL]
[ACCESS MODE IS SEQUENTIAL]
[FILE STATUS IS data-name-1]
{
}
ตัวอย่ าง
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. IBM-PC.
OBJECT-COMPUTER. IBM-PC.
SPECIAL-NAMES. PRINTER IS LPRINTER.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT STUDENT-FILE ASSIGN TO DISK
ORGANIZATION IS LINE SEQUENTIAL.
SELECT PRINT-FILE ASSIGN TO PRINTER.
I-O-CONTROL.
SAME RECORD AREA FOR STUDENT-FILE,
PRINT-FILE.
ตัวอย่ าง
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. MICROCOMPUTER.
OBJECT-COMPUTER. MICROCOMPUTER.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT EMPLOYEE-FILE ASSIGN TO DISK
ORGANIZATION IS LINE SEQUENTIAL.
SELECT PRINT-FILE ASSIGN TO PRINTER.
The DATA DIVISION
Format :
DATA DIVISION.
[FILE SECTION.]
[FD filename
; BLOCK CONTAINS [ integer-1 TO ]
[ integer-2 RECORDS
{ CHARACTERS } ]
[ ; RECORD CONTAINS [ integer-3 TO ]
integer-4 CHARACTERS ]
; LABEL RECORD IS
STANDARD }
{ RECORDS ARE}{ OMITTED
[; VALUE OF FILE-ID IS data-name-1 ]
{ literal-1 }
[; DATA RECORD IS
data-name-1,…]
{ RECORDS ARE}
[WORKING-STORAGE SECTION.]
[77-level-description-entry]
[record-description-entry]
[LINKAGE SECTION.]
[77-level-description-entry]
[record-description-entry]
[SCREEN SECTION.]
ตัวอย่ าง
DATA DIVISION.
FILE SECTION.
FD EMPLOYEE-FILE
LABEL RECORD IS STANDARD
VALUE OF FILE-ID IS “A:EMP.DAT”
DATA RECORD IS EMP-REC.
01 EMP-REC.
02
02
FD PRINT-FILE LABEL RECORD IS OMITTED
DATA RECORD IS PRINT-LINE.
01 PRINT-LINE.
02
RD (Record Description) level number 01
Format :
01 record-name.
02 field-name
PICTURE IS picture
FILLER
PIC
{
}{
}
PICTURE Claus
X - An alphanumeric input field
9 - A numeric input field
V - Assume decimal point (implied decimal point)
ตัวอย่ าง
01 INPUT-REC.
05 FILLER
05 SALE-ID
05 SALE-NAME
05 FILLER
05 SALES
05 RETURNS
05 FILLER
PIC XX.
PIC X(4).
PIC X(30).
PIC X(5).
PIC 9(5)V99.
PIC 9(5)V99.
PIC X(35).
Input record description
Field
Position
Unused Student Unused Student Year Class
number
name
1-2
3-10
11-12
DD 40212001DDMr. Chaithai
13-42
Deemak
DD 40213005 DDMiss Malee thongthai
43
4A
4A
44
01 STUDENT-REC.
05 FILLER
05 STUDENT-ID
05 FILLER
05 STUDENT-NAME
05 YEAR
05 CLASS
05 FILLER
PIC XX.
PIC X(8).
PIC XX.
PIC X(30).
PIC 9.
PIC X.
PIC X(36).
The general format for a record or data description.
level-number data-name-1
FILLER
[; REDEFINES data-name-2]
[; PICTURE IS character-string]
PIC
COMP-0
COMP
[; [USAGE IS] COMP-3
]
DISPLAY
INDEX
{
{
}
}
The general format for a record or data description.
[; OCCURS integer-1 TIMES
[; ASCENDING KEY IS data-name-4 [,
DESCENDING
data-name-5] ]
[; INDEXED BY index-name-1 [,
index-name-2]…]
[; SYNCHRONIZED LEFT ]
[
]
SYNC
RIGHT
[; JUSTIFIED RIGHT ]
JUST
[; BLANK WHEN ZERO]
[; VALUE is literal]
{
{
{
}
}
}
CONDITION-NAME ชื่อเงือ่ นไข
Format :
88 condition-name VALUE IS
VALUES ARE
literal-1 THROUGH literal-2
[ THRU ]
ตัวอย่ าง
01 CUST-REC.
02 CUST-NAME PIC X(30).
02 PAYMENT PIC 9.
88 CASH VALUE 1.
88 CREDIT VALUE 2.
{
{
}
}
ตัวอย่ าง
01 END-OF-FILE
PIC XXX.
88 EOF VALUE “YES”.
หรือ
IF EOF PERFORM END-JOB.
IF END-OF-FILE = “YES” PERFORM END-JOB.