COBOL I/O 코볼 입출력 명령

코볼 입출력

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