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: 34
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: 1067
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: 34
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: 34
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: 2088
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
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 ISREDIT Macro is not returning back t... nico_neoz CLIST & REXX 4 Sat Nov 18, 2017 7:40 pm
No new posts REXX LISTDSI () SMSINFO is not working upendrasri CLIST & REXX 4 Fri Nov 17, 2017 11:33 am
No new posts How to write Rexx program to size and... sreejeshcs CLIST & REXX 14 Thu Oct 12, 2017 7:26 am
This topic is locked: you cannot edit posts or make replies. Rexx to execute spool commands upendrasri CLIST & REXX 5 Wed Oct 04, 2017 6:54 am
No new posts Accessing CICS tran with map from JCL... navdeepaggarwal CICS 5 Tue Oct 03, 2017 6:15 pm

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