引数の説明
WRITE,REWRITE,RELEASE |
例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. C3368.
000003 ENVIRONMENT DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006 SELECT FILE-1 ASSIGN TO SYS001.
000007 DATA DIVISION.
000008 FILE SECTION.
000009 FD FILE-1.
000010 01 WRTREC.
000011 02 WRT-1 PIC S9(8) BINARY.
000012 02 WRT-2 PIC X(72).
000013 WORKING-STORAGE SECTION.
000014 01 A PIC X(4).
000015 PROCEDURE DIVISION.
000016 P-START.
000017 OPEN OUTPUT FILE-1.
000018 WRITE WRTREC FROM FUNCTION LENGTH(A).
000019 CLOSE FILE-1.
000020 END PROGRAM C3368.
C3368.cob (18) : JMN3368I-S WRITE文のFROM句に,整数関数および数字関数は指定できません.