引数の説明
翻訳オプション名 |
表示ファイル, 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)指定の場合,'表示ファイル'は使用できません.