DB2-DL/I batch interface, U3057

Frank Swarbrick

DB2-DL/I batch interface, U3057
Not sure if this is a DB2 question or an IMS question, so I'm asking both places.

Given the following
- Application program name: IMSDB2
- DB2 subsystem ID: DSN1
- DB2 application plan name: ZOSPLAN

The following works:
//IMSDB2 JOB ,'IMS AND DB2',
// NOTIFY=&SYSUID
/*JOBPARM PROCLIB=APPL
// SET LOADENV=DVFJS
// SET IMSPGM=DSNMTV01
// INCLUDE MEMBER=JOBLIB
//STEP01 EXEC PGM=DFSRRC00,
// PARM=(DLI,&IMSPGM,DDGOPSB,,,,,,,,,,,N,N,,,,)
// INCLUDE MEMBER=DLIBATCH
//DEMANDDO DD DSN=IMD1.CURR.DEMAND.DEMANDD,
// DISP=SHR
//DEMANDII DD DSN=IMD1.CURR.DEMAND.DEMANDI,
// DISP=SHR
//SYSOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//DDOTV02 DD SYSOUT=*,RECFM=V,LRECL=4092
//DDITV02 DD *
DSN1,SYS1,DSNMIN10,,A,-,,ZOSPLAN,IMSDB2

On the other hand, if I specify the IMSPGM as the name of the actual program (IMSDB2) it does not work. IMS abends with a 3057, but doesn't give any specifics as to what is wrong:

+DFS629I IMS BATCH REGION ABEND- IMS 3057 IMD1
+DFS629I PSW AT ERROR = 078D1000 800EE9A6 IMD1
+DFS036I BATCH BACKOUT NOT REQUIRED FOR IMSDB2 IMD1
DFS627I IMS RTM CLEANUP ( EOT ) COMPLETE FOR JS IMSDB2 .STEP01 . ,RC=00
IEF450I IMSDB2 STEP01 - ABEND=S000 U3057 REASON=00000000 431
TIME=11.33.17

There is no information in DDOTV02 for the failed job.

I've looked at the DB2 manual section "Loading and running a batch program" which says: "You can run a DL/I batch program by running module DSNMTV01, which loads your application, or by running the application program directly." I can't see where it says I need to change the JCL in some way other than the name of the IMS program, so I'm at a loss.

Yes, I've looked in the IMS docs for abend 3057, but it's not terribly helpful since it gives no way of determining which of the possible problems is the actual problem.

Thanks,
Frank
--

Frank Swarbrick
Applications Architect - Mainframe Applications Development
FirstBank Data Corporation - Lakewood, CO USA
P: 303-235-1403


>>>

The information contained in this electronic communication and any document attached hereto or transmitted herewith is confidential and intended for the exclusive use of the individual or entity named above. If the reader of this message is not the intended recipient or the employee or agent responsible for delivering it to the intended recipient, you are hereby notified that any examination, use, dissemination, distribution or copying of this communication or any part thereof is strictly prohibited. If you have received this communication in error, please immediately notify the sender by reply e-mail and destroy this communication. Thank you.

_____________________________________________________________________
* IDUG North America * Anaheim, California * May 2-6 2011 * http://IDUG.ORG/NA *
* Your only source for independent, unbiased, and trusted DB2 information. *
** The most DB2 technical sessions of any conference
** Access IBM experts and developers
_____________________________________________________________________

If you need to change settings, http://www.idug.org/cgi-bin/wa?A0=DB2-L is the home of IDUG's Listserv

Philip Sevetson

Re: DB2-DL/I batch interface, U3057
(in response to Frank Swarbrick)
Frank, have you searched the manuals yet? The link for an easy z/OS platform search is here:

http://www-03.ibm.com/systems/z/os/zos/bkserv/lookat/


-----Original Message-----
From: IDUG DB2-L [mailto:[login to unmask email] On Behalf Of Frank Swarbrick
Sent: Thursday, January 06, 2011 1:37 PM
To: [login to unmask email]
Subject: [DB2-L] DB2-DL/I batch interface, U3057

Not sure if this is a DB2 question or an IMS question, so I'm asking both places.

Given the following
- Application program name: IMSDB2
- DB2 subsystem ID: DSN1
- DB2 application plan name: ZOSPLAN

The following works:
//IMSDB2 JOB ,'IMS AND DB2',
// NOTIFY=&SYSUID
/*JOBPARM PROCLIB=APPL
// SET LOADENV=DVFJS
// SET IMSPGM=DSNMTV01
// INCLUDE MEMBER=JOBLIB
//STEP01 EXEC PGM=DFSRRC00,
// PARM=(DLI,&IMSPGM,DDGOPSB,,,,,,,,,,,N,N,,,,)
// INCLUDE MEMBER=DLIBATCH
//DEMANDDO DD DSN=IMD1.CURR.DEMAND.DEMANDD,
// DISP=SHR
//DEMANDII DD DSN=IMD1.CURR.DEMAND.DEMANDI,
// DISP=SHR
//SYSOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//DDOTV02 DD SYSOUT=*,RECFM=V,LRECL=4092
//DDITV02 DD *
DSN1,SYS1,DSNMIN10,,A,-,,ZOSPLAN,IMSDB2

On the other hand, if I specify the IMSPGM as the name of the actual program (IMSDB2) it does not work. IMS abends with a 3057, but doesn't give any specifics as to what is wrong:

+DFS629I IMS BATCH REGION ABEND- IMS 3057 IMD1
+DFS629I PSW AT ERROR = 078D1000 800EE9A6 IMD1
+DFS036I BATCH BACKOUT NOT REQUIRED FOR IMSDB2 IMD1
DFS627I IMS RTM CLEANUP ( EOT ) COMPLETE FOR JS IMSDB2 .STEP01 . ,RC=00
IEF450I IMSDB2 STEP01 - ABEND=S000 U3057 REASON=00000000 431
TIME=11.33.17

There is no information in DDOTV02 for the failed job.

I've looked at the DB2 manual section "Loading and running a batch program" which says: "You can run a DL/I batch program by running module DSNMTV01, which loads your application, or by running the application program directly." I can't see where it says I need to change the JCL in some way other than the name of the IMS program, so I'm at a loss.

Yes, I've looked in the IMS docs for abend 3057, but it's not terribly helpful since it gives no way of determining which of the possible problems is the actual problem.

Thanks,
Frank
--

Frank Swarbrick
Applications Architect - Mainframe Applications Development
FirstBank Data Corporation - Lakewood, CO USA
P: 303-235-1403


>>>

The information contained in this electronic communication and any document attached hereto or transmitted herewith is confidential and intended for the exclusive use of the individual or entity named above. If the reader of this message is not the intended recipient or the employee or agent responsible for delivering it to the intended recipient, you are hereby notified that any examination, use, dissemination, distribution or copying of this communication or any part thereof is strictly prohibited. If you have received this communication in error, please immediately notify the sender by reply e-mail and destroy this communication. Thank you.

_____________________________________________________________________
* IDUG North America * Anaheim, California * May 2-6 2011 * http://IDUG.ORG/NA *
* Your only source for independent, unbiased, and trusted DB2 information. *
** The most DB2 technical sessions of any conference
** Access IBM experts and developers
_____________________________________________________________________

If you need to change settings, http://www.idug.org/cgi-bin/wa?A0=DB2-L is the home of IDUG's Listserv

_____________________________________________________________________
* IDUG North America * Anaheim, California * May 2-6 2011 * http://IDUG.ORG/NA *
* Your only source for independent, unbiased, and trusted DB2 information. *
** The most DB2 technical sessions of any conference
** Access IBM experts and developers
_____________________________________________________________________

If you need to change settings, http://www.idug.org/cgi-bin/wa?A0=DB2-L is the home of IDUG's Listserv

Stan Hoey

Re: DB2-DL/I batch interface, U3057
(in response to Philip Sevetson)
Hi Frank.



Because you specify the application program in your DFSRRC00 parameter
list, the parameters to connect DB2 must be supplied using an SSM, which
you have not specified. I would change the program name (&IMSPGM in your
JCL) to DSNMTV01, and it opens DDITV02 and gets the DB2 subsystem name
and plan name, as well as the application program you want to execute.



Stan



-----Original Message-----
From: IDUG DB2-L [mailto:[login to unmask email] On Behalf Of Sevetson,
Phil
Sent: 06 January 2011 18:55
To: [login to unmask email]
Subject: Re: [DB2-L] DB2-DL/I batch interface, U3057



Frank, have you searched the manuals yet? The link for an easy z/OS
platform search is here:



http://www-03.ibm.com/systems/z/os/zos/bkserv/lookat/





-----Original Message-----

From: IDUG DB2-L [mailto:[login to unmask email] On Behalf Of Frank
Swarbrick

Sent: Thursday, January 06, 2011 1:37 PM

To: [login to unmask email]

Subject: [DB2-L] DB2-DL/I batch interface, U3057



Not sure if this is a DB2 question or an IMS question, so I'm asking
both places.



Given the following

- Application program name: IMSDB2

- DB2 subsystem ID: DSN1

- DB2 application plan name: ZOSPLAN



The following works:

//IMSDB2 JOB ,'IMS AND DB2',

// NOTIFY=&SYSUID

/*JOBPARM PROCLIB=APPL

// SET LOADENV=DVFJS

// SET IMSPGM=DSNMTV01

// INCLUDE MEMBER=JOBLIB

//STEP01 EXEC PGM=DFSRRC00,

// PARM=(DLI,&IMSPGM,DDGOPSB,,,,,,,,,,,N,N,,,,)

// INCLUDE MEMBER=DLIBATCH

//DEMANDDO DD DSN=IMD1.CURR.DEMAND.DEMANDD,

// DISP=SHR

//DEMANDII DD DSN=IMD1.CURR.DEMAND.DEMANDI,

// DISP=SHR

//SYSOUT DD SYSOUT=*

//SYSABEND DD SYSOUT=*

//SYSPRINT DD SYSOUT=*

//DDOTV02 DD SYSOUT=*,RECFM=V,LRECL=4092

//DDITV02 DD *

DSN1,SYS1,DSNMIN10,,A,-,,ZOSPLAN,IMSDB2



On the other hand, if I specify the IMSPGM as the name of the actual
program (IMSDB2) it does not work. IMS abends with a 3057, but doesn't
give any specifics as to what is wrong:



+DFS629I IMS BATCH REGION ABEND- IMS 3057 IMD1


+DFS629I PSW AT ERROR = 078D1000 800EE9A6 IMD1


+DFS036I BATCH BACKOUT NOT REQUIRED FOR IMSDB2 IMD1


DFS627I IMS RTM CLEANUP ( EOT ) COMPLETE FOR JS IMSDB2 .STEP01 .
,RC=00

IEF450I IMSDB2 STEP01 - ABEND=S000 U3057 REASON=00000000 431


TIME=11.33.17




There is no information in DDOTV02 for the failed job.



I've looked at the DB2 manual section "Loading and running a batch
program" which says: "You can run a DL/I batch program by running module
DSNMTV01, which loads your application, or by running the application
program directly." I can't see where it says I need to change the JCL
in some way other than the name of the IMS program, so I'm at a loss.



Yes, I've looked in the IMS docs for abend 3057, but it's not terribly
helpful since it gives no way of determining which of the possible
problems is the actual problem.



Thanks,

Frank

--



Frank Swarbrick

Applications Architect - Mainframe Applications Development

FirstBank Data Corporation - Lakewood, CO USA

P: 303-235-1403





>>>



The information contained in this electronic communication and any
document attached hereto or transmitted herewith is confidential and
intended for the exclusive use of the individual or entity named above.
If the reader of this message is not the intended recipient or the
employee or agent responsible for delivering it to the intended
recipient, you are hereby notified that any examination, use,
dissemination, distribution or copying of this communication or any part
thereof is strictly prohibited. If you have received this communication
in error, please immediately notify the sender by reply e-mail and
destroy this communication. Thank you.



_____________________________________________________________________

* IDUG North America * Anaheim, California * May 2-6 2011 *
http://IDUG.ORG/NA *

* Your only source for independent, unbiased, and trusted DB2
information. *

** The most DB2 technical sessions of any conference

** Access IBM experts and developers

_____________________________________________________________________



If you need to change settings, http://www.idug.org/cgi-bin/wa?A0=DB2-L
is the home of IDUG's Listserv



_____________________________________________________________________

* IDUG North America * Anaheim, California * May 2-6 2011 *
http://IDUG.ORG/NA *

* Your only source for independent, unbiased, and trusted DB2
information. *

** The most DB2 technical sessions of any conference

** Access IBM experts and developers

_____________________________________________________________________



If you need to change settings, http://www.idug.org/cgi-bin/wa?A0=DB2-L
is the home of IDUG's Listserv


_____________________________________________________________________
* IDUG North America * Anaheim, California * May 2-6 2011 * http://IDUG.ORG/NA *
* Your only source for independent, unbiased, and trusted DB2 information. *
** The most DB2 technical sessions of any conference
** Access IBM experts and developers
_____________________________________________________________________

If you need to change settings, http://www.idug.org/cgi-bin/wa?A0=DB2-L is the home of IDUG's Listserv

Frank Swarbrick

Re: DB2-DL/I batch interface, U3057
(in response to Stan Hoey)
Argh, that's it. It's right there in black and white, but I somehow missed it:

"The DL/I batch procedure can run your application program without using module DSNMTV01. To accomplish this, perform the following actions:
Specify SSM= in the DL/I batch procedure.
In the batch region of your application JCL, specify the following information:
MBR= application-name
SSM= DB2 subsystem name"

I guess sometimes I just get so frustrated with the manuals that I gloss over the important information.

//IMSDB2 JOB ,'IMS AND DB2',
// NOTIFY=&SYSUID
/*JOBPARM PROCLIB=APPL
// SET LOADENV=DVFJS
// SET IMSPGM=IMSDB2
// INCLUDE MEMBER=JOBLIB
//STEP01 EXEC PGM=DFSRRC00,
// PARM=(DLI,&IMSPGM,DDGOPSB,,,,,,,,,,,N,N,,,,DSN1)
// INCLUDE MEMBER=DLIBATCH
//PROCLIB DD DISP=SHR,DSN=DVFJS.APPLIB.PROC
//DEMANDDO DD DSN=IMD1.CURR.DEMAND.DEMANDD,
// DISP=SHR
//DEMANDII DD DSN=IMD1.CURR.DEMAND.DEMANDI,
// DISP=SHR
//SYSOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//DDOTV02 DD SYSOUT=*,RECFM=V,LRECL=4092
//DDITV02 DD *
DSN1,SYS1,DSNMIN10,,R,-,,ZOSPLAN,IMSDB2
/*

where 'DVFJS.APPLIB.PROC(IMD1DSN1)':
DSN1,SYS1,DSNMIN10,,R,-

I wonder what the point of the SSM= is when I have everything specified in DDITV02. Hmmm...

Thanks!

Frank


--

Frank Swarbrick
Applications Architect - Mainframe Applications Development
FirstBank Data Corporation - Lakewood, CO USA
P: 303-235-1403


On 1/6/2011 at 12:10 PM, in message
<[login to unmask email]>, Stan Hoey
<[login to unmask email]> wrote:
> Hi Frank.
>
>
>
> Because you specify the application program in your DFSRRC00 parameter
> list, the parameters to connect DB2 must be supplied using an SSM, which
> you have not specified. I would change the program name (&IMSPGM in your
> JCL) to DSNMTV01, and it opens DDITV02 and gets the DB2 subsystem name
> and plan name, as well as the application program you want to execute.
>
>
>
> Stan
>
>
>
> -----Original Message-----
> From: IDUG DB2-L [mailto:[login to unmask email] On Behalf Of Sevetson,
> Phil
> Sent: 06 January 2011 18:55
> To: [login to unmask email]
> Subject: Re: [DB2-L] DB2-DL/I batch interface, U3057
>
>
>
> Frank, have you searched the manuals yet? The link for an easy z/OS
> platform search is here:
>
>
>
> http://www-03.ibm.com/systems/z/os/zos/bkserv/lookat/
>
>
>
>
>
> -----Original Message-----
>
> From: IDUG DB2-L [mailto:[login to unmask email] On Behalf Of Frank
> Swarbrick
>
> Sent: Thursday, January 06, 2011 1:37 PM
>
> To: [login to unmask email]
>
> Subject: [DB2-L] DB2-DL/I batch interface, U3057
>
>
>
> Not sure if this is a DB2 question or an IMS question, so I'm asking
> both places.
>
>
>
> Given the following
>
> - Application program name: IMSDB2
>
> - DB2 subsystem ID: DSN1
>
> - DB2 application plan name: ZOSPLAN
>
>
>
> The following works:
>
> //IMSDB2 JOB ,'IMS AND DB2',
>
> // NOTIFY=&SYSUID
>
> /*JOBPARM PROCLIB=APPL
>
> // SET LOADENV=DVFJS
>
> // SET IMSPGM=DSNMTV01
>
> // INCLUDE MEMBER=JOBLIB
>
> //STEP01 EXEC PGM=DFSRRC00,
>
> // PARM=(DLI,&IMSPGM,DDGOPSB,,,,,,,,,,,N,N,,,,)
>
> // INCLUDE MEMBER=DLIBATCH
>
> //DEMANDDO DD DSN=IMD1.CURR.DEMAND.DEMANDD,
>
> // DISP=SHR
>
> //DEMANDII DD DSN=IMD1.CURR.DEMAND.DEMANDI,
>
> // DISP=SHR
>
> //SYSOUT DD SYSOUT=*
>
> //SYSABEND DD SYSOUT=*
>
> //SYSPRINT DD SYSOUT=*
>
> //DDOTV02 DD SYSOUT=*,RECFM=V,LRECL=4092
>
> //DDITV02 DD *
>
> DSN1,SYS1,DSNMIN10,,A,-,,ZOSPLAN,IMSDB2
>
>
>
> On the other hand, if I specify the IMSPGM as the name of the actual
> program (IMSDB2) it does not work. IMS abends with a 3057, but doesn't
> give any specifics as to what is wrong:
>
>
>
> +DFS629I IMS BATCH REGION ABEND- IMS 3057 IMD1
>
>
> +DFS629I PSW AT ERROR = 078D1000 800EE9A6 IMD1
>
>
> +DFS036I BATCH BACKOUT NOT REQUIRED FOR IMSDB2 IMD1
>
>
> DFS627I IMS RTM CLEANUP ( EOT ) COMPLETE FOR JS IMSDB2 .STEP01 .
> ,RC=00
>
> IEF450I IMSDB2 STEP01 - ABEND=S000 U3057 REASON=00000000 431
>
>
> TIME=11.33.17
>
>
>
>
> There is no information in DDOTV02 for the failed job.
>
>
>
> I've looked at the DB2 manual section "Loading and running a batch
> program" which says: "You can run a DL/I batch program by running module
> DSNMTV01, which loads your application, or by running the application
> program directly." I can't see where it says I need to change the JCL
> in some way other than the name of the IMS program, so I'm at a loss.
>
>
>
> Yes, I've looked in the IMS docs for abend 3057, but it's not terribly
> helpful since it gives no way of determining which of the possible
> problems is the actual problem.
>
>
>
> Thanks,
>
> Frank

>>>

The information contained in this electronic communication and any document attached hereto or transmitted herewith is confidential and intended for the exclusive use of the individual or entity named above. If the reader of this message is not the intended recipient or the employee or agent responsible for delivering it to the intended recipient, you are hereby notified that any examination, use, dissemination, distribution or copying of this communication or any part thereof is strictly prohibited. If you have received this communication in error, please immediately notify the sender by reply e-mail and destroy this communication. Thank you.

_____________________________________________________________________
* IDUG North America * Anaheim, California * May 2-6 2011 * http://IDUG.ORG/NA *
* Your only source for independent, unbiased, and trusted DB2 information. *
** The most DB2 technical sessions of any conference
** Access IBM experts and developers
_____________________________________________________________________

If you need to change settings, http://www.idug.org/cgi-bin/wa?A0=DB2-L is the home of IDUG's Listserv