|
View previous topic :: View next topic
|
| Author |
Message |
hirschel
New User
Joined: 24 Mar 2010
Posts: 5
Location: Vancouver, BC
|
|
|
|
Have anyone run the online change utility (OLCUTL) under rexx/IKJEFT01 (instead of using JCL)? We are trying, and get a message "IEBCOPY is not APF AUTHORIZED"
Any ideas? |
|
| Back to top |
|
 |
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix
|
|
|
|
Hello,
Is this related to IMS?
Suggest you speak with your system support people. |
|
| Back to top |
|
|
hirschel
New User
Joined: 24 Mar 2010
Posts: 5
Location: Vancouver, BC
|
|
|
|
Just to clarify the approach
In JCL ...
//STEPLIB DD DSN=IMS.RESLIB,DSIP=etc
In rexx
"ALLOC FI(SYSIN) UNIT(SYSDA) SPA(1 1) TRA NEW DELETE REUSE LRECL(80)"
"ALLOC FI(DFSRESLB) DA('IMS.RESLIB') SHR REUSE"
"ALLOC FI(IMS) DA('IMS."region".PSBLIB'",
"'IMS."region".DBDLIB') SHR REUSE"
"ALLOC FI(IMSACB) DA('DEVSUP.TEST."region".ACBLIB') SHR REUSE"
"ALLOC FI(IMSACBA) DA('DEVSUP.TEST."region".ACBLIBA') SHR REUSE"
"ALLOC FI(IMSACBB) DA('DEVSUP.TEST."region".ACBLIBB') SHR REUSE"
"ALLOC FI(COMPCTL) DA('IMS."region".SYSIN(DFSACBCP)') SHR REUSE"
"ALLOC FI(MODSTAT) DA('IMS."region".MODSTAT') SHR REUSE"
"ALLOC FI(SYSUT3) UNIT(SYSDA) SPA(5 5) CYL NEW DELETE REUSE"
"ALLOC FI(SYSUT4) UNIT(SYSDA) SPA(5 5) CYL NEW DELETE REUSE"
"ALLOC FI(COPYCTL) UNIT(SYSDA) SPA(5 5) CYL NEW DELETE REUSE"
"Call 'IMS.RESLIB(DFSUOCU0)' 'ACB,S,U'" |
|
| Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix
|
|
|
|
Hello,
Yup, you need to talk with the system support people. . . |
|
| Back to top |
|
|
|
|
