guptae
Moderator
Joined: 14 Oct 2005 Posts: 1208 Location: Bangalore,India
|
|
|
|
Hi all,
I want to use Templates for Syspunch dataset and sysrec dataset using DSNTI aul. I am able to unload the data if i specify normal data set like
Code: |
//CRTESQL EXEC PGM=IKJEFT01,DYNAMNBR=20
//STEPLIB DD DISP=SHR,DSN=D2T3.DSNEXIT
// DD DISP=SHR,DSN=D2T3.DSNLOAD
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(D2T3)
RUN PROGRAM(DSNTIAUL) PLAN(DSNTIAUL) PARMS('SQL') -
LIB('D2T3.RUNLIB.LOAD')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSREC00 DD DSN=TNASC.UNLOAD.CLM07MOD.CLM.D100822.DATA,
// DISP=(NEW,CATLG,DELETE),
// UNIT=(SYSDA,9),SPACE=(CYL,(100,50),RLSE)
//SYSPUNCH DD DSN=TNASC.UNLOAD.CLM07MOD.CLM.CNTL,
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(5,1),RLSE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=0000)
//**********************************************************
//* UNLOAD TABLE A51DD2T3.Y2006.CLM
//**********************************************************
//SYSIN DD *
SELECT
DB2_PART_KEY
,TRACER_ID
,SYS_CREATE_DT
, CASE STRIP(TRANS_TYPE, B)
WHEN 'TRLOG' THEN 1
WHEN 'SF' THEN 3
WHEN '837I' THEN 18
WHEN '837P' THEN 19
WHEN '837D' THEN 20
ELSE 0
END AS FORMAT_VER_ID
,PLAN_CD
FROM PNASCO.ABC |
But instead of giving dataset names i want to use TEMPlate like
For syspunch
Code: |
TEMPLATE MYSYSR DSN 'DB2DBA.&TS..&UQ..P&PA..SREC'
UNIT SYSDA DISP (NEW,CATLG,CATLG) SPACE (5,5) TRK |
Fo r sysrec
Code: |
TEMPLATE MYSYSRT DSN 'DB2DBA.&TS..&UQ..SREC'
UNIT TAPEC
MODELDCB SYS3.DSCB
BUFNO 10
MGMTCLAS MCMT0001
RETPD 30
DISP(NEW,CATLG,CATLG |
)
Please advise. |
|
guptae
Moderator
Joined: 14 Oct 2005 Posts: 1208 Location: Bangalore,India
|
|
|
|
Yes, I have to unload by partitions and 100 of tables so rather than declaring name it is better to use template.
Have you ever used it with Dsntiaul.I know we can easily use it with dsnuproc but with dsnuproc Strip and case is not working |
|