Re: %Scan and %Replace Multiple Hex Values, a bit different requirement

I'm feeling a bit dense today, it must be the weather...

I've searched the archives but cannot find an answer to what I want to do.
It is similar to the above topic.

I'm trying to use the prototypes referred to in the earlier post. Here is
my test code. The second callp results in the following errors. I've tried
setting the third parm to both 7 and 14. What am I doing wrong?

A domain error in a math function occurred.
Function check. C2M3001 unmonitored by A at statement 0000002100,
instruction X'0000'.
The call to cvtch ended in error (C G D F).

1 H/Copy Qrpglesrc,OIRHSPEC
2 //?+++++++++++++++++ M A I N L I N E C A L C S
+++++++++++++++++
3
4 D MERC_MI_Hex S 20 INZ(x'4D4552435F4D49')

5 D MERC_MI S 20 INZ('MERC_MI')
6 D ToHexRtnVal S 65534A
7 D FrHexRtnVal S 32767A
8
9 0002 D ToHex PR EXTPROC('cvthc')
10 0003 D szHexVal 65534A OPTIONS(*VARSIZE)

11 0004 D szCharVal 32767A Const
OPTIONS(*VARSIZE)
12 0005 D nSrcLen 10I 0 VALUE
13
14 0006 D FromHex PR EXTPROC('cvtch')
15 0007 D szCharVal 32767A OPTIONS(*VARSIZE)

16 0008 D szHexVal 65534A Const
OPTIONS(*VARSIZE)
17 0009 D nSrcLen 10I 0 VALUE
18
19 C CALLP ToHex(ToHexRtnVal : MERC_MI :
7)
20
21 C CALLP FromHex(FrHexRtnVal :
MERC_MI_Hex : 7)
22
23 C Eval *INLR = *On

Regards, Jerry

Gerald Kern - MIS Project Leader
Lotus Notes/Domino Administrator
IBM Certified RPG IV Developer
The Toledo Clinic, Inc.
4235 Secor Road
Toledo, OH 43623-4299
Phone 419-479-5535
gkern@xxxxxxxxxxxxxxxx


This e-mail message, including any attachments, is for the sole use of the
intended recipient(s) and may contain confidential and privileged
information. Any unauthorized use, disclosure or distribution is
prohibited. If you are not the intended recipient, please inform the
sender by reply e-mail and destroy this and all copies of this message.