i have a sequencial file contains multiple records, i want
to extract one row which contains various fields like order
number,date,warehouse,.ect.. in to the another file by
accepting the order number from jcl. how can i do it. pls
help me..
Answer Posted / abhijit18in2002
Input file: ABCD.UTIL.SAMP has following records
Order Warehouse Place Date
10012,COMPUTER,INDIA,20090805
10013,COMPUTER,INDIA,20090805
10014,COMPUTER,INDIA,20090805
10015,COMPUTER,INDIA,20090805
10016,COMPUTER,INDIA,20090805
10017,COMPUTER,INDIA,20090805
//COUNTREC JOB ,'COUNT RECORDS',
// MSGCLASS=Q,CLASS=D,
// NOTIFY=&SYSUID
//STEP010 EXEC PGM=SORT,REGION=4096K
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=ABCD.UTIL.SAMP,DISP=SHR
//SORTOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
INCLUDE COND=(1,5,CH,EQ,C'10015')
/*
SORTOUT :- Ouput in SPool
10015,COMPUTER,INDIA,20090805
| Is This Answer Correct ? | 12 Yes | 2 No |
Post New Answer View All Answers
Name the sections present in data division.
Explain about different table spaces.
Why is it necessary that file needs to be opened in I-O mode for REWRITE?
Can you please let me know the centre name of INS certification in Kolkata.
If you are current on the owner of a set, what is the difference between obtain next and obtain first?
What is the difference between Global and External Variables?
please..could u give an example about USAGE IS POINTER ..and explain why and when we use it ?
How can i load all the data from a file to Table (array) in cobol.How i manage the occurs clause with out reading the file.Any options avilable ? Please can any one help me it is urgent?
what is the use of outrecord?
What is the default value(s) for an initialize? What keyword will allow for an override of the default?
What is amode(31)
What is amode(24), amode(31), rmode(24) and rmode(any) (applicable to only mvsesa enterprise server) ?
I have a File that has duplicate records. I need only those records that occur more than thrice.?
What are declaratives and what are their uses in cobol?
What type of SDLC u followed? Why?