Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
To OMIT records with 1st 4 position all not numeric?

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
View previous topic :: :: View next topic  
Author Message
Judy85

New User


Joined: 05 Aug 2011
Posts: 17
Location: China

PostPosted: Wed Jan 11, 2012 6:11 pm    Post subject: To OMIT records with 1st 4 position all not numeric?
Reply with quote

May I know how to code to omit records with 1st 4 positions of a field all not numeric?

Code:
OMIT=(      )
Back to top
View user's profile Send private message

Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7314

PostPosted: Wed Jan 11, 2012 6:23 pm    Post subject: Reply to: To OMIT records with 1st 4 position all not numeri
Reply with quote

What sort of numeric? Zoned? Packed?
Back to top
View user's profile Send private message
Judy85

New User


Joined: 05 Aug 2011
Posts: 17
Location: China

PostPosted: Wed Jan 11, 2012 6:31 pm    Post subject: Reply to: To OMIT records with 1st 4 position all not numeri
Reply with quote

I use below code currently, but it looks too long, so I am searching for a good solution.
Code:
OUTFIL FNAMES=SRT,OMIT=(94,1,CH,NE,C'0',&,94,1,CH,NE,C'1',&,          +
            94,1,CH,NE,C'2',&,94,1,CH,NE,C'3',&,94,1,CH,NE,C'4',&,    +
            94,1,CH,NE,C'5',&,94,1,CH,NE,C'6',&,94,1,CH,NE,C'7',&,    +
            94,1,CH,NE,C'8',&,94,1,CH,NE,C'9',|,                      +
            95,1,CH,NE,C'0',&,95,1,CH,NE,C'1',&,                      +
            95,1,CH,NE,C'2',&,95,1,CH,NE,C'3',&,95,1,CH,NE,C'4',&,    +
            95,1,CH,NE,C'5',&,95,1,CH,NE,C'6',&,95,1,CH,NE,C'7',&,    +
            95,1,CH,NE,C'8',&,95,1,CH,NE,C'9',|,                      +
            96,1,CH,NE,C'0',&,96,1,CH,NE,C'1',&,                      +
            96,1,CH,NE,C'2',&,96,1,CH,NE,C'3',&,96,1,CH,NE,C'4',&,    +
            96,1,CH,NE,C'5',&,96,1,CH,NE,C'6',&,96,1,CH,NE,C'7',&,    +
            96,1,CH,NE,C'8',&,96,1,CH,NE,C'9',|,                      +
            97,1,CH,NE,C'0',&,97,1,CH,NE,C'1',&,                      +
            97,1,CH,NE,C'2',&,97,1,CH,NE,C'3',&,97,1,CH,NE,C'4',&,    +
            97,1,CH,NE,C'5',&,97,1,CH,NE,C'6',&,97,1,CH,NE,C'7',&,    +
            97,1,CH,NE,C'8',&,97,1,CH,NE,C'9')                         
Back to top
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7314

PostPosted: Wed Jan 11, 2012 6:44 pm    Post subject: Reply to: To OMIT records with 1st 4 position all not numeri
Reply with quote

Consult the DFSORT documentation for INCLUDE/OMIT and you'll find something called NUM which, EQ,NUM gives you numeric, NE,NUM gives you non-numeric.
Back to top
View user's profile Send private message
Judy85

New User


Joined: 05 Aug 2011
Posts: 17
Location: China

PostPosted: Wed Jan 11, 2012 7:24 pm    Post subject: Reply to: To OMIT records with 1st 4 position all not numeri
Reply with quote

Thank you for your advise, I have got the correct code by referring to the document. icon_biggrin.gif
Below is the code which works well.
Code:
  OMIT=(94,4,FS,NE,NUM)
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Moving a COMP-3 Variable to a Numeric... ajayachander COBOL Programming 2 Thu Dec 14, 2017 5:46 pm
No new posts Inefficient BUILD - VB records paddin... Daniel Prosser SYNCSORT 4 Thu Dec 14, 2017 3:52 pm
No new posts ISSUE IN copying Sequential file reco... thesumitk JCL & VSAM 2 Wed Dec 13, 2017 3:07 pm
No new posts Merging 2 records at multiple rows wi... Bijesh DFSORT/ICETOOL 2 Wed Dec 06, 2017 1:50 am
No new posts Increment number for every group of r... srajendran2 DFSORT/ICETOOL 7 Thu Nov 09, 2017 10:31 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us