|
View previous topic :: View next topic
|
| Author |
Message |
PUMA
New User
Joined: 08 Aug 2006
Posts: 12
Location: FRANCE
|
|
|
|
I want to eliminate records after an arithmetic operation (a sum) of two fields resulting as zero.
On a record M1 field + M2 field give zero.
Amount M1 : position 1 PIC 9(10)
Amount M2 : position 12 PIC 9(10)
Regards |
|
| Back to top |
|
 |
Bill Woodger
Moderator Emeritus
Joined: 09 Mar 2011
Posts: 7309
Location: Inside the Matrix
|
|
|
|
| So you use OUTFIL with OMIT=. |
|
| Back to top |
|
|
PUMA
New User
Joined: 08 Aug 2006
Posts: 12
Location: FRANCE
|
|
|
|
How to code the OMIT statement with the SUM ?
Regards |
|
| Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10894
Location: italy
|
|
|
|
You must create an additional field with the sum
and use omit on that |
|
| Back to top |
|
|
Pandora-Box
Global Moderator
.jpg)
Joined: 07 Sep 2006
Posts: 1592
Location: Andromeda Galaxy
|
|
|
|
Sample syntax
| Code: |
//SORTIN DD *
0000 0
0001 0
0000 0
0000 0
0000 0
0000 0
//SORTOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
OUTFIL FNAMES=SORTOUT,BUILD=(1:1,10,11:1,4,ZD,ADD,6,1,ZD,
TO=ZD,LENGTH=4),
INCLUDE=(1,4,ZD,NE,0,OR,6,1,ZD,NE,0)
|
Output
|
|
| Back to top |
|
|
PUMA
New User
Joined: 08 Aug 2006
Posts: 12
Location: FRANCE
|
|
|
|
Hi All
Many thinks for your help.
I just investigated more on the DFSORT book !!!!
Regards
| Code: |
My INPUT :
000001 000000020é 000000040è 11111111111111BBBBBBBBBBBBBBBBBBCCCCCCCCCCCCCCCC
FFFFFFFFFC4FFFFFFFFFD4FFFFFFFFFFFFFFCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC4444444444
00000002000000000040001111111111111122222222222222222233333333333333330000000000
--------------------------------------------------------------------------------------
000002 000000030é 000000030è 22222222222222BBBBBBBBBBBBBBBBBBCCCCCCCCCCCCCCCC
FFFFFFFFFC4FFFFFFFFFD4FFFFFFFFFFFFFFCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC4444444444
00000003000000000030002222222222222222222222222222222233333333333333330000000000
--------------------------------------------------------------------------------------
000003 000000020é 000000040è 33333333333333BBBBBBBBBBBBBBBBBBCCCCCCCCCCCCCCCC
FFFFFFFFFC4FFFFFFFFFD4FFFFFFFFFFFFFFCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC4444444444
00000002000000000040003333333333333322222222222222222233333333333333330000000000
--------------------------------------------------------------------------------------
000004 000000010é 000000010è 44444444444444BBBBBBBBBBBBBBBBBBCCCCCCCCCCCCCCCC
FFFFFFFFFC4FFFFFFFFFD4FFFFFFFFFFFFFFCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC4444444444
00000001000000000010004444444444444422222222222222222233333333333333330000000000
--------------------------------------------------------------------------------------
000005 000000020é 000000040è 55555555555555BBBBBBBBBBBBBBBBBBCCCCCCCCCCCCCCCC
FFFFFFFFFC4FFFFFFFFFD4FFFFFFFFFFFFFFCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC4444444444
00000002000000000040005555555555555522222222222222222233333333333333330000000000
00000002000000000040005555555555555522222222222222222233333333333333330000000000
SORT FIELDS=COPY
INREC FIELDS=(1,70,(1,10,ZD,ADD,12,10,ZD),TO=ZD,
LENGTH=10)
OUTFIL OMIT=(71,10,ZD,EQ,+0),OUTREC=(1,70,10X)
My Output :
000001 000000020é 000000040è 11111111111111BBBBBBBBBBBBBBBBBBCCCCCCCCCCCCCCCC
FFFFFFFFFC4FFFFFFFFFD4FFFFFFFFFFFFFFCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC4444444444
00000002000000000040001111111111111122222222222222222233333333333333330000000000
--------------------------------------------------------------------------------------
000002 000000020é 000000040è 33333333333333BBBBBBBBBBBBBBBBBBCCCCCCCCCCCCCCCC
FFFFFFFFFC4FFFFFFFFFD4FFFFFFFFFFFFFFCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC4444444444
00000002000000000040003333333333333322222222222222222233333333333333330000000000
--------------------------------------------------------------------------------------
000003 000000020é 000000040è 55555555555555BBBBBBBBBBBBBBBBBBCCCCCCCCCCCCCCCC
FFFFFFFFFC4FFFFFFFFFD4FFFFFFFFFFFFFFCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC4444444444
00000002000000000040005555555555555522222222222222222233333333333333330000000000
-------------------------------------------------------------------------------------- |
|
|
| Back to top |
|
|
|
|
|
