DB2 z/OS DB2 LUW
z/OS CICS VTAM

DB2 z/OS Info

DSNTEP2, DSNTEP4, DSNTIAD, DSNTIAUL

DSNTEP2 :

//JOBLIB   DD DISP=SHR,DSN=<YOUR>.SDSNLOAD
//DSNTEP2 EXEC PGM=IKJEFT01,DYNAMNBR=20,COND=(4,LT)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(DSN1)
RUN PROGRAM(DSNTEP2) PLAN(DSNTEP2) +
      LIB('<YOUR>.RUNLIB.LOAD') +
      PARMS('/ALIGN(MID)')
END
//*
//SYSIN    DD *
--#SET ROWS_FETCH -1
--#SET ROWS_OUT   -1
--#SET TOLWARN    YES
--#SET TERMINATOR ;
--#SET TOLARTHWRN YES
--#SET MAXERRORS -1
    DROP TABLESPACE XXX.TS1                                   ;
    SELECT NAME FROM SYSIBM.SYSTABLES WHERE NAME = 'SYSTABLE' ;
    SELECT NAME FROM SYSIBM.SYSTABLES WHERE NAME = 'SYSTABLES' ;
    SELECT NAME FROM SYSIBM.SYSTABLES WHERE NAME = 'SYSTABLE' ;
    SELECT NAME FROM SYSIBM.SYSTABLES WHERE NAME = 'SYSTABLES' ;
//*

DSNTEP4 :

//JOBLIB   DD DISP=SHR,DSN=<YOUR>.SDSNLOAD
//DSNTEP4 EXEC PGM=IKJEFT01,DYNAMNBR=20,COND=(4,LT)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(DSN1)
RUN PROGRAM(DSNTEP4) PLAN(DSNTEP4) +
      LIB('<YOUR>.RUNLIB.LOAD') +
      PARMS('/ALIGN(MID)')
END
//*
//SYSIN    DD *
--#SET ROWS_FETCH -1
--#SET ROWS_OUT   -1
--#SET TOLWARN    YES
--#SET TERMINATOR ;
--#SET TOLARTHWRN YES
--#SET MAXERRORS -1
--#SET MULT_FETCH 1000
    DROP TABLESPACE XXX.TS1                                   ;
    SELECT NAME FROM SYSIBM.SYSTABLES WHERE NAME = 'SYSTABLE' ;
    SELECT NAME FROM SYSIBM.SYSTABLES WHERE NAME = 'SYSTABLES' ;
    SELECT NAME FROM SYSIBM.SYSTABLES WHERE NAME = 'SYSTABLE' ;
    SELECT NAME FROM SYSIBM.SYSTABLES WHERE NAME = 'SYSTABLES' ;
//*

DSNTIAUL :

//JOBLIB   DD DISP=SHR,DSN=<YOUR>.SDSNLOAD
//DSNTIAD EXEC PGM=IKJEFT01,DYNAMNBR=20
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSREC00 DD DSN=<DSN1>.SYSREC00,UNIT=SYSALLDA,
// SPACE=(CYL,(100,100)),DISP=(NEW,CALTLG,CATLG)
//SYSPUNCH DD DSN=<DSN1>.SYSPUNCH,UNIT=SYSALLDA,
// SPACE=(TRK,(1,1)),DISP=(NEW,CALTLG,CATLG)
//SYSMDUMP DD SYSOUT=*
//SYSTSIN DD *
DSN S(DSN1)
    RUN PROGRAM(DSNTIAUL) PLAN(DSNTIAUL)   -
    PARMS('SQL,1000')        -
    LIB('<YOUR>.RUNLIB.LOAD')
END
/*
//SYSIN    DD *
LOCK TABLE CREATOR.NAME IN SHARE MODE ;

SELECT *
FROM CREATOR.NAME
WHERE ....
;
/*

DSNTIAD :

Vorsicht mit dem Parameter RC0, iss ok wenn ich bestimmte Sachen machen will !

//JOBLIB   DD DISP=SHR,DSN=<YOUR>.SDSNLOAD
//DSNTIAD EXEC PGM=IKJEFT01,DYNAMNBR=20
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSMDUMP DD SYSOUT=*
//SYSTSIN DD *
DSN S(DSN1)
    RUN PROGRAM(DSNTIAD)   -
PARMS('RC0,SQLTERM(;)') -
    PLAN(DSNTIAD)           -
    LIB('<YOUR>.RUNLIB.LOAD')
END
/*
//SYSIN    DD *
DROP TABLE XXX.TABLE1 ;
COMMIT                ;
DROP TABLE XXX.TABLE2 ;
/*