IBM AS/400 manual Creating a Module Object, Copy Transp, Part 1 of 3. Source for TRANSSVC member

Creating a Module Object

You bind a module containing NOMAIN to another module using one of th following commands:

a. CRTPGM command

b. CRTSRVPGM command

c. CRTBNDRPG command where the NOMAIN module is included in a binding directory.

2.	Once	it	is bound, this module object can be debugged				using a st
A	compiler		listing		for the module is also produced.
3.	Type	one	of	the	following CL commands to see the compiler		listing.
	¹ DSPJOB		and	then	select optionDisplay4 spooled(	) files

¹WRKJOB

¹WRKOUTQ queue-name

¹WRKSPLF

*=================================================================*

*MODULE NAME: TRANSSVC (Transaction Services)

*RELATED FILES: N/A

*RELATED SOURCE: TRANSRPT

*EXPORTED PROCEDURES: Trans_Inc -- calculates the income

*for the transaction using the data in the fields in the

*parameter list. It returns to the caller after all

*the calculations are done.

*

* Prod_Name -- retrieves the product name based on the

*input parameter with the product number. *=================================================================*

*This module contains only subprocedures; it is a NOMAIN m￿odule.

H NOMAIN *------------------------------------------------------------------

*Pull in the prototypes from the /COPY member

*------------------------------------------------------------------

/COPY TRANSP

Figure 36 (Part 1 of 3). Source for TRANSSVC member

76 ILE RPG for AS/400 Programmer's Guide