プログラムとリストのサンプル

次のリスト・サンプルは、 プログラム・サンプルに対して作成されるコンパイラー・オプションとソース・リストを示しています。 図については、それに続く本文で参照されています。 これらの参照は、反転文字 (たとえば  Z ) で参照先が示されています。 本文の中の反転文字は、図の中にある文字と対応しています。

コマンドの要約

この要約は、コンパイルの結果作成され、CRTCBLMOD または CRTBNDCBL コマンドで指定されたすべてのオプションのリストを示します。 ユーザー定義オプションの詳細については COBOL モジュールの作成 (CRTCBLMOD) コマンドの使用を参照してください。

図 10. CRTCBLMOD コマンド要約のリスト
 5722WDS V5R4M0  060210 LN  IBM ILE COBOL                 CBLGUIDE/EXTLFL     ISERIES1   06/02/15 13:11:39      ページ  1
コマンド . . . . . . . . . . . . . . . :   CRTCBLMOD
実際の値 :
  モジュール . . . . . . . . . . . . . :   EXTLFL
    ライブラリー . . . . . . . . . . . :     CBLGUIDE
  ソース・ファイル . . . . . . . . . . :   QCBLLESRC
    ライブラリー  .. . . . . . . . . . :     CBLGUIDE
    CCSID  . . . . . . . . . . . . . . :   37
  ソース・メンバー . . . . . . . . . . :   EXTLFL         02/03/05 10:50:50
  テキスト記述 . . . . . . . . . . . . :   *BLANK
コマンド・オプション :
  モジュール . . . . . . . . . . . . . :   EXTLFL
    ライブラリー  .  . . . . . . . . . :     CBLGUIDE
  ソース・ファイル . . . . . . . . . . :   QCBLLESRC
    ライブラリー  .  . . . . . . . . . :     CBLGUIDE
  ソース・メンバー . . . . . . . . . . :   EXTLFL
  出力 . . . . . . . . . . . . . . . . :   *PRINT
  生成重大度レベル  . . . . . . . . .  :   30
  テキスト記述 . . . . . . . . . . . . :   *SRCMBRTXT
  コンパイラー・オプション . . . . . . :   *NONE
  変換オプション . . . . . . . . . . . :   *NONE
  メッセージ限界 :
    メッセージの数 . . . . . . . . . . :   *NOMAX
    メッセージ限界重大度 . . . . . . . :   30
  デバッグ・ビュー・オプション:
    デバッグ・ビュー . . . . . . . . . :   *STMT
    リスト・ビューの圧縮 . . . . . . . :   *NOCOMPRESSDBG
  最適化レベル . . . . . . . . . . . . :   *NONE
  FIPS フラグ付け. . . . . . . . . . . :   *NOFIPS *NOOBSOLETE
  拡張表示オプション . . . . . . . . . :   *NONE
  フラグ重大度 . . . . . . . . . . . . :   0
  モジュールの置き換え . . . . . . . . :   *NO
  権限 . . . . . . . . . . . . . . . . :   *LIBCRTAUT
  リンク・リテラル . . . . . . . . . . :   *PGM
  ターゲット・リリース . . . . . . . . :   *CURRENT
  ソート順序 . . . . . . . . . . . . . :   *HEX
    ライブラリー . . . . . . . . . . . :
  言語 ID . . . . . . .  . . . . . . . :   *JOBRUN
  パフォーマンス収集使用可能 :
    収集レベル . . . . . . . . . . . . :   *PEP
  プロファイル・データ . . . . . . . . :   *NOCOL
  コード化文字セット ID  . . . . . . . :   *JOBRUN
  演算モード . . . . . . . . . . . . . :   *NOEXTEND
  埋め込み文字 :
    単一バイト文字を国別文字へ . . . . :   NX"0020"
    2 バイト文字を国別文字へ . . . . . :   NX"3000"
    国別文字を国別文字へ . . . . . . . :   NX"3000"
  ディレクトリー組み込み . . . . . . . :   *NONE
  プログラム情報生成 . . . . . . . . . :   *NO
  コンパイラー . . . . . . . . . . . . :   IBM ILE COBOL
図 11. CRTBNDCBL コマンド要約のリスト
5722WDS V5R4M0  060210 LN  IBM ILE COBOL                  CBLGUIDE/SAMPLE      ISERIES1   06/02/15 11:18:21        ページ    1
コマンド . . . . . . . . . . . . . . . :   CRTBNDCBL
実際の値 :
  プログラム . . . . . . . . . . . . . :   SAMPLE
    ライブラリー   . . . . . . . . . . :     CBLGUIDE
  ソース・ファイル . . . . . . . . . . :   QCBLLESRC
    ライブラリー   . . . . . . . . . . :     CBLGUIDE
    CCSID  . . . . . . . . . . . . . . :   37
  ソース・メンバー . . . . . . . . . . :   SAMPLE         02/03/05 14:13:55
  テキスト記述 . . . . . . . . . . . . :   *BLANK
