MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Regarding running Export command through JCL

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Utilities
View previous topic :: View next topic  
Author Message
G P Naidu
Beginner


Joined: 04 Dec 2003
Posts: 11
Topics: 9
Location: delhi
PostPosted: Mon Dec 08, 2003 6:11 am    Post subject: Regarding running Export command through JCL Reply with quote
We r running following command through QMF successfully
EXPORT TABLE <TABLE NAME> TO <DATA SET NAME(PS)>
How we run the above command through JCL?
Like i will give one example JCL to run select,delete queries we can run
Code:

//DSNTEP2 EXEC PGM=IKJEFT01
//SYSTSPRT  DD  SYSOUT=*
//SYSPRINT  DD  SYSOUT=*
//SYSTSIN   DD  *
 DSN  SYSTEM(DB2P)
 RUN PROGRAM(DSNTEP2) PLAN(DSNTEP2)  -
 LIB('F730.DB2.DB2P.RUNLIB.LOAD')
 END
//*
//SYSIN     DD  *
     DELETE FROM GPRXP00D.BALLOT
     WHERE RECORD_DATE = '2003-11-05'
//

Please give me JCL for EXPORT COMMAND?
Back to top
View user's profile Send private message AIM Address
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12394
Topics: 75
Location: San Jose
PostPosted: Mon Dec 08, 2003 7:42 am    Post subject: Reply with quote
G.P naidu,

Check this proc which is used to run QMF in batch.Consult your DBA for appropriate dataset names and/or sample batch QMF JCL at your shop.

Code:

//QMFBATCH PROC
//******************************************************************
//*                  PROC BEGINS HERE                              *
//******************************************************************
//QMF      EXEC  PGM=IKJEFT01,
//             DYNAMNBR=30,TIME=15
//******************************************************************
//*                  PROGRAM LOAD LIBRARIES                        *
//******************************************************************
//STEPLIB  DD  DISP=SHR,DSN=SYS9.QMFP.DSQLOAD               ***  QMF
//         DD  DISP=SHR,DSN=SYS1.GDDMLOAD                   ***  GDDM
//         DD  DISP=SHR,DSN=SYS9.DB2P.DSNLOAD               ***  DB2
//******************************************************************
//*                  DATASETS USED BY TSO                          *
//******************************************************************
//SYSUADS  DD  DISP=SHR,DSN=SYS1.UADS
//SYSEXEC  DD  DISP=SHR,DSN=SYS9.QMFP.DSQEXECE
//SYSPROC  DD  DISP=SHR,DSN=SYS9.DB2P.DSNCLIST
//         DD  DISP=SHR,DSN=SYS9.QMFP.DSQCLSTE
//         DD  DISP=SHR,DSN=SYS1.CMDPROC
//SYSLBC   DD  DISP=SHR,DSN=SYS1.BRODCAST
//******************************************************************
//*                  DATASETS USED BY ISPF                         *
//******************************************************************
//ISPPLIB  DD  DISP=SHR,DSN=SYS4.PP.ISPPLIB
//         DD  DISP=SHR,DSN=SYS1.ISP.V3R1M0.ISPPLIB
//         DD  DISP=SHR,DSN=SYS9.QMFP.DSQPLIBE
//ISPMLIB  DD  DISP=SHR,DSN=SYS4.PP.ISPMLIB
//         DD  DISP=SHR,DSN=SYS1.ISP.V3R1M0.ISPMLIB
//         DD  DISP=SHR,DSN=SYS9.QMFP.DSQMLIBE
//ISPSLIB  DD  DISP=SHR,DSN=SYS4.PP.ISPSLIB
//         DD  DISP=SHR,DSN=SYS1.ISP.V3R1M0.ISPSLIB
//         DD  DISP=SHR,DSN=SYS9.QMFP.DSQSLIBE
//ISPTLIB  DD  DISP=SHR,DSN=SYS4.PP.ISPTLIB
//         DD  DISP=SHR,DSN=SYS1.ISP.V3R1M0.ISPTLIB
//ISPPROF  DD  UNIT=SYSDA,SPACE=(TRK,(9,1,4)),
//             DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB)
//SYSUDUMP DD  SYSOUT=*
//******************************************************************
//*                  QMF/GDDM MAPS                                 *
//******************************************************************
//ADMGGMAP DD  DISP=SHR,DSN=SYS9.QMFP.DSQMAPE
//******************************************************************
//*                  DATASETS USED BY QMF                          *
//******************************************************************
//DSQPRINT DD  SYSOUT=A,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=1330)
//DSQDEBUG DD  SYSOUT=*,DCB=(RECFM=FBA,LRECL=121,BLKSIZE=1210)
//DSQUDUMP DD  SYSOUT=*,DCB=(RECFM=VBA,LRECL=125,BLKSIZE=1632)
//DSQSPILL DD  DSN=&&SPILL,DISP=(NEW,DELETE),
//             UNIT=TEST80,SPACE=(CYL,(1,1),RLSE),
//             DCB=(RECFM=F,LRECL=4096,BLKSIZE=4096)
//SYSTSPRT DD  SYSOUT=*


Alternatively you can use QMF line command "BATCH" and this will submit a job which basically runs the above shown proc.

Hope this helps...

cheers

kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Utilities All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group