-- ------------------------------------------------------------------ --
-- Recover To LAST FULL COPY based on Size information                --
-- ------------------------------------------------------------------ --
-- The following RXDB2I2 scripts generates DB2 Recover with           --
--    LISTDEF(CJOP02*) information generated from SIZEIT or SIZEITTP  --
--    together with predefined parmutil and template to generates     --
--    DB2 Image copy JCL the output are stored in db2i2.genjcl        --
--    with member name PC2RNJ##. Where ## starting from 11            --
-- ------------------------------------------------------------------ --
LINEOBJ ddname=LINEOBJ
dummy
END_LINEOBJ
db2i2rex "RECOVER",
         "parmutil=parmutil(rcvr)",
         "idsn=db2i2.object(DJOP02p) ",
         "template=template(rcvr)",
         "odsn=db2i2.genjcl(*)",
         "jobnm=pc2rnj##",
         "job#=10"
-- *** End of Routine