Object Control Level

[Chris Bipes <ChrisB@xxxxxxxxxxxxxxx>]

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

                                                                 Library 1
of 1
 Object . . . . . . . . . . . . . . . . . :   WRKACTJOB

   Library  . . . . . . . . . . . . . . . :     QSYS

 Type . . . . . . . . . . . . . . . . . . :   *CMD

 

 Source file  . . . . . . . . . . . . . . :

   Library  . . . . . . . . . . . . . . . :

 Member . . . . . . . . . . . . . . . . . :

 Attribute  . . . . . . . . . . . . . . . :

 User-defined attribute . . . . . . . . . :

 Freed  . . . . . . . . . . . . . . . . . :   NO

 Size . . . . . . . . . . . . . . . . . . :   4096

 Creation date/time . . . . . . . . . . . :   06/01/96  08:22:48

 Source file date/time  . . . . . . . . . :

 System level . . . . . . . . . . . . . . :   V3R7M0

 Compiler . . . . . . . . . . . . . . . . :

 Object control level . . . . . . . . . . :   61511517
 Changed by program . . . . . . . . . . . :   NO



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