zOs/JCL/CATPLARB

//A540769X JOB (CP00,KE50),'DB2 REO',                                   00010000
//         MSGCLASS=T,TIME=1440,                                        00020000
//         NOTIFY=&SYSUID,REGION=0M                                     00030000
//*MAIN CLASS=LOG0                                                      00040000
//*
//S1       EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,                      00020001
//            PARM='WSH'
//SYSPROC   DD DSN=A540769.WK.REXX,DISP=SHR
//SYSPRINT  DD SYSOUT=*
//SYSUDUMP  DD SYSOUT=*
//SYSTSPRT  DD SYSOUT=*
//OUT       DD SYSOUT=*
//CMDLIST  DD  DISP=(MOD,CATLG),DSN=A540769.TST.IN1,
//             DCB=(LRECL=2000,RECFM=VBA,DSORG=PS),
//             SPACE=(CYL,(1,10)),MGMTCLAS=BAT#WK
//SYSTSIN   DD DUMMY
//WSH       DD *
$#@
say say hallo
$$ hallo
exit
$=dbSys = dc0g
$=rz=- sysvar(sysNode)
$;
$<dsn.tx.plan$rz(${dbSys}S4)
x = ${>ii}
$@for ii $@[
    parse value $ii with pl dt rb
    rb = strip(rb)
    say time() pl 'rb' rb
    iterate
    rx = sqlDsn(st, $dbSys, rb, '*')
    if rx <> -99 then do /* output anzeigen */
        say 'rc='rx 'for rebind' pl
        do sx=1 to m.st.0
            say '.' m.st.sx
            end
        call err 'rebind rc' rx
        end
    $]
$#out                                              20130524 21:52:40
$#out                                              20130524 21:51:13
$#out                                              20130524 21:49:31