-- ------------------------------------------------------------------ --
-- SIZEITTP: Size a Database with TP lines                            --
-- ------------------------------------------------------------------ --
-- DB2I2 Script to Size a database                                    --
-- Host Variables:                                                    --
--  &db:    DB name                                                   --
--  &lsnm:  List Nmae Prefix                                          --
--  &si:    size of each copy                                         --
--  &ln:    list#                                                     --
--  &lnobj: Line objects output                                       --
--  &lo:    listdef output        (*)                                 --
-- ------------------------------------------------------------------ --
-- The following RXDB2I2 scripts size database DJOP02p                --
--   for every 3500 cylinders                                         -- 
--  The output in db2i2.object(DJOP02p)                               --
--    contains TP lines with <NEWJOB> and LISTNM=CJOP02##             --
--  The output from LISTDEF stored in LISTDEF(CJOP02##)               --
-- ------------------------------------------------------------------ --
db2i2rex "RXDB2I2",
         "idsn=db2i2.script(sizeittp) ",
         "&db=DFOP21P",
         "&lsnm=CFOP21",
         "&si=3500",
         "&lnobj=db2i2.object(DFOP21P)",
         "&parmutil_listtp='jrhj.parmutil(listtp)'",
         "&ln=0",
         "&lo=listdef(*)"
-- ------------------------------------------------------------------ --
-- >>> copy the following lines thru ** End of Routine to             --
-- >>> DB2I2.SCRITP(SIZEITTP)                                         --
-- ------------------------------------------------------------------ --
-- DB2I2 Script to generate Image Copy jobs based on the size of the  --
-- input object                                                       --
-- Host Variables:                                                    --
--  &db:    DB name                                                   --
--  &lsnm:  List Nmae Prefix                                          --
--  &si:    size of each copy                                         --
--  &ln:    list#                                                     --
--  &lnobj: Line objects output                                       --
--  &lo:    listdef output        (*)                                 --
-- ------------------------------------------------------------------ --
--
-- LISTC
--
LINEOBJ ddname=dd1
TP &db.%
END_LINEOBJ
db2i2rex "LISTC TSIX T=N idd=dd1 odsn=&lnobj"
--
-- ED with RESIZEIT macro
--
LINEOBJ ddname=dd2
x migr all
del x all
resizeit 49,54,&si LISTNM=&lsnm## LIST#=&ln
END_LINEOBJ
db2i2rex "ED &lnobj MACRO(IDD=dd2)"
--
-- LISTDEF
--
db2i2rex "LISTDEF",
         "parmutil=&parmutil_listtp",
         "idsn=&lnobj",
         "odsn=&lo"
-- *** End of Routine