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
- 15513 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 |
I have mainpgm(abc) this is the only cobol pgm(non-db2).And this pgm calling subpgm name "acd" this also only cobol(non- Db)and this pgm calling some other subpgm this pgm has cobol-db2 pgm. 1) IF you calling static mode how to run and how to compile? 2) IF you calling dynamic mode how to run and how to compile? plz suggestion me.
What type of versions we r using in mainframe (jcl, cobol, db2, vsam, cics)?
Min no of member?s (PDS) in one directory block?
if we give TIME=0 how many sec that job/step
Describe the DD statement, its meaning, syntax and keywords?
What statement can be used to send data to another mvs jes3 node?
what is the difference between perform varying and perform
I have 5 steps in my jcl ,I need to execute first three steps and then 2nd step again ,4th and 5th steps if rc of 2nd step is zero
Explain the function of job statement in jcl?
A file has dta in S9(09) COMP format. How do I move the data into a character field X(10)?
what is a steplib
Could anyone please suggest me what is the maximum length of data that can be pass as input in //sysin dd * This was asked in interview. TIA
COBOL 
