use ISPSTART CMD with JCL

João Luís Matos Carvalho (DSI)

unread,

Sep 9, 2008, 4:28:54 AM9/9/08

to

Hello list, I have the following JCL, and I ask, how can I submit the REXX showed in bold(TIMESTP2) format with arguments :

//SUBMIT EXEC PGM=IKJEFT01,DYNAMNBR=25

//ISPPROF DD DSN=IUCONTB.I7.MCFB.ISPPROF.TESTE,DISP=SHR

//ISPPLIB DD DSN=SYS2.ISP.SISPPENU,DISP=SHR

// DD DSN=XSYS.OS26.PANELS,DISP=SHR

// DD DSN=MC.COMUM.MCFB.PANELS,DISP=SHR

// DD DSN=SYS1.DB2.SDSNPFPE,DISP=SHR

// DD DSN=SYS1.DB2.SDSNSPFP,DISP=SHR

// DD DSN=SYS1.QMF.SDSQPLBE,DISP=SHR

// DD DSN=SYS1.SDSF.SISFPLIB,DISP=SHR

// DD DSN=SYS1.ISP.SISPPENU,DISP=SHR

// DD DSN=SYS1.EOY.SEOYPENU,DISP=SHR

// DD DSN=SYS1.SBPXPENU,DISP=SHR

//ISPMLIB DD DSN=XSYS.OS26.MSGS,DISP=SHR

// DD DSN=SYS1.SBPXMENU,DISP=SHR

// DD DSN=SYS1.DB2.SDSNSPFM,DISP=SHR

// DD DSN=SYS1.QMF.SDSQMLBE,DISP=SHR

// DD DSN=SYS1.SDSF.SISFMLIB,DISP=SHR

// DD DSN=SYS1.ISP.SISPMENU,DISP=SHR

// DD DSN=SYS1.EOY.SEOYMENU,DISP=SHR

//ISPSLIB DD DSN=IUCONTB.I7.MCFB.ISPPROF.TESTE,DISP=SHR

// DD DSN=SYS1.DB2.SDSNSPFS,DISP=SHR

// DD DSN=SYS1.QMF.SDSQSLBE,DISP=SHR

// DD DSN=SYS1.ISP.SISPSLIB,DISP=SHR

// DD DSN=SYS1.ISP.SISPSENU,DISP=SHR

// DD DSN=XSYS.OS26.SKELS,DISP=SHR

//ISPTLIB DD DSN=IUCONTB.I7.MCFB.ISPPROF.TESTE,DISP=SHR

// DD DSN=SYS2.ISP.SISPTENU,DISP=SHR

// DD DSN=XSYS.OS26.TABLES,DISP=SHR

// DD DSN=SYS1.DB2.SDSNSPFT,DISP=SHR

// DD DSN=XSYS.OS26.PGRTABL,DISP=SHR

// DD DSN=SYS1.SDSF.SISFTLIB,DISP=SHR

// DD DSN=SYS1.ISP.SISPTENU,DISP=SHR

// DD DSN=SYS1.EOY.SEOYTENU,DISP=SHR

//SYSPROC DD DSN=SYS2.ISP.SISPCLIB,DISP=SHR

// DD DSN=XSYS.OS26.CMDPROC,DISP=SHR

// DD DSN=TDBSU.CMDPROC,DISP=SHR

// DD DSN=SYS1.DB2.SDSNCLST,DISP=SHR

// DD DSN=SYS1.QMF.SDSQEXCE,DISP=SHR

// DD DSN=SYS1.QMF.SDSQCLTE,DISP=SHR

// DD DSN=CABS.CEMF.CLIST,DISP=SHR

// DD DSN=SYS1.ISP.SISPCLIB,DISP=SHR

// DD DSN=SYS1.EOY.SEOYCLIB,DISP=SHR

//SYSEXEC DD DSN=SYS1.SBPXEXEC,DISP=SHR

// DD DSN=SYS1.ISP.SISPEXEC,DISP=SHR

// DD DSN=SYS3.SH.PROJCL.EXEC,DISP=SHR

// DD DSN=SYS1.SDF2.SDGICMD,DISP=SHR

//JESYSMSG DD SYSOUT=G

//SYSTSPRT DD SYSOUT=D

//SYSPRINT DD SYSOUT=E