コマンド・オプション :
  プログラム . . . . . . . . . . . . . :   SAMPLE
    ライブラリー . . . . . . . . . . . :     CBLGUIDE
  ソース・ファイル . . . . . . . . . . :   QCBLLESRC
    ライブラリー . . . . . . . . . . . :     CBLGUIDE
  ソース・メンバー . . . . . . . . . . :   SAMPLE
  出力 . . . . . . . . . . . . . . . . :   *PRINT
  生成重大度レベル . . . . . . . . . . :   30
  テキスト記述 . . . . . . . . . . . . :   *SRCMBRTXT
  コンパイラー・オプション . . . . . . :   *IMBEDERR
  変換オプション . . . . . . . . . . . :   *NONE
  メッセージ限界 :
    メッセージの数 . . . . . . . . . . :   *NOMAX
    メッセージ限界重大度 . . . . . . . :   30
    メッセージ限界重大度 . . . . . . . :   30
  デバッグ・ビュー・オプション:
    デバッグ・ビュー . . . . . . . . . :   *STMT
    リスト・ビューの圧縮 . . . . . . . :   *NOCOMPRESSDBG
  最適化レベル . . . . . . . . . . . . :   *NONE
  FIPS フラグ付け. . . . . . . . . . . :   *NOFIPS *NOOBSOLETE
  拡張表示オプション . . . . . . . . . :   *NONE
  フラグ重大度 . . . . . . . . . . . . :   0
  プログラムの置き換え . . . . . . . . :   *YES
  単純プログラム . . . . . . . . . . . :   *YES
  権限 . . . . . . . . . . . . . . . . :   *LIBCRTAUT
  リンク・リテラル . . . . . . . . . . :   *PGM
  ターゲット・リリース . . . . . . . . :   *CURRENT
  ユーザー・プロファイル . . . . . . . :   *USER
  ソート順序 . . . . . . . . . . . . . :   *HEX
    ライブラリー . . . . . . . . . . . :
  言語 ID . . . . . . .  . . . . . . . :   *JOBRUN
  パフォーマンス収集使用可能 :
    収集レベル . . . . . . . . . . . . :   *PEP
  バインディング・ディレクトリー . . . :   *NONE
    ライブラリー . . . . . . . . . . . :
  活動化グループ . . . . . . . . . . . :   QILE
  プロファイル・データ . . . . . . . . :   *NOCOL
  コード化文字セット ID. . . . . . . . :   *JOBRUN
  演算モード . . . . . . . . . . . . . :   *NOEXTEND
  埋め込み文字 :
    単一バイト文字を国別文字へ . . . . :   NX"0020"
    2 バイト文字を国別文字へ . . . . . :   NX"3000"
    国別文字を国別文字へ . . . . . . . :   NX"3000"
  ディレクトリー組み込み . . . . . . . :   *NONE
  プログラム情報生成 . . . . . . . . . :   *NO
  コンパイラー . . . . . . . . . . . . :   IBM ILE COBOL

有効なコンパイラー・オプションの識別

PROCESS ステートメントを指定すると、それが最初に印刷されます。 図 12 は、プログラムのサンプルのコンパイルで有効になっているすべてのオプションのリストです。 CRTCBLMOD コマンドに指定したオプションは、PROCESS ステートメントによって修正されています。 OPTIONS パラメーターが指定されるとき、コンパイラー・オプションのリストはすべてのコンパイラー出力の最初になります。

