Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Replacing Non alphanumeric to spaces

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

New User


Joined: 26 Oct 2006
Posts: 50
Location: Chennai

PostPosted: Mon May 25, 2009 9:50 pm    Post subject: Replacing Non alphanumeric to spaces
Reply with quote

Dear Friends,

Good day!

I need to put the fix for the below issue.

File A having 2 fields. Ex: F1 and F2. some records having non alpha numeric character (other than A-Z,0-9 and spaces). I have to replace all the non alphanumeric to spaces.

F1= pic x(20)
F2=PICX(40)

Recfm=FB,LrecL=1493

Could some one please help me to provide the JCL's?
Back to top
View user's profile Send private message

ksk

Active User


Joined: 08 Jun 2006
Posts: 356
Location: New York

PostPosted: Tue May 26, 2009 10:21 am    Post subject:
Reply with quote

Following link might be useful for your requirment.


http://www.ibmmainframes.com/about26775.html
Back to top
View user's profile Send private message
bbharathiraj
Warnings : 1

New User


Joined: 26 Oct 2006
Posts: 50
Location: Chennai

PostPosted: Tue May 26, 2009 8:51 pm    Post subject: Reply to: Replacing Non alphanumeric to spaces
Reply with quote

Thanks KSK. I got the solution to get the non alphanumeric value in the above link.
I would like to replace the non alpha numeric with spaces on the same sort process. The file may have more than 10 million rows.

Please help to provide the solution to replace the non-alpha numeric.
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Moderator


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

PostPosted: Tue May 26, 2009 10:00 pm    Post subject:
Reply with quote

Here's a DFSORT job that will do what you asked for. I assumed your F1 field starts at position 1 and your F2 field starts at position 40. Change the positions as needed.

Code:

//S1    EXEC  PGM=SORT
//SYSOUT    DD  SYSOUT=*
//SORTIN DD DSN=...  input file (FB/1493)
//SORTOUT DD DSN=...  output file (FB/1493)
//SYSIN    DD    *
  OPTION COPY
  INREC OVERLAY=(1:1,20,TRAN=ALTSEQ,31:1,40,TRAN=ALTSEQ)
  ALTSEQ CODE=(0040,0140,0240,0340,0440,0540,0640,0740,
   0840,0940,0A40,0B40,0C40,0D40,0E40,0F40,
   1040,1140,1240,1340,1440,1540,1640,1740,
   1840,1940,1A40,1B40,1C40,1D40,1E40,1F40,
   2040,2140,2240,2340,2440,2540,2640,2740,
   2840,2940,2A40,2B40,2C40,2D40,2E40,2F40,
   3040,3140,3240,3340,3440,3540,3640,3740,
   3840,3940,3A40,3B40,3C40,3D40,3E40,3F40,
   4140,4240,4340,4440,4540,4640,4740,
   4840,4940,4A40,4B40,4C40,4D40,4E40,4F40,
   5040,5140,5240,5340,5440,5540,5640,5740,
   5840,5940,5A40,5B40,5C40,5D40,5E40,5F40,
   6040,6140,6240,6340,6440,6540,6640,6740,
   6840,6940,6A40,6B40,6C40,6D40,6E40,6F40,
   7040,7140,7240,7340,7440,7540,7640,7740,
   7840,7940,7A40,7B40,7C40,7D40,7E40,7F40,
   8040,8140,8240,8340,8440,8540,8640,8740,
   8840,8940,8A40,8B40,8C40,8D40,8E40,8F40,
   9040,9140,9240,9340,9440,9540,9640,9740,
   9840,9940,9A40,9B40,9C40,9D40,9E40,9F40,
   A040,A140,A240,A340,A440,A540,A640,A740,
   A840,A940,AA40,AB40,AC40,AD40,AE40,AF40,
   B040,B140,B240,B340,B440,B540,B640,B740,
   B840,B940,BA40,BB40,BC40,BD40,BE40,BF40,
   C040,CA40,CB40,CC40,CD40,CE40,CF40,D040,
   DA40,DB40,DC40,DD40,DE40,DF40,E040,E140,
   EA40,EB40,EC40,ED40,EE40,EF40,
   FA40,FB40,FC40,FD40,FE40,FF40)
/*
Back to top
View user's profile Send private message
bbharathiraj
Warnings : 1

New User


Joined: 26 Oct 2006
Posts: 50
Location: Chennai

PostPosted: Thu May 28, 2009 8:26 pm    Post subject: Reply to: Replacing Non alphanumeric to spaces
Reply with quote

Thanks you very much Frank icon_lol.gif
Have a nice day
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
This topic is locked: you cannot edit posts or make replies. How to move a long alphanumeric data ... lind sh COBOL Programming 8 Mon Dec 05, 2016 7:51 pm
No new posts To trim spaces in a pipe delimited da... Nish84 COBOL Programming 16 Mon Oct 10, 2016 1:54 pm
No new posts Removing Extra Spaces in a comma sepa... Puspojit DFSORT/ICETOOL 3 Tue Sep 13, 2016 7:46 am
This topic is locked: you cannot edit posts or make replies. Alphanumeric to Numeric move on UNIX mistah kurtz COBOL Programming 16 Wed Jul 27, 2016 8:47 pm
No new posts Replacing Start Transid with LINK pkmurali CICS 12 Tue Apr 19, 2016 8:22 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us