Transcript คำสั่ ง DISPLAY รูปแบบที่ 1 DISPLAY identifier-1 , identifier-2 … literal-1 literal-2 [ UPON mnemonic-name ] { }[ ตัวอย่ ำง DISPLAY STUDENT-NAME. DISPLAY “MY NAME IS”. ]

คำสั่ ง DISPLAY
รูปแบบที่ 1
DISPLAY identifier-1 , identifier-2 …
literal-1
literal-2
[ UPON mnemonic-name ]
{
}[
ตัวอย่ ำง
DISPLAY STUDENT-NAME.
DISPLAY “MY NAME IS”.
]
คำสั่ ง DISPLAY
รูปแบบที่ 2
DISPLAY { (position-spec)}
[
{
}
identifier …
literal
ERASE
UPON mnemonic-name ]
ตัวอย่ ำง
DISPLAY (5, 10) TAX.
DISPLAY (10, 10) “SALARY : ”.
คำสั่ ง DISPLAY
รูปแบบที่ 3
DISPLAY screen-name
([
position-spec มีรูปแบบคือ
LIN [{ ±} integer-1] COL [ { ±} integer-3] )
integer-2
integer-4
][
mnemonic-name must be defined in the
SPECIAL-NAMES paragraph of the
CONFIGURATION SECTION
]
คำสั่ ง ACCEPT
รูปแบบที่ 1
ACCEPT identifier
ตัวอย่ ำง
ACCEPT STUDENT-NO.
คำสั่ ง ACCEPT
รูปแบบที่ 2
ACCEPT identifier FROM DATE
DAY
TIME
LINE NUMBER
ESCAPE KEY
ตัวอย่ ำง
ACCEPT Y-M-D FROM DATE.
คำสั่ ง ACCEPT
รูปแบบที่ 3
ACCEPT (position-spec) identifier
[ WITH ZERO-FILL
SPACE-FILL
LEFT-JUSTIFY
RIGHT-JUSTIFY
PROMPT
UPDATE
LENGTH-CHECK
AUTO-SKIP
BEEP
NO-ECHO
EMPTY-CHECK
]
คำสั่ ง ACCEPT
รูปแบบที่ 4
ACCEPT screen-name
[ ON ESCAPE imperative statement ]
ตัวอย่ ำง
ACCEPT MENU-SCREEN.
SCREEN SECTION
level-number [screen-name]
[ BLANK SCREEN ]
[ LINE NUMBER IS [ PLUS ] integer-1 ]
[ COLUMN NUMBER IS [ PLUS ] integer-2 ]
[ BLANK LINE ] [ BELL ]
UNDERLINE
REVERSE-VIDEO
HIGHLIGHT
BLINK
[ [ VALUE ] IS literal-1 ]
PICTURE IS char-string
PIC
SCREEN SECTION (ต่ อ)
[ FROM literal-2
TO identifier-2
identifier-1
[ USING identifier-3
[ BLANK WHEN ZERO ]
JUSTTIFIED RIGHT
JUST
[ AUTO ]
[ SECURE ]
[ REQUIRED ]
[ FULL ]
คำสั่ ง SELECT
รูปแบบ
SELECT file-name ASSIGN TO DISK
ORGANIZATION IS INDEXED
SEQUENTIAL
ACCESS MODE IS RANDOM
DYNAMIC
RECORD KEY IS data-name-1
[ FILE STATUS IS data-name-2 ]
คำสั่ ง READ
รูปแบบ 1
READ file-name [ NEXT ] RECORD
[ INTO identifier ]
[ AT END imperative-statement ]
ไม่ มี NEXT อ่ ำนแบบ Sequential
เมื่อ access mode sequential
มี NEXT อ่ ำนแบบ Sequential
เมื่อ access mode dynamic
ตัวอย่ ำง
READ MASTER-FILE NEXT RECORD
AT END PERFORM TOTAL-ROUTINE.
คำสั่ ง READ
รูปแบบ 2
READ file-name RECORD [ INTO identifier ]
[ KEY IS data-name ]
[ INVALID KEY imperative-statement ]
อ่ ำนแบบ Indexed โดยจะอ่ ำนข้ อมูลตำมค่ ำ key ทีร่ ะบุไว้
ตัวอย่ ำง
READ STUDENT-FILE RECORD
INVALID KEY DISPLAY “ERROR”.
คำสั่ ง WRITE
รูปแบบ
WRITE record-name [ FROM identifier ]
[ INVALID KEY imperative-statement ]
ตัวอย่ ำง
WRITE STUDENT-RECORD INVALID KEY
DISPLAY “DUPLICATE KEY”.
คำสั่ ง REWRITE
รูปแบบ
REWRITE record-name [ FROM identifier ]
[ INVALID KEY imperative-statement ]
ตัวอย่ ำง
REWRITE CUST-REC INVALID KEY
PERFORM WRITE-NEW-REC.
คำสั่ ง DELETE
รูปแบบ
DELETE file-name RECORD
[ INVALID KEY imperative-statement ]
ตัวอย่ ำง
DELETE EMP-REC RECORD INVALID KEY
PERFORM NO-RECORD.
คำสั่ ง START
รูปแบบ
START file-name
EQUAL TO
=
KEY IS GREATER THAN data-name
>
NOT LESS THAN
<
[ INVALID KEY imperative-statement ]
ตัวอย่ ำง
START BOOK-FILE KYE IS > BOOK-NO.
คำสั่ ง CALL
รูปแบบ
CALL literal
[ USING data-name-1 [, data-name-2 ] …
ตัวอย่ ำง
CALL “UPDATE”.
CALL “REPORT” USING START-KEY.
คำสั่ ง EXIT PROGRAM
รูปแบบ
EXIT PROGRAM
I-O permitted with INDEXED Files
ACCESS
Procedure
Open Option In Effect
MODE IS
Statement INPUT
OUTPUT I-O
SEQUENTIAL
RANDOM
DYNAMIC
READ
WRITE
REWRITE
START
DELET
READ
WRITE
REWRITE
START
DELETE
READ
WRITE
REWRITE
START
DELETE
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X