Rob Scott wrote:
Steve,
Like you I thought that this was documented somewhere - but I could not find it
either.
However, from Doug Nadel's website the following REXX procedure declares the
format :
decodestats: Procedure /* decode the directory */
direntry=Arg(1)
Parse Var direntry,
vv 2 mm 3 flags 4 ss 5 crecc 6 crdate 9 modcc 10 moddate 13 hh,
14 tm 15 lines 17 init 19 mod 21 userid 28 .
Parse Value c2x(crdate) with cyy 3 cjjj 6 .
Parse Value c2x(moddate) with myy 3 mjjj 6 .
out=leftd(vv)'.'leftd(mm) /* Vv.Mm */
out=out 19+c2x(crecc)cyy'.'cjjj /* Create date */
out=out 19+c2x(modcc)myy'.'mjjj /* Mod date */
Hmmmm. It's 2008. Do you think ISPF is Y2K compliant yet?
out=out leftx(hh)':'leftx(tm)':'leftx(ss) /* mod time */
out=out right(c2d(lines),5) /* Lines */
out=out right(c2d(init),5) /* Initial lines */
out=out right(c2d(mod),5) /* Mod lines */
out=out userid /* User id */
If bitand(flags,'80'x) = '80'x Then
out=out '(SCLM)' /* Saved by SCLM */
Return out
Kind regards,
-Steve Comstock
The Trainer's Friend, Inc.
303-393-8716
http://www.trainersfriend.com
z/OS Application development made easier
* Our classes include
+ How things work
+ Programming examples with realistic applications
+ Starter / skeleton code
+ Complete working programs
+ Useful utilities and subroutines
+ Tips and techniques
==> Check out the Trainer's Friend Store to purchase z/OS <==
==> application developer toolkits. Sample code in four <==
==> programming languages, JCL to Assemble or compile, <==
==> bind and test. <==
==> http://www.trainersfriend.com/TTFStore/index.html <==
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
