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
 

 

Conversion JCL To replace >.< with ><

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

New User


Joined: 09 Jul 2008
Posts: 6
Location: Hyderabad

PostPosted: Thu Jul 10, 2008 10:02 am    Post subject: Conversion JCL To replace >.< with ><
Reply with quote

Hi,
Can any one tell me how to write conversion JCL for the below requirement

I have a input data set ( Organization : PS,Record format : FB,Record length . . . : 10000,Block size . . . . : 10000) with some information which is shown below.....Now what my requirement is if you see the below line >.< should be changed >< (we dont know the position may be we can expect so many like that in a single record) whereever i found this >.< i need to change it to >< ...

Data in the input data set:

<?xml version="1.0" encoding="utf-8"?>.<ims:ShowInvoice xmlns:oa="http:/
Back to top
View user's profile Send private message

karthikr44

Active User


Joined: 25 Aug 2007
Posts: 235
Location: Chennai

PostPosted: Thu Jul 10, 2008 2:13 pm    Post subject: Reply to: Conversion JCL To replace >.< with ><
Reply with quote

Hi,

you can use a simple ISPF EDIT command.

c all '>.<' '><'

Regards
R KARTHIK
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne

PostPosted: Thu Jul 10, 2008 3:16 pm    Post subject:
Reply with quote

single record blocked file with lrecl 10,000, if there are a lot of records, ISPF will probably substitute BROWSE when you try to edit. But the OP should try, will be the quickest method.
Back to top
View user's profile Send private message
Anuj Dhawan

Senior Member


Joined: 22 Apr 2006
Posts: 6258
Location: Mumbai, India

PostPosted: Thu Jul 10, 2008 3:29 pm    Post subject:
Reply with quote

TS is searching for a JCL instead of ISPF command, I think..
Quote:
tell me how to write conversion JCL
Back to top
View user's profile Send private message
sankhu2009

New User


Joined: 09 Jul 2008
Posts: 6
Location: Hyderabad

PostPosted: Thu Jul 10, 2008 4:26 pm    Post subject: Reply to: Conversion JCL To replace >.< with ><
Reply with quote

yes iam asking in JCL not ISPF commands
Back to top
View user's profile Send private message
Anuj Dhawan

Senior Member


Joined: 22 Apr 2006
Posts: 6258
Location: Mumbai, India

PostPosted: Thu Jul 10, 2008 5:22 pm    Post subject:
Reply with quote

Hi,

Try this:
Code:
//STEP0001 EXEC PGM=FILEAID                                           
//SYSPRINT DD SYSOUT=*                                                 
//DD01 DD *                                                           
<?XML VERSION="1.0" ENCODING="UTF-8"?>.<IMS:SHOWINVOICE XMLNS:OA="HTTP:
//DD01O DD SYSOUT=*                                                   
//SYSIN DD *                                                           
*                                                                     
$$DD01 COPY OUT=0,                                                     
            EDITALL=(1,0,C'>.<',                                       
                     C'><')                                           
//*                                                                   
Back to top
View user's profile Send private message
sankhu2009

New User


Joined: 09 Jul 2008
Posts: 6
Location: Hyderabad

PostPosted: Thu Jul 10, 2008 5:56 pm    Post subject: Reply to: Conversion JCL To replace >.< with ><
Reply with quote

we dont Have FILEAID option and also one more is date is in Input dataset we need to read it and then we need to find where we are getting >.< then it should be replace by ><
Back to top
View user's profile Send private message
Anuj Dhawan

Senior Member


Joined: 22 Apr 2006
Posts: 6258
Location: Mumbai, India

PostPosted: Mon Jul 14, 2008 2:36 pm    Post subject: Re: Reply to: Conversion JCL To replace >.< with >&
Reply with quote

Hi,
sankhu2009 wrote:
we dont Have FILEAID option
Might be being lil picky, however, please let me know, did you try the JCL posted ? If yes, what was the error message/s ?

Quote:
also one more is date is in Input dataset we need to read it
Sorry I didn't get this, Please show some example with the input & expected output, with their LRECL & RECFM.
Back to top
View user's profile Send private message
sankhu2009

New User


Joined: 09 Jul 2008
Posts: 6
Location: Hyderabad

PostPosted: Mon Jul 14, 2008 5:47 pm    Post subject: Reply to: Conversion JCL To replace >.< with ><
Reply with quote

Iam getting S806 U0000 abend .....after submitting the below JCL...

