-- ------------------------------------------------------------------ --
-- Recover To RBA with LISTDEF                                        --
--         Date specified to Limit Number of RBA lines Returned       --
-- ------------------------------------------------------------------ --
-- The following RXDB2I2 scripts generates DB2 Recover to RBA JCL     --
--    with db2i2.object(DJOP02p) information generated                --
--    from SIZEIT or SIZEITTP                                         --
--    Specify RBA command with 2009-03-10 to limits the RBA from      --
--    RBA selection panel.                                            --
--    Together with predefined parmutil and template to generates     --
--    DB2 Recovery to RBA JCL the output are stored in db2i2.genjcl   --
--    with member name PC2RNJ##. Where ## starting from 11            --
-- ------------------------------------------------------------------ --
LINEOBJ ddname=LINEOBJ
dummy
END_LINEOBJ
db2i2rex "RBA 2009-03-10",
         "idsn=db2i2.object(DJOP02p)"
db2i2rex "RECOVER",
         "parmutil=parmutil(rcvrrba) ",
         "listdef=listdef(CJOP*)",
         "template=template(rbld)",
         "odsn=db2i2.genjcl(*)",
         "jobnm=pc2rnj##",
         "job#=10"
-- *** End of Routine