Re: setsppfp bug

We experienced the same problem and ... went back to the good old MI
Jean-Michel Penasse
EXPERIA Europe
jmpenasse@experia.com
www.experia.com
_____________________________________________
----- Original Message -----
From: <Gene_Gaunt/ReviewWorks@reviewworks.com>
To: <MI400@midrange.com>
Sent: Wednesday, June 07, 2000 7:25 PM
Subject: setsppfp bug


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

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