Re: Ooops, how do I release static memory?

Umm.. never mind.  It works as it's supposed to.

That's what happens when you hard code some test data into a
RPG program and forget.  I kept passing my test RPG program
parameters changing the username and system name, but the RPG
program was simply ignoring them.

*blush*

Regards,

Jim Langston

Jim Langston wrote:
> 
> I created my own module that I had to use static memory for, because
> I re-enter it and get the next record (from a table, not a file).  It
> worked fine, the first time.  But now it *always* returns the same
> data no matter what parameters I send to it.  I *thought* the activation
> group was *caller*, so I even logged off and back on and it still returned
> the same data.
> 
> How do I modify this program to release the static variables?
> 
> I snipped out some external call prototypes as I didn't think they had 
>anything
> to do with this bug and to reduce posting size.
> 
> Regards,
> 
> Jim Langston
> 
> //COPY QMODSRC,SYSTEMPR
> 
>  *************************************************
>  *** RtvNetF - Retrieve Net File List for User ***
>  *************************************************
> 
> P RtvNetF         B                   Export
> 
>  *** Prototype for RtvNetF Function ***
> D RtvNetF         PI            31A
> D  UserID                        8A   Const
> D  Address                       8A   Const
> D  CallType                      1A   Const
> 
> ...
> 
> D Data            DS                  Static
> D   NetType                      1A   Inz( *Loval )
> D   NetFile                     10A   Inz( *Loval )
> D   NetLib                      10A   Inz( *Loval )
> D   NetNumber                   10U 0 Inz( 0 )
> D                               95A   Inz( *Loval )
> D   ReturnData            1     31A
> 
> D Options         DS                  Static
> D   Rule                         5U 0 Inz( 2 )
> D   Length                       5U 0 Inz( 25 )
> D   Offset                       5U 0 Inz( 0 )
> D   Occurence                    5U 0 Inz( 1 )
> D   Count                        5U 0 Inz( 0 )
> D                                4A
> 
> D Lib             S               *   Static
> D Idx             S               *   Static
> 
>  *** If CallType is 'F' retrieve the User's network file list ***
> C                   If        CallType = 'F' Or CallType = 'f'
> 
> C                   CallP     RSLVSP2( Lib : X'0401' +
> C                             'QUSRSYS                       ' + X'0000' )
> 
> C                   CallP     RSLVSP4( Idx : X'0ED1' + UserId + Address +
> C                             '              ' + X'0000' : Lib )
> 
> C                   EndIf
> 
>  *** If we are not 'C'losing, retrieve the next record ***
> C                   If        NOT (CallType = 'C' Or CallType = 'c')
> C                   CallP     FNDINXEN( %Addr( Data ) : Idx :
> C                                       %Addr( Options ) : %Addr( Data ))
> 
> C                   EndIf
> 
>  *** If we are 'C'losing, or have hit the end of the list, close the program 
>***
> C                   If        CallType = 'C' Or CallType = 'c' Or
> C                             Count = 0
> C                   Eval      ReturnData = *Blanks
> C                   Eval      *INLR = *on
> C                   EndIf
> 
> C                   Return    ReturnData
> 
> P RtvNetF         E
+---
| 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
+---