ソース・コードの表示
プログラム全体のソース・コードを表示するには、任意の黄色いポイント・アンド・シュート・ソース行番号またはリスト・ステートメント番号の上にカーソルを置き、Enter キーを押します。例えば、対話式レポート内のイベントから行番号 69 が選択された場合、Compiler Listing 画面の例 の画面が表示されます。図 1. Compiler Listing 画面の例
File View Services Help
───────────────────────────────────────────────────────────────────────────────
Program CICFRED Compiler Listing Line 63 Col 1 80
Command ===> ________________________________________________ Scroll ===> CSR
TRANID: FRED CICS ABEND: AEIL CICS04 2019/01/09 15:37:46
000060 Move length of MSG1 to dfhb0020
000061 Call 'DFHEI1' using by content x'04043000070000008100004000
000062 - '00f0f0f0f1f8404040' by content x'0000' by content x'0000'
000063 reference MSG1 by reference dfhb0020 end-call.
000065 ADD 1 TO COUNTER.
000066 *EXEC CICS READ FILE('NOTTHERE') RIDFLD(RID)
000067 * INTO(REC-AREA) END-EXEC.
000068 Move length of REC-AREA to dfhb0020
000069 Call 'DFHEI1' using by content x'0602f0000700008000f0f0f0f2
000070 - '404040' by content 'NOTTHERE' by reference REC-AREA by
000071 reference dfhb0020 by reference RID end-call.
000073 *EXEC CICS SEND FROM(MSG1) END-EXEC.
000074 Move length of MSG1 to dfhb0020
000075 Call 'DFHEI1' using by content x'04043000070000000100004000
000076 - '00f0f0f0f2f2404040' by content x'0000' by content x'0000'
000077 reference MSG1 by reference dfhb0020 end-call.
000079 *EXEC CICS RETURN END-EXEC.
F1=Help F3=Exit F5=RptFind F6=AddBkp F7=Up F8=Down
F10=Left F11=Right
最初に選択されたソース行番号またはステートメント番号が、強調表示されます。
ここに示されている例では、疑似アセンブラー命令の表示は抑止されていると想定しています。この抑止について詳しくは、ソース・コードの表示を参照してください。
青色で表示されている情報 (すべての行が列 1 から始まる) は、プログラム・ソース・コードに関連しています。画面の左側には、表示されているソースのソース行またはリスト・ステートメント番号が表示されます。この情報の後に、プログラム内のこの位置の実際のソース・コードが続きます。
リストにマシン・インストラクション情報を追加するには、「View」メニューの「疑似アセンブラー・インストラクションの追加」オプションを選択します (このオプションの一般的な選択方法については、アクション・バーのプルダウン・メニューを参照してください)。このオプションを選択すると、「コンパイラー・リスト」画面の例: 疑似アセンブラー命令が有効 に示されているように、Compiler Listing 画面が再フォーマットされ、プログラムのソース・コードに疑似アセンブラー命令が挿入されます。図 2. 「コンパイラー・リスト」画面の例: 疑似アセンブラー命令が有効
File View Services Help
───────────────────────────────────────────────────────────────────────────────
Program CICFRED Compiler Listing Line 316 Col 1 80
Command ===> ________________________________________________ Scroll ===> CSR
TRANID: FRED CICS ABEND: AEIL CICS04 2019/01/09 15:37:46
000003DA 1845 LR R4,R5
000003DC 8E40 0020 SRDA R4,32
000003E0 5D40 C000 D R4,0(,R12)
000003E4 4040 8008 STH R4,8(,R8)
000066 *EXEC CICS READ FILE('NOTTHERE') RIDFLD(RID)
000067 * INTO(REC-AREA) END-EXEC.
000068 Move length of REC-AREA to dfhb0020
000003E8 D201 8088 A01C MVC 136(2,R8),28(R10)
000069 Call 'DFHEI1' using by content x'0602f0000700008000f0f0f0f2
000070 - '404040' by content 'NOTTHERE' by reference REC-AREA by
000071 reference dfhb0020 by reference RID end-call.
000003EE D210 D0B8 A061 MVC 184(17,R13),97(R10)
000003F4 4130 D0B8 LA R3,184(,R13)
000003F8 5030 D0A0 ST R3,160(,R13)
000003FC D207 D0D0 A08E MVC 208(8,R13),142(R10)
00000402 4130 D0D0 LA R3,208(,R13)
00000406 5030 D0A4 ST R3,164(,R13)
F1=Help F3=Exit F5=RptFind F6=AddBkp F7=Up F8=Down
F10=Left F11=Right
緑色で表示されている情報 (すべての行が列 15 から始まる) は、マシン命令の逆アセンブルに関連しています。この情報には、属するコードの行の後に、ソース・コード情報が散在しています。
注: TEST(NONE,SYM,SEPARATE) を使用してコンパイルされた COBOL プログラムでは、ソース・コードの最終行の後にすべての疑似アセンブラー命令が配置されます。
それ以外のすべてのプログラムでは、リスト画面に疑似アセンブラー命令を追加する前に、必ず画面をスクロールして関心のあるソース行を画面の最上部に置くようにします。追加の表示行により、ソース行が現在のビューに表示されなくなる可能性があります。
この画面から疑似アセンブラー命令を除去するには、「View」メニューの「疑似アセンブラー・インストラクションの除去」オプションを選択してください。
リストの上部の情報は、コンパイラー・リストまたはサイドのソースを示しています。「コンパイラー・リスト」画面の例: 起点情報 に例を示します。例えば UP MAX コマンドを入力すると、サイド・ファイル・リストの上部にスクロールできます。図 3. 「コンパイラー・リスト」画面の例: 起点情報
File View Services Help ─────────────────────────────────────────────────────────────────────────────── Program CICFRED Compiler Listing Line 1 Col 1 80 Command ===> ________________________________________________ Scroll ===> CSR TRANID: FRED CICS ABEND: AEIL CICS04 2019/01/09 15:37:46 The listing or side file used for the following was found in DA.LISTING.COBOL(CICFRED). Source Line # 000001 ****************************************************** 000002 * TRANSACTION: FRED * 000003 * EXPECTED OUTPUT: * 000004 * 'STARTED CICFRED' FOLLOWED BY AEIL ABEND * 000005 ****************************************************** 000006 IDENTIFICATION DIVISION. 000007 PROGRAM-ID. CICFRED. 000008 ENVIRONMENT DIVISION. 000009 DATA DIVISION. 000010 WORKING-STORAGE SECTION. 000011 77 UPPER-LIMIT PIC S9(4) COMP VALUE 255. F1=Help F3=Exit F5=RptFind F6=AddBkp F7=Up F8=Down F10=Left F11=Right