Creating a RC/Migrator for Db2 for z/OS (RCM) migration strategy using Fast Unload for Db2 for z/OS (PFU) to unload data to tape and a
retention period is required. How and where is the retention period defined.
A retention period (RETPD) specifies how many days the tape on which the dataset resides should be retained. The value can be a number from 0 to 999.
The RETPD parameter is a parameter defined within the LABEL symbol of the FUNLD utility within the Utility Model Services(Option 6 on the PROFILE)
that was used in the migration strategy (for example, @DEFAULT).
The model can be updated by specifying "U" next to the model name. Then enter the "S" CMD next to the FUNLD utility. Locate the LABEL symbol and
the Replacement Value should display as "SL".
Example:
UTILITY OBJ DESCRIPTION SIZE
FUNLD T FAST UNLOAD RPI
CMD SYMBOL ERR REPLACEMENT VALUE
_ ALLOC1 %CALC(%ROWLEN+6*%NROWS/%BYTETRK*30/100+1)_______________
_ ALLOC2 %CALC(%ROWLEN+6*%NROWS/%BYTETRK*40/100+1)_______________
_ DATACLAS ________________________________________________________
_ DATADSN %DSN..DA________________________________________________
_ DEVTYPE %DISK___________________________________________________
_ DISK SYSDA___________________________________________________
_ DSN %USERID..%DSNQUAL2..%DSNQUAL3..D%DATE___________________
_ LABEL SL______________________________________________________
_ LARGE 50000___________________________________________________
_ MGMTCLAS ________________________________________________________
_ PARTDSN %DSN..P%PARTNO..DA______________________________________
_ RESTART ________________________________________________________
_ SORTNUM 2_______________________________________________________
_ STORCLAS ________________________________________________________
_ TAPE CART____________________________________________________
_ UBUF 0_______________________________________________________
_ UNIT %DISK___________________________________________________
_ VOLLIMIT ________________________________________________________
_ VOLSER ________________________________________________________
This can be modified by adding ",RETPD=030" for example, if the tape is to be retained for 30 days.
Example:
FUNLD T FAST UNLOAD RPI
CMD SYMBOL ERR REPLACEMENT VALUE
_ ALLOC1 %CALC(%ROWLEN+6*%NROWS/%BYTETRK*30/100+1)_______________
_ ALLOC2 %CALC(%ROWLEN+6*%NROWS/%BYTETRK*40/100+1)_______________
_ DATACLAS ________________________________________________________
_ DATADSN %DSN..DA________________________________________________
_ DEVTYPE %DISK___________________________________________________
_ DISK SYSDA___________________________________________________
_ DSN %USERID..%DSNQUAL2..%DSNQUAL3..D%DATE___________________
_ LABEL SL,RETPD=030____________________________________________
_ LARGE 50000___________________________________________________
_ MGMTCLAS ________________________________________________________
_ PARTDSN %DSN..P%PARTNO..DA______________________________________
_ RESTART ________________________________________________________
_ SORTNUM 2_______________________________________________________
_ STORCLAS ________________________________________________________
_ TAPE CART____________________________________________________
_ UBUF 0_______________________________________________________
_ UNIT %DISK___________________________________________________
_ VOLLIMIT ________________________________________________________
_ VOLSER ________________________________________________________
Press F3 and the change will be saved to the utility.
Warning: All changes made to a common model may impact other users who are using the model. If the change is for a specific use, then a template of
the @DEFAULT model should be created with the change.
Any change to a model can only be made by users with the appropriate authorization to the Utility Model Services option and the model itself.
Here is a sample analysis output:
.SYSTEM UNLOADS
.CONNECT ssid
.AUTH authid1
.CALL UTLGLCTL PARM(ssid,) +
INDDN(SYSIN) OUTDDN(PTIMSG)
.ALLOC FI(SYSIMAG) +
DA('authid1.DATABASE.TSPCE.CPY(0)') +
OLD
.ALLOC FI(SYSCTL01) DUMMY
.ALLOC FI(SYSREC01) +
DA('authid1.DATABASE.TID3.Dyymmdd.DA') +
LABEL(1,SL,RETPD=030) +
UNIT(CART) +
RETAIN +
NEW CATALOG
.DATA
FASTUNLOAD
UNLDDN SYSREC
LIMIT 0
OUTPUT-FORMAT LOAD
INPUT-FORMAT IMAGECOPY
INDDN SYSIMAG
VSAM-BUFFERS 80
SORTNUM 2
SORTDEVT SYSDA
ESTIMATED-ROWS 52160377
SQL-ACCESS NONE
SHRLEVEL IGNORE
TRUNCATE NO
SELECT *
FROM authid1.table1
NEWOBID 3
;
.ENDDATA