引数の説明
REDEFINES,RENAMES,CHARACTER TYPE,PRINTING POSITION,PROPERTYあるいはANY LENGTH |
例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. P5143.
000003 DATA DIVISION.
000004 WORKING-STORAGE SECTION.
000005 01 VCHR TYPEDEF.
000006 02 LENG PIC S9(9).
000007 02 XCHR PIC X(80).
000008 02 NCHR CHARACTER TYPE MODE-1
000009 PIC N(40).
000010 01 ADDR TYPE VCHR.
000011 PROCEDURE DIVISION.
000012 STOP RUN.
000013 END PROGRAM P5143.
P5143.cob (8) : JMN5143I-S CHARACTER TYPE句はTYPEDEF句を指定した項目,あるいはその従属項目に指定できません.CHARACTER TYPE句は無効になります.