//SYSUDUMP DD SYSOUT=F

//OUTVOL DD DUMMY

//SYSTSIN DD *

ISPSTART CMD(EXEC 'ATR0037.ISPPLIB(TIMESTP2)')

/*

//

Atenciosamente,
João Carvalho

DSI-DSTS-DST-TAG
* - mailto:joao.mato...@caixaseguros.pt <mailto:joao.mato...@caixaseguros.pt>

' - 670701
"A mente é como um pára-quedas, só funciona se estiver aberta"
(Thomas Dewar)

P Antes de imprimir este e-mail pense bem se tem mesmo que o fazer. Há cada vez menos árvores

----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions,
send email to LIST...@VM.MARIST.EDU with the message: INFO TSO-REXX

Stocker, Herman

unread,

Sep 9, 2008, 4:52:16 AM9/9/08

to

Joao,

//ISPPLIB DD disp=shr,dsn=ATR0037.ISPPLIB
ISPSTART panel(TIMESTP2)

Assuming that it is a panel that you want. You will have to place your
program in some library, if rexx SYSEXEC, if CLIST SYSPROC, if compiled then
some loadlib data set.

HTH.

Regards,
Herman Stocker

//SUBMIT EXEC PGM=IKJEFT01,DYNAMNBR=25

//ISPPROF DD DSN=IUCONTB.I7.MCFB.ISPPROF.TESTE,DISP=SHR

//ISPPLIB DD DSN=SYS2.ISP.SISPPENU,DISP=SHR

// DD DSN=XSYS.OS26.PANELS,DISP=SHR

// DD DSN=MC.COMUM.MCFB.PANELS,DISP=SHR

// DD DSN=SYS1.DB2.SDSNPFPE,DISP=SHR

// DD DSN=SYS1.DB2.SDSNSPFP,DISP=SHR

// DD DSN=SYS1.QMF.SDSQPLBE,DISP=SHR

// DD DSN=SYS1.SDSF.SISFPLIB,DISP=SHR

// DD DSN=SYS1.ISP.SISPPENU,DISP=SHR

// DD DSN=SYS1.EOY.SEOYPENU,DISP=SHR

// DD DSN=SYS1.SBPXPENU,DISP=SHR

//ISPMLIB DD DSN=XSYS.OS26.MSGS,DISP=SHR

// DD DSN=SYS1.SBPXMENU,DISP=SHR

// DD DSN=SYS1.DB2.SDSNSPFM,DISP=SHR

// DD DSN=SYS1.QMF.SDSQMLBE,DISP=SHR

// DD DSN=SYS1.SDSF.SISFMLIB,DISP=SHR

// DD DSN=SYS1.ISP.SISPMENU,DISP=SHR

// DD DSN=SYS1.EOY.SEOYMENU,DISP=SHR

//ISPSLIB DD DSN=IUCONTB.I7.MCFB.ISPPROF.TESTE,DISP=SHR

// DD DSN=SYS1.DB2.SDSNSPFS,DISP=SHR

// DD DSN=SYS1.QMF.SDSQSLBE,DISP=SHR

// DD DSN=SYS1.ISP.SISPSLIB,DISP=SHR

// DD DSN=SYS1.ISP.SISPSENU,DISP=SHR

// DD DSN=XSYS.OS26.SKELS,DISP=SHR

//ISPTLIB DD DSN=IUCONTB.I7.MCFB.ISPPROF.TESTE,DISP=SHR

// DD DSN=SYS2.ISP.SISPTENU,DISP=SHR

// DD DSN=XSYS.OS26.TABLES,DISP=SHR

// DD DSN=SYS1.DB2.SDSNSPFT,DISP=SHR

// DD DSN=XSYS.OS26.PGRTABL,DISP=SHR

// DD DSN=SYS1.SDSF.SISFTLIB,DISP=SHR

// DD DSN=SYS1.ISP.SISPTENU,DISP=SHR

// DD DSN=SYS1.EOY.SEOYTENU,DISP=SHR

//SYSPROC DD DSN=SYS2.ISP.SISPCLIB,DISP=SHR

// DD DSN=XSYS.OS26.CMDPROC,DISP=SHR

// DD DSN=TDBSU.CMDPROC,DISP=SHR

// DD DSN=SYS1.DB2.SDSNCLST,DISP=SHR

// DD DSN=SYS1.QMF.SDSQEXCE,DISP=SHR

// DD DSN=SYS1.QMF.SDSQCLTE,DISP=SHR

// DD DSN=CABS.CEMF.CLIST,DISP=SHR

// DD DSN=SYS1.ISP.SISPCLIB,DISP=SHR

// DD DSN=SYS1.EOY.SEOYCLIB,DISP=SHR

//SYSEXEC DD DSN=SYS1.SBPXEXEC,DISP=SHR

// DD DSN=SYS1.ISP.SISPEXEC,DISP=SHR

// DD DSN=SYS3.SH.PROJCL.EXEC,DISP=SHR

// DD DSN=SYS1.SDF2.SDGICMD,DISP=SHR

//JESYSMSG DD SYSOUT=G

//SYSTSPRT DD SYSOUT=D

//SYSPRINT DD SYSOUT=E

//SYSUDUMP DD SYSOUT=F

//OUTVOL DD DUMMY

//SYSTSIN DD *

ISPSTART CMD(EXEC 'ATR0037.ISPPLIB(TIMESTP2)')

/*

//

Atenciosamente,
João Carvalho

The sender believes that this E-mail and any attachments were free of any
virus, worm, Trojan horse, and/or malicious code when sent. This message and
its attachments could have been infected during transmission. By reading the
message and opening any attachments, the recipient accepts full
responsibility for taking protective and remedial action about viruses and
other defects. The sender's employer is not liable for any loss or damage
arising in any way from this message or its attachments.

KIP3News Provinzial-AG

unread,

Sep 9, 2008, 5:00:18 AM9/9/08

to

>
> ISPSTART CMD(EXEC 'ATR0037.ISPPLIB(TIMESTP2)')
>

Use the parms within the brackets: ISPSTART CMD(EXEC
'ATR0037.ISPPLIB(TIMESTP2)' 'parms to go')
Is TIMESTP2 really an exec or a panel? Seems to be a member of panel ds
(ISPPLIB)...

Hope this helps
Heinz-Bernd Leifeld

João Luís Matos Carvalho (DSI)

unread,

Sep 9, 2008, 5:06:12 AM9/9/08

to

Is a exec

Atenciosamente,
João Carvalho

DSI-DSTS-DST-TAG
* - mailto:joao.mato...@caixaseguros.pt

"A mente é como um pára-quedas, só funciona se estiver aberta"
(Thomas Dewar)

P Antes de imprimir este e-mail pense bem se tem mesmo que o fazer. Há cada vez menos árvores

João Luís Matos Carvalho (DSI)

unread,

Sep 9, 2008, 6:00:25 AM9/9/08

to

Thank's. It Works fine :) !

Atenciosamente,
João Carvalho

DSI-DSTS-DST-TAG
* - mailto:joao.mato...@caixaseguros.pt
"A mente é como um pára-quedas, só funciona se estiver aberta"
(Thomas Dewar)

P Antes de imprimir este e-mail pense bem se tem mesmo que o fazer. Há cada vez menos árvores

-----Original Message-----
From: TSO REXX Discussion List [mailto:TSO-...@VM.MARIST.EDU] On Behalf Of KIP3News Provinzial-AG
Sent: terça-feira, 9 de Setembro de 2008 9:59
To: TSO-...@VM.MARIST.EDU
Subject: [TSO-REXX] Antwort: [TSO-REXX] use ISPSTART CMD with JCL

>

Seibert, Dave

unread,

Sep 9, 2008, 7:03:20 AM9/9/08

to

Hello João

Glad you got it to work.

I'll make a couple comments.

1. If you concatenate the library containing your Rexx program to SYSEXEC or SYSPROC ddname, your syntax is simply

ISPSTART CMD(TIMESTP2)

2. There are benefits to storing modules or programs in libraries with names matching what kind of code they are.
I comment on this because you have your Rexx program in a dataset ending in ISPPLIB. The convention is that ISPPLIB is for ISPF Panels. I suggest that separating panel source and Rexx source allows you to control your searches better. If you have a change menagement system to control storing and migrating your code, that probably is easier to deal with if you use separate libraries.It also enables you and your colleagues to know where to look for what.
An additional benefit I don't see a lot of people taking advantage of is the ISPF EDIT MODEL facility.
Models are templates of code. The models provided by IBM with ISPF/PDF are for Dialog Manager developemnt. They enable you to start your code off with correct syntax and comments describing the function and the return code values from the function.

For example, see the model below for the TBADD

Models are extensible also. You can create your own models.
For a Rexx class I wrote for Compuware I and a few colleagues created models for the 24 Rexx language instructions and other Rexx structures we used commonly.

If you name your libraries in accord with the names ISPF models expect, the list of models is provided in the correct language.
If you name your Rexx library ending in the node EXEC, the Rexx models are automatically provided.
For Panel source functions, name your source library ending in the node PANELS
For message source, MSGS will get you the message models
SKELS is the name for Skeleton source models.

Note that without those names, you can get the correct class for your code with the MODEL CLASS command.

Some complain that this goes against the ISPPLIB, ISPMLIB, ISPSLIB convention.
I advise using that ISP.... convention for Production controlled execution libraries and the EXEC, PANELS, etc library names for source code development libs.

Much, much more information about ISPF Models is available in the manual ISPF EDIT and EDIT MACROS.

----------------------------------------------------------------------------------------
'TBADD' tablenam 'SAVE('namelist') ORDER MULT('nrows')'

tablenam - Name of the table to be updated.
namelist - Optional, list of extension variables, by name,
to be saved in the row.
ORDER - Optional, indicates that the new row is to be
added in the last sort-sequence order.
nrows - Optional, the number of rows to be added to a
table during a session. The default is 1 row.

EXAMPLE: ADDRESS ISPEXEC
'TBADD TABLE3 SAVE(E1 E2 E3)'

If rc ¬= 0 Then /* Return codes */
Do /* 4 - Number of rows parameter */
End /* was specified but storage */
Else /* was only obtained for a */
/* single row */
/* 8 - Key tables: a row with the */
/* same key already exists; */
/* crp set to top */
/* 12 - Table is not open */
/* 20 - Severe error */
----------------------------------------------------------------------------------------

