Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
Calling IKJEFT01 program from Rexx

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX
View previous topic :: :: View next topic  
Author Message
upendrasri

New User


Joined: 28 Sep 2017
Posts: 57
Location: India

PostPosted: Wed Nov 15, 2017 4:27 pm    Post subject: Calling IKJEFT01 program from Rexx
Reply with quote

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
View user's profile Send private message

prino

Senior Member


Joined: 07 Feb 2009
Posts: 1118
Location: Oostende, Belgium

PostPosted: Wed Nov 15, 2017 4:31 pm    Post subject:
Reply with quote

What's wrong with just using
Code:
/* REXX */
"HMIG 'TEST1.HSM.KSDS' ML2"
Back to top
View user's profile Send private message
upendrasri

New User


Joined: 28 Sep 2017
Posts: 57
Location: India

PostPosted: Wed Nov 15, 2017 4:34 pm    Post subject:
Reply with quote

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
View user's profile Send private message
upendrasri

New User


Joined: 28 Sep 2017
Posts: 57
Location: India

PostPosted: Wed Nov 15, 2017 4:51 pm    Post subject:
Reply with quote

Hi Robert,

Thank you for your suggestion. It resolves my issue.

Thanks alot.
Back to top
View user's profile Send private message
Pedro

Senior Member


Joined: 01 Sep 2006
Posts: 2114
Location: Silicon Valley

PostPosted: Thu Nov 16, 2017 4:46 am    Post subject: Reply to: Calling IKJEFT01 program from Rexx
Reply with quote

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
View user's profile Send private message
don.leahy

Active Member


Joined: 06 Jul 2010
Posts: 670
Location: Whitby, ON, Canada

PostPosted: Wed Nov 29, 2017 11:58 pm    Post subject:
Reply with quote

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
View user's profile Send private message
upendrasri

New User


Joined: 28 Sep 2017
Posts: 57
Location: India

PostPosted: Thu Nov 30, 2017 7:09 pm    Post subject:
Reply with quote

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
View user's profile Send private message
prino

Senior Member


Joined: 07 Feb 2009
Posts: 1118
Location: Oostende, Belgium

PostPosted: Thu Nov 30, 2017 9:28 pm    Post subject:
Reply with quote

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
View user's profile Send private message
enrico-sorichetti

Senior Member


Joined: 14 Mar 2007
Posts: 10521
Location: italy

PostPosted: Thu Nov 30, 2017 10:11 pm    Post subject:
Reply with quote

once in a while I am prone to give the TS some slack

Quote:
This is regarding my other query(Rexx to Grab ISMF Information.) which is Locked now.
http://ibmmainframes.com/viewtopic.php?t=66328&highlight=
But I want to update the status here..


Quote:
I think that this topic should be closed as it can easily be resolved from an extremely similar topic started by the same OP
http://ibmmainframes.com/viewtopic.php?t=66308


and he wanted to let us know that the issue was solved
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Calling and updating SAS Macro variab... Yogesh Jaiswal All Other Mainframe Topics 2 Thu Oct 11, 2018 12:37 pm
No new posts How to find if segment is read in any... Priyanka AR IMS DB/DC 12 Thu Sep 20, 2018 1:34 pm
No new posts U0437 to execute IMS DC program Vkp321 IMS DB/DC 6 Wed Sep 19, 2018 8:39 pm
No new posts Number of Packages required for stati... manojthokala7 DB2 4 Mon Sep 17, 2018 7:14 pm
No new posts Encoding using rexx pkmurali CLIST & REXX 2 Sat Sep 08, 2018 1:05 am

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us