Interested to Buy Any Domain ? << Click Here >> for more details...
i have 1000 records in input file and i want to sort it and
the first 200 records to be placed in output file. how to
do that??
- 14 Answers
- 26537 Views
- L&T, I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / kavya
Write a sort step to sort the entire file. Write another
sort step with the following sort card
SORT FIELDS=COPY,
STOPAFT=200
END
| Is This Answer Correct ? | 19 Yes | 1 No |
Answer / sudeep
sorry kavya is right.I haven't red the first part.sorting
the file completely at first.
| Is This Answer Correct ? | 3 Yes | 0 No |
Answer / felix
sorry. my previous answer is wrong.
use the following coding in JCL.
First u should sort the file using sort pgm. enter the
sorted file path in input data set.
//SYSIN DD*
REPRO
INDATASET(WRITE THE INPUT PATH)
OUTDATASET(WRITE THE OUTPUT PATH)
COUNT(200)
| Is This Answer Correct ? | 4 Yes | 2 No |
Answer / chinmay
//job1 job 65493,jena,class=a prty=9
//step1 exec pgm=sort
//sysprint dd sysout=*
//indd dd dsn=file1.cob, disp= shr
//outdd dd dsn=file2.cob, disp=(new,catlg,delete)
// unit=sysda,space=(cyl,4,2),rlse)
//sysin dd *
sort fields=(2,4,ch,a)
/*
//step2 exec pgm=idcams
//sysprint dd sysout=*
//sysin dd *
repro -
infile(indd)
outfile(outdd)
count(200)
/*
//
| Is This Answer Correct ? | 2 Yes | 0 No |
Answer / sivakumar sekharannair
Kavya's answer is correct.
i used the following control card
//SYSIN DD *
SORT FIELDS=(1,3,CH,A),
STOPAFT=8
Input file contained the following records
IMSDEVELOPER CSAA
IMSPRODSUPPORTXEROX
IMSTESTER EMDAC
IMSDEVELOPER CSAA
CICPRODSUPPORTXEROX
IMSTESTER EMDAC
The output i got was
CICPRODSUPPORTXEROX
DB2PRODSUPPORTEMDAC
IMSDEVELOPER XEROX
IMSDEVELOPER CSAA
IMSDEVELOPER CSAA
IMSPRODSUPPORTXEROX
IMSTESTER EMDAC
IMSTESTER EMDAC
| Is This Answer Correct ? | 1 Yes | 0 No |
Answer / sivakumar sekharannair
The input records shown in the above message contained a
few records9total 10 records) also which was misset while
cut/copy
| Is This Answer Correct ? | 0 Yes | 0 No |
Answer / satish
hi to all
the example is useful to our requirement,example is i have
some records and i sort it and first 5 records to be placed
in o/p file
//STEP1 EXEC PGM=SORT
//SORTIN DD *
b
c
d
e
f
g
h
i
j
k
l
/*
//OUT DD dsn=output file*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=(1,1,CH,D)
outfil fnames=out,endrec=5
/*
| Is This Answer Correct ? | 0 Yes | 0 No |
Answer / msm
//SYSIN DD *
DEBUG ABEND
SORT FIELDS=(8,11,CH,A)
SORT FIELDS=COPY,STOPAFT=200
END
| Is This Answer Correct ? | 0 Yes | 0 No |
What are SD37, SB37, SE37 abends?
Can we write same stepname for one or more steps in on job ?
Which storage devices are grouped under DASD and SYSDA ?
what JCL Procedures?
can we bowse or edit the GDG dataset if it is a tape entry?
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.
if we give two job cards in a single what happens
Is it possible to take a PDS and write it to a GDG? If so, can you provide an example? Thanx
How to send different PARM values based on the any condition to the program in a JCL? For example :- If the time is before 12:00 pm, I want to send "A" to some program and if it past 12:00 pm , I want to send "B" as a PARM value to that program. How to do it thur JCL only?
We can use PASS with permanent datasets also. THEN Which is the condition in which we may use PASS (instead of KEEP) with permanent data sets, while there is no need to specify UNIT and VOL for them like temporary data sets (in cas we use KEEP for permanent data sets) ?
MOD, DELETE; What does a disposition of (,DELETE) mean ?
What is maximum length of block size?
5 Answers Cap Gemini, Kanbay, TCS,
COBOL 
