The IBM Unload Utility Model has been added to the standard @DEFAULT Utility Model in the R19 Release of RC/Migrator.
The model utility element is: IBMULD
Release: R20
Component: RCM
There is an RC/Migrator Model symbol that can be used to generate IBM TEMPLATE or otherwise generate a normal .ALLOC batch processor dataset allocation.
Look in the symbol list:
UTILITY OBJ DESCRIPTION SIZE
IBMULD T IBM UNLOAD RPI
CMD SYMBOL ERR REPLACEMENT VALUE
_ ALLOC1 %CALC(%ROWLEN+6*%NROWS/%BYTETRK*60/100+1)_______________
_ ALLOC2 %CALC(%ROWLEN+6*%NROWS/%BYTETRK*30/100+1)_______________
_ DATACLAS ________________________________________________________
_ DATADSN %DSN..DA________________________________________________
_ DISK SYSDA___________________________________________________
_ DSN %USERID..%DSNQUAL2..%DSNQUAL3..D%DATE..T%TIME___________
_ LABEL SL______________________________________________________
_ LARGE 50000___________________________________________________
_ MGMTCLAS ________________________________________________________
_ PARTDSN %DSN..P&PART..DA________________________________________
_ STORCLAS ________________________________________________________
_ TAPE CART____________________________________________________
_ UNIT %DISK___________________________________________________
_ USETMPLT YES_____________________________________________________
_ VOLLIMIT ________________________________________________________
_ VOLSER ________________________________________________________
The USETMPLT symbol is set to YES to generate an IBM TEMPLATE statement.
If USETMPLT is not = YES then a batch processor .ALLOC statement is generated.
The generated Utility Statements look like:
<<< %USETMPLT = NO >>>
-- FROM IBMULD
.ALLOC FI(SYSCTL00) DUMMY
.ALLOC FI(UNLDDSN) +
DA('authid.DBCORP.TID28.D201019.T2105326.DA') +
TRACKS +
SPACE(1,1) +
UNIT(SYSDA) +
NEW CATALOG
.CALL UTIL UNLOAD PARM(ssid)
.DATA
UNLOAD
FROM TABLE authid.TBROLE
HEADER NONE
LIMIT ALL
NOPAD
UNLDDN UNLDDSN
SHRLEVEL REFERENCE
.ENDDATA
-- END OF IBMULD UTILITY
<<< %USETMPLT = YES >>>
-- FROM IBMULD
.CALL UTIL UNLOAD PARM(ssid)
.DATA
TEMPLATE UNLDDSN DSN 'authid.DBCORP.TID28.D201019.T2055200.DA'
SPACE CYL
UNLOAD
FROM TABLE authid.TBROLE
HEADER NONE
LIMIT ALL
NOPAD
UNLDDN UNLDDSN
SHRLEVEL REFERENCE
.ENDDATA
-- END OF IBMULD UTILITY
The IBM Unload can be coupled with an IBM LOAD or a Fastload for data load operations simply by switching the load utilities using the "X" line command in the model as usual.