図 12. 有効なオプションのリスト
 5722WDS V5R4M0  060210 LN  IBM ILE COBOL                 CBLGUIDE/SAMPLE          ISERIES1   06/02/15 11:18:21      ページ  2
                                     ソ ー ス
  STMT PL SEQNO  -A 1 B..+....2....+....3....+....4....+....5....+....6....+....7..IDENTFCN  S コピー名   変更日付
           000100 PROCESS OPTIONS, SOURCE, VBSUM, MAP,
           000200         FLAG(00), MINIMUM, OBSOLETE, XREF
                     有効となっている COBOL コンパイラー・オプション
                          SOURCE
                          XREF
                          GEN
                          NOSEQUENCE
                          VBSUM
                          NONUMBER
                          MAP
                          OPTIONS
                          QUOTE
                          NOSECLVL
                          PRTCORR
                          MONOPRC
                          RANGE
                          NOUNREF
                          NOSYNC
                          NOCRTF
                          NODUPKEYCHK
                          NOINZDLT
                          NOBLK
                          STDINZ
                          NODDSFILLER
                          IMBEDERR
                          STDTRUNC
                          NOCHGPOSSGN
                          NOEVENTF
                          MONOPIC
                          NONATIONAL
                          NOLSPTRALIGN
                          NOCOMPASBIN
                          OUTPUT
                          GENLVL(30)
                          NOOPTIMIZE
                          MINIMUM
                          OBSOLETE
                          DFRWRT
                          UNDSPCHR
                          ACCUPDALL
                          FLAG(0)
                          LINKPGM
                          SRTSEQ(*HEX      )
                          LANGID(*JOBRUN  )
                          ENBPFRCOL(PEP)
                          PRFDTA(NOCOL)
                          CCSID(JOBRUN CCSID CCSID)
                          DATTIM(1900 40)
                          THREAD(NOTHREAD)
                          ARITHMETIC(NOEXTEND)
                          NTLPADCHAR(NX"0020" NX"3000" NX"3000")
                          OPTVALUE(NOOPT)
                          NOGRAPHIC
                     有効となっている COBOL 変換オプション
                          NOVARCHAR
                          NODATETIME
                          NOCVTPICXGRAPHIC
                          NOFLOAT
                          NODATE
                          NOTIME
                          NOTIMESTAMP
                          NOCVTTODATE
                          NOCVTPICNGRAPHIC

ソース・リスト

図 13 にソース・リストを示します。 ソース・プログラムのステートメントは、REPLACE ステートメントで識別されるプログラム・ソース・テキストを除き、 実行要求されたとおりに正確にリストされます。 置換テキストはソース・リストに表示されます。 PROGRAM-ID 段落のリストのページの後、 すべてのコンパイラー出力ページのシステム名の前のヘッディングのところには、 リスト出力されるプログラム ID 名が示されます。

図 13. ILE COBOL ソース・リストの例
 5722WDS V5R4M0  060210 LN  IBM ILE COBOL                 CBLGUIDE/SAMPLE          ISERIES1   06/02/15 11:18:21      ページ  4
  STMT PL SEQNO  -A 1 B..+....2....+....3....+....4....+....5....+....6....+....7..IDENTFCN  S コピー名   変更日付
    A   B      C                                                                              D      E          F 
     1     000300 IDENTIFICATION DIVISION.
     2     000500 PROGRAM-ID.     SAMPLE.
     3     000600   AUTHOR.       PROGRAMMER NAME.
     4     000700   INSTALLATION. COBOL DEVELOPMENT CENTRE.
     5     000800   DATE-WRITTEN. 02/24/94.
     6     000900   DATE-COMPILED. 02/02/05 11:18:21
     7     001100 ENVIRONMENT DIVISION.
     8     001300 CONFIGURATION SECTION.
     9     001400 SOURCE-COMPUTER. IBM-ISERIES.
    10     001500 OBJECT-COMPUTER. IBM-ISERIES.
    11     001700 INPUT-OUTPUT SECTION.
    12     001800 FILE-CONTROL.
    13     001900     SELECT FILE-1 ASSIGN TO DISK-SAMPLE.
    15     002100 DATA DIVISION.
    16     002300 FILE SECTION.
    17     002400 FD  FILE-1
           002500     LABEL RECORDS ARE STANDARD
*==>                          a
*=a> LNC0848   0  LABEL 文節は構文検査されて無視される。 G 
           002600     RECORD CONTAINS 20 CHARACTERS
           002700     DATA RECORD IS RECORD-1.
