Mainframe, MVS and zOS Discussion

No problem Nic.

Thanks
Magesh

Nic,

Mistake, agreed Datasets.

Thanks
Magesh

Sorry Nic, I couldn't understand, As there is only one record in each dataset (not file) why are you sorting at all? As per the requirement, the input and output dataset has multiple records. File 1: AAA BBB CCC File 2: 9999 8888 7777 Output File: AAA 9999 BBB 8888 CCC 7777 Thanks Magesh

Also you may use JOINKEYS, but consumes three pass without SORTing, where my previous solution consumes sorting with two pass. //S1 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //INA DD DSN=FILE1,DISP=SHR //INB DD DSN=FILE2,DISP=SHR //SORTOUT DD SYSOUT=* //SYSIN DD * OPTION COPY JOINKEYS F1=INA,FIELDS=(81,08,...

Imran Lamba, Assuming LRECL=80. //SORT010 EXEC PGM=SORT //SORTIN DD * BEGIN // DD DSN=FIRST.FIL,DISP=SHR // DD * BEGIN // DD DSN=SECOND.FIL,DISP=SHR //SORTOUT DD SYSOUT=* //SYSOUT DD SYSOUT=* //SYSIN DD * INREC IFTHEN=(WHEN=GROUP,BEGIN=(1,5,CH,EQ,C'BEGIN'), PUSH=(81:SEQ=8)) SORT FIELDS=(81,8,CH,A) ...

Roohi, what is the output LRECL ? Whether fields you have are in fixed length or length varies ? Assuming output LRECL=80 and All the fields have fixed length then use the below code and you have only one record in each file. File 1(1,5) and File2 (1,14) //SORT010 EXEC PGM=SORT //SORTIN DD DSN=YOUR...

Yes, return code would be zero when file1< file2
And file1=file2.

It will set return code 4 when file1>file2.

Thanks
Magesh

mahigill,

I think still my solution works when file01<file02.

What made you think in other way.

Regards,
Magesh

Robert 10669 Magesh_J, mahigill: have either of you confirmed that your "solution" generates a return code of 4 if AND ONLY IF the record in the first file is greater than the record in the second file? If not, then at best you have generated a partial solution and at worst you have create...

Assuming input is in sorted order 1,2 and the value field is right aligned (4,3), in your example you are showing it as left aligned. Here is the solution : OPTION COPY OUTFIL REMOVECC,NODETAIL, SECTIONS=(1,2, TRAILER3=(1,2,X,TOT=(4,3,ZD,TO=ZD,LENGTH=3),X,COUNT=(EDIT=(IT)))) If left aligned then //S...

Mahigill,

using sort fields unnecessarily is waste of cpu resource.
Even u can use joinkeys to achive this, sill requires three pass.

In other words there are many ways to achieve.

Your goal should be providing optimal solution if possible, rather than a solution

Nitin Gadge, why do you need a SORT FIELDS when the file is already in sorted order 1,10. SUM FIELDS=NONE will remove all your duplicates record,you will not get the desired output. use the below code to get the desired results. //SYSIN DD * OPTION COPY OUTFIL REMOVECC,NODETAIL, SECTIONS=(1,10, TRA...

SarkarMain Here is code for you. //S1 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SORTIN DD DSN=UR FILE1 // DD DSN=UR FILE2 //SORTOUT DD SYSOUT=* //SYSIN DD * INREC IFTHEN=(WHEN=GROUP, RECORDS=2, PUSH=(81:1,08,SEQ=1)) OPTION COPY,STOPAFT=2 OUTFIL INCLUDE(89,1,CH,EQ,C'2',AND, 1,8,CH,GE,81,8,CH), NULLOFL=RC...