DB2 z/OS   DB2 LUW
z/OS CICS VTAM

DB2 z/OS Info

Home

DSNTIAUL :

//JOBLIB   DD DISP=SHR,DSN=<YOUR.LOADLIB>
//DSNTIAD EXEC PGM=IKJEFT01
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSMDUMP DD SYSOUT=*
//SYSREC00 DD UNIT=SYSDA,SPACE=(CYL,(10,10)),DISP=(,CATLG),
//            DSN=<YOUR.DATASET>
//SYSPUNCH DD UNIT=SYSDA,SPACE=(CYL,(1,1)),DISP=(NEW,CATLG),
//            DSN=<YOUR.DATASET>.PUNCH
//SYSTSIN DD *
 DSN S(DSN1)
     RUN PROGRAM(DSNTIAUL)    -
     PLAN(DSNTIAUL)           -
     PARMS('SQL,1000')             -
     LIB('DSN1.RUNLIB.LOAD')
 END
/*
//SYSIN   DD *
  SELECT * FROM <CREATOR>.<TBNAME>
  ;


//JOBLIB   DD DISP=SHR,DSN=<YOUR.LOADLIB>
//DSNTIAD EXEC PGM=IKJEFT01
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSMDUMP DD SYSOUT=*
//SYSREC00 DD UNIT=SYSDA,SPACE=(CYL,(10,10)),DISP=(,CATLG),
//            DSN=<YOUR.DATASET2>
//SYSREC01 DD UNIT=SYSDA,SPACE=(CYL,(10,10)),DISP=(,CATLG),
//            DSN=<YOUR.DATASET2>
//SYSPUNCH DD UNIT=SYSDA,SPACE=(CYL,(1,1)),DISP=(NEW,CATLG),
//            DSN=<YOUR.DATASET>.PUNCH
//SYSTSIN DD *
 DSN S(DSN1)
     RUN PROGRAM(DSNTIAUL)    -
     PLAN(DSNTIAUL)           -
     PARMS('SQL,500')             -
     LIB('DSN1.RUNLIB.LOAD')
 END
/*
//SYSIN   DD *
  SELECT * FROM <CREATOR>.<TBNAME1>
  ;
  SELECT * FROM <CREATOR>.<TBNAME2>
  ;
/*

DSNTIAD :

//JOBLIB   DD DISP=SHR,DSN=<YOUR.LOADLIB>
//STOPTS1  EXEC PGM=IKJEFT01,DYNAMNBR=20
//SYSTSPRT DD  SYSOUT=*
//SYSPRINT DD  SYSOUT=*
//SYSUDUMP DD  SYSOUT=*
//SYSTSIN  DD  *
  DSN SYSTEM(DSN1)
          -STOP  DATABASE(<YOURDB>) SPACENAM(<YOURTS>) AT(COMMIT)
            RUN PROGRAM(DSNTIAD) PLAN(DSNTIAD) -
                     PARMS('SQLTERM(;)') -
                     LIB('DSN1.RUNLIB.LOAD')
             END
          -START DATABASE(<YOURDB>) SPACENAM(<YOURTS>) ACCESS(RW)
    END
//SYSIN    DD  *
   SET CURRENT SQLID = 'USERID';
   ALTER TABLESPACE <YOURDB>.<YOURTS>  USING STOGROUP <YOURSG>   ;
   COMMIT ;
/*

//JOBLIB   DD DISP=SHR,DSN=<YOUR.LOADLIB>
//STEP010  EXEC PGM=IKJEFT01
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSMDUMP DD SYSOUT=*
//SYSTSIN DD *
 DSN S(DSN1)
     RUN PROGRAM(DSNTIAD) PLAN(DSNTIAD) -
              PARMS('RC0,SQLTERM(;)') -
              LIB('DSN1.RUNLIB.LOAD')
       END
/*
//SYSIN   DD   *
             CREATE TYPE 2
                    INDEX TEST.IXNAME
                       ON TEST.TABLENAME
                    (COL1, COL2, COL3)
                    USING STOGROUP <SGNAME>
                    PRIQTY   54240 SECQTY   7200
                    FREEPAGE 0 PCTFREE 5
                    BUFFERPOOL BP2
                    CLOSE      NO
  ;
//*
 


DSNTEP2 :

//JOBLIB   DD DISP=SHR,DSN=<YOUR.LOADLIB>
//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)
   END
//SYSIN DD *
--
SELECT Creator, name
FROM SYSIBM.SYSTABLES  TB
/*


DB2Commands :

//********************************************
//*         REBIND PLAN
//********************************************
//JOBLIB   DD DISP=SHR,DSN=<YOUR.LOADLIB>
//RBPL    EXEC PGM=IKJEFT01,DYNAMNBR=20
//SYSTSPRT  DD SYSOUT=*
//SYSPRINT  DD SYSOUT=*
//SYSTSIN   DD *
 DSN SYSTEM(DSN1)
     REBIND PLAN (<YOURPLAN>)
  END

//********************************************
//*         REBIND PACKAGE
//********************************************
//JOBLIB   DD DISP=SHR,DSN=<YOUR.LOADLIB>
//RBPL    EXEC PGM=IKJEFT01,DYNAMNBR=20
//SYSTSPRT  DD SYSOUT=*
//SYSPRINT  DD SYSOUT=*
//SYSTSIN   DD *
 DSN SYSTEM(DSN1)
     REBIND PACKAGE (<LOCATION>..<PACKAGE>)
  END
DSN SYSTEM(DSN1)
     REBIND PACKAGE (<YOURPLAN>)
     BIND PACKAGE (<LOCATION>..<PACKAGE>)
               MEMBER(<YOURPLAN>)
               ACTION(REPLACE)
               ISOLATION(CS)
              LIBRARY('<YOUR.DBRM>')
              VALIDATE(BIND)
  END


//********************************************
//*         DISPLAY
//********************************************
//JOBLIB   DD DISP=SHR,DSN=<YOUR.LOADLIB>
//DISTHRE   EXEC PGM=IKJEFT01
//SYSPRINT  DD  SYSOUT=*
//SYSTSPRT  DD  SYSOUT=*
//SYSOUT    DD  SYSOUT=*
//SYSIN     DD  DUMMY
//SYSTSIN   DD  *
DSN SYSTEM(DSN1)
    -DISPLAY THREAD(*) DETAIL
    -DISPLAY UTILITY(*)
    -TERM UTIL(UTIL.DSNDB06)
    -DISPLAY DATABASE(*)  SPACENAM(*) RESTRICT
 END
/*