*==>                          a
*=a> LNC0848   0  DATA RECORDS 文節は構文検査されて無視される。
    18     002800 01  RECORD-1.
    19     002900   02 FIELD-A      PIC X(20).
    20     003100 WORKING-STORAGE SECTION.
    21     003200 01  SUBSCRIPT-TYPE   TYPEDEF   PIC S9(2) COMP-3.
    22     003300 01  FILLER.
    23     003400   05 KOUNT        TYPE SUBSCRIPT-TYPE.
    24     003500   05 LETTERS      PIC X(26) VALUE "ABCDEFGHIJKLMNOPQRSTUVWXYZ".
    25     003600   05 ALPHA REDEFINES LETTERS
           003700                   PIC X(1) OCCURS 26 TIMES.
    26     003800   05 NUMBR        TYPE SUBSCRIPT-TYPE.
    27     003900   05 DEPENDENTS   PIC X(26) VALUE "01234012340123401234012340".
    28     004000   05 DEPEND REDEFINES DEPENDENTS
           004100                   PIC X(1)  OCCURS 26 TIMES.
           004200 COPY WRKRCD.
    29    +000100 01  WORK-RECORD.                                                             WRKRCD
    30    +000200   05 NAME-FIELD   PIC X(1).                                                  WRKRCD
    31    +000300   05 FILLER       PIC X(1)  VALUE SPACE.                                     WRKRCD
    32    +000400   05 RECORD-NO    PIC S9(3).                                                 WRKRCD
    33    +000500   05 FILLER       PIC X(1)  VALUE SPACE.                                     WRKRCD
    34    +000600   05 LOCATION     PIC A(3)  VALUE "NYC".                                     WRKRCD
    35    +000700   05 FILLER       PIC X(1)  VALUE SPACE.                                     WRKRCD
 5722WDS V5R4M0  060210 LN  IBM ILE COBOL                 CBLGUIDE/SAMPLE          ISERIES1   06/02/15 11:18:21        ページ    5
  STMT PL SEQNO  -A 1 B..+....2....+....3....+....4....+....5....+....6....+....7..IDENTFCN  S コピー名   変更日付
    36    +000800   05 NO-OF-DEPENDENTS                                                        WRKRCD
          +000900                   PIC X(2).                                                  WRKRCD
    37    +001000   05 FILLER       PIC X(7)  VALUE SPACES.                                    WRKRCD
    38     004300 77  WORKPTR USAGE POINTER.
           004500*****************************************************
           004600* THE FOLLOWING PARAGRAPH OPENS THE OUTPUT FILE TO  *
           004700* BE CREATED AND INITIALIZES COUNTERS               *
           004800*****************************************************
    39     004900 PROCEDURE DIVISION.
           005100 STEP-1.
    40     005200     OPEN OUTPUT FILE-1.
    41     005300     MOVE ZERO TO KOUNT, NUMBR.
           005500*****************************************************
           005600* THE FOLLOWING 3 PARAGRAPHS CREATE INTERNALLY THE  *
           005700* RECORDS TO BE CONTAINED IN THE FILE, WRITES THEM  *
           005800* ON THE DISK, AND DISPLAYS THEM                    *
           005900*****************************************************
           006000 STEP-2.
    42     006100     ADD 1 TO KOUNT, NUMBR.
    43     006200     MOVE ALPHA  (KOUNT) TO NAME-FIELD.
    44     006300     MOVE DEPEND (KOUNT) TO NO-OF-DEPENDENTS.
    45     006400     MOVE NUMBR          TO RECORD-NO.
           006600 STEP-3.
    46     006700     DISPLAY WORK-RECORD.
    47     006800     WRITE RECORD-1 FROM WORK-RECORD.
           007000 STEP-4.
    48     007100     PERFORM STEP-2 THRU STEP-3 UNTIL KOUNT IS EQUAL TO 26.
           007300*****************************************************
           007400* THE FOLLOWING PARAGRAPH CLOSES FILE OPENED FOR    *
           007500* OUTPUT AND RE-OPENS IT FOR INPUT                  *
           007600*****************************************************
           007700 STEP-5.
    49     007800     CLOSE FILE-1.
    50     007900     OPEN INPUT FILE-1.
           008100*****************************************************
           008200* THE FOLLOWING PARAGRAPHS READ BACK THE FILE AND   *
           008300* SINGLE OUT EMPLOYEES WITH NO DEPENDENTS           *
           008400*****************************************************
           008500 STEP-6.
    51     008600     READ FILE-1 RECORD INTO WORK-RECORD
    52     008700       AT END GO TO STEP-8.
           008900 STEP-7.
    53     009000     IF NO-OF-DEPENDENTS IS EQUAL TO "0"
    54     009100       MOVE "Z" TO NO-OF-DEPENDENTS.
    55     009200     GO TO STEP-6.
           009400 STEP-8.
    56     009500     CLOSE FILE-1.
    57     009600     STOP RUN.
*==>                          a
*=a> LNC0650   0  ファイル FILE-1 のブロック化 / ブロック解除はコンパイラー生成コードによって行われる。
                           * * * * *   ソ ー ス 仕 様 の 終 わ り   * * * * *

図 13 には、以下のフィールドが示されています。

 A 
コンパイラーが生成したステートメント番号: ソース・プログラム・リストの左に表示されます。 これらの番号は、FIPS リストを除くすべてのコンパイラー出力リストで参照されます。 1 つのステートメントが複数行にわたることもあり、1 行に複数のステートメントが含まれることもあります。 入力ソース・メンバーに一連の ILE COBOL ソース・プログラムが存在する場合、 ステートメント番号は新しいコンパイル単位ごとに 1 にリセットされます。 ステートメント番号は、1 つまたは複数のネストされた COBOL プログラムが含まれている単一のコンパイル単位ではリセットされません。
 B 
プログラム・ネスト・レベル: このフィールドに表示される数字は、プログラムのネストの程度を示します。
 C 
