Re: Recursive CL - Data decimal error

Yes. I did the following.
____________________________

call ut851cfd (x'000000035F' '1')

Now the job is submitted on
hold:


______________________________________


                                Display Job
Log
                                                              System:
PRINCESS
  Job . . :   FRANTEST      User . . :   FRAN          Number . . .
:   311697

   .. CALL PGM(UT851CFD) PARM(35
'1')
    ______________________________________
Released the
job

_________________________________________
    Waiting for reply to message on message queue QSYSOPR.
_________________________________________
                        Additional Message Information

Message ID . . . . . . :   CPA0702
Date sent  . . . . . . :   10/23/01      Time sent  . . . . . . :   12:15:57

Message . . . . :   MCH1202 received by procedure UT851CFD. (C D I R)

Cause . . . . . :   ILE Control language (CL) procedure UT851CFD in module
   UT851CFD in program UT851CFD in library FRAN detected an error at statement
   number 0000002417.  Message text for MCH1202 is: Decimal data error.  Use
   F10 (if available) or the Display Job Log (DSPJOBLOG) command to see the
   messages in the job log for a more complete description of what caused the
   error.  If you still are unable to solve the problem, please contact your
   technical support person.
____________________________________________________
0024.09
0024.17              CHGVAR     VAR(&PJIDCHAR) VALUE(&PJID)
______________

At 04:56 PM 10/23/2001 +0100, you wrote:

>Fran,
>      What errors are you getting when the submitted CL runs - MCH1202 ?
>Fiona
>
>_______________________________________________
>This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
>To post a message email: MIDRANGE-L@midrange.com
>To subscribe, unsubscribe, or change list options,
>visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l
>or email: MIDRANGE-L-request@midrange.com
>Before posting, please take a moment to review the archives
>at http://archive.midrange.com/midrange-l.