krisprems
Active Member
Joined: 27 Nov 2006 Posts: 649 Location: India
|
|
|
|
Prabha
Try this DFSORT solution
Code: |
//*******************************************************
//STEP1 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
123456 AAA 1A
123527 AAA 1A
123527 AAA 1A
123527 AAA 1B
123527 AAA 1C
123527 BBB 2A
123527 BBB 2B
123527 CCC 1A
/*
//SORTOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
INREC BUILD=(SEQNUM,1,ZD,RESTART=(1,10),3:1,78)
/*
|
|
|