zOs/REXX/DRDA
$=fun=reb
$;
$<=[
REBIND PACKAGE(TP.TP0920.(TP00000058));
REBIND PACKAGE(TP.TP0900.(TP00000058));
REBIND PACKAGE(TP.TP0910.(TP00000058));
REBIND PACKAGE(TP.TP0920.(TP00000055));
REBIND PACKAGE(TP.TP0910.(TP00000055));
REBIND PACKAGE(TP.TP0900.(TP00000055));
REBIND PACKAGE(TP.YTPFLAG.(TP000000555E1DA28A));
REBIND PACKAGE(TP.TP0900.(TP00000053));
REBIND PACKAGE(TP.TP0910.(TP00000053));
REBIND PACKAGE(TP.YTPFLAG.(TP000000535D8C94BA));
REBIND PACKAGE(TP.TP0900.(TP00000050));
REBIND PACKAGE(TP.TP0910.(TP00000050));
REBIND PACKAGE(TP.TP0900.(TP00000046));
REBIND PACKAGE(TP.YTPFLAG.(TP000000465C97A6D8));
REBIND PACKAGE(TP.TP0910.(TP00000046));
REBIND PACKAGE(TP.TP0900.(TP00000044));
REBIND PACKAGE(TP.TP0910.(TP00000044));
REBIND PACKAGE(TP.YTPFLAG.(TP000000445C404AE1));
REBIND PACKAGE(TP.TP0900.(TP00000034));
REBIND PACKAGE(TP.TP0910.(TP00000034));
REBIND PACKAGE(TP.TP0910.(TP00000041));
REBIND PACKAGE(TP.TP0900.(TP00000041));
REBIND PACKAGE(TP.TP0910.(TP00000040));
REBIND PACKAGE(TP.TP0900.(TP00000040));
REBIND PACKAGE(TP.TP0900.(TP00000038));
REBIND PACKAGE(TP.TP0900.(TP00000031));
REBIND PACKAGE(XXWKTST.TP0900.(TP00000031));
REBIND PACKAGE(TP.TP0910.(TP00000031));
REBIND PACKAGE(TP.YTPFLAG.(TP000000315B27B768MVS));
REBIND PACKAGE(TP.YTPFLAG.(TP000000315B27B768));
REBIND PACKAGE(TP.TP0900.(TP00000028));
REBIND PACKAGE(TP.TP0910.(TP00000028));
REBIND PACKAGE(TP.YTPFLAG.(TP000000285ABA2274MVS));
REBIND PACKAGE(TP.YTPFLAG.(TP000000285ABA2274));
REBIND PACKAGE(TP.TP0910.(A18Q002828));
REBIND PACKAGE(TP.TP0900.(A18Q002828));
REBIND PACKAGE(TP.TP0910.(TP00000026));
REBIND PACKAGE(TP.TP0900.(TP00000026));
REBIND PACKAGE(TP.YTPFLAG.(TP000000265A26AB1B));
REBIND PACKAGE(TP.TP0900.(TP00000023));
REBIND PACKAGE(TP.TP0910.(TP00000023));
REBIND PACKAGE(TP.TP0910.(TP00000020));
REBIND PACKAGE(TP.TP0900.(TP00000020));
REBIND PACKAGE(TP.YTPFLAG.(TP00000020594B8605));
REBIND PACKAGE(TP.TP0910.(DE00000073));
REBIND PACKAGE(TP.TP0910.(TP00000018));
REBIND PACKAGE(TP.TP0900.(TP00000018));
REBIND PACKAGE(TP.TP0900.(TP00000016));
REBIND PACKAGE(TP.TP0910.(TP00000016));
REBIND PACKAGE(TP.TP0900.(TP00000011));
REBIND PACKAGE(TP.TP0910.(TP00000011));
REBIND PACKAGE(TP.TP0900.(TP00000008));
REBIND PACKAGE(TP.TP0910.(TP00000008));
REBIND PACKAGE(TP.YTPFLAG.(TP000000025682A753));
$]
$@=[
//A540769L JOB (CP00,KE50),
//* RESTART=STEPNAME, <== FOR RESTART REMOVE * AND ENTER STEP NAME
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//E01 EXEC PGM=IKJEFT01,DYNAMNBR=30
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
DSN S(DBOF)
$]
$@for li $@[
parse value $li with rp '(' col '.' pkg '.(' vrs '));'
$=col =-col
$=pkg =-pkg
$=vrs =-vrs
say 'col' $col 'pkg' $pkg 'vrs' $vrs'|'
if $fun = 'cop' then $@=[
BIND PACKAGE(CHSKA000DBOL.$col) -
copy($col.$pkg) -
copyver($vrs) -
DBPROTOCOL(DRDA) qualifier(OA1P) action(replace)
$]
else $@=[
REBIND PACKAGE($col.$pkg.($vrs)) -
DBPROTOCOL(DRDA)
$]
$]
$#end
//A540769L JOB (CP00,KE50),
//* RESTART=STEPNAME, <== FOR RESTART REMOVE * AND ENTER STEP NAME
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//*
//*
//**********************************************************************
//*
//* DB2 BATCH MONITOR
//*
//* DB2 ADMIN GENERATED BATCH JOB.
//*
//************************************************************ADB2WL4**
//DB2B EXEC PGM=IKJEFT01,DYNAMNBR=100
//STEPLIB DD DISP=SHR,DSN=DB2@.RZ2.P0.DSNLOAD
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB
//SYSEXEC DD DISP=SHR,DSN=DSN.TOOLS.RZ2.C0.SADBEXEC
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCEXEC
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBEXEC
//MSGLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.C0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB
//ADBALIB DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB
//DB2RLIB DD DISP=SHR,DSN=DB2@.RZ2.P0.DSNLOAD
// DD DISP=SHR,DSN=DSN.TOOLS.RZ2.P0.SADBLLIB
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*,DCB=(LRECL=137,BLKSIZE=141)
//UTPRINT DD SYSOUT=*
//RNPRIN01 DD SYSOUT=*
//STPRIN01 DD DUMMY
//ADBDIAG DD SYSOUT=*
//ADBRPTSM DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(DBOF)
RUN PROGRAM(ADBTEP2) PLAN(ADB) -
LIB('DSN.TOOLS.RZ2.P0.SADBLLIB') -
PARMS('/WORKLIST(RBTBL1) SSID(DBOF) -
RESTART(YES),MAXE(-1)')
END
//ADBTEPIN DD *
BINDERROR='SAVE'
,AC='NO'
;
//SYSIN DD *
-- Created by A540769 on 2010/06/08 at 16:44 by REBIND Package;
REBIND PACKAGE(TP.TP0920.(TP00000058));
REBIND PACKAGE(TP.TP0900.(TP00000058));
REBIND PACKAGE(TP.TP0910.(TP00000058));
REBIND PACKAGE(TP.TP0920.(TP00000055));
REBIND PACKAGE(TP.TP0910.(TP00000055));
REBIND PACKAGE(TP.TP0900.(TP00000055));
REBIND PACKAGE(TP.YTPFLAG.(TP000000555E1DA28A));
REBIND PACKAGE(TP.TP0900.(TP00000053));
REBIND PACKAGE(TP.TP0910.(TP00000053));
REBIND PACKAGE(TP.YTPFLAG.(TP000000535D8C94BA));
REBIND PACKAGE(TP.TP0900.(TP00000050));
REBIND PACKAGE(TP.TP0910.(TP00000050));
REBIND PACKAGE(TP.TP0900.(TP00000046));
REBIND PACKAGE(TP.YTPFLAG.(TP000000465C97A6D8));
REBIND PACKAGE(TP.TP0910.(TP00000046));
REBIND PACKAGE(TP.TP0900.(TP00000044));
REBIND PACKAGE(TP.TP0910.(TP00000044));
REBIND PACKAGE(TP.YTPFLAG.(TP000000445C404AE1));
REBIND PACKAGE(TP.TP0900.(TP00000034));
REBIND PACKAGE(TP.TP0910.(TP00000034));
REBIND PACKAGE(TP.TP0910.(TP00000041));
REBIND PACKAGE(TP.TP0900.(TP00000041));
REBIND PACKAGE(TP.TP0910.(TP00000040));
REBIND PACKAGE(TP.TP0900.(TP00000040));
REBIND PACKAGE(TP.TP0900.(TP00000038));
REBIND PACKAGE(TP.TP0900.(TP00000031));
REBIND PACKAGE(XXWKTST.TP0900.(TP00000031));
REBIND PACKAGE(TP.TP0910.(TP00000031));
REBIND PACKAGE(TP.YTPFLAG.(TP000000315B27B768MVS));
REBIND PACKAGE(TP.YTPFLAG.(TP000000315B27B768));
REBIND PACKAGE(TP.TP0900.(TP00000028));
REBIND PACKAGE(TP.TP0910.(TP00000028));
REBIND PACKAGE(TP.YTPFLAG.(TP000000285ABA2274MVS));
REBIND PACKAGE(TP.YTPFLAG.(TP000000285ABA2274));
REBIND PACKAGE(TP.TP0910.(A18Q002828));
REBIND PACKAGE(TP.TP0900.(A18Q002828));
REBIND PACKAGE(TP.TP0910.(TP00000026));
REBIND PACKAGE(TP.TP0900.(TP00000026));
REBIND PACKAGE(TP.YTPFLAG.(TP000000265A26AB1B));
REBIND PACKAGE(TP.TP0900.(TP00000023));
REBIND PACKAGE(TP.TP0910.(TP00000023));
REBIND PACKAGE(TP.TP0910.(TP00000020));
REBIND PACKAGE(TP.TP0900.(TP00000020));
REBIND PACKAGE(TP.YTPFLAG.(TP00000020594B8605));
REBIND PACKAGE(TP.TP0910.(DE00000073));
REBIND PACKAGE(TP.TP0910.(TP00000018));
REBIND PACKAGE(TP.TP0900.(TP00000018));
REBIND PACKAGE(TP.TP0900.(TP00000016));
REBIND PACKAGE(TP.TP0910.(TP00000016));
REBIND PACKAGE(TP.TP0900.(TP00000011));
REBIND PACKAGE(TP.TP0910.(TP00000011));
REBIND PACKAGE(TP.TP0900.(TP00000008));
REBIND PACKAGE(TP.TP0910.(TP00000008));
REBIND PACKAGE(TP.YTPFLAG.(TP000000025682A753));
/*
//*
$#out 20100608 17:19:54
//A540769L JOB (CP00,KE50),
//* RESTART=STEPNAME, <== FOR RESTART REMOVE * AND ENTER STEP NAME
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//E01 EXEC PGM=IKJEFT01,DYNAMNBR=30
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
DSN S(DBOF)
REBIND PACKAGE(TP.TP0920.(TP00000058)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(TP.TP0900.(TP00000058)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(TP.TP0910.(TP00000058)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(TP.TP0920.(TP00000055)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(TP.TP0910.(TP00000055)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(TP.TP0900.(TP00000055)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(TP.YTPFLAG.(TP000000555E1DA28A)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(TP.TP0900.(TP00000053)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(TP.TP0910.(TP00000053)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(TP.YTPFLAG.(TP000000535D8C94BA)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(TP.TP0900.(TP00000050)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(TP.TP0910.(TP00000050)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(TP.TP0900.(TP00000046)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(TP.YTPFLAG.(TP000000465C97A6D8)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(TP.TP0910.(TP00000046)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(TP.TP0900.(TP00000044)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(TP.TP0910.(TP00000044)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(TP.YTPFLAG.(TP000000445C404AE1)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(TP.TP0900.(TP00000034)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(TP.TP0910.(TP00000034)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(TP.TP0910.(TP00000041)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(TP.TP0900.(TP00000041)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(TP.TP0910.(TP00000040)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(TP.TP0900.(TP00000040)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(TP.TP0900.(TP00000038)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(TP.TP0900.(TP00000031)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(XXWKTST.TP0900.(TP00000031)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(TP.TP0910.(TP00000031)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(TP.YTPFLAG.(TP000000315B27B768MVS)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(TP.YTPFLAG.(TP000000315B27B768)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(TP.TP0900.(TP00000028)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(TP.TP0910.(TP00000028)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(TP.YTPFLAG.(TP000000285ABA2274MVS)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(TP.YTPFLAG.(TP000000285ABA2274)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(TP.TP0910.(A18Q002828)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(TP.TP0900.(A18Q002828)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(TP.TP0910.(TP00000026)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(TP.TP0900.(TP00000026)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(TP.YTPFLAG.(TP000000265A26AB1B)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(TP.TP0900.(TP00000023)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(TP.TP0910.(TP00000023)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(TP.TP0910.(TP00000020)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(TP.TP0900.(TP00000020)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(TP.YTPFLAG.(TP00000020594B8605)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(TP.TP0910.(DE00000073)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(TP.TP0910.(TP00000018)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(TP.TP0900.(TP00000018)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(TP.TP0900.(TP00000016)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(TP.TP0910.(TP00000016)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(TP.TP0900.(TP00000011)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(TP.TP0910.(TP00000011)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(TP.TP0900.(TP00000008)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(TP.TP0910.(TP00000008)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(TP.YTPFLAG.(TP000000025682A753)) -
DBPROTOCOL(DRDA)