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
- 22735 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 |
How to print data of sequential file to Spool..?
When a dataset is UNCATALOGED in a JOBSTEP, how to get its UNIT and VOL in JCL to refer in subsequent steps ?
What is the difference between specifying DISP=OLD and DISP=SHR for a dataset?
difference between internal sort and external sort
how do u see jobs submitted before ur job ?
a jcl has 2 steps. How to code the jcl such that if step1 abends, then step2 runs. Else, job terminates with step1?
Is condition checking possible in jcl?
you have one jcl .in sort step 5 files are there.if out of 5 files if one file is uncataloged or not there then how will you correct your jcl so that problem does not come. you should not create this file externally.how will u overcome it.
How to Enter The Spool Area In Real Time?
the command to open a dataset directly from the JCL instead of opening it separately using 3.4 option.
how will be submit 1 jcl by other jcl? means that how 'll submit one job by other job??
how you can direct the data to spool using SYSOUT option?
COBOL 
