vsam-admin

VSAM-ADMIN
VSAM data set organisation
© fair software associates — die faire Alternative für Systemsoftware

Agenda
• Features
• Differenciation between CA-Faver and VSAM-
Admin
© fair software associates — die faire Alternative für Systemsoftware

Features
• Export of VSAM clusters
• Restore of VSAM clusters
• Compare cluster to the exported flat file
• Cluster optimization during restore
• Utilities
© fair software associates — die faire Alternative für Systemsoftware

Export
• Support of all Faver export methods
– Catalog
– Storage Group
– Volume
– Cluster
© fair software associates — die faire Alternative für Systemsoftware

Export Optionen
• AIX/NOAIX
• CAT
• DATA/NODATA
• ESTOP
• FVROUT
• RECALL/NORECALL
• RECLEVEL/CILEVEL
• EXO/NOEXO (with small restrictions)
© fair software associates — die faire Alternative für Systemsoftware

Not supported options
• ABR/NOABR (obsolet)
• Cache
• Disp (in progress)
• MERGIN
• MOUNT
• Shareoptions
• VSAMAID (supports CA-VSAMAID)
© fair software associates — die faire Alternative für Systemsoftware

RESTORE
• ADDHLQ
• BIXLIST
• BUFND
• BUFNI
• BUFSP
• BYPASS ACS
• ESTOP
• FVRIN
• NODATA
• NODELETE/DELETE
• NOSCRATCH/
SCRATCH
• NOXTC
• PURGE/NOPURGE
• REMP/NOREMP
• STARTNAME
© fair software associates — die faire Alternative für Systemsoftware

Not supported
• DISP
• FAVER2
• PRIME/NOPRIME (obsolete)
• RVER
• VSAMAID/NOVSAMAID
• XTNDCHK
© fair software associates — die faire Alternative für Systemsoftware

Additional functions
• Build Index
• Path
• Compare
• COPY
• MAP
All descripted functions are congruent to Faver
© fair software associates — die faire Alternative für Systemsoftware

Differences
• Different program names
– GVEXPORT -> VAEXPORT
– GVRESTOR -> VARESTOR
– GV… -> VA…
• An additional DD Stmt is requested (SYSRPT)
• SYSPRINT does not support SYSOUT=*, due
to internal usage
© fair software associates — die faire Alternative für Systemsoftware

JCL Examples
//EXPOCLUS EXEC PGM=VAEXPORT
//STEPLIB DD DISP=SHR,DSN=EGITS1.AAA.LINKLIB
//MCDS DD DSN=DFHSM.MCDS,DISP=SHR
//VAMOUT0 DD DISP=(,CATLG),DSN=ZS08.VSAMADM.TEST99,
// UNIT=VSMA,VOL=(,,,255)
//SYSPRINT DD UNIT=VIO,SPACE=(CYL,100)
//SYSOUT DD SYSOUT=*
//SYSRPT DD SYSOUT=*
//SYSIN DD *
EXPORT
CL=EGITS3.AAA.B99000.SPISYS
//*
© fair software associates — die faire Alternative für Systemsoftware

EXPOVSAM EXEC PGM=VAEXPORT
//STEPLIB DD DISP=SHR,DSN=EGITS1.AAA.LINKLIB
//MCDS DD DSN=DFHSM.MCDS,DISP=SHR
//VAMCAT DD DSN=SYS3.ICEGITS,DISP=SHR
//VAMOUT0 DD DISP=(,CATLG),DSN=ZS08.VSAMADM.TEST02,
// UNIT=VSMA,VOL=(,,,255)
//SYSPRINT DD UNIT=VIO,SPACE=(CYL,100)
//SYSOUT DD SYSOUT=*
//SYSRPT DD SYSOUT=*
//SYSIN DD *
EXPORT
CATALOG
CAT=VAMCAT
//*
//EXPOFAV EXEC PGM=GVEXPORT,REGION=8M
//SYSPRINT DD SYSOUT=*
//MCDS DD DISP=SHR,DSN=DFHSM.MCDS
//FAVCAT DD DSN=SYS3.ICEGITS,DISP=SHR
//SNAPDD DD SYSOUT=*
//SYSUDUMP DD SYSOUT=Z
//*ACAT DD DISP=SHR,DSN=SYS3.ICEGITS
//TAPE0 DD DSN=ZS08.FAVER.TEST02,
// UNIT=VSMA,VOL=(,,,255),
// DISP=(,CATLG)
//SYSIN DD *
EXPORT CAT=FAVCAT
© fair software associates — die faire Alternative für Systemsoftware

