RE: Number of objects in a library

Thanks for the code.  It compiles but it won't run.  Our machines are @
level 40 & 50.  Here is what I get.

 Statement/Instruction . . . . . . . . . :   /0002      
 Program . . . . . . . . . . . . . . . . :   LIBSIZE    
 Recursion level . . . . . . . . . . . . :   1          
                                                        
Object domain or hardware storage protection violation. 

I'll try the same logic in a C program using QusMaterializeContext.  Thanks
Doug for the RPG example but I no habla RPG.  
                                                        

> -----Original Message-----
> From: Gene_Gaunt/ReviewWorks@reviewworks.com
> [SMTP:Gene_Gaunt/ReviewWorks@reviewworks.com]
> Sent: Friday, August 04, 2000 8:26 AM
> To:   MI400@midrange.com
> Subject:      Re: Number of objects in a library
> 
> The fastest way to get context count is specify MATCTX receiver length 8,
> then subtract 96 from bytes needed, then divide by 32.  The number you
> observe from associated space offsets is the library count, not the
> context
> count.  The following code shows the difference.  On my machine this shows
> QSYS context count 14277 and QSYS library count 14053.  This code runs
> under 1/1000 second.  Fast enough?
> 
> DCL SYSPTR ?LIBRARY     AUTO INIT("QSYS", TYPE(CTX));
> DCL SPCPTR ?OIR         BAS(?LIBRARY) POS(H"21");
> DCL DD     RECEIVER     AUTO CHAR(128) BDRY(16);
> DCL DD     AVAILABLE    DEF(RECEIVER) POS(1) BIN(4);
> DCL DD     NEEDED       DEF(RECEIVER) POS(5) BIN(4);
> DCL DD     INSERTS      DEF(RECEIVER) POS(102) BIN(4);
> DCL DD     REMOVES      DEF(RECEIVER) POS(106) BIN(4);
> DCL SPCPTR ?RECEIVER    AUTO INIT(RECEIVER);
> DCL DD     CTX_TOTAL    AUTO BIN(4);
> DCL DD     LIB_TOTAL    AUTO BIN(4);
> 
> /* calculate number of objects in context */
> 
> CPYNV      AVAILABLE, 8;
> MATCTX     ?RECEIVER, ?LIBRARY, X"0500000000";
> SUBN       CTX_TOTAL, NEEDED, 96;
> DIV(S)     CTX_TOTAL, 32;
> 
> /* calculate number of objects in library */
> 
> SETSPPFP   ?LIBRARY, ?LIBRARY;
> CPYNV      AVAILABLE, 128;
> MATINXAT   ?RECEIVER, ?OIR;
> SUBN       LIB_TOTAL, INSERTS, REMOVES;
> 
> /* compare CTX_TOTAL with LIB_TOTAL in debugger */
> 
> BRK        "LOOK";
> PEND;
> 
> 
> +---
> | 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
+---