Portal | 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

Moderator Emeritus

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

 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: 10700
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 Group selective VB records - Trailer ... Premnath_TJ DFSORT/ICETOOL 12 Sun Sep 13, 2020 3:38 am SORT the records based on the second ... Ramsee SYNCSORT 1 Wed Aug 19, 2020 3:01 pm to Insert Rows from File1 to File 2 ... Arun_Tupili DFSORT/ICETOOL 1 Thu Aug 13, 2020 6:22 pm FIELDS OVERLAPPING WITH MODE = IN OR ... sandeep prajapati CICS 3 Tue Aug 11, 2020 4:05 pm Retrieve multiple records with metaco... Jose Juan J CA Products 0 Sat Jul 25, 2020 1:36 am

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