For ODD records //JOBNAME //STEP1 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //

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..

Question Posted / harsha

5 Answers
12884 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

Please Help Members By Posting Answers For Below Questions

How do we get current date from system with century in COBOL?

1384

Why did you choose to work with ibm mainframe cobol programming?

1119

please..could u give an example about USAGE IS POINTER ..and explain why and when we use it ?

2479

write a cobol logic. i have file that has 10 records .1 record go to first output file and second record goes to 2 output and etc

1243

What rules are to be followed while using the corresponding options?

1081

What is an in line perform? When would you use it? Anything else you wish to say about it.

1082

Write a program to enter and display the names of students in a class using the occurs clause.

1215

Can we change the password using ALTER? anyone tried and changed?

2021

What rules are followed by the search verb.

1127

i want to learn mainframe..any websites and material to learn from basic..? my mail id : rajeswaribe2010@gmail.com

2228

Name the divisions, which are available in a cobol program?

1239

I have File 1 occurs 5 times with Employee-ID,Employee-Name,Employee-Dept (EEE and MECH). I have File 2 occurs 10 times with Employee-ID,Employee-Name,Employee-Dept (EEE,CIVIL,CHEMICAL and MECH). In FIle 1 and FIle 2 , for matching Employee-DEPT (Only MECH) , we need to move entire records from file1 to file 2. We should not use 2D array. Your help is needed here.

1568

What is redefines clause in COBOL?

1299

What is link edit in cobol?

1207

explain sorting techniques in cobol program?

1208