setsppfp bug

[Gene_Gaunt/ReviewWorks@xxxxxxxxxxxxxxx]

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?


     H dftactgrp( *no ) bnddir( 'QC2LE' )

     D setsppfp        PR              *   extproc( 'setsppfp' )
     D   Object                        *   procptr

     D rslvsp2         PR                  extproc( '_RSLVSP2' )
     D   Object                        *   procptr
     D   Template                    34A   const

     D DataAreaSYP     S               *   procptr
     D DataArea        S               *
     D Work            S               *   inz( %addr( DataAreaSYP ))

     C                   callp     rslvsp2 ( DataAreaSYP : X'190A'  +
     C                             'MYDATA                        ' +
     C                             X'0000' )
     C                   eval      DataArea = setsppfp( DataAreaSYP )
     C                   eval      *INLR = *on


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