Re:

Hi Michael,

Some more information please.

Hpw are the six different formats defined in the RPG program. Are they
defined on the input specs or using externally defined data structures?

The message would seem to imply that the program is trying to reference
some data item that does not exist. Since this is on a READ statement (I
assume the 668 is the source statment number and you have specified
Option(*Srcstmt) on the H Spec) it imply that the program is expecting
to input a field on the read but is not finding it.

Paul Tuohy

"Schlemme, Michael C." wrote:

>
>
> SOS !!!!!
>
> This is a repost, specifically to Barbara Morris, Jon Paris, Gary
> Guthrie, Mike Cravitz, all other heavies !!
>
> Please help.
>
> Dear list,
>
> I've having a problem, and I need suggestions.  Here are the facts:
>
> 1.  CL program A (called CLA) creates a single work file (called WFx).
>
>      A.  WFx will be 1 of 6 different formats (called WF1, WF2, etc)
> based on logic in CLA.
>
> 2.  RPGLE program A (called RPGA) uses FileA as it's main file.
>      A.  FileA is, in reality, externally defined, containing 20
> fields with a length of 3155.  FileA is,
>           however, internally defined in RPGA, with a length specified
> as 3155.
>
> 3.  CLA overrides FileA to WFx LvlChk(*No) and calls RPGA.  4 of the
> possible 6 WFx's process
>      normally, but with 2 WFx's, RPGA gives me the following messages:
>
>      - Space offset X'00000F80' is outside current limit for object
> WF4
>        QTEMP     WF4.
>      - Function check. MCH0601 unmonitored by RPGA at statement
> 0000000668,
>        instruction X'0000'.
>      - Pointer or parameter error (C G D F).
>
>      The 'Pointer or parameter error' happens at the 'Read FileA'
> statement of RPGA.
>
> 4.  I've checked the obvious things (at least obvious to me).  I've
> made sure none of the WFx's
>      records formats are larger than FileA, overrides are in effect
> when the program was called, etc.
>
> Any ideas ?
>
> Thanks,
>
> Mike Schlemme
>

+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---