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

Differentiate between the joblib and the steplib statements?

855


What is job control language?

605


List in order the hierarchical levels of jcl?

664


Explain about ISPF/TSO Commands

1308


What parameters can be used to limit the number of records written to a sysout dataset?

746






I need exexution process for JCL programs

1847


What is jcl in mainframe, and how many types of jcl statements are there for a job?

628


Explain how can a stopped job be started again?

636


Explain the function of a dd statement?

652


define cond parameter in jcl?

771


which utility is used a dummy utility?

787


what is DD statement is used in JCL?

679


How to find the UNIT and VOLUME of a (a) KEPT (b) UNCATALOGED and (c) CATALOGED dataset - using (i) JCL and using (ii) ISPF ?

2164


Explain about LMFREE�free data set from its association with data ID

997


In sms datasets, what is the function of the dd mgmtclas keyword?

857