例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. C1411.
000003 ENVIRONMENT DIVISION.
000004 DATA DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 A PIC ++Z.
000007 01 B PIC \\Z.
000008 01 C PIC *--.
000009 01 D PIC *Z.
000010 01 E PIC ++--.
000011 01 F PIC --\\.
000012 01 G PIC \\++.
000013 PROCEDURE DIVISION.
000014 STOP RUN.
C1411.cob (6) : JMN1411I-S PICTURE文字列で,'+','-','*','Z'および通貨編集用文字を浮動置換え文字として使うときには,このうち1種類しか書けません.PICTURE 9とみなします.
C1411.cob (7) : JMN1411I-S PICTURE文字列で,'+','-','*','Z'および通貨編集用文字を浮動置換え文字として使うときには,このうち1種類しか書けません.PICTURE 9とみなします.
C1411.cob (8) : JMN1411I-S PICTURE文字列で,'+','-','*','Z'および通貨編集用文字を浮動置換え文字として使うときには,このうち1種類しか書けません.PICTURE 9とみなします.
C1411.cob (9) : JMN1411I-S PICTURE文字列で,'+','-','*','Z'および通貨編集用文字を浮動置換え文字として使うときには,このうち1種類しか書けません.PICTURE 9とみなします.
C1411.cob (10) : JMN1411I-S PICTURE文字列で,'+','-','*','Z'および通貨編集用文字を浮動置換え文字として使うときには,このうち1種類しか書けません.PICTURE 9とみなします.
C1411.cob (11) : JMN1411I-S PICTURE文字列で,'+','-','*','Z'および通貨編集用文字を浮動置換え文字として使うときには,このうち1種類しか書けません.PICTURE 9とみなします.
C1411.cob (12) : JMN1411I-S PICTURE文字列で,'+','-','*','Z'および通貨編集用文字を浮動置換え文字として使うときには,このうち1種類しか書けません.PICTURE 9とみなします.