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

BhavanaS · New User Joined: 20 Feb 2008 Posts: 17 Location: India

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,

expat · Posted: Tue Apr 22, 2008 11:40 am

Have you tried ?

dbzTHEdinosauer · Posted: Tue Apr 22, 2008 12:06 pm

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

or make 3 jobs.

stodolas · Posted: Tue Apr 22, 2008 5:29 pm

3 exec statements isn't bad....

dick scherrer · Posted: Tue Apr 22, 2008 8:07 pm

Hello,

BhavanaS · New User Joined: 20 Feb 2008 Posts: 17 Location: India

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,

Gnanas N · Posted: Wed Apr 23, 2008 2:35 pm

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 !