Re: Retrieving *ACTGRP with an API...

[Marco Facchinetti <facchinetti@xxxxxxxxx>]

This is a working example:

d ritorno         s           1000                   
d len             s             10i 0                
d formato         s              8    inz('PGMI0100')
d pgmx            s             20                   
d errori          s             20                   
d pgmi            s             10                   
d gruppo          s             30                   
c     *entry        plist                            
c                   parm                    pgmi     
c                   parm                    gruppo   
c*                                                   
c                   movel     pgmi          pgmx     
c                   move      '*LIBL     '  pgmx     
c                   eval      len=%len(ritorno)      
c                   clear                   errori   
c                   call      'QCLRPGMI'             
c                   parm                    ritorno  
c                   parm                    len      
c                   parm                    formato  
c                   parm                    pgmx           

c                   parm                    errori     
c*                                              
c                   eval     
gruppo=%subst(ritorno:369:%len(gruppo))
c                   eval      *inlr=*on       
c                   return                

very simple and doesn't handle errors.

HTH
Marco
--- Vern Hamberg <vhamberg@xxxxxxxxxxxxxxxxxxxxxxxxx>
wrote:

> Luis
> 
> That information is retrieved using the Retrieve Program
> Information 
> (QCLRPGMI) API, in either format PGMI0100 or PGMI0200.
> This API gets you 
> the program attributes that is fixed, whereas QBNLPGMI
> returns data that is 
> variable in length and count. They COULD have been
> combined, I suppose, but 
> I think this is easier to program with.
> 
> Regards
> Vern
> 
> At 09:14 AM 9/6/2004, you wrote:
> >Hi,
> >
> >Is there a way to retrieve the Activation Group value of
> a RPG ILE
> >program using an API?
> >
> >I?ve been using the QBNLPGMI API for retrieving some
> compilation
> >parameters, but can?t find the one
> >related to *ACTGRP
> >
> >Thanks,
> >
> >Luis Rodríguez
> >----------------
> >   Luis Rodriguez
> 
> 
> 
> --
> This is the Midrange Systems Technical Discussion
> (MIDRANGE-L) mailing list
> To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit:
> http://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the
> archives
> at http://archive.midrange.com/midrange-l.
> 
> 



                
_______________________________
Do you Yahoo!?
Win 1 of 4,000 free domain names from Yahoo! Enter now.
http://promotions.yahoo.com/goldrush