引数の説明
SIA,STD |
ALTERNATE RECORD KEY,APPLY MULTICONVERSATION-MODE,APPLY SAVED-AREA,APPLY WITH-ONLY,ASCENDING/DESCENDING KEY,BY VALUE,CHARACTER TYPE,CODE-SET,COLUMN NUMBER,COMMON,CONTROL RECORD,CONVERTING,CORRESPONDING,CRT STATUS,CURSOR,DEPENDING ON,DESTINATION-3,END-ACCEPT,END-CALL,END-DISPLAY,END-KEY,END-OF-PAGE,EXTEND,EXTERNAL,FIRST RECORD,FORMAT,GLOBAL,GROUP,INITIAL,INVALID KEY,KEY,LINAGE,LOCK MODE,MULTIPLE FILE TAPE,NEXT,NOT AT END-OF PAGE,NOT INVALID KEY,NOT ON EXCEPTION,ON EXCEPTION,ON OVERFLOW,OPTIONAL,ORGANIZATION IS RELATIVE,ORGANIZATION IS INDEXED,PADDING CHARACTER,PASSWORD,POSITIONING POINTER,POSITIONING UNIT,PRINTING MODE,PRINTING POSITION,PROCESSING CONTROL,RECORD DELIMITER,RECORD KEY,RECORD IS VARYING IN SIZE,RECORDING MODE,REMAINDER,REPLACING,RERUN,RESERVE AREA,REVERSED,REVERSED ORDER,REPORT,SAME RECORD AREA,SAME SORT-MERGE AREA,SEGMENT-LIMIT,SELECT,SOURCE,SYMBOLIC CONSTANT,SYMBOLIC CHARACTERS,TO TEST OR PERFORM,TEST AFTER,TEST BEFORE,TYPE,VARYING,WITH DEBUGGING MODE,WITH DUPLICATE,WITH LOCK,WITH NO ADVANCING,WITH NO LIMIT,WITH NO LOCK,WITH NO REWIND |
例
000001 @OPTIONS FLAGSW(STDM)
000002 IDENTIFICATION DIVISION.
000003 PROGRAM-ID. C9002.
000004 ENVIRONMENT DIVISION.
000005 DATA DIVISION.
000006 WORKING-STORAGE SECTION.
000007 01 REC01.
000008 02 REC-NO PIC X(5).
000009 02 REC-NAME PIC X(20).
000010 02 REC-DATA PIC X(50).
000011 01 REC02.
000012 02 REC-NO PIC X(5).
000013 02 REC-NAME PIC X(20).
000014 02 REC-DATA PIC X(50).
000015 PROCEDURE DIVISION.
000016 P-START.
000017 MOVE CORRESPONDING REC01 TO REC02.
000018 STOP RUN.
C9002.cob (17) : JMN9002I-W (STD)CORRESPONDING句は共通範囲外です.処理を続行します.