how to eliminate records from operation of two fields

Author Message
PUMA

New User

Joined: 08 Aug 2006
Posts: 10
Location: FRANCE

 Posted: Tue Dec 23, 2014 4:42 pm 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
Bill Woodger

Moderator Emeritus

Joined: 09 Mar 2011
Posts: 7309
Location: Inside the Matrix

 Posted: Tue Dec 23, 2014 5:24 pm So you use OUTFIL with OMIT=.
PUMA

New User

Joined: 08 Aug 2006
Posts: 10
Location: FRANCE

 Posted: Tue Dec 23, 2014 8:27 pm How to code the OMIT statement with the SUM ? Regards
enrico-sorichetti

Superior Member

Joined: 14 Mar 2007
Posts: 10879
Location: italy

 Posted: Tue Dec 23, 2014 8:48 pm You must create an additional field with the sum and use omit on that
Pandora-Box

Global Moderator

Joined: 07 Sep 2006
Posts: 1592
Location: Andromeda Galaxy

Posted: Tue Dec 23, 2014 9:08 pm

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
 Code: 0001 0    0001
PUMA

New User

Joined: 08 Aug 2006
Posts: 10
Location: FRANCE

Posted: Fri Dec 26, 2014 4:10 pm

Hi All
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 --------------------------------------------------------------------------------------
 View Bookmarks All times are GMT + 6 Hours

 Topic Forum Replies Similar Topics how to eliminate null indicator value... DB2 7 To Omit records based n SORT condition DFSORT/ICETOOL 6 To fetch records that has Ttamp value... DFSORT/ICETOOL 5 ICETOOL returns no records JCL & VSAM 1 Compare 2 files and retrive records f... DFSORT/ICETOOL 3
Search our Forums:

 IBMMainframes.com is not an official and/or affiliated with IBM® in anyway Board Rules | FAQ | Downloads | Wiki | SiteMap | Contact Us