|
View previous topic :: View next topic
|
| Author |
Message |
sankhu2009
New User
Joined: 09 Jul 2008
Posts: 6
Location: Hyderabad
|
|
|
|
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 |
|
 |
karthikr44
Active User
Joined: 25 Aug 2007
Posts: 235
Location: Chennai
|
|
|
|
Hi,
you can use a simple ISPF EDIT command.
c all '>.<' '><'
Regards
R KARTHIK |
|
| Back to top |
|
|
dbzTHEdinosauer
Global Moderator
Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne
|
|
|
|
| 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 |
|
|
Anuj Dhawan
Superior Member
Joined: 22 Apr 2006
Posts: 6250
Location: Mumbai, India
|
|
|
|
TS is searching for a JCL instead of ISPF command, I think..
| Quote: |
| tell me how to write conversion JCL |
|
|
| Back to top |
|
|
sankhu2009
New User
Joined: 09 Jul 2008
Posts: 6
Location: Hyderabad
|
|
|
|
| yes iam asking in JCL not ISPF commands |
|
| Back to top |
|
|
Anuj Dhawan
Superior Member
Joined: 22 Apr 2006
Posts: 6250
Location: Mumbai, India
|
|
|
|
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 |
|
|
sankhu2009
New User
Joined: 09 Jul 2008
Posts: 6
Location: Hyderabad
|
|
|
|
| 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 |
|
|
Anuj Dhawan
Superior Member
Joined: 22 Apr 2006
Posts: 6250
Location: Mumbai, India
|
|
|
|
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 |
|
|
sankhu2009
New User
Joined: 09 Jul 2008
Posts: 6
Location: Hyderabad
|
|
|
|
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 |
|
|
sankhu2009
New User
Joined: 09 Jul 2008
Posts: 6
Location: Hyderabad
|
|
|
|
| please suggest me without the FILEAID ...we dont have FILEAID installed in our system.... |
|
| Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
|
|
|
|
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 |
|
|
sankhu2009
New User
Joined: 09 Jul 2008
Posts: 6
Location: Hyderabad
|
|
|
|
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 |
|
|
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
|
|
|
|
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 |
|
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
|
|
|
|
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:
Use [URL] BBCode for External Links
To change >.< to >< anywhere in your records, you can use:
| Code: |
OPTION COPY
INREC FINDREP=(IN=C'>.<',OUT=C'><')
|
|
|
| Back to top |
|
|
Anuj Dhawan
Superior Member
Joined: 22 Apr 2006
Posts: 6250
Location: Mumbai, India
|
|
|
|
| Frank Yaeger wrote: |
| DFSORT now has a find and replace function. |
Very Well Done. You seem to be in competition with all the utilities.. 
Regards,
- Ad |
|
| Back to top |
|
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
|
|
|
|
| Quote: |
| Very Well Done. You seem to be in competition with all the utilities |
I thought they were in competition with DFSORT/ICETOOL.  |
|
| Back to top |
|
|
Anuj Dhawan
Superior Member
Joined: 22 Apr 2006
Posts: 6250
Location: Mumbai, India
|
|
|
|
| Frank Yaeger wrote: |
| I thought they were in competition with DFSORT/ICETOOL. |
No offences for others.. please, but you are leaving them quite behind, tough competition is ahead ... Good Luck.. |
|
| Back to top |
|
|
|
|
