MVSFORUMS.com

SureshBabu · Beginner Joined: 24 Mar 2003 Posts: 5 Topics: 1

Hi,
I just new to IMS and till now I worked with CICS and DB2. Is it possible to submit a batch job from an IMS online program.I know that we can do that in CICS by using SPOOL OPEN and SPOOL WRITE .. commands but I don't know how to do it in IMS.Can you help me in achieving this..

Thank you ,
SureshBabu.

Bithead · Posted: Mon Mar 24, 2003 12:32 pm Post subject:

If you are using MPPs, try writing the job to JES using the Spool API and assigning the DD to INTRDR.

If you are using DL/I or BMP, write to JES as you would in batch.

SureshBabu · Beginner Joined: 24 Mar 2003 Posts: 5 Topics: 1

Hi Bithead,

Thank you for your quick reply.
Could you pls give any related links for books/manuals for
'IMS Spool API' support.I have been searching for the book "IMS/ESA JES Spool API User’s Guide." suggested in one IMS book but not able to find out.

Thank you,
SureshBabu.
_________________
Thank you,
Suresh Babu.

Bithead · Posted: Mon Mar 24, 2003 1:12 pm Post subject:

Check out the Administrators Guide (System) and Application Programming TM. (I am looking at version 7 manuals)

SureshBabu · Beginner Joined: 24 Mar 2003 Posts: 5 Topics: 1

Hi Bithead,
Thanks for the earlier info which has helped me knowing more about the concept.
I have gone thru Spool API concept in Application Programming:
Transaction Manager and design guide.
I have understood to some extent on how to write the data to Spool using CHNG followed by ISRT calls(The LTERM being the Spool destination).
You have mentioned about assigning the DD name to INTRDR where exactly should we specify the DD name.. It would be great if you give us the piece of code for this purpose.

Thank you,
Suresh Babu.
_________________
Thank you,
Suresh Babu.

Bithead · Posted: Tue Mar 25, 2003 10:34 am Post subject:

The DDNAME to write to is defined using the OUTN parameter in the CHNG call. You will need to add this DD card to the JCL for the MPP region or batch job.

kolusu · Posted: Tue Mar 25, 2003 11:19 am Post subject:

Sureshbabu,

check this link for a detailed explanation of SPOOL API

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/DFSP20E2/APPENDIX1.4?DT=20020320072804

Hope this helps...

cheers

kolusu

SureshBabu · Beginner Joined: 24 Mar 2003 Posts: 5 Topics: 1

Hi Kolusu & Bithead,

Thank you very much for your replies.Sorry for the delay in my response as I was on vacation.

Suresh Babu.
_________________
Thank you,
Suresh Babu.

Sreejith · Posted: Wed Apr 07, 2004 5:27 am Post subject:

Hi Suresh,
Have you managed to get this working. I am in search of the same. If you know how to do this please let me know.
Sreejith

srinivasan_srisailan · Beginner Joined: 18 May 2004 Posts: 11 Topics: 3

Hi all,

Can somebody post a sample code to Submit a batch job from IMS DC program?

Thanks,
Srinivasan

SureshBabu · Beginner Joined: 24 Mar 2003 Posts: 5 Topics: 1

Hi,

Unfortunately I couldn't work on that task till the end as I had to move to a different task at that time. I appreciate if some one can help you in this issue.

Suresh.
_________________
Thank you,
Suresh Babu.

Bithead · Posted: Fri Sep 24, 2004 9:06 am Post subject:

Try This:

You will need to add the following card to the JCL for your MPP region:

//P059 OUTPUT CLASS=? <== change as require

or

//P059 DD SYSOUT=(A,INTRDR) <== for submitting JCL

Sreejith · Posted: Wed May 10, 2006 4:12 am Post subject:

Hi Bithead,
I tried the code you provided. But I am getting an A1 status code while issuing the change. One of the cause for A1 is invalid transaction name. the DD catd in the online region JCL looks like this. So I use INTRDR as transaction name inplace where your code put P079

Bithead · Posted: Thu May 11, 2006 10:03 am Post subject:

Try changing SYSOUT=(F,INTRDR) to SYSOUT=* and see if you get the JCL spooled. This will check if there is a problem when writing to the internal reader.

Sreejith · Posted: Mon May 15, 2006 4:47 am Post subject:

Bithead,
Thanks for the reply.
while "cut and paste" I missed the move 26 to OP-LL and that's why I go the A1 error. corrected that. But now I am getting an AX status code while inserting. The CHNG didn't give any error. As per QW AX means