参照番号: ソース・ステートメントの左に表示されます。 このフィールドと列見出しに表示される番号 (このリストでは SEQNBR として表示) は、CRTCBLMOD または CRTBNDCBL コマンド、 あるいは PROCESS ステートメントで指定されたオプションによって決定されます。 次の表のとおりです。
オプション 見出し 出所
NONUMBER
SEQNBR
ソース・ファイル・シーケンス番号
NUMBER NUMBER ユーザー提供のシーケンス番号
LINENUMBER LINNBR コンパイラー生成のシーケンス番号
 D 
シーケンス・エラー標識欄: この欄の S は、その行がシーケンスから外れていることを示します。 参照番号フィールドの順序検査は、SEQUENCE オプションが指定される場合に限り実行されます。
 E 
コピー名: コピー名が ILE COBOL COPY ステートメントで指定されている場合に、 その COPY ステートメントによってソース・プログラムに含められたすべてのレコードについて、 コピー名がここに示されます。 DDS-ALL-FORMATS 句が使用される場合、<--ALL-FMTS という名前が COPYNAME の下に表示されます。
 F 
変更 / 日付フィールド: ここには、行が最後に修正された日付が示されます。
 G 
組み込みエラー: 第 1 レベルのエラー・メッセージは、リスト中のエラーが発生した行の後に示されます。 エラーの原因となる文節、ステートメント、または句が示されます。

verb の使用カウントのリスト

図 14 に、 ソース・プログラム内で使用されたすべての verb で構成されるアルファベット順のリストを示します。 各 verb が使用された回数も示されます。 このリストは、VBSUM オプションが指定される場合に作成されます。

図 14. verb の使用カウントのリスト
 5722WDS V5R4M0  060210 LN  IBM ILE COBOL                 CBLGUIDE/SAMPLE          ISERIES1   06/02/15 11:18:21        Page      7
                       動  詞  使  用  状  況 (カウント別)
 動詞                   カウント
 ADD                         1
 CLOSE                       2
 DISPLAY                     1
 GOTO                        2
 IF                          1
 MOVE                        5
 OPEN                        2
 PERFORM                     1
 READ                        1
 STOP                        1
 WRITE                       1

データ部マップ

データ部 (DATA DIVISION) マップのリストは、MAP オプションが指定された場合に作成されます。 このリストには、ILE COBOL ソース・プログラム内の名前に関する情報が含まれています。 ファイル・セクション (FILE SECTION) および作業用記憶域セクション (WORKING-STORAGE SECTION) に必要な最小バイト数が、 データ部マップの終わりに表示されます。

図 15. データ部マップ
 5722WDS V5R4M0  060210 LN  IBM ILE COBOL                CBLGUIDE/SAMPLE          ISERIES1   06/02/15 11:18:21        ページ    8
                           デ  ー  タ  部  マ  ッ  プ
  STMT LVL  ソース名                      セクション DISP   長さ    タイプ   属性
    H    I       J                            K        L        M      N       O 
    17  FD  FILE-1                           FS                              DEVICE DISK, ORGANIZATION SEQUENTIAL,
                                                                             ACCESS SEQUENTIAL, RECORD CONTAINS 20
                                                                             CHARACTERS
    18  01  RECORD-1                         FS  00000000       20  GROUP
    19  02  FIELD-A                          FS  00000000       20  AN
    21  01  SUBSCRIPT-TYPE                   WS  00000000        2  PACKED   TYPEDEF
    22  01  FILLER                           WS  00000000       56  GROUP
    23  05  KOUNT                            WS  00000000        2  PACKED   TYPE SUBSCRIPT-TYPE
    24  05  LETTERS                          WS  00000002       26  AN       VALUE
    25  05  ALPHA                            WS  00000002        1  AN       REDEFINES LETTERS, DIMENSION(26)
    26  05  NUMBR                            WS  00000028        2  PACKED   TYPE SUBSCRIPT-TYPE
    27  05  DEPENDENTS                       WS  00000030       26  AN       VALUE
    28  05  DEPEND                           WS  00000030        1  AN       REDEFINES DEPENDENTS, DIMENSION(26)
    29  01  WORK-RECORD                      WS  00000000       19  GROUP
    30  05  NAME-FIELD                       WS  00000000        1  AN
    31  05  FILLER                           WS  00000001        1  AN       VALUE
    32  05  RECORD-NO                        WS  00000002        3  ZONED
    33  05  FILLER                           WS  00000005        1  AN       VALUE
    34  05  LOCATION                         WS  00000006        3  A        VALUE
    35  05  FILLER                           WS  00000009        1  AN       VALUE
    36  05  NO-OF-DEPENDENTS                 WS  00000010        2  AN
    37  05  FILLER                           WS  00000012        7  AN       VALUE
    38  77  WORKPTR                          WS  00000000       16  POINTR