EXPORT Storage Group
//EXPOVSAM EXEC PGM=VAEXPORT
//STEPLIB DD DISP=SHR,DSN=EGITS1.AAA.LINKLIB
//MCDS DD DSN=DFHSM.MCDS,DISP=SHR
//VAMCAT DD DSN=SYS3.ICEGITS,DISP=SHR
//VAMOUT0 DD DISP=(,CATLG),DSN=ZS08.VSAMADM.TEST03,
// UNIT=VSMA,VOL=(,,,255)
//SYSPRINT DD UNIT=VIO,SPACE=(CYL,100)
//SYSOUT DD SYSOUT=*
//SYSRPT DD SYSOUT=*
//SYSIN DD *
EXPORT
STGROUP=SGEGITS3
© fair software associates — die faire Alternative für Systemsoftware

Export Volume
//EXPOVSAM EXEC PGM=VAEXPORT
//STEPLIB DD DISP=SHR,DSN=EGITS1.AAA.LINKLIB
//MCDS DD DSN=DFHSM.MCDS,DISP=SHR
//VAMCAT DD DSN=SYS3.ICEGITS,DISP=SHR
//VAMOUT0 DD DISP=(,CATLG),DSN=ZS08.VSAMADM.TEST04,
// UNIT=VSMA,VOL=(,,,255)
//SYSPRINT DD UNIT=VIO,SPACE=(CYL,100)
//SYSOUT DD SYSOUT=*
//SYSRPT DD SYSOUT=*
//SYSIN DD *
EXPORT
VOLUME=TSO301,TSO302
© fair software associates — die faire Alternative für Systemsoftware

EXPORT CAT with RECALL
//EXPOVSAM EXEC PGM=VAEXPORT
//STEPLIB DD DISP=SHR,DSN=EGITS1.AAA.LINKLIB
//MCDS DD DSN=DFHSM.MCDS,DISP=SHR
//VAMCAT DD DSN=SYS3.ICEGITS,DISP=SHR
//VAMOUT0 DD DISP=(,CATLG),DSN=ZS08.VSAMADM.TEST06,
// UNIT=VSMA,VOL=(,,,255)
//SYSPRINT DD UNIT=VIO,SPACE=(CYL,100)
//SYSOUT DD SYSOUT=*
//SYSRPT DD SYSOUT=*
//SYSIN DD *
EXPORT RECALL CAT=VAMCAT
CATALOG
© fair software associates — die faire Alternative für Systemsoftware

Simple Restore
//RESTORE EXEC PGM=GVRESTOR,REGION=4096K
//SYSPRINT DD SYSOUT=*
//SNAPDD DD SYSOUT=*
//SYSUDUMP DD SYSOUT=Z
//TAPE0 DD DISP=SHR,DSN=ZS08.FAVER.TEST01
//SYSIN DD *
RESTORE
CLUSTER
CL=++
© fair software associates — die faire Alternative für Systemsoftware

Restore with rename
//RESTORE EXEC PGM=VARESTOR
//STEPLIB DD DISP=SHR,DSN=EGITS1.AAA.LINKLIB
//VAMIN DD DISP=SHR,DSN=ZS08.VSAMADM.TEST02
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
RESTORE BYPASS ACS
CL=EGITS2.++ *AMS -
CL(NAME(EGITS3.+)) -
DATA(NAME(EGITS3.+)) -
INDEX(NAME(EGITS3.+))
© fair software associates — die faire Alternative für Systemsoftware

