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

Post a Comment

أحدث أقدم