Author: supreethi.srid
Subject: Execute TSO ACF commands from COBOL-IMS online
Posted: Tue Feb 21, 2017 5:19 pm (GMT 5.5)
I am trying to execute a TSO ACF command from COBOL for resetting expired password for a user from IMS online.
Trying two ways,
1. I'm looking at using IKJTSOEV and TSOLNK to link to TSO ACF command and thereby issue sub-commands.
2. I see the other way is using the INTRDR to submit the job. Here I would need to capture the result (whether password is reset or any other warning) of the spawned job, somehow this approach seems to be tedious.
Proceeding with Option 1:
I am trying to execute a sample TSO command from IMS-online- a sample TSOLNK to allocate a new dataset. As a start, I am able to set the environment.
Next time, I now get the TSO function return code as 16 (environment already set) while executing IKJTSOEV. So, I continue to execute IKJEFTSR.
Now, I am stuck here trying to execute TSOLNK for ALLOC command :
FUNCTION RETURN CODE - 000000012
FUNCTION REASON CODE - 00000000J
FUNCTION ABEND CODE - 00000000J
Currently I've passed this flag combination - X'00010001' for TSO ALLOC
Please provide help in getting past this.
Option 2 : Is this a better option to deal with, than the earlier one?
Too many questions here, sorry about that.
Subject: Execute TSO ACF commands from COBOL-IMS online
Posted: Tue Feb 21, 2017 5:19 pm (GMT 5.5)
I am trying to execute a TSO ACF command from COBOL for resetting expired password for a user from IMS online.
Trying two ways,
1. I'm looking at using IKJTSOEV and TSOLNK to link to TSO ACF command and thereby issue sub-commands.
2. I see the other way is using the INTRDR to submit the job. Here I would need to capture the result (whether password is reset or any other warning) of the spawned job, somehow this approach seems to be tedious.
Proceeding with Option 1:
I am trying to execute a sample TSO command from IMS-online- a sample TSOLNK to allocate a new dataset. As a start, I am able to set the environment.
Next time, I now get the TSO function return code as 16 (environment already set) while executing IKJTSOEV. So, I continue to execute IKJEFTSR.
Now, I am stuck here trying to execute TSOLNK for ALLOC command :
FUNCTION RETURN CODE - 000000012
FUNCTION REASON CODE - 00000000J
FUNCTION ABEND CODE - 00000000J
Currently I've passed this flag combination - X'00010001' for TSO ALLOC
Please provide help in getting past this.
Option 2 : Is this a better option to deal with, than the earlier one?
Too many questions here, sorry about that.