図 156 は、COBOL 定様式ダンプの例です。 普通、ダンプは、プログラムを実行しようとして問題が発生した場合に使用することができます。
データ部 (DATA DIVISION) のデータ項目をユーザー定義のデータ・タイプとして定義しても、ダンプ内でのデータの表現方法には変わりはありません。 TYPE 文節を使用して定義されたデータ項目の行動は、TYPE 文節を使用せずに定義された場合とまったく同じです。
要求できるダンプには、データ・ダンプと拡張ダンプの 2 種類があります。 図 156 にある例は、拡張ダンプです。
データ・ダンプには、次の情報が含まれます。 白抜きになったラベルは、定様式ダンプの中でのその情報の位置を示すものです。
さらに、拡張ダンプには、次の追加情報が含まれます。 白抜きになったラベルは、定様式ダンプの中でのその情報の位置を示すものです。
ユーザーが定様式ダンプ内のプログラムの変数の値を見ることができないようにするには、以下のいずれか 1 つを実行します。
5722WDS V5R4M0 060210 LN IBM ILE COBOL CBLGUIDE/SAMPDUMP ISERIES1 06/02/15 15:10:06 ページ 2
ソ ー ス
STMT PL SEQNBR -A 1 B..+....2....+....3....+....4....+....5....+....6....+....7..IDENTFCN S コピー名 変更日付
1 000100 IDENTIFICATION DIVISION.
2 000200 PROGRAM-ID. SAMPDUMP.
000300
3 000400 ENVIRONMENT DIVISION.
4 000500 CONFIGURATION SECTION.
5 000600 SOURCE-COMPUTER. IBM-ISERIES.
6 000700 OBJECT-COMPUTER. IBM-ISERIES.
7 000800 INPUT-OUTPUT SECTION.
8 000900 FILE-CONTROL.
9 001000 SELECT FILE-1 ASSIGN TO DISK-DBSRC.
11 001100 DATA DIVISION.
12 001200 FILE SECTION.
13 001300 FD FILE-1.
14 001400 01 RECORD-1.
15 001500 05 R-TYPE PIC X(1).
16 001600 05 R-AREA-CODE PIC 9(2).
17 001700 88 R-NORTH-EAST VALUES 15 THROUGH 30.
18 001800 05 R-SALES-CAT-1 PIC S9(5)V9(2) COMP-3.
19 001900 05 R-SALES-CAT-2 PIC S9(5)V9(2) COMP-3.
20 002000 05 FILLER PIC X(1).
002100
21 002200 WORKING-STORAGE SECTION.
22 002300 01 W-SALES-VALUES.
23 002400 05 W-CAT-1 PIC S9(8)V9(2).
24 002500 05 W-CAT-2 PIC S9(8)V9(2).
25 002600 05 W-TOTAL PIC S9(8)V9(2).
002700
26 002800 01 W-EDIT-VALUES.
27 002900 05 FILLER PIC X(8) VALUE "TOTALS: ".
28 003000 05 W-EDIT-1 PIC Z(7)9.9(2)-.
29 003100 05 FILLER PIC X(3) VALUE SPACES.
30 003200 05 W-EDIT-2 PIC Z(7)9.9(2)-.
31 003300 05 FILLER PIC X(3) VALUE SPACES.
32 003400 05 W-EDIT-TOTAL PIC Z(7)9.9(2)-.
003500
33 003600 01 END-FLAG PIC X(1) VALUE SPACE.
34 003700 88 END-OF-INPUT VALUE "Y".
003800
35 003900 PROCEDURE DIVISION.
004000 MAIN-PROGRAM SECTION.
004100 MAINLINE.
004200****************************************************************
004300* OPEN THE INPUT FILE AND CLEAR TOTALS. *
004400****************************************************************
36 004500 OPEN INPUT FILE-1.
37 004600 MOVE ZEROS TO W-SALES-VALUES.
004700
004800****************************************************************
004900* READ THE INPUT FILE PROCESSING ONLY THOSE RECORDS FOR THE *
005000* NORTH EAST AREA. WHEN END-OF-INPUT REACHED, SET THE FLAG *
005100****************************************************************
38 005200 PERFORM UNTIL END-OF-INPUT
39 005300 READ FILE-1
40 005400 AT END SET END-OF-INPUT TO TRUE
005500 END-READ
41 005600 IF R-NORTH-EAST AND NOT END-OF-INPUT THEN
42 005700 ADD R-SALES-CAT-1 TO W-CAT-1, W-TOTAL
43 005800 ADD R-SALES-CAT-2 TO W-CAT-2, W-TOTAL
005900 END-IF
006000 END-PERFORM.
006100
006200****************************************************************
006300* DISPLAY THE RESULTS AND END THE PROGRAM. *
006400****************************************************************
44 006500 MOVE W-CAT-1 TO W-EDIT-1.
45 006600 MOVE W-CAT-2 TO W-EDIT-2.
46 006700 MOVE W-TOTAL TO W-EDIT-TOTAL.
47 006800 DISPLAY W-EDIT-VALUES.
48 006900 STOP RUN.
* * * * * ソ ー ス 仕 様 の 終 わ り * * * * *
ライブラリー 'TESTLIB ' のプログラム 'SAMPDUMP ' モジュール 'SAMPDUMP ' ステートメント番号 36 に LNR7200 例外。 ライブラリー 'TESTLIB ' のプログラム 'SAMPDUMP ' モジュール 'SAMPDUMP ' の定様式データ・ダンプ。 名前 属性 値 VALUE DB-FORMAT-NAME A CHAR(10) B "DBSRC " C "C4C2E2D9C34040404040"X D END-FLAG CHAR(1) " " "40"X R-AREA-CODE OF RECORD-1 OF FILE-1 ZONED(2 0) 0. "0000"X R-SALES-CAT-1 OF RECORD-1 OF FILE-1 PACKED(7 2) 00000.00 "00000000"X R-SALES-CAT-2 OF RECORD-1 OF FILE-1 PACKED(7 2) 0000Û.72 "0000B7A0"X RETURN-CODE BIN(2) 0000. "0000"X W-CAT-1 OF W-SALES-VALUES ZONED(10 2) 00311111.08 "F0F0F3F1F1F1F1F1F0F8"X W-CAT-2 OF W-SALES-VALUES ZONED(10 2) 00622222.16 "F0F0F6F2F2F2F2F2F1F6"X W-EDIT-TOTAL OF W-EDIT-VALUES CHAR(12) " " "404040404040404040404040"X W-EDIT-1 OF W-EDIT-VALUES CHAR(12) " " "404040404040404040404040"X W-EDIT-2 OF W-EDIT-VALUES CHAR(12) " " "404040404040404040404040"X W-TOTAL OF W-SALES-VALUES ZONED(10 2) 00933333.24 "F0F0F9F3F3F3F3F3F2F4"X E F 現行の活動ファイル: FILE-1 (DISK-DBSRC)。 ファイル FILE-1 (DISK-DBSRC) と関連した情報。 ファイルは内部ファイルである。 G ファイルに対して試みられた最終入出力操作 : READ。 H 最終ファイル状況 : '00'. I 最終拡張ファイル状況 : ' '。 J ファイルがオープンされている。 K ブロック化が有効となっている。 L ブロック化因数 : 17。 M 入出力フィードバック域。 N Number of successful PUT operations: 0.
Number of successful GET operations: 1.
Number of successful PUTGET operations: 0.
Number of other successful operations: 0.
Current data management operation: 1.
Record format: 'DBSRC '.
Device class and type: ' '.
Program device name: ' '.
Length of last record: 228.
Number of records for blocked PUT or GET: 17.
Length of all data returned: 0.
Number of blocks successfully read or written: 0.
Offset: '090'. Value: '00000000000000000001000004800004'.
Offset: '0A0'. Value: '00000000000000000001000000110000'.
Offset: '0B0'. Value: '0000'.
オープン・フィードバック域。 O
Actual file name: 'DBSRC '.
Actual library name: 'TESTLIB '.
Member name: 'SALES '.
File type: 21.
Open file count: 1.
Max record length: 0.
CCSID: 65535.
Offset: '000'. Value: 'C4C2C4C2E2D9C34040404040D9D4C9E2'.
Offset: '010'. Value: 'E3D9E840404000000000000000000000'.
Offset: '020'. Value: '00000000000000000000000000E40000'.
Offset: '030'. Value: 'E2C1D3C5E24040404040FFFFFFE00000'.
Offset: '040'. Value: '000000150000000000000000000011C1'.
Offset: '050'. Value: 'D900D5A5000000000000500000000000'.
Offset: '060'. Value: '0000000000000000000011000000EF00'.
Offset: '070'. Value: '0003E000000000000000000000000001'.
Offset: '080'. Value: '000000010200730000FFFF0000000000'.
Offset: '090'. Value: '00010001C4C1E3C1C2C1E2C540400000'.
Offset: '0A0'. Value: '00000000000000000302000E00450045'.
Offset: '0B0'. Value: '0045004500450045006F004500450045'.
Offset: '0C0'. Value: '00450BFD068E0045000D001100000001'.
Offset: '0D0'. Value: '00000000000000000000000000000000'.
Offset: '0E0'. Value: '00000000000000000000000000000000'.
Offset: '0F0'. Value: '00000000000000000000000000000000'.
Offset: '100'. Value: '00000000000000000000000000000000'.
オフセット : '110'。値 : '000000000000'。
(C) Copyright IBM Corporation 1992, 2006. All Rights Reserved.