Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
Could anyone please tell me what does the below jcl do?

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DB2
View previous topic :: :: View next topic  
Author Message
Absinthia

New User


Joined: 10 Jan 2008
Posts: 36
Location: CHINA

PostPosted: Mon Mar 24, 2008 8:30 am    Post subject: Could anyone please tell me what does the below jcl do?
Reply with quote

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
View user's profile Send private message

murmohk1

Senior Member


Joined: 29 Jun 2006
Posts: 1439
Location: Bangalore,India

PostPosted: Mon Mar 24, 2008 9:33 am    Post subject:
Reply with quote

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
View user's profile Send private message
Bill Dennis

Active Member


Joined: 17 Aug 2007
Posts: 562
Location: Iowa, USA

PostPosted: Mon Mar 24, 2008 6:27 pm    Post subject:
Reply with quote

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
View user's profile Send private message
PeD

Active User


Joined: 26 Nov 2005
Posts: 456
Location: Belgium

PostPosted: Mon Mar 24, 2008 6:37 pm    Post subject:
Reply with quote

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
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10327
Location: italy

PostPosted: Mon Mar 24, 2008 8:41 pm    Post subject: Reply to: Could anyone please tell me what does the below jc
Reply with quote

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
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DB2 All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:


Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us