IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

GEtting Non numeric field value coming in numeric variable


IBM Mainframe Forums -> DFSORT/ICETOOL
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
raghavmcs

Active User


Joined: 14 Jul 2005
Posts: 105

PostPosted: Fri Jan 16, 2009 9:52 pm
Reply with quote

Dear Experts,
Before posting did I searched for around 1 hour in the forum but didnt got anything which could give the solution to my question.

I came across a situation where I have got a flat file in of lenght 100.There is fiels defined as packed decimal of lenght 4 which start at position 23 of the file.

Today date file in system is having non numberic value in some/or one of the reocrds in this file and before uploading this file into production for an emer fix I need to remove this records.

I tried to get these records from fileaid with searching with quick option for anything NE 0 option but it didnt reported anything for me.
The program is not capable enough of handling this situation in production as I said I am working on an emer fix to avoid the problem in tonight's run.


I hope I am clear and I am posting my question and right forumrequest you to please post a quick step to do this,thanks
Back to top
View user's profile Send private message
Arun Raj

Moderator


Joined: 17 Oct 2006
Posts: 2481
Location: @my desk

PostPosted: Fri Jan 16, 2009 10:32 pm
Reply with quote

raghavmcs,

Below are a few related topics which I got in less than 5 mins.

ibmmainframes.com/viewtopic.php?t=29815&highlight=eq+num
ibmmainframes.com/viewtopic.php?t=28477&highlight=eq+num
ibmmainframes.com/viewtopic.php?t=26505&highlight=eq+num
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Developer


Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA

PostPosted: Fri Jan 16, 2009 10:37 pm
Reply with quote

raghavmcs,

I don't understand why you would expect a check for NE 0 to find non-numeric values.

Here's a DFSORT job that will remove records that have a non-numeric PD value in positions 23-26.

Code:

//S1    EXEC  PGM=ICEMAN
//SYSOUT    DD  SYSOUT=*
//SORTIN DD DSN=...  input file
//SORTOUT DD DSN=...  output file
//SYSIN    DD    *
   OPTION COPY
   OMIT COND=(23,4,PD,NE,NUM)
/*


If it doesn't do what you want, then you need to give more details about what these non-numeric values look like - show some examples of these values in hex. Also give the RECFM and LRECL of your input file.
Back to top
View user's profile Send private message
raghavmcs

Active User


Joined: 14 Jul 2005
Posts: 105

PostPosted: Fri Jan 16, 2009 11:03 pm
Reply with quote

Experts thanks for all your replies and suggestions..

Frank appreciate your solution I was not knowing that DFSORT was having NUMERIC check option also,my bad...

we were able to recover the correct file whicih is going to get uploaded in tonights run.The recovered file was having all the correct data.

Frank,
Still I ran your solution with the file I was having with me and it gave the desired results by skiping the bad records,thanks
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> DFSORT/ICETOOL

 


Similar Topics
Topic Forum Replies
No new posts Issues Converting From ZD to Signed N... DFSORT/ICETOOL 4
No new posts Extracting Variable decimal numbers f... DFSORT/ICETOOL 17
No new posts Replace Multiple Field values to Othe... DFSORT/ICETOOL 12
No new posts Variable Output file name DFSORT/ICETOOL 8
No new posts Join 2 files according to one key field. JCL & VSAM 3
Search our Forums:

Back to Top