Re: Object Control Level

["Simon Coulter" <shc@xxxxxxxxxxxxxxxxx>]

Œ
Hello Chris,

You can generate an outfile with this data by using DSPOBJD DETAIL(*SERVICE) 
but you probably 
want to use the APIs.

QUSROBJD using format OBJD0300 will retrieve the object level information.

QLICOBJD specifying key 4 and any 8-byte value you like will allow you to set 
the object 
level.

The APIs are documented in the SPIR.  The softcopy CD has them in the Object 
API section in 
the Systems Programming Support bookshelf.

Again, my mantra strikes:  RTFM :)

Regards,
Simon Coulter.

«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»
«» FlyByNight Software         AS/400 Technical Specialists       «»
«» Eclipse the competition - run your business on an IBM AS/400.  «»
«»                                                                «»
«» Phone: +61 3 9419 0175      Mobile: +61 0411 091 400           «»
«» Fax:   +61 3 9419 0175      mailto: shc@flybynight.com.au      «»
«»                                                                «»
«» Windoze should not be open at Warp speed.                      «»
«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»
//--- forwarded letter -------------------------------------------------------
> X-Mailer: Internet Mail Service (5.5.2448.0)
> Date: Thu, 22 Jul 99 10:06:38 -0700
> From: "Chris Bipes" <ChrisB@cross-check.com>
> To: "'Midrange Mailing List' (E-mail)" <MIDRANGE-L@midrange.com>
> Reply-To: MIDRANGE-L@midrange.com
> Subject: Object Control Level

> 
> Does anyone know how to access the object control level?  You can find it on
> the dspobjd option 8 screen as follows:
>                       Display Object Description - Service
> 
> ------- Stuff deleted -------------------------------------
> 
> It seems to be set by IBM on their objects but I would like to be able to
> set this value when a file is modified and re-compiled.  I would also like
> to retrieve it with the trigger.  This can help with identifying the version
> of the file or other objects.
> 
> Christopher K. Bipes          mailto:ChrisB@Cross-Check.com
> Sr. Programmer/Analyst                mailto:Chris_Bipes@Yahoo.com
> CrossCheck, Inc.              http://www.cross-check.com
> 6119 State Farm Drive         Phone: 707 586-0551 x 1102
> Rohnert Park  CA  94928       Fax: 707 586-1884


+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---