How Do I compile these in order to use them? I am new to ILE and recently downloaded the following code. But I don’t know how to compile them (CRTRPGMOD, CRTSRVPGM, CRTBNDRPG) so that I can use it. Any help would be appreciated.
H NOMAIN
* Copy prototype for procedure getNum
D/COPY GETNUM_P
p getNum b
D getNum pi 30p 9
D string 100a const varying
D decComma 2a const options(*nopass)
D currency 1a const options(*nopass)
* defaults for optional parameters
D decPoint s 1a inz('.')
D comma s 1a inz(',')
D cursym s 1a inz(' ')
* structure for building result
D ds
D result 30s 9 inz(0)
D resChars 30a overlay(result)
* variables for gathering digit information
* pNumPart points to the area currently being gathered
* (the integer part or the decimal part)
D pNumPart s *
D numPart s 30a varying based(pNumPart)
D intPart s 30a varying inz('')
D decPart s 30a varying inz('')
* other variables
D intStart s 10i 0
D decStart s 10i 0
D sign s 1a inz('+')
D i s 10i 0
D len s 10i 0
D c s 1a
* override defaults if optional parameters were passed
C if %parms > 1
C eval decPoint = %subst(decComma : 1 : 1)
C eval comma = %subst(decComma : 2 :1)
C endif
C if %parms > 2
C eval cursym = currency
C endif
* initialization
C eval len = %len(string)
* begin reading the integer part
C eval pNumPart = %addr(intPart)
* loop through characters
C do len i
C eval c = %subst(string : i : 1)
C select
* ignore blanks, digit separator, currency symbol
C when c = comma or c = *blank or c = cursym
C iter
* decimal point: switch to reading the decimal part
C when c = decPoint
C eval pNumPart = %addr(decPart)
C iter
* sign: remember the most recent sign
C when c = '+' or c = '-'
C eval sign = c
C iter
* more signs: cr, CR, () are all negative signs
C when c = 'C' or c = 'R' or
C c = 'c' or c = 'r' or
C c = '(' or c = ')'
C eval sign = '-'
C iter
* a digit: add it to the current build area
C other
C eval numPart = numPart + c
C endsl
C enddo
* copy the digit strings into the correct positions in the
* zoned variable, using the character overlay
C eval decStart = %len(result) - %decPos(result)
C + 1
C eval intStart = decStart - %len(intPart)
C eval %subst(resChars
C : intStart
C : %len(intPart))
C = intPart
C eval %subst(resChars
C : decStart
C : %len(decPart))
C = decPart
* if the sign is negative, return a negative value
C if sign = '-'
C return - result
* otherwise, return the positive value
C else
C return result
C endif
p e
<-----* module GETNUM end here ----->
<-----* Prototype for GETNUM start here ----->
*---------------------------------------------------------
* getNum - procedure to read a number from a string
* and return a 30p 9 value
* Parameters:
* I: string - character value of number
* I:(opt) decComma - decimal point and digit separator
* I:(opt) currency - currency symbol for monetary amounts
* Returns: packed(30,9)
*
* Parameter details:
* string: the string may have
* - blanks anywhere
* - sign anywhere
* accepted signs are: + - cr CR ()
* (see examples below)
* - digit separators anywhere
* - currency symbol anywhere
* decComma: if not passed, this defaults to
* decimal point = '.'
* digit separator = ','
* currency: if not passed, defaults to ' '
*
* Examples of input and output (x means parm not passed):
*
* string | dec | sep | cursym | result
* ---------------+-----+-----+--------+------------
* 123 | x | x | x | 123
* +123 | x | x | x | 123
* 123+ | x | x | x | 123
* -123 | x | x | x | -123
* 123- | x | x | x | -123
* (123) | x | x | x | -123
* 12,3 | , | . | x | 12.3
* 12.3 | x | x | x | 12.3
* 1,234,567.3 | x | x | x | 1234567.3
* $1,234,567.3 | . | , | $ | 1234567.3
* $1.234.567,3 | , | . | $ | 1234567.3
* 123.45CR | x | x | x | -123.45
*
* Author: Barbara Morris, IBM Toronto Lab
* Date: March, 2000
*---------------------------------------------------------
D getNum pr 30p 9
D string 100a const varying
D decComma 2a const options(*nopass)
D currency 1a const options(*nopass)
<-----* test program start here ----->
* Copy prototype for procedure getNum
D/COPY GETNUM_P
D res s like(getNum)
D msg s 52a
C *entry plist
C parm p 32
C parm dc 2
C parm c 1
C select
C when %parms = 1
C eval res = getNum(p)
C when %parms = 2
C eval res = getNum(p : dc)
C when %parms = 3
C eval res = getNum(p : dc : c)
C endsl
C eval msg = '<' + %char(res) + '>'
C msg dsply
C return
<-----* test program end here----->
Software/Hardware used:
Software/Hardware used:
ASKED:
April 19, 2005 4:51 PM
UPDATED:
April 23, 2005 8:52 PM
Answer Wiki:
Hi
First off, the prototype source goes into a source member (GETNUM_P) of its own and doesn't have to be compiled, the /COPY is an instruction to the compiler to copy the source in at compilation time.
Usually copy source members go into source file QCPYSRC and the statement would be:
/COPY QCPYSRC,GETNUM_P
If the source file isn't specified then the copy source member should be in the same source file as the module it's being used in.
The module GETNUM is for a service program, so to compile using PDM use option 15 (=Create Module) or the CRTRPGMOD command if you're doing it manually.
Once the module has compiled, you create the service program using the CRTSRVPGM command. You will probably need to make sure that the EXPORT parameter is *ALL.
The module for the test program is compiled, again, using option 15 in PDM or the CRTRPGMOD command. When this has compiled, you then use the CRTPGM command to create the ILE program.
On the CRTPGM command you will need to specify the service program that you want to use, and this can be done in a variety of ways. For the test you could use:
CRTPGM PGM(LIBRARY/TESTPGM)
MODULE(LIBRARY/TESTPGM)
BNDSRVPGM(LIBRARY/SRVPGM)
A better way, especially where there is more than one module and/or service program is to use binding directories.
A binding directory is a list of modules and service programs to be bound together to make a program. For this example, I would create a binding directory with the same name as the program:
CRTBNDDIR BNDDIR(LIBRARY/TESTPGM)
And then add the modules/service program to it:
ADDBNDDIRE BNDDIR(LIBRARY/TESTPGM) OBJ((*LIBL/TESTPGM *MODULE))
ADDBNDDIRE BNDDIR(LIBRARY/TESTPGM) OBJ((*LIBL/GETNUM *SRVPGM))
You can also use the WRKBNDDIR and WRKBNDDIRE commands to work with binding directories.
Using the binding directory, the CRTPGM command would now be:
CRTPGM PGM(LIBRARY/TESTPGM)
MODULE(LIBRARY/TESTPGM)
BNDDIR(TESTPGM)
All the best
Jonathan
To see all answers submitted to the Answer Wiki: View Answer History.
thanks for the help. It’s working now with the test program. So now I want to use the GETNUM() procedure in a production program,. My pgm is an RPG (free format) standalone pgm compiled using CRTBNDRPG. Will I need to create a module for it then recompile it with CRTPGM once I insert the /copy statement and modify the source code to access the GETNUM() pgm?
thanks again
Hi
In your production program you only need the /COPY to bring in the procedure prototypes (that way the compiler knows how to link to the procedure) and a statement to run the procedure.
You compile the production program in two stages. The first is to create the module (CRTRPGMOD) and the second is to then create the ILE program (CRTPGM) at which point you have to bind in the service program.
The CRTBNDRPG effectively does a CRTRPGMOD and CRTPGM at the same time. The difference is that if you want to bind more than one module or a service program then you have to use a binding directory. Using the two stage approach gives you more flexibility.
All the best
Jonathan