FILE SECTION は少なくとも 20 バイトの記憶域を使用します。
WORKING-STORAGE SECTION は少なくとも 91 バイトの記憶域を使用します。
                   * * * * *   デ  ー  タ  部  マ  ッ  プ  の  終  わ  り   * * * * *

データ部マップには、次のフィールドが示されます。

 H 
ステートメント番号: データ項目が定義されたコンパイラー生成のステートメント番号のリストが、 データ部マップ内にある各データ項目ごとに示されます。
 I 
データ項目のレベル: ここには、ソース・プログラムで指定されているデータ項目のレベル番号が示されます。 索引名は、レベル番号内の IX、 および SECTION、DISP、LENGTH、TYPE フィールド内のブランク・フィールドによって識別されます。
 J 
ソース名: ここには、ソース・プログラムで指定されているデータ名が示されます。
 K 
セクション: ここには、項目が定義されたセクションが、次のコードを使用して表示されます。
   FS  File Section
   WS  Working-Storage Section
   LO  Local-Storage Section
   LS  Linkage Section
   SM  Sort/Merge Section
   SR  Special Register.
 L 
変位: ここには、レベル 01 グループ項目からの項目のオフセット (バイト単位) が表示されます。
 M 
長さ: ここには、項目の 10 進数での長さ (バイト単位) が示されます。
 N 
タイプ: ここには、項目のデータ・クラス・タイプが、 次のコードを使用して表示されます。
コード データ・クラス・タイプ
GROUP グループ項目
A 英字
AN 英数字
ANE 英数字編集
DT 日付
TM 時刻
TMS タイム・スタンプ
INDEX 指標データ項目 (USAGE INDEX)
BOOLN ブール
ZONED ゾーン 10 進数 (外部 10 進数)
PACKED パック 10 進数 (内部 10 進数) (USAGE COMP、COMP-3、または PACKED-DECIMAL)
BINARY 2 進数 (USAGE COMP-4 または BINARY)
FLOAT 内部浮動小数点 (USAGE COMP-1 または COMP-2)
EFLOAT 外部浮動小数点 (USAGE DISPLAY)
NE 数字編集
POINTR ポインター・データ項目 (USAGE POINTER)
PRCPTR プロシージャー・ポインター・データ項目 (USAGE PROCEDURE-POINTER)
G DBCS
GE DBCS 編集
 O 
属性: ここには、項目の属性が以下のように示されます。

FIPS メッセージ

図 16 に示す FIPS メッセージのリストは、FLAGSTD パラメーターが指定された場合に出力されます。 FIPS フラグのオプションの指定についての詳細は FLAGSTD パラメーターを参照してください。 リストに示されるのは、要求された FIPS サブセットと、 オプショナル・モジュールまたは古くなったエレメント (あるいはその両方) のメッセージだけです。

注:
メッセージが出されるたびに、シーケンス番号と列番号が示されます。
図 16. FIPS メッセージ
 5722WDS V5R4M0   060210 LN  IBM ILE COBOL                 CBLGUIDE/SAMPLE          ISERIES1   06/02/15 11:18:21        ページ    9
                         C O B O L   F I P S   メ ッ セ ー ジ
  FIPS-ID    説明およびフラグの付いた順序番号  Q 
     P 
 LNC8100     次の項目が旧式の言語要素である。
 LNC8102     AUTHOR 段落。
                 000600    10
 LNC8103     DATE-COMPILED 段落。
                 000900    10
 LNC8104     INSTALLATION 段落。
                 000700    10
 LNC8105     DATE-WRITTEN 段落。
                 000800    10
 LNC8117     LABEL RECORDS 文節。
                 002500    12
 LNC8177     DATA RECORDS 文節。
                 002700    12
 LNC8200     次の標準に非準拠の項目は FIPS 中間レベルまたはそれ以上のみに有効である。 R 
 LNC8201     COPY ステートメント。
                 004200     8
 LNC8500     次の例外的な標準に非準拠の項目は IBM 定義または IBM 拡張機能である。
 LNC8504     ASSIGN 文節の割り当て名。
                 001900    36
 LNC8518     USAGE IS COMPUTATIONAL-3。
                 003200    49
 LNC8520     USAGE IS POINTER または PROCEDURE-POINTER。
                 004300    26
 LNC8561     COPY ステートメントの省略時のライブラリーと見なされる。
                 004200     8
 LNC8572     SKIP1/2/3 ステートメント。
                 000400    13
                 001000    13
                 001200    13
                 001600    13
                 002000    13
                 002200    13
                 003000    13
                 004400    13
                 005000    13
                 005400    13
                 006500    13
                 006900    13
                 007200    13
                 008000    13
                 008800    13
                 009300    13
 LNC8616     TYPEDEF 文節。
                 003200    29
 LNC8617     TYPE 文節。
                 003400    26
                 003800    26
   30 FIPS 違反のフラグが付けられた。 S 
                   * * * * *   C O B O L   F I P S   メ  ッ  セ  ー  ジ  の  終  わ  り   * * * * *

