Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Can I reduce the nymber of EXEC statements in the LOAD JCL?

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
BhavanaS

New User


Joined: 20 Feb 2008
Posts: 17
Location: India

PostPosted: Tue Apr 22, 2008 10:57 am    Post subject: Can I reduce the nymber of EXEC statements in the LOAD JCL?
Reply with quote

Hi,

The following is a JCL which I am using for loading a table:

//T6329EGN JOB (0,1704),'LOAD PUSDSMX ',
// CLASS=L,
// MSGLEVEL=(1,1),
// MSGCLASS=Y,
// NOTIFY=&SYSUID
//*** RESTART=STARTDB
/*ROUTE PRINT PUBLIC
//*
//***********************************************************
//* STOP DATA BASE
//***********************************************************
//*
//STOPDB EXEC PGM=IKJEFT01,DYNAMNBR=20
//STEPLIB DD DSN=TSYS.DSNLOAD,DISP=SHR
//*
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(GRT1)
-START DATABASE(P338) SPACENAM(PUSDSMX) ACCESS(UT)
END
//***********************************************************
//* L O A D - P C U H S U M T A B L E
//***********************************************************
//*
//PUSRTPY EXEC DSNUPROC,SYSTEM=GRT1,UID='PUSDSMX',UTPROC=''
//*
//* INPUT DATA -
//DSNUPROC.SYSREC00 DD DSN=T6329EG.DATA.PUSDSMX,
// DISP=MOD
//* INPUT UNLOAD CARDS FOR TABLE -
//DSNUPROC.SYSIN DD DSN=T6329EG.UNLOAD.SYSPUNCH.PUSDSMX,DISP=SHR
//*
//*
//DSNUPROC.SORTWK01 DD UNIT=DISK,SPACE=(CYL,(50,10))
//DSNUPROC.SORTWK02 DD UNIT=DISK,SPACE=(CYL,(50,10))
//DSNUPROC.SORTWK03 DD UNIT=DISK,SPACE=(CYL,(50,10))
//DSNUPROC.SORTWK04 DD UNIT=DISK,SPACE=(CYL,(50,10))
//DSNUPROC.SORTWK05 DD UNIT=DISK,SPACE=(CYL,(50,10))
//DSNUPROC.SORTWK06 DD UNIT=DISK,SPACE=(CYL,(50,10))
//DSNUPROC.SORTWK07 DD UNIT=DISK,SPACE=(CYL,(50,10))
//DSNUPROC.SORTWK08 DD UNIT=DISK,SPACE=(CYL,(50,10))
//DSNUPROC.SORTWK09 DD UNIT=DISK,SPACE=(CYL,(50,10))
//DSNUPROC.SORTWK10 DD UNIT=DISK,SPACE=(CYL,(50,10))
//DSNUPROC.SORTWK11 DD UNIT=DISK,SPACE=(CYL,(50,10))
//*
//DSNUPROC.SORTOUT DD UNIT=DISK,SPACE=(CYL,(50,10))
//*
//***********************************************************
//* START THE DATABASE WITH ACCESS FORCE
//***********************************************************
//STARTDB EXEC PGM=IKJEFT01,DYNAMNBR=20,COND=EVEN
//STEPLIB DD DSN=TSYS.DSNLOAD,DISP=SHR 00900000
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//*
//SYSTSIN DD *
DSN SYSTEM(GRT1)
-START DATABASE(P338) SPACENAM(PUSDSMX) ACCESS(FORCE) END
/*
//


but I have a restriction on using the number of EXEC statements.

Can I do this complete process of loading the table in one simple EXEC?


Thanks in advance,
Back to top
View user's profile Send private message

expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Tue Apr 22, 2008 11:40 am    Post subject:
Reply with quote

Have you tried ?
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6967
Location: porcelain throne

PostPosted: Tue Apr 22, 2008 12:06 pm    Post subject:
Reply with quote

make it a proc and then your jcl only has one exec statement.

or make 3 jobs.
Back to top
View user's profile Send private message
stodolas

Active Member


Joined: 13 Jun 2007
Posts: 632
Location: Wisconsin

PostPosted: Tue Apr 22, 2008 5:29 pm    Post subject:
Reply with quote

3 exec statements isn't bad....
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Tue Apr 22, 2008 8:07 pm    Post subject:
Reply with quote

Hello,

Quote:
but I have a restriction on using the number of EXEC statements.
How was this restriction decided?
Back to top
View user's profile Send private message
BhavanaS

New User


Joined: 20 Feb 2008
Posts: 17
Location: India

PostPosted: Tue Apr 22, 2008 8:39 pm    Post subject:
Reply with quote

May be I didn't put it the right way:(
For this load process is it necessary to have the steps for starting and terminating the tables or can we go ahead even without these two steps?


Thanks for the replies,
Back to top
View user's profile Send private message
Gnanas N

Active Member


Joined: 06 Sep 2007
Posts: 788
Location: Chennai, India

PostPosted: Wed Apr 23, 2008 2:35 pm    Post subject:
Reply with quote

We follow these STEPs whenever LOAD is being done.

1. LOAD DATA

2. RUN REPAIR UTILITY

3. CHECK DATA

4. START DB

Your first and last STEPs look same (Starting the DB). Is it correct?
Anyway, you have to load the data & start the DB, so atleast two STEPs are needed !
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 -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Cobol upgrade - source code missing f... gthmrj IBM Tools 1 Wed Apr 26, 2017 6:04 pm
No new posts Running an REXX EXEC implicitly sho7hills CLIST & REXX 3 Thu Apr 20, 2017 8:14 am
No new posts Copy load modules and alias vasanthz IBM Tools 5 Thu Apr 20, 2017 6:31 am
No new posts Can DFSPARM override SORTKEYS paramet... ashek15 DB2 2 Tue Jan 31, 2017 11:36 pm
No new posts Strange EXEC function call in z/VM Willy Jensen CLIST & REXX 3 Wed Oct 05, 2016 2:07 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us