Re:

[Gary Guthrie <GaryGuthrie@xxxxxxxx>]

Mike,

Answer a few questions about this and it will help us help you.

1. What is your release?
2. What are the from and to programs on the MCH0601?

Actually, if you could post your joblog (not a print key) actually
display it to print, it would be MOST helpful.

Gary Guthrie
REAL Solutions Technical Support
NEWS/400 Technical Editor



> "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
+---