FIPS メッセージは、次のフィールドから構成されます。

 P 
FIPS-ID: このフィールドには、FIPS メッセージ番号が示されます。
 Q 
フラグ付き記述および参照番号: このフィールドには、条件フラグの説明が示されます。 その後に、その条件が見つかった位置のソース・プログラムからの参照番号のリストが示されます。

使用される参照番号のタイプ、およびヘッディングの中でのそれらの名前 (このリストの中の SEQUENCE NUMBERS として示されている) は、CRTCBLMOD コマンド、CRTBNDCBL コマンド、 または PROCESS ステートメント内に指定されるオプションによって、 以下の表のようにして決まるものです。

オプション 見出し
NONUMBER DESCRIPTION AND SEQUENCE NUMBERS FLAGGED
NUMBER DESCRIPTION AND USER-SUPPLIED NUMBERS FLAGGED
LINENUMBER DESCRIPTION AND LINE NUMBERS FLAGGED
 R 
レベルごとにグループ化した項目: これらのヘッディングは、レベルおよびカテゴリーによって FIPS メッセージを区分するものです。
 S 
FIPS 違反フラグ: FIPS 違反フラグの合計数が、FIPS リストの終わりに表示されます。

相互参照リスト

図 17 に、XREF オプションが指定される場合に作成される相互参照リストを示します。 これには、ソース・プログラム内のステートメント番号による、 すべてのデータ参照、プロシージャー名参照、およびプログラム名参照のリストが示されます。

図 17. 相互参照リスト
 5722WDS V5R4M0  060210 LN  IBM ILE COBOL                 CBLGUIDE/SAMPLE          ISERIES1   06/02/15 11:18:21        ページ   10
                             相  互  参  照  表
データ参照:
データ・タイプはデータ名定義の後の英字によって示されます。
これらの英字とその意味:
    E = EXTERNAL
    G = GLOBAL
    X = EXTERNAL および GLOBAL
データ名                           定義   参照 (* = 変更)
   T                               U         V 
ALPHA                               25     43
DEPEND                              28     44
DEPENDENTS                          27     28
FIELD-A                             19
FILE-1                              17     40     49     50     51     56
KOUNT                               23     41*    42*    43     44     48
LETTERS                             24     25
LOCATION                            34
NAME-FIELD                          30     43*
NO-OF-DEPENDENTS                    36     44*    53     54*
NUMBR                               26     41*    42*    45
RECORD-NO                           32     45*
RECORD-1                            18     47*
WORK-RECORD                         29     46     47     51*
WORKPTR                             38
タイプ名                           定義   参照 (* = 変更)
SUBSCRIPT-TYPE                      21     23     26
プロシージャー参照:
コンテキストの使用はプロシージャー名参照に続く英字によって示されます。
これらの英字とその意味:
    A = ALTER (プロシージャー名)
    D = GO TO (プロシージャー名) DEPENDING ON
    E = (PERFORM) から (プロシージャー名) の範囲の終わり
    G = GO TO (プロシージャー名)
    P = PERFORM (プロシージャー名)
    T = (ALTER) TO PROCEED TO (プロシージャー名)
プロシージャー名                   定義   参照
STEP-1                              39
STEP-2                              41     48P
STEP-3                              45     48E
STEP-4                              47
STEP-5                              48
STEP-6                              50     55G
STEP-7                              52
STEP-8                              55     52G
プログラム参照:
外部プログラムのプログラム・タイプは、プログラム名定義内の語によって示されます。
これらの語とその意味:
    EPGM = 動的にリンクされるプログラム・オブジェクト
    BPRC = COBOL プログラム、あるいはバインドされる C 関数または RPG プログラム
    SYS  = システム・プログラム
プログラム名                       定義  参照
SAMPLE                               2
                   * * * * *   相  互  参  照  表  の  終  わ  り   * * * * *

相互参照リストには以下のフィールドが示されます。

 T 
名前フィールド: 参照されるデータ名、プロシージャー名、またはプログラム名のリストがここに示されます。 名前はアルファベット順です。 プログラム名はライブラリー名で修飾されていることもあります。
 U 
定義済みフィールド: 名前がソース・プログラム内に定義されたステートメント番号がここに示されます。
 V 
