Interested to Buy Any Domain ? << Click Here >> for more details...
have in 100 records in a flat file i want to move records
like 1,3,5,7,9,11,.. to Output file1 and
2,4,6,8,10,12,14 .. records moved to Output file2..Pls
Provide real time answer..
- 5 Answers
- 12815 Views
- TCS, I also Faced
- E-Mail Answers
Answer Posted / harsha
For ODD records
//JOBNAME
//STEP1 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=INPUT DSN,DISP=SHR
//OUT1 DD DSN=OUTPUT DSN1,DISP=(NEW,CATLG),
// SPACE=(CYL,(5,5)),UNIT=SYSDA
//OUT2 DD DSN=OUTPUT DSN2,DISP=(NEW,CATLG),
// SPACE=(CYL,(5,5)),UNIT=SYSDA
//SYSIN DD *
SORT FIELDS=COPY
OUTFIL FNAMES=OUT1,STARTREC=1,SAMPLE=2
/*
//
For EVEN records
OUTFIL FNAMES=OUT2,STARTREC=2,SAMPLE=2
| Is This Answer Correct ? | 2 Yes | 3 No |
Post New Answer View All Answers
HOw can I get the negative sign while deduct high value from low value
How to print 10 to 1 if the input have only 10 digit number?
I have a File that has duplicate records. I need only those records that occur more than thrice.?
Explain how you can characterize tables in cobol?
Write some characteristics of cobol as means of business language.
Explain how to differentiate call by context by comparing it to other calls?
How you can read the file from bottom?
what happens if parmparameter passes zero bytes to the program
What the difference is between continue and next sentence?
can anybody post me about file-aid and changemen tools pls and give me reference if any mainframe guys are there
What are the different types of condition in cobol and write their forms.
how do you reference the rrds file formats from cobol programs
What are the different rules for performing sort operation?
IF I mention stop run in CICS what happens?
What is the utilization of copybook in cobol? Could we utilize a similar copybook?
