| View previous topic :: View next topic |
| Author |
Message |
bkelle
Beginner
Joined: 22 Jan 2003
Posts: 9
Topics: 3
|
 Posted: Fri Feb 14, 2003 2:36 pm Post subject: trying to update a pds member |
 |
|
I am trying to replace a line in a pds member but having no luck. I took the JCL out of the manual but get "Invalid Operation". Can somebody tell me what I am doing wrong?
| Code: |
//STEP010 EXEC PGM=IEBUPDTE,PARM=MOD
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DISP=(OLD,KEEP),DSNAME=xxx.PDS.CNTL
//*SYSUT2 DD DISP=(OLD,KEEP),DSNAME=QCPI005.PDS.CNTL
//SYSIN DD *
./ CHANGE NAME=PLG01,LIST=ALL,UPDATE=INPLACE
./ NUMBER SEQ1=ALL,NEW1=100,INCR=100
FROM PROD.TPLG_POS_LOG PART 1, 00001500
/*
|
Statistics are off, The member is in sequence.
Thanks.
_________________
B. Kelle |
|
| Back to top |
|
 |
CaptBill
Beginner
Joined: 02 Dec 2002
Posts: 100
Topics: 2
Location: Pasadena, California, USA
|
| Posted: Fri Feb 14, 2003 3:06 pm Post subject: |
|
|
| Didn't you ask this question on the other board and were given the answer there? |
|
| Back to top |
|
|
bkelle
Beginner
Joined: 22 Jan 2003
Posts: 9
Topics: 3
|
| Posted: Fri Feb 14, 2003 3:20 pm Post subject: |
|
|
Yes I did, but did not get a resolution, and if I did get a resolution I would not have asked again.
_________________
B. Kelle |
|
| Back to top |
|
|
CaptBill
Beginner
Joined: 02 Dec 2002
Posts: 100
Topics: 2
Location: Pasadena, California, USA
|
| Posted: Fri Feb 14, 2003 4:54 pm Post subject: |
|
|
Did you review example 4 in the manual under the IEBUPDTE topic?
10.4.4 Example 4: Update a Library Member
That seems to do what you want.
Another possibility is to delete the line(s) then add them again using the revised text. |
|
| Back to top |
|
|
bkelle
Beginner
Joined: 22 Jan 2003
Posts: 9
Topics: 3
|
| Posted: Fri Feb 14, 2003 5:26 pm Post subject: |
|
|
Thanks, I'll look there.
Yes, deleting and adding works, but the replace is giving me a problem.
_________________
B. Kelle |
|
| Back to top |
|
|
kolusu
Site Admin
Joined: 26 Nov 2002
Posts: 12378
Topics: 75
Location: San Jose
|
| Posted: Fri Feb 14, 2003 8:45 pm Post subject: |
|
|
Kelle,
If you file-aid in your shop then it is easier to do an update in place.The following JCL will give you the desired results.
| Code: |
//STEP0100 EXEC PGM=FILEAID
//*
//SYSLIST DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//DD01 DD DSN=YOUR PDS,
// DISP=SHR
//SYSIN DD *
$$DD01 UPDATE MEMBER=PLG01,
EDITALL=(1,0,C'KELLE',C'B.KELLE'),PDSSTAT=A
/*
|
EDITALL will change all the strings on the line for the matching string
PDSSTAT=A will update the PDS statistics if they exist, or add statistics if they don't exist.
Hope this helps...
cheers
kolusu |
|
| Back to top |
|
|
Bill Dennis
Advanced
Joined: 03 Dec 2002
Posts: 579
Topics: 1
Location: Iowa, USA
|
| Posted: Tue Feb 18, 2003 10:18 am Post subject: |
|
|
 Kelle,
I ran your JCL and it worked just fine. Is there nothing else with the error msgs that might help explain the error? Can you post the error msgs?
Bill |
|
| Back to top |
|
|
bkelle
Beginner
Joined: 22 Jan 2003
Posts: 9
Topics: 3
|
| Posted: Wed Feb 19, 2003 3:30 pm Post subject: |
|
|
Thank you for all the help and new ideas, it works for me too now that I have the sequence number in the correct positions (73-80).
_________________
B. Kelle |
|
| Back to top |
|
|
|
|
|
FAQ
Search
Quick Manuals
Register
Profile
Log in to check your private messages
Log in