Restore with Rename Faver
//RESTORE EXEC PGM=GVRESTOR,REGION=4096K
//SYSPRINT DD SYSOUT=*
//SNAPDD DD SYSOUT=*
//SYSUDUMP DD SYSOUT=Z
//TAPE0 DD DISP=SHR,DSN=ZS08.FAVER.TEST02
//SYSIN DD *
RESTORE BYPASS ACS
CL=EGITS2.++ *AMS -
CL(NAME(EGITS3.+)) -
DATA(NAME(EGITS3.+)) -
INDEX(NAME(EGITS3.+))
© fair software associates — die faire Alternative für Systemsoftware

Joboutput VSAM-Admin
-------------------- 27-NOV-2005 09:01:32 9494046
VAEXPORT FA VSAM ADMIN RELEASE 1.0.0 PAGE
003
EXPORT PROCESSING 27-NOV-2005.331
09:01:32
CATALOG - SYS3.ICONL101
OBJECT NAME TYPE DATE TIME COUNTS
-------------------------------------------- ---- --------- -------- ---------
PONL1.UNITEXT.REL31.ADTE ------------------ KSDS 27-NOV-2005 09:01:32 RECS
-------------------- 27-NOV-2005 09:01:32 8827792
PONL1.UNITEXT.REL31.ADTF ------------------ KSDS 27-NOV-2005 09:01:32 RECS
-------------------- 27-NOV-2005 09:01:32 7929359
PONL1.UNITEXT.REL31.ADTG ------------------ KSDS 27-NOV-2005 09:01:32 RECS
-------------------- 27-NOV-2005 09:01:32 1
VA131 DDNAME=VAMOUT0, EXPORT COMPLETE TO DSN=PTLMS.AAS.S70200.UNITEXT.VA.G0001V00
19 OBJECTS SUCCESSFULLY PROCESSED
0 UNSUCCESSFUL
******** END OF JOB
© fair software associates — die faire Alternative für Systemsoftware

Joboutput FAVER
GVEXPORT BrightStor CA-FAVER VSAM Data Protection
CA-FAVER Export Processing
CATALOG - SYS3.ICONL101
OBJECT NAME TYPE DATE TIME COUNTS
-------------------------------------------- ---- --------- -------- ---------
PONL1.UNITEXT.REL31.ZHD ------------------- KSDS 02-DEC-05 01:23:23 RECS
------------------- 02-DEC-05 01:23:25 27371
PONL1.UNITEXT.REL31.ZKB ------------------- KSDS 02-DEC-05 01:23:25 RECS
------------------- 02-DEC-05 01:24:56 34109
PONL1.UNITEXT.REL31.ZSI ------------------- KSDS 02-DEC-05 01:24:56 RECS
------------------- 02-DEC-05 01:24:57 3600
PONL1.UNITEXT.REL31.ZSU ------------------- KSDS 02-DEC-05 01:24:57 RECS
------------------- 02-DEC-05 01:24:57 102625
PONL1.UNITEXT.REL31.ZTS ------------------- KSDS 02-DEC-05 01:24:57 RECS
------------------- 02-DEC-05 01:24:57 120
GV131 DDNAME=FVROUT0, EXPORT COMPLETE TO DSN=PTLMS.AAS.S70000.UNITEXT.G3677V00
53 OBJECTS SUCCESSFULLY PROCESSED
0 UNSUCCESSFUL
********** END OF JOB
ENDE DER LISTE --------------------------------------------
© fair software associates — die faire Alternative für Systemsoftware

Elapsed times
VSAMADM
Elapsed
Faver
Elapsed
A40001
00:21
VA0001
00:25
A4700040
00:13
VA700040
00:17
A4700044
00:55
VA700044
01:25
© fair software associates — die faire Alternative für Systemsoftware

Kontakt
Helvetia Versicherung
Stephan Flindt
Tel. 069/1332-469
E-Mail: Stephan.Flindt@Helvetia.de
© fair software associates — die faire Alternative für Systemsoftware