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??
Answer Posted / 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 |
Post New Answer View All Answers
Suppose I have a program in cobol name ”careerride” and want to execute the program by jcl. Specify the process?
Matching Logic in Jcl not in cobol.Could any one please answer this question
What do you understand by the term job time – out and how can you overcome that?
What are the utility programs in jcl?
How does the jcl specify the job to os?
How can values be passed from the job stream to an executable program?
In sms datasets, what is the function of the dd mgmtclas keyword?
How to find the UNIT and VOLUME of a (a) KEPT (b) UNCATALOGED and (c) CATALOGED dataset - using (i) JCL and using (ii) ISPF ?
what is the JCL statement consists of?
What are s0c1, s0c4, s0c5, s0c7 and socb?
if we want to use a gdg which is already created by some job, then how to use the reference of the last generation in a jcl?
WORKING-STORAGE SECTION. 77 W-A PIC 9(3)V99 VALUE 23.75. 77 W-B PIC ZZ9V99 VALUE 123.45. PROCEDURE DIVISION. MOVE W-A TO W-B. DISPLAY W-B. STOP RUN. compiler : IGYGR1080-S A "VALUE" clause literal was not compatible with the data category o subject data item. The "VALUE" clause was discarded. WORKING-STORAGE SECTION. 77 W-A PIC 9(3)V99 VALUE 23.75. 77 W-B PIC ZZ9V99. PROCEDURE DIVISION. MOVE 123.45 TO W-B. MOVE W-A TO W-B. DISPLAY W-B. STOP RUN. 2375
what is the use of JCL?
List the different jcl statements that are not permitted in the procedures?
Is it possible to code instream data in a PROC?