코볼 입출력
ACCEPT
ACCEPT 데이터 항목 FROM [ DATE / DAY / DAY-OF-WEEK / TIME ][END-ACCEPT]
ACCEPT identifier-1[ ,UNIT { identifier-2 } ] [ ,LINE { identifier-3 } ] [ ,POSITION { identifier-4 } ] [ ,SIZE { identifier-5 } ][ ,PROMPT { literals-5 }][ UPDATE ] [ ECHO ] [ CONVERT ] [TAB ] [ BLINK ] [ REVERSE ] [ NO BEEP ][ ERASE ( [EOL ][ HIGH ] ) ( [EOS] [LOW ] ) ( [OFF] ) ][ ON EXCEPTION identifier-6 { NEXT SENTENCE } ][ NOT ON EXCEPTION imperative-statement-2 ][ END-ACCEPT]
DISPLAY
DISPLAY identifier-1[ ,UNIT { identifier-2 } ] [ ,LINE { identifier-3 } ] [ ,POSITION { identifier-4 } ] [ ,SIZE { identifier-5 } ][ BLINK ] [ REVERSE ] [ BEEP ][ ERASE ( [EOL ][ HIGH ] ) ( [EOS] [LOW ] )]
OPEN
OPEN { INPUT 파일 이름-1 [WITH LOCK] [ REVERSED / WITH NO REWIND ]{ OUTPUT 파일 이름-2 [WITH LOCK] [ REVERSED / WITH NO REWIND ]{ I-O 파일이름-3 [WITH LOCK]{ EXTEND 파일 이름-4 [WITH LOCK]
CLOSE
CLOSE 파일이름-1 [ UNIT [ WITH NO REWIND ] ] ][ WITH { NO REWIND } ][ { LOCK } ][ REEL ]
READ
READ 파일이름 [ NEXT ] RECORD [ INTO identifier ] [ AT END 무조건문-1 ] [ NOT AT END 무조건문-2 ][ END-READ ]READ 파일이름 RECORD [ INTO identifier ] [ INVALID KEY 무조건문-1 ] [ NOT INVALID 무조건문-2 ][ END-READ ]READ 파일이름 RECORD [ INTO identifier ] [ KEY IS 데이터 이름 ][ INVALID KEY 무조건문-1 ] [ NOT INVALID KEY 무조건문-2 ][ END-READ ]
WRITE
WRITE 레코드 이름 [ FROM { identifier } ] [ { BEFORE } ADVANCING identifier } ] { AFTER }[ END-WRITE ]WRITE 레코드 이름 [ FROM { identifier } ] [ INVALID KEY 무조건문-1 ] [ NOT INVALID KEY 무조건문-2 ][ END-WRITE ]
REWRITE
REWRITE 레코드 이름 [ FROM { identifier } ] [ INVALID KEY 무조건문-1 ] [ NOT INVALID KYE 무조건문-2 ][ END-REWRITE ]
DELETE
DELETE 파일이름 RECORD [ INTO identifier ] [ INVALID KEY 무조건문-1 ] [ NOT INVALID 무조건문-2 ][ END-DELETE ]
START : 조건에 맞는 레코드 위치 찾기
START 파일이름 KEY [ IS = ] 데이터 이름 [ IS > ] [ IS < ][ INVALID KEY 무조건문-1 ] [ NOT INVALID KYE 무조건문-2 ][ END-START ]
UNLOCK
UNLOCK 파일이름 RECORD
사용할 파일 지정
- ENVIRONMENT DIVISION. > INPUT-OUT SECTION. > FILE-CONTROL.
파일 레코드 지정
- DATA DIVISION. > FILE SECTION.
파일 입출력
- PROCEDURE DIVISION. >
- OPEN, CLOSE, READ, WRITE, REWRITE, DELETE,…
COPY : C의 #include 기능
COPY "text file-name.ext"
Written by dukgun.com
إرسال تعليق