Re: setsppfp bug

Excerpts from mi400: 7-Jun'00 setsppfp bug ReviewWorks@reviewworks. (1557*) 

> Looks like the C function setsppfp() behaves incorrectly.  Test the 
> following ILE RPG code, substitute 'MYDATA' with the name of a data 
> area.  Debug the program and break on the *INLR=*ON line.  Look at 
> the 16 bytes in pointers 'DataArea' and 'Work'.  They hold the same 
> value.  They should not.  'DataArea' should point to an associated 
> space, while 'Work' should point into program static storage.  Am I 
> missing something here? 

I'm not RPG-literate, but I think the issue might involve the definition
of DataAreaSYP as a procedure pointer. 

> ... 
>     D DataAreaSYP     S               *   procptr 
> ... 
>      C                   eval      DataArea = setsppfp( DataAreaSYP ) 
> ... 

I did a little poking around, and the documentation I found doesn't
address the case where the source pointer to SETSPPFP is a procedure
pointer.  I might've even expected an exception to be signalled, based
on what I could find.  

Just a guess... 

-blair 
+---
| This is the MI Programmers Mailing List!
| To submit a new message, send your mail to MI400@midrange.com.
| To subscribe to this list send email to MI400-SUB@midrange.com.
| To unsubscribe from this list send email to MI400-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: dr2@cssas400.com
+---