//STEP0001 EXEC PGM=FILEAID
//SYSPRINT DD SYSOUT=*
//DD01 DD DSN=AX.DURGA.EIMS3.OUT.EBC.D070808,DISP=SHR
//DD02 DD DSN=AX.DURGA.EIMS.OUT.EBCDOT.D071408,
// DISP=(,CATLG,DELETE),SPACE=(TRK,(100,100),RLSE),
// DCB=(RECFM=FB,LRECL=10000)
//SYSIN DD *
$$DD01 COPY OUT=0,
EDITALL=(1,0,C'>.<',C'><')
//
Back to top
View user's profile Send private message
sankhu2009

New User


Joined: 09 Jul 2008
Posts: 6
Location: Hyderabad

PostPosted: Mon Jul 14, 2008 5:49 pm    Post subject: Reply to: Conversion JCL To replace >.< with ><
Reply with quote

please suggest me without the FILEAID ...we dont have FILEAID installed in our system....
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Mon Jul 14, 2008 5:52 pm    Post subject:
Reply with quote

Mmmmm, if you do not have the file aid option built into your ISPF options, then I am not at all surprised that you have encountered this abend.

I can only go with Dick Dinosaurs suggestion of ISPF edit macro. If there is a problem with the exec substituting browse, as encountered in the past, you can split the file into processable sized chunks.
Back to top
View user's profile Send private message
sankhu2009

New User


Joined: 09 Jul 2008
Posts: 6
Location: Hyderabad

PostPosted: Mon Jul 14, 2008 5:56 pm    Post subject: Reply to: Conversion JCL To replace >.< with ><
Reply with quote

yes i knew the reason....thats why iam asking for other alternative...
CSV003I REQUESTED MODULE FILEAID NOT FOUND

S806-----Module Not found
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Mon Jul 14, 2008 6:05 pm    Post subject:
Reply with quote

There are many threads regarding the setup of a batch ISPF environment on this forum, which you will need to do to execute this. Use REGION=0M on the jobcard.

REXX EXEC
Code:

/* REXX *** INVOKE EDIT MACRO */
"ISPEXEC EDIT DATASET('"your dataset name"') MACRO(macroname)"


MACRO CODE
Code:

/* REXX *** ISPF EDIT MACRO */
"ISREDIT MACRO"       
""ISREDIT C 'from value' 'to value' ALL"     
"ISREDIT END"         


So all you have to do is to find out how to run ISPF in batch - Sooooo many topics on this forum - and put the two members above into one of the defined SYSEXEC or SYSPROC libraries and away you go
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: Mon Aug 04, 2008 10:23 pm    Post subject:
Reply with quote

DFSORT now has a find and replace function. You'll need z/OS DFSORT V1R5 PTF UK90013 (July, 2008) to use it. For complete details on FINDREP and all of the other new DFSORT functions, see:

www.ibm.com/systems/support/storage/software/sort/mvs/ugpf/

To change >.< to >< anywhere in your records, you can use:

Code:

   OPTION COPY
   INREC FINDREP=(IN=C'>.<',OUT=C'><')
Back to top
View user's profile Send private message
Anuj Dhawan

Senior Member


Joined: 22 Apr 2006
Posts: 6258
Location: Mumbai, India

PostPosted: Tue Aug 05, 2008 12:42 pm    Post subject:
Reply with quote

Frank Yaeger wrote:
DFSORT now has a find and replace function.
Very Well Done. You seem to be in competition with all the utilities.. icon_smile.gif


Regards,
- Ad
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 Aug 05, 2008 10:24 pm    Post subject:
Reply with quote

Quote:
Very Well Done. You seem to be in competition with all the utilities


I thought they were in competition with DFSORT/ICETOOL. icon_wink.gif
Back to top
View user's profile Send private message
Anuj Dhawan

Senior Member


Joined: 22 Apr 2006
Posts: 6258
Location: Mumbai, India

PostPosted: Thu Aug 07, 2008 3:52 pm    Post subject:
Reply with quote

Frank Yaeger wrote:
I thought they were in competition with DFSORT/ICETOOL. icon_wink.gif
No offences for others.. please, but you are leaving them quite behind, tough competition is ahead ... Good Luck.. icon_smile.gif
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 File Aid to File Manager conversion murali3955 IBM Tools 4 Thu Nov 24, 2016 3:41 pm
No new posts Conversion of a VB file to FB. isssal DFSORT/ICETOOL 1 Mon Oct 31, 2016 10:23 pm
No new posts Replace repeated JCL with looping REXX prino CLIST & REXX 3 Thu Oct 13, 2016 5:30 am
This topic is locked: you cannot edit posts or make replies. Sort card to replace text using cross... Susanta SYNCSORT 32 Tue Sep 13, 2016 4:17 pm
No new posts Replace function abdulrafi COBOL Programming 13 Mon Sep 12, 2016 10:12 am


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