수색…
비고
WRITE
문은 논리 레코드를 output
또는 input-output
저장 영역 자원으로 해제하고 논리적 페이지 내의 행의 논리 위치 지정을 해제합니다.
순차 쓰기
무작위로 쓰기
쓰기 예제
WRITE record-buff
WRITE indexed-record
WITH LOCK
ON INVALID KEY
DISPLAY "Key exists, REWRITING..." END-DISPLAY
PERFORM rewrite-key
END-WRITE
IF indexed-file-status NOT EQUAL ZERO THEN
DISPLAY "Write problem: " indexed-file-status UPON SYSERR
END-DISPLAY
PERFORM evasive-manoeuvres
END-IF
WRITE record-name-1 AFTER ADVANCING PAGE
WRITE record-name-1 FROM header-record-1
AFTER ADVANCING 2 LINES
AT END-OF-PAGE
PERFORM write-page-header
PERFORM write-last-detail-reminder
END-WRITE
Modified text is an extract of the original Stack Overflow Documentation
아래 라이선스 CC BY-SA 3.0
와 제휴하지 않음 Stack Overflow