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
/*