Page 1 of 1

Refresh Changed Information

PostPosted: Tue Jun 02, 2009 7:10 pm
by graydsl
Hello,

I have a problem after uploading Members into a PDS. All "meta-information" is lost... Created-/Changed-Date Size ID etc. Is there a way to refresh or regenerate him? If I manually change the file with the ISPF editor, the information is written to the file. But if I'm trying to edit it with TSO ("ALLOC... EXECIO..." etc.) it doesn't work. Here is a screenshot which shows the broken members:

Image

I hope you can help me! Thanks!

Re: Refresh Changed Information

PostPosted: Tue Jun 02, 2009 7:21 pm
by MrSpock
My only thought at this point is if you're working with a PDS, and you're interested in maintaining proper ISPF statistics for the members, then you should probably stick to using ISPF services and/or EDIT macros for all of your processes.

I always try to stick to this rule "when working with a PDS, use ISPF to properly manage it".

Re: Refresh Changed Information

PostPosted: Tue Jun 02, 2009 7:32 pm
by graydsl
It will be sufficient to set the dates manually after the upload. Thank God i found another thread here in the forum where LMMSTATS is suggested to set member stats. I will try it, but I think that will be the solution. :mrgreen:

Re: Refresh Changed Information

PostPosted: Tue Jun 02, 2009 8:10 pm
by graydsl
Hm... I don't know why my code doesn't work! I tried some variations of qualifiers for the DATASET parameter, but that's not working. Hopefully someone finds the bug.

REXX-Code:
000001 /* REXX */                                                         
000002 TRACE 'A'                                                           
000003 ADDRESS ISPEXEC "LMINIT DATAID(DID) DATASET(T1.SPUFI)"             
000004 say did                                                             
000005 ADDRESS ISPEXEC "LMMSTATS DATAID("did") MEMBER(ELFE2) USER(X1M6979)"
000006 ADDRESS ISPEXEC "LMFREE DATAID("did")"                             


OUTPUT:
     3 *-* ADDRESS ISPEXEC "LMINIT DATAID(DID) DATASET(T1.SPUFI)"             
       >>>   "LMINIT DATAID(DID) DATASET(T1.SPUFI)"                           
       +++ RC(-3) +++                                                         
     4 *-* say did                                                             
DID                                                                           
     5 *-* ADDRESS ISPEXEC "LMMSTATS DATAID("did") MEMBER(ELFE2) USER(X1M6979)"
       >>>   "LMMSTATS DATAID(DID) MEMBER(ELFE2) USER(X1M6979)"               
       +++ RC(-3) +++                                                         
     6 *-* ADDRESS ISPEXEC "LMFREE DATAID("did")"                             
       >>>   "LMFREE DATAID(DID)"                                             
       +++ RC(-3) +++                                                         
READY                                                                         
END                                                                           

Re: Refresh Changed Information

PostPosted: Wed Jun 03, 2009 3:18 pm
by graydsl
MWHAHAHAHAAH!!! IT WORKS! FINALLY! :mrgreen:

I didn't use ISPSTART in the JCL! :)

Re: Refresh Changed Information

PostPosted: Thu Jun 04, 2009 1:16 am
by dick scherrer
Good to hear it is working - thanks for keeping us updated :)

d