zOs/JCL/DB2DSN

//A540769W JOB (CP00,KE50),'DB2 REO',                                   00010000
//         MSGCLASS=T,TIME=1440,                                        00020000
//         NOTIFY=&SYSUID,REGION=0M,SCHENV=DB2                          00030003
//*MAIN CLASS=LOG                                                       00040003
//P04     EXEC PGM=IKJEFT01
//SYSTSPRT  DD SYSOUT=*
//BINDLOG   DD SYSOUT=*
//SYSPRINT  DD SYSOUT=*
//SYSPROC   DD DISP=SHR,DSN=A540769.WK.REXX
//SYSTSIN   DD *
DSN SYS(DP4G)
  -dis group
end
  /* beginRzPgm RZY/DE0G ALAB@01.01.2014 PGM2
  /*   1 binds in 1 locations
  /* id 183 ABC4567890@2014-04-22-10.14.17.604397
dsn system(DE0G)
bind package(PG) -
    member(PGM2) -
    qualifier(OA1P) -
    OWNER(CMNBATCH) -
    ISOLATION(CS) -
    DEGREE(1) -
    DYNAMICRULES(BIND) -
    VALIDATE(BIND) -
    EXPLAIN(YES) -
    FLAG(I) -
    sqlError(noPackage) -
    action(replace) -
    /* end RZY/DE0G ALAB@01.01.2014 .PG.PGM2
end
  /* beginRzPgm RZY/DE0G ALAB@01.01.2014 YAVMUR
  /*   31 binds in 1 locations
  /* id 182 ABC4567890@2014-04-22-10.14.17.604397
dsn system(DE0G)
bind package(AV01) -
    member(YAVMUR) -
    qualifier(OA1P01) -
    OWNER(CMNBATCH) -
    ISOLATION(CS) -
    DEGREE(1) -
    DYNAMICRULES(BIND) -
    VALIDATE(BIND) -
    EXPLAIN(YES) -
    FLAG(I) -
    sqlError(noPackage) -
    action(replace) -
    /* end RZY/DE0G ALAB@01.01.2014 .AV01.YAVMUR
  /* beginRzPgm RZY/DE0G appl@17.04.2014 MF5000
  /*     1 binds in 1 locations
  /* id 169 A540769@2014-04-17-14.01.35.259963
dsn system(DP4G)
bind package(MF) -
    member(MF5000) -
    qualifier(OA1P) -
    OWNER(CMNBATCH) -
    ISOLATION(CS) -
    DEGREE(1) -
    DYNAMICRULES(BIND) -
    VALIDATE(BIND) -
    EXPLAIN(YES) -
    FLAG(I) -
    sqlError(noPackage) -
    action(replace) -
    /* end RZY/DE0G appl@17.04.2014 .MF.MF5000
end
  /* id 170 A540769@2014-04-17-14.01.35.259963
dsn system(DP4G)
rebind package (AU.YAU5070+
    .(*)) -
    qualifier(OA1P) -
    OWNER(CMNBATCH) -
    ISOLATION(CS) -
    DEGREE(1) -
    DYNAMICRULES(BIND) -
    VALIDATE(BIND) -
    EXPLAIN(YES) -
    FLAG(I) -
    /* end RZX/DE0G appl@17.04.2014 .AU.YAU5070
end
und weiter