Hi Gadi,
an example....
SG
WHEN (&MGMTCLAS EQ TS*)
SET &STORGRP = 'SGVJTS'
---------------------------------
SC
FILTLIST FTS INCLUDE( xxxxxx.ISPF.** )
WHEN (&FTS)
DO
SET &STORCLAS = 'CRWS'
EXIT
END
WHEN (&DSTYPE EQ 'TEMP')
DO
SET &STORCLAS = 'CRWS'
EXIT
END
......ETC
-----------------------------------------
MC
FILTLIST FTS INCLUDE( xxxxxxx.ISPF.**)
WHEN (&FTS) /* */
DO /* */
SELECT /* */
WHEN (&DSN EQ &FTS00NLNL) /* CON MC TS00NLNL. */
DO /* BACKUP = 0 COPIAS */
SET &MGMTCLAS = 'TS00NLNL' /* EXPIR. = NOLIMIT*/
EXIT /* NIVEL-0 = NOLIMIT*/
END /*------------------------*/
WHEN (&DSN EQ &FTS02A5NL) /* CON MC TS02A5NL. */
DO /* BACKUP = 2 COPIAS */
SET &MGMTCLAS = 'TS02A5NL' /* EXPIR. = 150 DIAS */
EXIT /* NIVEL-0 = NOLIMIT*/
END /*------------------------*/
WHEN (&DSN EQ &FTS02A510) /* CON MC TS02A510. */
DO /* BACKUP = 2 COPIAS */
SET &MGMTCLAS = 'TS02A510' /* EXPIR. = 150 DIAS */
EXIT /* NIVEL-0 = 10 DIAS */
END /*------------------------*/
WHEN (&DSORG EQ 'PO') /* CON MC TS03NL33. */
DO /* BACKUP = 3 COPIAS */
SET &MGMTCLAS = 'TS03NL33' /* EXPIR. = NOLIMIT*/
EXIT /* NIVEL-0 = 33 DIAS */
END /*------------------------*/
WHEN (&DSN EQ &FTS0007NL) /* CON MC TS0007NL. */
DO /* BACKUP = 0 COPIAS */
SET &MGMTCLAS = 'TS0007NL' /* EXPIR. = 7 DIAS */
EXIT /* NIVEL-0 = NOLIMIT*/
END /*------------------------*/
WHEN (&DSN EQ &FTS014003) /* CON MC TS014003. */
DO /* BACKUP = 1 COPIAS */
SET &MGMTCLAS = 'TS014003' /* EXPIR. = 40 DIAS */
EXIT /* NIVEL-0 = 3 DIAS */
END /*------------------------*/
....... etc, etc....
Jordi Bornay
________________________________________
T-Systems Iberia
A Deutsche Telekom Group Company
Cloud & Infraestructure Services - Delivery Shared Infraestructure
MSY Storage & Backup Administration
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
