引数の説明
翻訳オプション名 |
表示ファイル, FORMAT句付き印刷ファイル |
例
000001 @OPTIONS RCS(SJIS-UCS2)
000002 IDENTIFICATION DIVISION.
000003 PROGRAM-ID. C1817.
000004 ENVIRONMENT DIVISION.
000005 INPUT-OUTPUT SECTION.
000006 FILE-CONTROL.
000007 SELECT SQFILE1 ASSIGN TO GS-SYS001
000008 SYMBOLIC DESTINATION IS "PRT"
000009 FILE STATUS IS WFS1.
000010 DATA DIVISION.
000011 FILE SECTION.
000012 FD SQFILE1.
000013 01 SQF1REC.
000014 02 PIC X(80).
000015 WORKING-STORAGE SECTION.
000016 01 WFS1 PIC X(2).
000017 END PROGRAM C1817.
C1817.cob (7) : JMN1817I-S 翻訳オプションRCS(SJIS-UCS2)指定の場合,'表示ファイル'は使用できません.