search cancel

FAST UNLOAD: Define Retention Period (RETPD) in the FUNLD Utility within a Migration

book

Article ID: 54053

calendar_today

Updated On:

Products

RC Compare for DB2 for z/OS RC/Migrator for DB2 for z/OS Fast Unload for DB2 for z/OS

Issue/Introduction

Creating a migration strategy using Fast Unload to unload the data to tape and a retention period is required. How and where is the retention period defined?

 

Environment

Release:R20
Component: RCM

Resolution

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 PART_NO, CLIENT_AGN, FIELD_ID, SEQUENCE_NBR, EFF_DTE, END_DTE
   , ROW_INS_TMS, ROW_DEL_TMS, DEFAULT_VALUE_TXT, OVRRDE_ALLOWED_IND,
   OVRRDE_REQD_IND, CLIENT_TYPE_CDE, OPER_ID, PGM_ID, ROW_UPDATE_TMS,
   WRK_IN_PROCESS_CDE, MOVE_READY_IND, CLIENT_ID
 FROM authid1.table1
   NEWOBID 3
 ORDER BY PART_NO,  CLIENT_AGN,  FIELD_ID,  EFF_DTE,  END_DTE,
   SEQUENCE_NBR  ,  WRK_IN_PROCESS_CDE,  ROW_DEL_TMS
   ;
.ENDDATA

 

 

Additional Information

Additional Information can be found in the Unicenter Database Management Solutions for DB2 for z/OS,  Use the Batch Processor, UNLOAD Using the UNLOAD Program