Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref

Author Message
PUMA

New User

Joined: 08 Aug 2006
Posts: 10
Location: FRANCE

 Posted: Tue Dec 23, 2014 4:42 pm    Post subject: how to eliminate records from operation of two fields 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

DFSORT Moderator

Joined: 09 Mar 2011
Posts: 7312

 Posted: Tue Dec 23, 2014 5:24 pm    Post subject: Reply to: how to eliminate records from operation of two fie 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    Post subject: How to code the OMIT statement with the SUM ? Regards
enrico-sorichetti

Senior Member

Joined: 14 Mar 2007
Posts: 10648
Location: italy

 Posted: Tue Dec 23, 2014 8:48 pm    Post subject: Reply to: how to eliminate records from operation of two fie You must create an additional field with the sum and use omit on that
Pandora-Box

Moderator

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

Posted: Tue Dec 23, 2014 9:08 pm    Post subject:

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    Post subject:

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 --------------------------------------------------------------------------------------
 All times are GMT + 6 Hours
 Page 1 of 1

Search our Forum:

 Topic Author Forum Replies Posted Similar Topics Accumulating fields using syncsort Hemant L SYNCSORT 6 Fri Feb 07, 2020 2:55 am Compare 2 records of the same PS file... Twinkle22 COBOL Programming 10 Fri Jan 31, 2020 3:25 pm Include current & next records if... Manny Rizal DFSORT/ICETOOL 22 Mon Dec 30, 2019 9:14 am DFSMShsm Dataset Recovery with B and ... Joerg.Findeisen JCL & VSAM 2 Sat Oct 05, 2019 10:01 pm Formatting bit fields IanWorthington DFSORT/ICETOOL 9 Thu Sep 19, 2019 6:14 pm

 © 2003-2017 IBM MAINFRAME Software Support Division
 Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us