View previous topic :: View next topic
|
Author |
Message |
Absinthia
New User
Joined: 10 Jan 2008 Posts: 36 Location: CHINA
|
|
|
|
I guess from the notes that it is used to clean up database.
But I want to know in detail how does each step functions to do that?
Code: |
//DB2WORK EXEC PGM=ELAWKPC2,REGION=4096K
//STEPLIB DD DSN=SYS1.COB2LIB.IMSVS,DISP=SHR
// DD DSN=SYS1.COB2LIB,DISP=SHR
// DD DSN=CRS.V1R1M0.SELALMD,DISP=SHR
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//ELAPRINT DD SYSOUT=*
//ELASNAP DD SYSOUT=*
//EZESPUFI DD DSN=&&TMP1,DISP=(NEW,PASS),
// UNIT=DISK2,SPACE=(CYL,(5,5)),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=80)
//ELAMSG DD *
JPN
/*
//SYSIN DD *
99365235959
//* DO NOT CHANGE ABOVE SYSIN CARD 'TIL END OF THE WORLD
//DB2SPUF EXEC PGM=IKJEFT01,REGION=4096K,COND=(0,NE)
//*TEPLIB DD DSN=DSN.RUNLIB.LOAD,DISP=SHR
//STEPLIB DD DSN=DSN.DSNLOAD,DISP=SHR
//SYSOUT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSIN DD DSN=&&TMP1,DISP=(OLD,DELETE)
/*
//SYSTSIN DD *
DSN
RUN PROGRAM(DSNTIAD) PLAN(DSNTIAD) -
LIB('DSN.RUNLIB.LOAD')
END
|
|
|
Back to top |
|
|
murmohk1
Senior Member
Joined: 29 Jun 2006 Posts: 1436 Location: Bangalore,India
|
|
|
|
Absinthia,
Quote: |
But I want to know in detail how does each step functions to do that? |
Speak with your peers. Remember we cant explain the shop specific stuff. |
|
Back to top |
|
|
Bill Dennis
Active Member
Joined: 17 Aug 2007 Posts: 562 Location: Iowa, USA
|
|
|
|
Run the first step and have a look at the records in the &&TMP1 file to get an idea what step2 is doing. |
|
Back to top |
|
|
PeD
Active User
Joined: 26 Nov 2005 Posts: 459 Location: Belgium
|
|
|
|
The first step executes a Cobol program which based on parameter card ( year-day and time ) and for sure other algorithme generates an SQL command which will be executed by the program DSNTIAD ( like a SPUFI in batch ). |
|
Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10873 Location: italy
|
|
|
|
ELAWKPC2 is a program of the VISUALAGE family
Quote: |
//**********************************************************************00000100
//** ELAWKJC2 - JOBSTREAM TO CLEAN UP THE DB2 WORK DATABASE 00000200
//** FOR VISUALAGE GENERATOR SERVER. 00000300
//** 00000400
|
look at "CRS.V1R1M0.SEALJCL" for the details |
|
Back to top |
|
|
|