Dave

The contents of this e-mail are intended for the named addressee only. It contains information that may be confidential. Unless you are the named addressee or an authorized designee, you may not copy or use it, or disclose it to anyone else. If you received it in error please notify us immediately and then destroy it.

From: TSO REXX Discussion List [mailto:TSO-...@VM.MARIST.EDU] On Behalf Of João Luís Matos Carvalho (DSI)
Sent: Tuesday, September 09, 2008 6:00 AM
To: TSO-...@VM.MARIST.EDU
Subject: Re: Antwort: [TSO-REXX] use ISPSTART CMD with JCL

Thank's. It Works fine :) !

Atenciosamente,
João Carvalho

DSI-DSTS-DST-TAG
* - mailto:joao.mato...@caixaseguros.pt
"A mente é como um pára-quedas, só funciona se estiver aberta"
(Thomas Dewar)

P Antes de imprimir este e-mail pense bem se tem mesmo que o fazer. Há cada vez menos árvores

----------------------------------------------------------------------

Rick Woods

unread,

Sep 9, 2008, 10:15:34 AM9/9/08

to

What happens when you submit it?
- Rick

>>> João Luís Matos Carvalho (DSI)

<joao.mato...@CAIXASEGUROS.PT> 9/9/2008 1:28 AM >>>

João Luís Matos Carvalho (DSI)

unread,

Sep 10, 2008, 4:57:48 AM9/10/08

to

Thanks for the information Dave !

Atenciosamente,
João Carvalho

DSI-DSTS-DST-TAG
* - mailto:joao.mato...@caixaseguros.pt
"A mente é como um pára-quedas, só funciona se estiver aberta"
(Thomas Dewar)

P Antes de imprimir este e-mail pense bem se tem mesmo que o fazer. Há cada vez menos árvores

Mickey

unread,

Sep 13, 2008, 4:36:48 PM9/13/08

to

Add ATR0037.ISPPLIB to you SYSEXEC concatenation, and then issue

ISPSTART CMD(TIMESTP2)

Mickey
--------------------------------------------------
From: "Rick Woods" <Rick....@AZDOA.GOV>
Sent: Tuesday, September 09, 2008 10:14 AM
To: <TSO-...@VM.MARIST.EDU>
Subject: Re: [TSO-REXX] use ISPSTART CMD with JCL