IBM AS/400 manual Sample Source for Debug Examples, Part 1 of 4. Source for Module DBGEX

Sample Source for Debug Examples

CRTRPGMOD MODULE(MYLIB/DBGEX) SRCFILE(MYLIB/QRPGLESRC) DB￿GVIEW(*ALL)

TEXT('Main module for Sample Debug Program')

DBGVIEW(*ALL) was chosen in order to show the different views availa

2. To create the C module using the source in Figure 107 on page 216,

CRTCMOD MODULE(MYLIB/cproc) SRCFILE(MYLIB/QCLESRC) DBGVIE￿W(*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 p
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 g However, we decided to have it run in the same activation group a 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 type￿s.
*-----------------------------------------------------------------				*
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