Thanks Mike, this helps a lot.

Matt Hogstrom
m...@hogstrom.org
+1-919-656-0564
PGP Key: 0x90ECB270
Facebook <https://facebook.com/matt.hogstrom>  LinkedIn 
<https://linkedin/in/mhogstrom>  Twitter <https://twitter.com/hogstrom>

“It may be cognitive, but, it ain’t intuitive."
— Hogstrom

> On Oct 10, 2023, at 1:53 PM, Mike Shaw <techsupp...@quickref.com> wrote:
> 
> Matt,
> 
> I have Assembler code to decode the ISPF stats once you have the directory
> entry in-hand. Here is the IBM mapping macro for the ISPF stats in a
> directory entry:
> 
>         MACRO
>         ISPDSTAT ,               Macro from ISP.AISPMACS ISPF DLIB
> ISPFDIR  DSECT
> ISPVERS  DS    X                       Version
> ISPMOD   DS    X                       Modification level
> ISPFLAGS DS    X                       Flag byte
> ISPSCLM  EQU   X'80'                   Stats created by SCLM
> *        EQU   X'40'                   Reserved for ISPF
> ISPESTAT EQU   X'20'                   Extended statistics
> *        EQU   X'10'                   Reserved for ISPF
> *        EQU   X'08'                   Reserved for ISPF
> *        EQU   X'04'                   Reserved for ISPF
> *        EQU   X'02'                   Reserved for ISPF
> *        EQU   X'01'                   Reserved
> ISPMSEC  DS    X   '                   Seconds portion of Mod Time
> * see the description of the TIME DEC macro for the format of
> * ISPCDATE and ISPMDATE
> ISPCDATE DS    CL4                     Date Statistics created
> ISPMDATE DS    CL4                     Date Statistics modified
> ISPMTIME DS    CL2                     Time modified HHMM
> ISPCLINE DS    CL2                     Current number of lines
> ISPILINE DS    CL2                     Initial number of lines
> ISPMLINE DS    CL2                     Number of modified lines
> ISPUSRID DS    CL7                     Userid
> ISPBLANK DS    CL3                     Reserved for ISPF
> *                                      Next 10 bytes must not be
> *                                      referenced unless ISPESTAT is
> *                                      ON and SMDE_USRD_LEN = X'14'
>         DS    CL10                    Reserved for ISPF
> * when ISPESTAT = On and SMDE_USRD_LEN = X'28' then
>         ORG   ISPBLANK+1
> ISPECLIN DS    CL4                     Current number of lines
> ISPEILIN DS    CL4                     Initial number of lines
> ISPEMLIN DS    CL4                     Number of modified lines
>         MEND
> 
> 
> Mike Shaw
> MVS/QuickRef Support Group
> Chicago-Soft, Ltd.
> 
> On Tue, Oct 10, 2023 at 12:53 PM Matt Hogstrom <m...@hogstrom.org> wrote:
> 
>> I’m looking for a way to access ISPF statistics from Java or C outside of
>> a TSO / ISPF environment.  Does such an animal exist out there ?
>> 
>> Matt Hogstrom
>> m...@hogstrom.org
>> 
>> “It may be cognitive, but, it ain’t intuitive."
>> — Hogstrom
>> 
>> 
>> ----------------------------------------------------------------------
>> For IBM-MAIN subscribe / signoff / archive access instructions,
>> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>> 
> 
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Reply via email to