Interested to Buy Any Domain ? << Click Here >> for more details...
How can I override a dsn that is contained in a proc called
by another proc? I need to do the override in the calling
JCL.
- 3 Answers
- 13682 Views
- I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / muttiah
Let me frame the question in this way..
Say .. I have the job(Job1) which has a proc(proc1) and
this Proc1 is calling another Proc say Proc2..
So, you want to override the Dataset in a step of proc2 in
Proc1..This is possible..But overriding the dataset in
proc2 from the job1 is not possible.say proc A calls ProcB
and ProcB calls ProcC.. Then we can override details in
ProcC by ProbB only, but not with ProcA i guess you got the
point made.
//Job1 Job ....
//step1 exec proc1
//proc1 proc
//step1 exec proc2
//proc2 proc
//stepn exec pgm=iefbr14
//delstep dd dsn=Allinterivew.PS,disp=(mod,del,del),
// space=(trk,0)
Now change the code in proc1 as
//Proc1 proc
//step1 exec proc2
//stepn.delstep dd dsn=Deletefile.ps
In this way we can change the DS in proc2 from proc1. Hope
this makes much sense.
| Is This Answer Correct ? | 0 Yes | 0 No |
Answer / piyush mani
//PROC1 PROC
//STEP1 EXEC PGM=IEFBR14
//DD1 DD DSN=XYZ, DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSIN DD DUMMY
// PEND
//JJJ JCLLIB ORDER=PROCLIB PATH
//PROC2 PROC
//STEP2 EXEC PROC1
//JOBNAME JOB PARAMETERS
//JJJ JCLLIB ORDER=PROCLIB PATH
//PROC3 PROC
//STEP2.DD1 DSN=NEW NAME,DISP=SHR
THIS IS D WAY....
THIS PROG. WILL DO NOTHING IT'S JUST AN EXAMPLE..
GIV UR FEEDBACK
| Is This Answer Correct ? | 2 Yes | 3 No |
Answer / mani
CATALOG PROC
//CATPROC PROC
//STEP1 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//DD1 DD DSN=FILEA,
// DISP=(,CATLG,DELETE),
// SPACE=(TRK,(100,50),RLSE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
//SYSOUT DD SYSOUT=*
//
INVOKING JCL
//Z000960P JOB CLASS=E,MSGCLASS=E,NOTIFY=&SYSUID
// JCLLIB ORDER=Z000960.SOURCE.JCL
//MYPROC EXEC CATPROC
//STEP1.DD1 DD DSN=FILEB,DISP=(NEW,CATLG)
AFTER EXECUTE THE JCL FILEB WILL BE GETTING OVERRIDE
| Is This Answer Correct ? | 1 Yes | 3 No |
My Question is 1. How to cound no. of records in JCL. Please explain with an example. 2. How to execute only odd steps in JCL? I know EDIT TYPE = Inculde, Step Name = 1,3,5 and COND code for all even step. Anyone knows other than this.
Suppose i have 2 steps in my pgm. Step1- creates a file, Step2 - generates report from file in step1, What changes have to be made in Step2, so that if the file in Step1 is empty Step2 should not be executed? No changes to be made to Step1.
At what stage, operator can change the class and priority of a submitted job?
//S10 EXEC PGM=ICETOOL //TOOLMSG DD SYSOUT=* //DFSMSG DD SYSOUT=* //CON DD DSN=VAR.INPUT1,DISP=SHR // DD DSN=VAR.INPUT2,DISP=SHR //OUT DD DSN=VAR.OUTPUT,DISP=(NEW,CATLG,DELETE), // SPACE=(CYL,(5,5)),UNIT=SYSDA //TOOLIN DD * * Splice the needed data from the two VB files together SPLICE FROM(CON) TO(OUT) ON(5,5,CH) WITHALL - WITH(12,5) WITH(22,20) VLENMAX /*
Why 16 is used in calculating the DPRTY ? as, DPRTY = (num1, num2), THEN, DPRTY = 16* num1 + num2
Matching Logic in Jcl not in cobol.Could any one please answer this question
what is alternate index?
Max. No of DD statements in a job ?
Is it possible to code instream data in a PROC?
i have two flat files.i want to select one record from that file by using jcl.for example file1 contains emp no,name,joining date. file2 has same details.emp no is primary key. i will give empno.that emp details send to outfile.please let me know if any one knows it.give sample code.
Can you execute a PROC from another PROC?
what is inrec fields and outrec fields in sorting
COBOL 
