View previous topic :: View next topic
|
Author |
Message |
shobvid
New User
Joined: 03 Apr 2008 Posts: 11 Location: India
|
|
|
|
Hi,
Iam interested to modify a text in multiple members in the same PDS. I tried the following code but did not work.
//AAAAAA EXEC PGM=IPOUPDTE,PARM='UPDATE'
//INST1 DD DISP=SHR,DSN=AAA.TEST.STRING
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
AA<BBBB<
alternatively i tried using filemanager(FILEAID in not available with us)
//AAAAAA EXEC PGM=FMNMAIN,REGION=6M
//SYSPRINT DD SYSOUT=*
//SYSLIST DD SYSOUT=*
//DD01 DD DSN=AAA.TEST.STRING,DISP=SHR
//SYSIN DD *
$$DD01 UPDATE REPL=(1,0,C'AA',C'BBBB')
/*
both the options did not work...please suggest |
|
Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007 Posts: 8796 Location: Welsh Wales
|
|
|
|
I usually use an ISPF edit macro |
|
Back to top |
|
|
shobvid
New User
Joined: 03 Apr 2008 Posts: 11 Location: India
|
|
|
|
Could you please share the macro or any other batch method to do the same |
|
Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007 Posts: 8796 Location: Welsh Wales
|
|
|
|
Search button is at the top of each page
Enter Macro for the keyword
Enter expat for the author
continue |
|
Back to top |
|
|
superk
Global Moderator
Joined: 26 Apr 2004 Posts: 4652 Location: Raleigh, NC, USA
|
|
|
|
I was going to suggest IPOUPDTE, so I'd be curious to know why it didn't work for you. It sounds like you need to code your own solution using whatever method you feel most comfortable with. |
|
Back to top |
|
|
shobvid
New User
Joined: 03 Apr 2008 Posts: 11 Location: India
|
|
|
|
job runs fine but the results are not seen
here is the spool output
********************************* TOP OF DATA ******************************
BATCH JCL TAILORING AID UPDATE CONTROL STATEMENTS
MEMBER COMMENTS ....|....1....|....2....|....3....|....4....|....5.
SYSIN AAAA<BBBB<
MESSAGE IPO005 END OF INPUT CONTROL STATEMENTS
MESSAGE IPO011 IPOUPDTE ENDED. CODE=00
******************************** BOTTOM OF DATA ****************************
I have put AAAA string in few of the members but the values remained unchanged. |
|
Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10888 Location: italy
|
|
|
|
IPOUPDTE is ... tricky,
once upon a time a member named "$$$COIBM" with any content was needed for ipoupdte to work |
|
Back to top |
|
|
shobvid
New User
Joined: 03 Apr 2008 Posts: 11 Location: India
|
|
|
|
I did create $$$COIBM member but its not working |
|
Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10888 Location: italy
|
|
Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10888 Location: italy
|
|
|
|
here is a sample working which means tested
Code: |
****** ***************************** Top of Data ******************************
000001 //ENRICO@A JOB (H001),'IPOUPDTE',NOTIFY=ENRICO,
000002 // CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1)
000003 //* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
000004 //* DSN=ENRICO.MF.JCLLIB(IPOUPDTE)
000005 //* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
000006 // JCLLIB ORDER=(ENRICO.MF.JCLLIB)
000007 //* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
000008 //*
000009 //UPDT EXEC PGM=IPOUPDTE,PARM=CHECK
000010 //SYSPRINT DD SYSOUT=*
000011 //SYSIN DD *
000012 ENRICO<OTHER<
000013 //@LIB01 DD DISP=SHR,DSN=ENRICO.MF.JCLLIB
|
note the ddnme tarting with the special char @ |
|
Back to top |
|
|
shobvid
New User
Joined: 03 Apr 2008 Posts: 11 Location: India
|
|
|
|
Super, it worked fine..thanks a lot. |
|
Back to top |
|
|
vidyakonda
New User
Joined: 25 Jan 2006 Posts: 8
|
|
|
|
Does this utility support to modify a mixed case of text? |
|
Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10888 Location: italy
|
|
|
|
Quote: |
Does this utility support to modify a mixed case of text? |
why don' t you try and tell us?
a string is a string... caseless
after that, when using ispf to edit a dataset/member,
casing is influenced by the edit-profile settings |
|
Back to top |
|
|
vidyakonda
New User
Joined: 25 Jan 2006 Posts: 8
|
|
|
|
I did try but its not updating though the string exists.
Please see the jcl used
//STRCHG EXEC PGM=IPOUPDTE,PARM=UPDATE
//@INST1 DD DISP=SHR,DSN=AAA.TEST.TEMP
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
wS-<PR123-<
//*
Here the "w" is in lower case and though this text exists in the member its not getting changed.
By default in the spool its getting converted to upper case as shown in the spool output below.
BATCH JCL TAILORING AID UPDATE CONTROL STATEMENTS
MEMBER COMMENTS ....|....1....|....2....|....3....|....4....|....
SYSIN WS<PR123-<
MESSAGE IPO005 END OF INPUT CONTROL STATEMENTS
BATCH JCL TAILORING AID VOL=PR0351 DSNAME=AAA.TEST.TEMP
MEMBER COMMENTS ....|....1....|....2....|....3....|....4....|....
MESSAGE IPO010 FILE @INST1 HAD NO UPDATES
MESSAGE IPO011 IPOUPDTE ENDED. CODE=04
******************************** BOTTOM OF DATA **************************
Hope the point is clear. |
|
Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10888 Location: italy
|
|
|
|
ipoupdte/cppupdte is quite picky about string tokenizing...
are You sure that wS- is a properly bounded word
here is a pointer to ipoupdte/cppupdte docs
http://gsf-soft.com/Documents/IPOUPDTE.shtml
Now that I think about it better,
I do not remember ( it was a long time ago ) if my IPOUPDTE was hacked to support mixed case |
|
Back to top |
|
|
|