Re: Error Message MCH5003

I have a problem that is puzzling me. This procedure has worked for a
long time. And then last week it stopped working. When I debug it, I
get an error message MCH5003, which is

Message ID . . . . . . : MCH5003 Severity . . . . . . . : 40

Message type . . . . . : Escape

Date sent . . . . . . : 03/02/04 Time sent . . . . . . :
15:04:19


Message . . . . : Scalar operand contains a value that is not valid.

Cause . . . . . : The length of the invalid scalar operand is 4. The
bit offset to the invalid field is X'0018'. The operand number is 2. The

invalid data is X'40404040'.

I have no idea what this means. Here is the source code for the
procedure

/title TS990630R - Convert Character to Number /copy qrpglesrc,hspecs *%D***************************************************************
*%D 1. TS990630R: Convert Character to Number *%D *%D 2. Description *%D *%D 3. Compile Instructions *%D *%D 4. Procedure *%D *%D 5. Date User ID Description of change *%D ##Date(MDY)##User Intial Creation *%D *%D 6. Indicator Summary *%D Ind Alt Name Desciption *%D *%D 7. Procedure Interface *%D Name: TS990630R *%D *%D Parameters: *%D Name Description *%D ##VarName01##ParmDesc *%D ##VarName02##ParmDesc *%D *%D Gobals: *None *%D *%D Returns: *None *%D *%D 8. Example *%D Call TS990630R (##VarName01:##VarName02) *%D *%D******************************************************************
/EJECT HNoMain D CvtCharToNum PR N D 40 Value D 30 9 *-------- * CvtExtFrmToNum - Convert External Form to Numeric Value * Receiver variables Output * Receiver Attributes Input * Source String Input * Source String Length Input * Symbol Mast Input *-------- D CvtExtFrmToNum PR ExtProc('_CVTEFN') D * VALUE D 7 CONST D * VALUE D 10U 0 CONST D 3 CONST *----------------------------------------- * Program Status Data Structure D prgstsdtastr sds D vpgm 1 10 D verrid 11 15 0 D vstmt 21 28 D vemsg 40 46 D vcall 51 60 D vlib 81 90 D vemtxt 91 200 D vfile 201 208 D vstat 209 243 D vjob 244 253 D vuser 254 263 D vjobno 264 269 * Redefinitions for file errors D vfstat 1 35 D vferr 1 5 D vfstmt 18 25 *------ * CvtCharToNum - Convert Character to Numeric *------ PCvtCharToNum B Export D D PI N D String 40 Value D Number 30 9 *-------- * Data Definitions *-------- D RcvAttr DS D Type 1 Inz(X'03') D NbrLen 5I 0 D DecPos 3I 0 Overlay(NbrLen:1) D TotDigits 3I 0 Overlay(NbrLen:2) D digits c '0123456789' D D mask c '0123456789$,. ' D SymbolMask DS D CurSymbol 1 Inz('$') D ComSymbol 1 Inz(',') D DecPntSymbol 1 Inz('.') D *-------- * Convert Character String to Packed Numeric Format *-------- C eval nbrlen = *zeros C Eval Decpos = %DecPos(Number) C Eval TotDigits = %Len(Number) C eval number = *zero C eval string = %trim(string) C C if %check(mask : string) > *zeros C return *on C endif C C CallP CvtExtFrmToNum( C %Addr(Number) : C RcvAttr : C %Addr(String) : C %Len(%TrimR(String)) : C SymbolMask ) C Return *Off *------- * Return Error condition for any error *------- C *PSSR BegSr C C eval number = *zeros C Return *On C C EndSr PCvtCharToNum E

Can anyone tell me why I am getting a machine error?

Marvin Radding
mradding@xxxxxxxxxxxx