Golgappa.net | Golgappa.org | BagIndia.net | BodyIndia.Com | CabIndia.net | CarsBikes.net | CarsBikes.org | CashIndia.net | ConsumerIndia.net | CookingIndia.net | DataIndia.net | DealIndia.net | EmailIndia.net | FirstTablet.com | FirstTourist.com | ForsaleIndia.net | IndiaBody.Com | IndiaCab.net | IndiaCash.net | IndiaModel.net | KidForum.net | OfficeIndia.net | PaysIndia.com | RestaurantIndia.net | RestaurantsIndia.net | SaleForum.net | SellForum.net | SoldIndia.com | StarIndia.net | TomatoCab.com | TomatoCabs.com | TownIndia.com
Interested to Buy Any Domain ? << Click Here >> for more details...

File1 has 100 records and file2 has 200 records i want to
copy 50 records which r in both file into file3

Answer Posted / madhavi chava

This can be coded as given below

//SORT1 EXEC PGM=SORT
//SORTJNF1 DD *
00000111111 000001234567 LOCAL =====
00000333333 000003456789 LOCAL =====
00000555555 000005678901 EXTRN =====
00000666666 000006789012 EXTRN =====
00000777777 000007890123 LOCAL =====
//SORTJNF2 DD *
00000222222 000002345678 ===== BCDEF
00000444444 000004567890 =====
DEFGH
00000666666 000006789012 ===== FGHIJ
00000888888 000008901234 ===== HIJKL
00000999999 000009012345 ===== JKLMN
//SORTOUT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
JOINKEYS FILES=F1,FIELDS=(1,11,A,13,12,A)
JOINKEYS FILES=F2,FIELDS=(1,11,A,13,12,A)
REFORMAT FIELDS=(F1:1,31,F2:32,5)
SORT FIELDS=COPY

output of the file3
00000666666 000006789012 EXTRN FGHIJ

Is This Answer Correct ?    2 Yes 0 No



Post New Answer       View All Answers


Please Help Members By Posting Answers For Below Questions

what happens when COND is coded in JOB statement and when COND is coded inside EXEC statement?

1254


I have 60 steps in the JCL and want to Execute Only First from PROC by overriding in JCL ?

1800


How does the jcl specify the job to os?

1112


I have a COBOL program that ACCEPTs some input data. How do you code the JCL statement for this?

1147


Explain the purpose of dd dummy statement?

1180


Explain the function of the dd dcb keyword?

1210


What is the significance of addrspc parameter in exec statement?

1160


When space is allocated for an output dataset, what units can be used?

1228


how do you access an uncataloged dataset in a jcl?

1671


Explain the jcl exec statement?

1105


Is automatic restart possible in jcl?

1169


Is it possible to left uncode disp? If yes, how?

1148


What is the function of the dd mgmtclas keyword in sms datasets?

1198


What methodology can be adapted to transfer data to a program that is coded using the exec statement?

1162


What are the 4 fields in dd statement?

1212