-- ------------------------------------------------------------------ --
-- SIZEIT -  Size a Database with TS 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(sizeit) ",
         "&db=DJOP02p",
         "&lsnm=CJOP02",
         "&si=3500",
         "&lnobj=db2i2.object(DJOP02p) ",
         "&parmutil_listts='jrhj.parmutil(listtp)' ",
         "&lo=listdef(*)",
         "&ln=0"
-- ------------------------------------------------------------------ --
-- >>> copy the following lines thru ** End of Routine to             --
-- >>> DB2I2.SCRITP(SIZEIT)                                           --
-- ------------------------------------------------------------------ --
-- 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
TS &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_listts",
         "idsn=&lnobj",
         "odsn=&lo"
-- *** End of Routine