> On Feb 9, 2017, at 8:00 AM, Elardus Engelbrecht > <[email protected]> wrote: > > Lizette Koehler wrote: > >> This is documented in the SAMPLIB (I am not at work so I think this is where >> it is) for HSM. ARC member name prefix name. > > Ah, this is it! I found it in ARCSTRST member, part COMPRESS. Thanks Lizette! > I never used that little gem when I was a HSM admin. > > And the best is - EXAMINE after a LISTC command, then EXPORT, then IMPORT. > > And my caution about stopping HSM is still valid: > > NOTE: BEFORE RUNNING THIS JOB, YOU MUST SHUT DOWN ALL > ALL INSTANCES OF DFSMSHSM THAT SHARE THE CDS'S. > > > To Esmie, I see there are NO LRECL and BLKSIZE in this snippet. Seemed you > can just let IDCAMS figure it out for you. > > //ALLOCATE EXEC PGM=IEFBR14 > //EXPMCDS DD DSN=?UID.EXPORT.MCDS,DISP=(,CATLG), > // UNIT=SYSDA,SPACE=(CYL,(20,2)) > //EXPBCDS DD DSN=?UID.EXPORT.BCDS,DISP=(,CATLG), > // UNIT=SYSDA,SPACE=(CYL,(20,2)) > //EXPOCDS DD DSN=?UID.EXPORT.OCDS,DISP=(,CATLG), > // UNIT=SYSDA,SPACE=(CYL,(20,2)) > //* > //IDCAMS EXEC PGM=IDCAMS,REGION=512K > //MCDS DD DSN=?UID.MCDS,DISP=OLD > //BCDS DD DSN=?UID.BCDS,DISP=OLD > //OCDS DD DSN=?UID.OCDS,DISP=OLD > //SYSPRINT DD SYSOUT=* > //SYSIN DD * > LISTCAT ENT(?UID.MCDS ?UID.BCDS ?UID.OCDS) ALL > EXAMINE NAME(?UID.MCDS) INDEXTEST > IF LASTCC = 0 THEN - > EXPORT ?UID.MCDS ODS(?UID.EXPORT.MCDS) TEMPORARY > IF LASTCC = 0 THEN - > IMPORT IDS(?UID.EXPORT.MCDS) ODS(?UID.MCDS.?NEW) - > OBJECTS - > ———————————SNIP——————————————
The last time I was doing this was 20 or so years ago. What I added to the jcl were AMP=“bufno=10” and a few other parameters this cut a LOT of time off of re-orgs Its been a while but I cut down re-org time by more than 50 percent. I no long have the JCL so go in and look at the AMP options . Ed ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
