引数の説明
TYPEDEF,アクセス指定 |
例
000001 IDENTIFICATION DIVISION.
000002 CLASS-ID. C1699.
000003 ENVIRONMENT DIVISION.
000004 IDENTIFICATION DIVISION.
000005 OBJECT.
000006 PROCEDURE DIVISION.
000007 METHOD-ID. M1699.
000008 DATA DIVISION.
000009 WORKING-STORAGE SECTION.
000010 01 TYPEDEF.
000011 END METHOD M1699.
000012 END OBJECT.
000013 END CLASS C1699.
C1699.cob (10) : JMN1699I-S 無名項目にTYPEDEF句を指定することはできません.TYPEDEF句は無効になります.