Interested to Buy Any Domain ? << Click Here >> for more details...
There are a set of 10 files and a customer will be
selecting random no of files(i.e they may be more than 2,
may not be in the order).Sometimes he might just select
one file or sometimes no files at all.How do you code a JCL
for this? Is it possible to code just JCL alone for this
problem?
- 9 Answers
- 18890 Views
- Infosys, I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / yogendra shinde
Hi,
I don't know the exact answer to this query.
But I have following approach.
Suppose I have a cobol pgm (say) PGM123 that is picking up
files randomly. (We definately need 1 application pgm to
process any of those 10 files randomly. This is my basic
assumption)
I will code a PARM or SYSIN DD * where in my customer can
change order of selection of files .
Say if customer enters PARM as ABCD in order then I will
move this PARM ABCD in a working storage variable in COBOL
PGM and will read each byte A (assign to process file-1)
if second byte is B then process file-2 of third byte is C
then process file-3 and so on. If the cutomer changes this
parm as EDA then files processed will be file-5 then file-4
then file-1.
If any body has different approach pls let me know.
| Is This Answer Correct ? | 7 Yes | 1 No |
Answer / tony prabu
First of all you can not just do this by jCL alone you
definitely need a application program like COBOL to do this.
Then depending upon the selection using sysin we can select
the file usin the EWVALUATE verb etc.
| Is This Answer Correct ? | 2 Yes | 0 No |
Answer / piyush mani
obsly file will b either in form of ps or pds so we can
accept the input of user dynamically(sysin/parm) as a ws variable
like this
//sysin *
4
1
5
6
7
/*
//
here 4 is the no of record we r selecting and cobol progr will run the logic of file-open para 4 times
and then we can open the file
as per d user requirement...
this is a cobol approach but how 2 do it by using jcl
plz any1 tell me...
| Is This Answer Correct ? | 1 Yes | 0 No |
Answer / anshuman
You can also do that through the use of external sort in jcl
| Is This Answer Correct ? | 0 Yes | 0 No |
Answer / pradeep
Anshuman,
Could you please provide us with some example so that we
can have a clarity on this.
| Is This Answer Correct ? | 0 Yes | 0 No |
Answer / sunil
really it,s tough to give an ans of this que.would u plz
suggest the actual ans of thi
| Is This Answer Correct ? | 0 Yes | 0 No |
Answer / bella
if you giving user an option to select u should create CICS
programs with prim screan for selection of any numbers of
files. Or none (exit)
| Is This Answer Correct ? | 0 Yes | 0 No |
Answer / shridhar
Depending on option it is easy. relate every entry in cics
to a no or alphabet. This use as evaluate in cobol.
as per options create a JCL in cobol an submit it to intrdr
for further process.
Your option on CICS screen and file names relating to those
options should/will be matching.
| Is This Answer Correct ? | 0 Yes | 0 No |
Answer / ajay tyagi
Question is not so easy. first of all we need to understand
customer requirement. actually what does he want to do with
files?
once we have clear view then we can suggest some solution
for that.
| Is This Answer Correct ? | 0 Yes | 1 No |
is there any utility for restarting a particular step in jcl reply soon ?
i have a jcl in which 4 & 5 step creates a new generation. 4th step output is as input for the 6th step & 5th step output is used as input in the 7th step. How they are refered as in the 6th & 7th steps? If the job abends in 6th step then how the 5th step output is refered in 7th step?
How to print the Output to SPOOL using MSGCLASS and SYSOUT ?
How to pass the parameter in parm using linkage section ? (syntax)?
whats SOC7?
One dataset is creating in the step1 with LRECL of 133 and the same dataset is used in the next step in DISP=SHR mode, but while scanning the JCL the following error is thrwon. Please verify the below JCL $/SEPP030.PROVIDER DD DSN=Z1225BT.F5750PG9.F5910PRV.QC#A6868 //ERRORRPT DD DSN=F5910&ST&IN..F5910EPP.ERRORRPT.P&CYCDATE, --ERRORRPT DD DSN=F5910PG.F5910EPP.ERRORRPT.P, // DISP=&DISNCD,UNIT=&DELQ, -- DISP= (NEW,CATLG,DELETE),UNIT=DELQ, // SPACE=(TRK, (30,15),RLSE), // DCB=&DCB2 -- DCB= (PPG.METMODEL,BLKSIZE=0,LRECL=133,RECFM=FB) $/SEPP030.ERRORRPT DD DSN=Z1225BT.F5910EPP.ERRORRPT.AOUTPUT //SEPP040 EXEC PGM=FILEAID,COND= (0002,EQ,SEPP030) //SYSPRINT DD SYSOUT=* //SYSLIST DD SYSOUT=* //DD01 DD DSN=SYSCMN.PROD.CCLIB (F5910EP1),DISP=SHR $/SEPP040.DD01 DD DSN=Z1225BT.TEST.CCLIB (F5910EP1) E1 - DSS20791E - DATA SET 'Z1225BT.F5910EPP.ERRORRPT.AOUTPUT' HAS AN LRECL OF 133 COULD NOT BE OPENED BECAUSE THE CODED LRECL WAS 80. // DD DSN=F5910&ST&IN..F5910EPP.ERRORRPT.P&CYCDATE, -- DD DSN=F5910PG.F5910EPP.ERRORRPT.P, // DISP=SHR $/ DD DSN=Z1225BT.F5910EPP.ERRORRPT.AOUTPUT please find the error code in the above mentioned lines and please suggest me about the error and the solution for that.
i want apply mainframe devolper with 3+ but i dont have that much of knowledge what isthe solution to get that much of knoweldge?
What is the maximum length of a single line of jcl?
In JCl which of this activities get executed if act002 abnormally terminates //job001 job ......... //act001 exec pgm=cobo01 //act002 exec pgm=cob02, cond=(01,le) //actoo3 exec pgm=cob03, cond=only //actoo4 exec pgm=con04
which utility is used to sort a file in jcl?
GDGs can be CREATED (not COPIED) only on DASD and NOT on tape drives ? Is it True ?
In My job I have 15 procs.and in each proc i have 3 steps. i want to execute 3 step in proc 10.is it possible? if possible how?
COBOL 
