zOs/JCL/PDBGENEX

//YPDBGENE  JOB (CP00,KE50),                                            00010001
//         MSGCLASS=T,TIME=1440,
//         NOTIFY=A540769
//*MAIN CLASS=DBOC
//*
//* export aus pdb Tables ==> A540769.tacct_general
//*        sql in pdbgeneS muss aktuellen Bedürfnissen angepasst werden
//*        library für täglichen submit: DSN.SKA.P0.JCLL
//*        der job wird submitted von: DSN.SKA.P0.JCLL(EXTENT)
//*
//S01      EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99                       00020001
//SYSTSIN  DD *
    DSN SYSTEM(DBOC)
   RUN PROGRAM(DSNTEP2) PARMS('ALIGN(LHS)') PLAN(DSNTEP2)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM  DD DUMMY
//SYSIN    DD *
 set current schema = RZ2XX;
//         DD DISP=SHR,DSN=A540769.WK.SQL(PDBGENEX)
//         DD *
 commit;
 set current schema = RR2XX;
//         DD DISP=SHR,DSN=A540769.WK.SQL(PDBGENEX)
//         DD *
 commit;
 set current schema = RZ1XX;
//         DD DISP=SHR,DSN=A540769.WK.SQL(PDBGENEX)
//         DD *
 commit;