|
View previous topic :: View next topic
|
| Author |
Message |
upendrasri
Active User
Joined: 28 Sep 2017
Posts: 121
Location: India
|
|
|
|
Hi,
Am trying to execute HSM Commands using Rexx(Am trying to migrate a dataset ) The below one is my code.
Note :- Am able to call IDCAMS From Rexx successfully. But not IKJEFT01
/* REXX MIG */
"ALLOC FI(SYSPRINT) DA('TEST1.HSM.SYSPRINT')SHR REUSE"
"EXECIO 0 DISKW SYSPRINT (OPEN FINIS"
"ALLOC DD(SYSPRINT) DA('TEST1.HSM.SYSPRINT')MOD REUSE"
"ALLOC DD (SYSIN) NEW REU"
QUEUE " HSEND MIG DSNAME('TEST1.HSM.KSDS') ML2"
"EXECIO "QUEUED()" DISKW SYSIN (FINIS"
"CALL *(IKJEFT01)"
END
"FREE DD(SYSPRINT SYSIN)"
Am getting the below error :-
14 *-* "CALL *(IKJEFT01)"
>L> "CALL *(IKJEFT01)"
IEA995I SYMPTOM DUMP OUTPUT
SYSTEM COMPLETION CODE=047
TIME=10.41.47 SEQ=59425 CPU=0000 ASID=0151
PSW AT TIME OF ERROR 078D1000 8885E144 ILC 2 INTC 6B
ACTIVE LOAD MODULE ADDRESS=0885E000 OFFSET=00000144
NAME=IKJEFT01
DATA AT PSW 0885E13E - 5810C330 0A6BD503 C0A8BD9D
GR 0: 00000008 1: 0000000C
2: 00FBB280 3: 803409A8
4: 00000000 5: 00000000
6: 00AFCC88 7: 00000002
8: 00000001 9: 00D22048
A: 8885E050 B: 0885F04F
***
Is it possible to call IKJEFT01 program from Rexx?
Thanks!
-------------------------- |
|
| Back to top |
|
 |
prino
Senior Member
Joined: 07 Feb 2009
Posts: 1306
Location: Vilnius, Lithuania
|
|
|
|
What's wrong with just using
| Code: |
/* REXX */
"HMIG 'TEST1.HSM.KSDS' ML2" |
|
|
| Back to top |
|
|
upendrasri
Active User
Joined: 28 Sep 2017
Posts: 121
Location: India
|
|
|
|
Hi,
Yes, If it is only one file we can use HMIG against to it but as per our requirement we have migrate more number of files on weekly basis. I want to automate this process. Thats the reason behind this Rexx. |
|
| Back to top |
|
|
upendrasri
Active User
Joined: 28 Sep 2017
Posts: 121
Location: India
|
|
|
|
Hi Robert,
Thank you for your suggestion. It resolves my issue.
Thanks alot. |
|
| Back to top |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006
Posts: 2547
Location: Silicon Valley
|
|
|
|
To summarize the problem:
| Code: |
/* REXX MIG */
"ALLOC FI(SYSPRINT) DA('TEST1.HSM.SYSPRINT')SHR REUSE"
"EXECIO 0 DISKW SYSPRINT (OPEN FINIS"
. . .
|
Because you are issuing various TSO commands prior to the CALL statement, we know that you are already executing within a TSO environment. Therefore, you do not need to start another. |
|
| Back to top |
|
|
don.leahy
Active Member
Joined: 06 Jul 2010
Posts: 765
Location: Whitby, ON, Canada
|
|
|
|
| Not only unnecessary, but as per the 047 abend, the TS was trying to run IKJEFT01 from an unauthorized program (i.e. his TSO session). |
|
| Back to top |
|
|
upendrasri
Active User
Joined: 28 Sep 2017
Posts: 121
Location: India
|
|
|
|
Hi All,
This is regarding my other query(Rexx to Grab ISMF Information.) which is Locked now. But I want to update the status here..
| Code: |
5 *-* "TBOPEN" TBL "NOWRITE"
>>> "TBOPEN DCNAMES NOWRITE"
+++ RC(8) +++
6 *-* "TBQUERY" TBL "NAMES(TNAMES)"
>>> "TBQUERY DCNAMES NAMES(TNAMES)"
ISPT034 Table is not open -/-TBQUERY
|
My code was failed with the above problem. TBOPEN was not able to Open because table DCNAMES was not created. I have updated my Jcl as per my environmental setup and It ran fine.
Thanks to all who assisted me on it.
A special thanks to 'Willy Jensen ' .
Thanks alot. |
|
| Back to top |
|
|
prino
Senior Member
Joined: 07 Feb 2009
Posts: 1306
Location: Vilnius, Lithuania
|
|
|
|
| upendrasri wrote: |
| This is regarding my other query(Rexx to Grab ISMF Information.) which is Locked now. But I want to update the status here.. |
In a completely unrelated thread? |
|
| Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10873
Location: italy
|
|
|
|
once in a while I am prone to give the TS some slack
and he wanted to let us know that the issue was solved |
|
| Back to top |
|
|
|
|
