Filter
Top Products
Sample Source for Debug Examples
CRTRPGMOD MODULE(MYLIB/DBGEX) SRCFILE(MYLIB/QRPGLESRC) DBGVIEW(*ALL)
TEXT('Main module for Sample Debug Program')
DBGVIEW(*ALL) was chosen in order to show the different views available.
2. To create the C module using the source in Figure 107 on page 216, type:
CRTCMOD MODULE(MYLIB/cproc) SRCFILE(MYLIB/QCLESRC) DBGVIEW(*SOURCE)
TEXT('C procedure for Sample Debug Program')
3. To create the program DEBUGEX, type:
CRTPGM PGM(MYLIB/DEBUGEX) MODULE(MYLIB/DBGEX MYLIB/CPROC)
TEXT('Sample Debug Program')
The first module DBGEX is the entry module for this program. The program will
run in a new activation group (that is, *NEW) when it is called.
4. To create the called RPG program using the source in Figure 106 on
page 215, type:
CRTBNDRPG PGM(MYLIB/RPGPGM) DFTACTGRP(*NO)
DBGVIEW(*SOURCE) ACTGRP(*NEW)
TEXT('RPG program for Sample Debug Program')
We could have created RPGPGM to run in the OPM default activation group.
However, we decided to have it run in the same activation group as
DEBUGEX, and since DEBUGEX needs only a temporary activation group,
*NEW was chosen for both programs.
| *=================================================================*
| * DEBUGEX - Program designed to illustrate use of ILE source
| * debugger with ILE RPG source. Provides a
| * sample of different data types and data structures.
| *
| * Can also be used to produce sample formatted dumps.
| *=================================================================*
| *-----------------------------------------------------------------*
| * The DEBUG keyword enables the formatted dump facility.
| *-----------------------------------------------------------------*
| H DEBUG
| *-----------------------------------------------------------------*
| * Define standalone fields for different ILE RPG data types.
| *-----------------------------------------------------------------*
| D String S 6A INZ('ABCDEF')
| D Packed1D0 S 5P 2 INZ(-93.4)
| D ZonedD3D2 S 3S 2 INZ(-3.21)
| D Bin4D3 S 4B 3 INZ(-4.321)
| D Bin9D7 S 9B 7 INZ(98.7654321)
| D DBCSString S 3G INZ(G'"BBCCDD"')
| D UCS2String S 5C INZ(%UCS2('ucs-2'))
| D CharVarying S 5A INZ('abc') VARYING
| D Int3 S 3I 0 INZ(-128)
| D Int5 S 5I 0 INZ(-2046)
| D Int10 S 10I 0 INZ(-31904)
| D Int20 S 20I 0 INZ(-463972)
| D Unsigned3 S 3U 0 INZ(128)
| D Unsigned5 S 5U 0 INZ(2046)
| D Unsigned10 S 10U 0 INZ(31904)
| D Unsigned20 S 20U 0 INZ(463972)
| D Float4 S 4f INZ(7.2098)
| D Float8 S 8f INZ(-129.0978652)
| D DBCSString S 3G INZ(G'"BBCCDD"')
Figure 105 (Part 1 of 4). Source for Module DBGEX
212 ILE RPG for AS/400 Programmer's Guide