参照フィールド: すべてのステートメント番号が、ソース・プログラムで参照される名前と同じ順序で示されます。 ステートメント番号の後ろに付いている * は、項目がそのステートメント内で修正されたことを示しています。

メッセージ

図 18 に、プログラムのコンパイル中に生成されるメッセージを示します。

図 18. 診断メッセージ
 5722WDS V5R4M0  060210 LN  IBM ILE COBOL                 CBLGUIDE/SAMPLE          ISERIES1   06/02/15 11:18:21        ページ   12
                                    メ ッ セ ー ジ
   STMT
  W                    Y                       X 
*    17  MSGID: LNC0848  重大度 :   0  SEQNBR:  002500
         メッセージ. . . :   LABEL 文節は構文検査されて無視される。 Z 
*    17  MSGID: LNC0848  重大度 :   0  SEQNBR:  002700
         メッセージ. . . :   DATA RECORDS 文節は構文検査されて無視される。
*    57  MSGID: LNC0650  重大度 :   0  SEQNBR:  009600
         メッセージ  . . :   ファイル FILE-1 のブロック化 / ブロック解除は
           コンパイラー生成コードによって行われる。
                                         メッセージの要約
メッセージ合計 :   AA 
   情報        (00-04) . . . . . . . . :      3
   警告        (05-19) . . . . . . . . :      0
   エラー      (20-29) . . . . . . . . :      0
   重大        (30-39) . . . . . . . . :      0
   打ち切り    (40-99) . . . . . . . . :      0
   --------------------------------------------
   合計                                       3
                        * * * * *   メ  ッ  セ  ー  ジ  の  終  わ  り   * * * * *
統計 :   BB 
   読み取ったソース・レコード数. . . . :     96
   読み取ったコピー・レコード数. . . . :     10
   処理したコピー・メンバー数. . . . . :      1
   シーケンス・エラー  . . . . . . . . :      0
   出された最高重大度メッセージ. . . . :      0
  LNC0901  0  11:18:23 の 06/02/17 にライブラリー CBLGUIDE にプログラム SAMPLE が作成された。
                      * * * * *   コ  ン  パ  イ  ル  の  終  わ  り   * * * * *

表示されるフィールドは、次のとおりです。

 W 
ステートメント番号: このフィールドに示されるのは、 メッセージが出されたソース・プログラム中のステートメントに関連したコンパイラー生成のステートメント番号です。1
注:
ステートメント番号および参照番号は、 脱落した項目を参照する特定のメッセージには示されません。 たとえば、PROGRAM-ID 段落が脱落している場合、メッセージ LNC0031 は、 ステートメント番号および参照番号なしで、リストに表示されます。
 X 
参照番号: 参照番号がここに示されます。1 このフィールドと列見出しに表示される番号 (このリストでは SEQNBR として表示) は、 次の表にあるとおり、CRTCBLMOD または CRTBNDCBL コマンド、 あるいは PROCESS ステートメントで指定されたオプションによって判別されます。
見出し 出所
NONUMBER SEQNBR ソース・ファイル・シーケンス番号
NUMBER NUMBER ユーザー提供のシーケンス番号
LINENUMBER LINNBR コンパイラー生成のシーケンス番号

コピー・ファイルからのレコードについてのメッセージが出された場合、番号の前に + が付きます。

 Y 
MSGID および重大度レベル: これらのフィールドには、 メッセージ番号とそれに関連した重大度レベルが表示されます。 重大度レベルは、次のように定義されます。
00
通知
10
警告
20
エラー
30
重大エラー
40
リカバリー不能 (通常は、ユーザー・エラー)
50
リカバリー不能 (通常は、コンパイラー・エラー)
 Z 
メッセージ: メッセージは、どのような条件かを識別し、コンパイラーが取るアクションを示します。
 AA 
メッセージ合計: このフィールドには、 メッセージの合計数および重大度レベルごとのメッセージ数が示されます。

ここに示されるメッセージの合計数は、コンパイラーによって各重大度レベルごとに生成されたメッセージ数であり、 必ずしもリストに示される数と同じではありません。 たとえば、FLAG(10) が指定されている場合、10 より低い重大度レベルのメッセージはリストに示されません。 しかし、メッセージが抑制されていない場合に印刷されるのと同じメッセージの数がカウントとして示されます。

 BB 
コンパイラー統計: このフィールドは、読み取ったソース・レコード、 読み取ったコピー・レコード、処理したコピー・メンバー、検出したシーケンス・エラー、 および出された最高重大度メッセージの合計数を示します。

1.
ステートメント番号および参照番号は、 脱落した項目を参照する特定のメッセージには示されません。 たとえば、PROGRAM-ID 段落が脱落している場合、メッセージ LNC0031 は、 ステートメント番号および参照番号なしで、リストに表示されます。