Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
|
|
|
|
Here's a DFSORT job that will do what you asked for. I assumed your F1 field starts at position 1 and your F2 field starts at position 40. Change the positions as needed.
| Code: |
//S1 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=... input file (FB/1493)
//SORTOUT DD DSN=... output file (FB/1493)
//SYSIN DD *
OPTION COPY
INREC OVERLAY=(1:1,20,TRAN=ALTSEQ,31:1,40,TRAN=ALTSEQ)
ALTSEQ CODE=(0040,0140,0240,0340,0440,0540,0640,0740,
0840,0940,0A40,0B40,0C40,0D40,0E40,0F40,
1040,1140,1240,1340,1440,1540,1640,1740,
1840,1940,1A40,1B40,1C40,1D40,1E40,1F40,
2040,2140,2240,2340,2440,2540,2640,2740,
2840,2940,2A40,2B40,2C40,2D40,2E40,2F40,
3040,3140,3240,3340,3440,3540,3640,3740,
3840,3940,3A40,3B40,3C40,3D40,3E40,3F40,
4140,4240,4340,4440,4540,4640,4740,
4840,4940,4A40,4B40,4C40,4D40,4E40,4F40,
5040,5140,5240,5340,5440,5540,5640,5740,
5840,5940,5A40,5B40,5C40,5D40,5E40,5F40,
6040,6140,6240,6340,6440,6540,6640,6740,
6840,6940,6A40,6B40,6C40,6D40,6E40,6F40,
7040,7140,7240,7340,7440,7540,7640,7740,
7840,7940,7A40,7B40,7C40,7D40,7E40,7F40,
8040,8140,8240,8340,8440,8540,8640,8740,
8840,8940,8A40,8B40,8C40,8D40,8E40,8F40,
9040,9140,9240,9340,9440,9540,9640,9740,
9840,9940,9A40,9B40,9C40,9D40,9E40,9F40,
A040,A140,A240,A340,A440,A540,A640,A740,
A840,A940,AA40,AB40,AC40,AD40,AE40,AF40,
B040,B140,B240,B340,B440,B540,B640,B740,
B840,B940,BA40,BB40,BC40,BD40,BE40,BF40,
C040,CA40,CB40,CC40,CD40,CE40,CF40,D040,
DA40,DB40,DC40,DD40,DE40,DF40,E040,E140,
EA40,EB40,EC40,ED40,EE40,EF40,
FA40,FB40,FC40,FD40,FE40,FF40)
/*
|
|
|
.jpg)
