Using LMINIT in REXX via batch job

[Gilbert Cardenas]

Hello all,

I have a requirement to validate whether several hundred pds
members exists in a library and I have read several posts about the
efficiency of using SYSDSN vs LM services. I can make the SYSDSN work,
however, I cannot make the LMINIT etc work in my REXX called from Batch.
The error I receive is

*-* ADDRESS ISPEXEC "LMINIT DATAID(INLIB) DATASET('"LIBNAME"')"
>>> "LMINIT DATAID(INLIB) DATASET('MVSXB.JCLLIB.PROBLEM')"
+++ RC(-3) +++

I have read other posts that indicate that I might not have the
appropriate ISPF libraries allocated in my batch jcl that is using
IKJEFT01. Can someone tell me if I'm heading in the right direction and
if I am, what is the best way to allocate the necessary ISPF libraries as
I don't really want to attach my userid to the jcl since it will be used
in a "production environment".

Thanks,
Gil.

This e-mail (and any attachments) may contain information that is
confidential and/or protected by law. Any review, use, distribution or
disclosure to anyone other than the
intended recipient(s) is strictly prohibited. If you are not the intended
recipient, please contact the sender by reply email and delete all copies
of this message.

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

[Chris Rudolph]

Chris Rudolph is out of the office and will return on Thursday, Feburary 14th. If you require immediate attention, please forward your email to sup...@treehouse.com.

[Dave Salt]

Gil,

Here's some sample JCL that calls a REXX procedure (ADDTEST2) in batch. ADDTEST2 runs under ISPF with all ISPF services available. You can change ADDTEST2 to any procedure you want to call:

//your job card//ISPF EXEC PGM=IKJEFT01,REGION=2048K,DYNAMNBR=25 //SYSPROC DD DSN=your.clist.library,DISP=SHR //SYSEXEC DD DSN=your.rexx.library,DISP=SHR //ISPPLIB DD DSN=ISP.SISPPENU,DISP=SHR //ISPSLIB DD DSN=ISP.SISPSENU,DISP=SHR //ISPMLIB DD DSN=ISP.SISPMENU,DISP=SHR //ISPTLIB DD DDNAME=ISPTABL // DD DSN=ISP.SISPTENU,DISP=SHR //ISPTABL DD LIKE=ISP.SISPTENU,UNIT=VIO //ISPPROF DD LIKE=ISP.SISPTENU,UNIT=VIO //ISPLOG DD SYSOUT=*,RECFM=VA,LRECL=125 //SYSPRINT DD SYSOUT=* //SYSTSPRT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //SYSDBOUT DD SYSOUT=* //SYSHELP DD DSN=SYS1.HELP,DISP=SHR //SYSTSIN DD * ISPSTART CMD(ADDTEST2) /* //

I hope that helps.
Dave SaltSee the new SimpList(tm) rollover image at: http://www.mackinney.com/products/SIM/simplist.htm > Date: Wed, 13 Feb 2008 08:58:59 -0600> From: Gilbert...@GROCERYBIZ.COM> Subject: Using LMINIT in REXX via bat

[Dunkel, Martin]

Gil,

I just put something together using TSO LISTDS instead:

000340 dslist=outtrap("listd.")

000341 cmd="listds '"dsnsel"' members"

000342 address tso cmd

000343 dslist=outtrap("off")

- - - - - - - - - - - - - - - - 9 Line(s) not Displayed
000353 /* Clear out mems1 stem before populating it */

000354 drop mems1.;mems1.0=0

000355

000356 j=0

000357 do i=7 to listd.0

000358 j=j+1

000359 parse var listd.i mems1.j .

000360 end

000361 mems1.0=j

Then, later I have a little binary search to go through the member list
to find if a member exists. I know you can use outtrap to eliminate
error messages. But, I wanted to try something different.

By using LISTDS, you do not need an ISPF environment; just TSO.

Thanks! MPD

Martin Dunkel
National City Corporation
Turnover Support / ChangeMan ZMF
(w) 216-257-5354
(p) 80053...@archwireless.net

Hello all,

Thanks,
Gil.

-------------------------------------------------------------------------------------------
***National City made the following annotations
-------------------------------------------------------------------------------------------
This communication is a confidential and proprietary business communication.
It is intended solely for the use of the designated recipient(s). If this
communication is received in error, please contact the sender and delete
this communication.
===========================================================================================

[Dave Petronella]

You need to have all your ISPF libraries allocated, either via the JCL
or within the REXX via LIBDEF specs. You also need to be invoking your
REXX under TSO and within ISPF using ISPSTART such as ISPSTART
CMD(%name-of-your-rexx)

Thanks.
Dave.
x7747

Gilbert Cardenas <Gilbert...@GROCERYBIZ.COM>
Sent by: TSO REXX Discussion List <TSO-...@VM.MARIST.EDU>
02/13/2008 09:58 AM
Please respond to
TSO REXX Discussion List <TSO-...@VM.MARIST.EDU>

To
TSO-...@VM.MARIST.EDU
cc

Subject
[TSO-REXX] Using LMINIT in REXX via batch job

Hello all,

Thanks,
Gil.

******************************************************
IMPORTANT: Any information contained in this communication is intended for the use of the named individual or entity. All information contained in this communication is not intended or construed as an offer, solicitation, or a recommendation to purchase any security. Advice, suggestions or views presented in this communication are not necessarily those of Pershing LLC nor do they warrant a complete or accurate statement.

If you are not an intended party to this communication, please notify the sender and delete/destroy any and all copies of this communication. Unintended recipients shall not review, reproduce, disseminate nor disclose any information contained in this communication. Pershing LLC reserves the right to monitor and retain all incoming and outgoing communications as permitted by applicable law.

Email communications may contain viruses or other defects. Pershing LLC does not accept liability nor does it warrant that email communications are virus or defect free.
******************************************************

[Ryerse, Robin]

If you want to avoid ISPF, adapt the following. The exec as shown only
produces a list of the member names with uninterpretted "user data" from
the directory entry.

Note that the process can not be applied to a concatenation of libraries

/* REXX */

address tso

"ALLOC FI(DIR) DA("arg(1)") DSORG(PS) BLKSIZE(256) RECFM(F) LRECL(256)
SHR REU"
'EXECIO * DISKR DIR (FINIS STEM DIR.'

do b# = 1 to dir.0

parse var dir.b# block_length 3 dir_block

block_length = c2d(block_length)

do while block_length > 0

if left(dir_block,8) = 'ffffffffffffffff'x then leave b#

parse var dir_block name 9 ttr 12 len 13 user_data

user_length = c2d(bitand(len,'7f'x)) * 2

dir_block = substr(user_data,user_length+1)

user_data = left(user_data,user_length)

if bitand(len,'80'x) = '80'x then

say name c2x(ttr) user_length 'alias'

else say name c2x(ttr) user_length c2x(user_data)

block_length = block_length - 13 - user_length

end

end

exit

-----Original Message-----
From: TSO REXX Discussion List [mailto:TSO-...@VM.MARIST.EDU] On Behalf
Of Gilbert Cardenas
Sent: February 13, 2008 9:59 AM
To: TSO-...@VM.MARIST.EDU

[Gilbert Cardenas]

Thanks Dave, this was the only part I was missing and it's working
like a champ now.

Dave Salt <ds...@HOTMAIL.COM>

Sent by: TSO REXX Discussion List <TSO-...@VM.MARIST.EDU>

02/13/2008 09:32 AM

Please respond to
TSO REXX Discussion List <TSO-...@VM.MARIST.EDU>

To
TSO-...@VM.MARIST.EDU
cc

Subject
Re: [TSO-REXX] Using LMINIT in REXX via batch job

Gil,

This e-mail (and any attachments) may contain information that is

confidential and/or protected by law. Any review, use, distribution or
disclosure to anyone other than the
intended recipient(s) is strictly prohibited. If you are not the intended
recipient, please contact the sender by reply email and delete all copies
of this message.

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

[Seibert, Dave]

Hi Gil.

There's a feature of the program ISRDDN (aka ISPF cmd DDLIST) which
would help you here.

You can invoke DDLIST and then issue the command ==> CLIST
This builds a file called ISRDDN.CLIST which contains ALLOC statements
in the CLIST language for all of the files currently allocated to your
TSO ISPF session. You could use this in your batch job to allocate the
necessary ISPF libs.
If you use this, I recommend you consider changing the allocation for
ISPTABL and your ISPF LOG and perhaps ISPPROF.

See the ISRDDN online help for more details.

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 Gilbert Cardenas
Sent: Wednesday, February 13, 2008 9:59 AM
To: TSO-...@VM.MARIST.EDU

Subject: Using LMINIT in REXX via batch job
Importance: High

Hello all,

I have a requirement to validate whether several hundred pds
members exists in a library and I have read several posts about the
efficiency of using SYSDSN vs LM services. I can make the SYSDSN work,
however, I cannot make the LMINIT etc work in my REXX called from Batch.
The error I receive is

*-* ADDRESS ISPEXEC "LMINIT DATAID(INLIB) DATASET('"LIBNAME"')"
>>> "LMINIT DATAID(INLIB) DATASET('MVSXB.JCLLIB.PROBLEM')"
+++ RC(-3) +++

I have read other posts that indicate that I might not have the
appropriate ISPF libraries allocated in my batch jcl that is using
IKJEFT01. Can someone tell me if I'm heading in the right direction and
if I am, what is the best way to allocate the necessary ISPF libraries
as I don't really want to attach my userid to the jcl since it will be
used in a "production environment".

Thanks,
Gil.

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

[Gilbert Cardenas]

Thanks you all for the feedback and examples, I had tried the
listds path but after reading the sysdsn/LM services debate, I thought I
would try the LM route since there were going to be quite a few members
being validated.
Unfortunately I spent two days reviewing and trying the different
options (SAS, IDCAMS, REXX, etc) but I thought I would go the REXX route.
It gave me an opportunity to learn something new.
I've seen a some mention avoiding ISPF. I'm sure there are
pros/cons to using ISPF in batch but I just wondered what the preferred
method is?
I don't have a lot of time coding REXX but so far I've enjoyed using it.

Thanks again all,
Gil.

This e-mail (and any attachments) may contain information that is
confidential and/or protected by law. Any review, use, distribution or
disclosure to anyone other than the
intended recipient(s) is strictly prohibited. If you are not the intended
recipient, please contact the sender by reply email and delete all copies
of this message.

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

[Dunkel, Martin]

Gil,

From what I can see, there is probably no preferred method. We're given
a big, huge tool box, and we can find many ways to accomplish something.

If a carpenter is asked to build a door, there are probably many
different tools and methods available to accomplish the task. Now, you
probably wouldn't use a screw driver to pound in a nail, although I'm
sure some may do it that way. But, I think you see what I mean.

More specifically, I find Rexx great for some things, and I find SAS
great for other things. Sometimes I end up using a combination of both
to come up with a final report of some sort.

Thanks! MPD

Martin Dunkel
National City Corporation
Turnover Support / ChangeMan ZMF
(w) 216-257-5354
(p) 80053...@archwireless.net

-----Original Message-----
From: TSO REXX Discussion List [mailto:TSO-...@VM.MARIST.EDU] On Behalf
Of Gilbert Cardenas

Thanks again all,
Gil.

-------------------------------------------------------------------------------------------
***National City made the following annotations
-------------------------------------------------------------------------------------------
This communication is a confidential and proprietary business communication.
It is intended solely for the use of the designated recipient(s). If this
communication is received in error, please contact the sender and delete
this communication.
===========================================================================================

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

[Gilbert Cardenas]

Good analogy. Being fairly new to REXX I'm still looking for best
practices and trying to stay away from any pitfalls.
One of the reasons I liked using the LM services was that I was able to
query the RC after the LMMFIND command to check for error codes and then
passing the info to the log and exiting the REXX routine with the error
code.
I passed it a bogus member to check the validation was working and
the logic worked, however, I was expecting the IKJEFT01 step to end with
the return code of the REXX , but it ended with a return code of zero. I
did see the following message :

The initially invoked CLIST ended with a return code = 8

How would I pass the RC to the step executing the REXX so that I
can stop further execution?

"Dunkel, Martin" <Martin...@NATIONALCITY.COM>

Sent by: TSO REXX Discussion List <TSO-...@VM.MARIST.EDU>

02/13/2008 10:40 AM

Please respond to
TSO REXX Discussion List <TSO-...@VM.MARIST.EDU>

To
TSO-...@VM.MARIST.EDU
cc

Subject

[Seibert, Dave]

Hello again Gil.

You probably just need to add an ISPEXEC statement:

Address ISPEXEC 'CONTROL ERRORS RETURN'

This tells ISPF not to terminate when you get an error, rather to return
the error to the program

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.

[Binyamin Dissen]

On Wed, 13 Feb 2008 10:40:49 -0500 "Dunkel, Martin"
<Martin...@NATIONALCITY.COM> wrote:

:>Then, later I have a little binary search to go through the member list

:>to find if a member exists. I know you can use outtrap to eliminate
:>error messages. But, I wanted to try something different.

If you are using rexx, you do not need to do a binary search.

Create compound variables like

MEMBER.name (name being the member name)

and then you can

IF SYMBOL("MEMBER." || testname) = "VAR" THEN /*member name exists */

--
Binyamin Dissen <bdi...@dissensoftware.com>
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel

Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

[Dave Salt]

Gil,

Terminate your batch REXX procedure like this:

zispfrc = exit_code
"VPUT (ZISPFRC) SHARED"
EXIT exit_code

If (for example) the variable 'exit_code' has been set to 16, both the REXX procedure
and the JCL step will complete with a completion code of 16.

Hope that helps,

Dave Salt

See the new SimpList(tm) rollover image at:
http://www.mackinney.com/products/SIM/simplist.htm

> Date: Wed, 13 Feb 2008 10:59:49 -0600
> From: Gilbert...@GROCERYBIZ.COM
> Subject: Re: Using LMINIT in REXX via batch job
> To: TSO-...@VM.MARIST.EDU

>
> Good analogy. Being fairly new to REXX I'm still looking for best
> practices and trying to stay away from any pitfalls.
> One of the reasons I liked using the LM services was that I was able to
> query the RC after the LMMFIND command to check for error codes and then
> passing the info to the log and exiting the REXX routine with the error
> code.
> I passed it a bogus member to check the validation was working and
> the logic worked, however, I was expecting the IKJEFT01 step to end with
> the return code of the REXX , but it ended with a return code of zero. I
> did see the following message :
>
> The initially invoked CLIST ended with a return code = 8
>
> How would I pass the RC to the step executing the REXX so that I
> can stop further execution?
>
>
>
>
> "Dunkel, Martin"

> Sent by: TSO REXX Discussion List

> 02/13/2008 10:40 AM
> Please respond to
> TSO REXX Discussion List
>
>

_________________________________________________________________

[Seibert, Dave]

Whoops.

Upon seeing Dave Salt's reply, I realize I misread your question.
Kindly disregard my incorrect advice.
It's good advice actually, it just doesn't answer your question.

It'll never happen again

Dave

[Gilbert Cardenas]

I was able to piece together the use of the zispfrc variable, and
your email confirmed it, however, how do I get rid of the pesky
USER.USERID.JOB00800.D0000101.? was preallocated (no free was done).
It doesn't tell me what DDNAME is missing? I did a TRACE R to see
what was generating the message but apparently it is not in the REXX
routine.

Thanks to all for your patience and assistance,
Gil.

Dave Salt <ds...@HOTMAIL.COM>
Sent by: TSO REXX Discussion List <TSO-...@VM.MARIST.EDU>
02/13/2008 01:20 PM
Please respond to
TSO REXX Discussion List <TSO-...@VM.MARIST.EDU>

[Gilbert Cardenas]

Thanks Dave, but it was my bad I had totally missed an error
message (ISPD117) that points me to what the problem is :
ISPD117

The initially invoked CLIST ended with a return code = 8

ISPD117 The initially invoked CLIST ended with a return code = aaaaaaaa.

Explanation: A CLIST or REXX procedure was selected at ISPSTART time that
ended with a return code that was not 0 or 4. These are the only valid
values.

Programmer Response: If you wish to return a value to the calling program
or procedure, consider using the ZISPFRC variable. See z/OS ISPF Dialog
Developer's Guide and Reference for details.

I'll look at the Dialog guide to see how to use the ZISPFRC
variable or perhaps I can just display the real error but just set the RC
to 4 to indicate a problem.

"Seibert, Dave" <Dave.S...@COMPUWARE.COM>

Sent by: TSO REXX Discussion List <TSO-...@VM.MARIST.EDU>

02/13/2008 12:13 PM

[Hamilton, Robert L]

Search for Doug Nadel; he has a lot of ISPF stuff

bobh

-----Original Message-----
From: TSO REXX Discussion List [mailto:TSO-...@VM.MARIST.EDU] On Behalf
Of Gilbert Cardenas

Sent: Wednesday, February 13, 2008 8:59 AM
To: TSO-...@VM.MARIST.EDU

[Grant Ward Able]

Can you call the CLIST function of ISRDDN from an EXEC ? If so - how?

--
Regards - Grant

====================================

"Seibert, Dave" <Dave.S...@COMPUWARE.COM>
Sent by: TSO REXX Discussion List <TSO-...@VM.MARIST.EDU>

13/02/2008 16:12

Please respond to
TSO REXX Discussion List <TSO-...@VM.MARIST.EDU>

To
TSO-...@VM.MARIST.EDU
cc

Subject
Re: [TSO-REXX] Using LMINIT in REXX via batch job

Hi Gil.

Dave

Hello all,

Thanks,
Gil.

-----------------------------------------
________________________________________________________
DTCC DISCLAIMER: This email and any files transmitted with it are
confidential and intended solely for the use of the individual or
entity to whom they are addressed. If you have received this email
in error, please notify us immediately and delete the email and any
attachments from your system. The recipient should check this email
and any attachments for the presence of viruses. The company
accepts no liability for any damage caused by any virus transmitted
by this email.

[Gilbert Cardenas]

I use the following REXX which uses ISRDDN to perform a GRS on a dataset
from the dataset list utility screen but you can pass it a dataset as
well.
(I changed the subject line since this is really starting a new thread).

PARSE UPPER ARG DATASET
IF DATASET = '' THEN DO
SAY 'ENTER DATASET NAME'
PULL DATASET
END
ADDRESS TSO
ISRDDN E "'"DATASET"'"
EXIT

Hope this helps,
Gil.

Grant Ward Able <GWar...@DTCC.COM>

Sent by: TSO REXX Discussion List <TSO-...@VM.MARIST.EDU>

02/14/2008 05:33 AM

To
TSO-...@VM.MARIST.EDU
cc

--
Regards - Grant

====================================

To
TSO-...@VM.MARIST.EDU
cc

Hi Gil.

Dave

Hello all,

Thanks,
Gil.

This e-mail (and any attachments) may contain information that is

confidential and/or protected by law. Any review, use, distribution or
disclosure to anyone other than the
intended recipient(s) is strictly prohibited. If you are not the intended
recipient, please contact the sender by reply email and delete all copies
of this message.

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

[Dave Salt]

> From: GWar...@DTCC.COM

> Can you call the CLIST function of ISRDDN from an EXEC ? If so - how?

Yes, try this:

address ispexec
"SELECT PGM(ISRDDN) NEWAPPL(ISR) SUSPEND PARM(CLIST)"

HTH,

Dave Salt

See the new SimpList(tm) rollover image at:
http://www.mackinney.com/products/SIM/simplist.htm

_________________________________________________________________

[Ryerse, Robin]

Your question can be interpretted two ways. I think the answer you
wanted is:
DDLIST CL
You should alo refer to ISRDDN Help

-----Original Message-----
From: TSO REXX Discussion List [mailto:TSO-...@VM.MARIST.EDU] On Behalf

Of Grant Ward Able
Sent: February 14, 2008 6:18 AM
To: TSO-...@VM.MARIST.EDU

[Ryerse, Robin]

Why bother with the exec? The (ISPF) command DDLIST E takes you right
there. If you want to get fancy create a USER type command table entry
as:
NQ? 0 ALIAS DDLIST E &ZPARM

And, yes, "?" is valid as a character in a command.

-----Original Message-----
From: TSO REXX Discussion List [mailto:TSO-...@VM.MARIST.EDU] On Behalf
Of Gilbert Cardenas

Sent: February 14, 2008 10:14 AM
To: TSO-...@VM.MARIST.EDU

[Miranda, John]

Does anyone work with Eclipse to code REXX (or other mainframe
languages)? I'm looking for a 3270 plugin. I found the iWay Terminal
plugin but am having a codepage problem. I'm curious if anyone else is
using a pc environment. Please share if there is a better forum, but
hoping to find someone leveraging both environments using REXX. Oh, I'm
aware of Rational having one, but we are too far back in the bureaucracy
to get noticed and have no budget. Open source seemed like the best
place to start looking.

John M.

[Robert Zenuk]

Before discussing products and interfaces, what is it you are trying to do?
Maybe I'm thinking of a different Eclipse, but I don't see how "work with
Eclipse to code REXX" can be correct terminology in the same sentence...

Rob

In a message dated 2/15/2008 7:31:37 A.M. US Mountain Standard Time,
john.m...@USAA.COM writes:

John M.

**************The year's hottest artists on the red carpet at the Grammy
Awards. Go to AOL Music.
(http://music.aol.com/grammys?NCID=aolcmp00300000002565)

[Miranda, John]

I apolgize if I'm not being clear or am short some understanding.
My latest assignment is to maintain an inhouse written workbench that is
ISPF / REXX based. I currently use IBM Personal communications to
access the host, I use the ISPF editor to make changes.

I have seen the Rational, which is an Eclipse based IDE, tool pull down
cobol source, use an Eclipse based editor that is cobol aware to make
changes, then upload the file back to the host pds. All within Eclipse.

Don't know if I can achive all that. First would like to find an
Eclipse plugin for a 3270 terminal session. Which I did but ran into
the codepage problem with iWay 3270 terminal plugin. Afte that, I could
IND$ (file transfer) the file down. Use an Eclipse editor. There is a
REXX plugin that would help with formatting, selecting verbs, integrity
checks. I would prefer a workstation editor. Some of these REXX
programs are very large. While exclude helps in ISPF, the workstation
editor I think would be better. And there are more editors to choose
from.

Then reverse the process to move the member back to the host.
Does that help or did I just make make it worse?

-----Original Message-----
From: TSO REXX Discussion List [mailto:TSO-...@VM.MARIST.EDU] On Behalf
Of Robert Zenuk
Sent: Friday, February 15, 2008 8:55 AM
To: TSO-...@VM.MARIST.EDU

[Bob Stark]

John,

I think you want SlickEdit. www.slickedit.com Pricey but good. Available as
an eclipse plug-in. Rexx-aware.

If you are looking for a text editor, a good reference is the
texteditors.org wiki.

Regards,

Bob Stark

ProTech - When you're serious about Systems Management
Consulting, Software, and Training for z/OS, UNIX and Internet
www.protechtraining.com 800-373-9188 x150 412-445-8072

Rob

John M.

--
If this email is spam, report it here:
http://www.onlymyemail.com/view/?action=reportSpam&Id=Mzg3MzE6NTM2MjA1NDE5Om
JzdGFya0Bwcm90ZWNocHRzLmNvbQ%3D%3D

[Bob Bridges]

Although I know I can do that sort of thing, I usually do it this way:

member.='' /* initialize the list of member names */

Then later:

if member.xx='' then member.xx=membername
else call abend 'Member' member.xx 'encountered twice!'

Then again, if all I really need is to see whether the member exists, I
don't save the member name at all, or not that way:

fmbr.=0 /* fmbr.mbrname is true if the member exists */
.
.
.
if fmbr.membername then call abend membername 'was encountered',
'twice!'
else fmbr.membername=1

---
Bob Bridges, rhb...@attglobal.net
cell 336 382-7313

/* Q: Isaac Asimov said he resented people rating NIGHTFALL as his best
work because he did it so young. Does it bother you that so many of us view
ENDER'S GAME as yours?

Orson Scott Card: Not at all. I hope someday every family in America is
riven with conflict over which of my books is best. */

-----Original Message-----
From: Binyamin Dissen
Sent: Wednesday, February 13, 2008 13:57

If you are using rexx, you do not need to do a binary search. Create
compound variables like

MEMBER.name (name being the member name)

and then you can

IF SYMBOL("MEMBER." || testname) = "VAR" THEN /*member name exists */

--- On Wed, 13 Feb 2008 10:40:49 -0500 "Dunkel, Martin"
<Martin...@NATIONALCITY.COM> wrote:

Then, later I have a little binary search to go through the member list to
find if a member exists. I know you can use outtrap to eliminate error
messages. But, I wanted to try something different.

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

[Dave Salt]

John,

Have you considered using the ISPF Workstation Agent? It can be configured to launch many different PC editors (e.g. Notepad, SPF/PC, THE, txtedit, ConTEXT, and others). Once configured, you can go into a regular ISPF member list and select a member to edit. The member is automatically downloaded to the PC and seamlessly opened using the editor you chose. If you make changes and exit the file, it is automatically and seamlessly sent back to the host. And, it doesn't cost a penny.

HTH,

Dave Salt

See the new SimpList(tm) rollover image at:
http://www.mackinney.com/products/SIM/simplist.htm

_________________________________________________________________

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

[Cruz, Robert]

A few other avenues you could investigate:

(1) as I understand it, you are using the 3270 emulator primarily to
transfer the mainframe files between the mainframe and PC, so that you
can use a PC-based editor to perform your editing tasks. IND$ is
probably the least efficient method of transferring files between the PC
and host (short of copy-and-paste ;-). Instead, why not use FTP for
your transfers? This can be managed and initiated from the PC side
without having to logon as a 3270 at all. You might find a
Windows-based FTP client that allows your editor to be launched when you
click on a file.

(2) Another method of accessing mainframe files from the PC is to use a
NFS (Network File System, such as AFS or Hummingbird). This makes the
mainframe files appear to be in a folder on a virtual drive on the PC,
and you can access them with the PC Editor's OPEN dialog. Check with
your systems programmers to see if you have this type of feature
installed for MVS.

(3) If you want to script PCOM, you can do so through HLLAPI, either
from a PC-based REXX or some other programming language.

(4) If you want a 3270 emulator with a REXX interface that you can
script directly, look into ZOC (www.Emtec.com/zoc)-- it even comes with
a copy of REXX for Windows; there is a 30-day free trial.

(5) Finally, if you want the power of the mainframe-based editors on the
PC, look into ISPF/PC (an ISPF clone; you may have to search for an
older copy), and KEDIT (a top-notch work-alike for the excellent VM/CMS
XEDIT editor, with expanded function for Windows) from Mansfield
Software Group (www.kedit.com).

Enjoy!

John,

Regards,

Bob Stark

Rob

John M.

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

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

**************The year's hottest artists on the red carpet at the Grammy
Awards. Go to AOL Music.
(http://music.aol.com/grammys?NCID=aolcmp00300000002565)

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

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

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

--

If this email is spam, report it here:
http://www.onlymyemail.com/view/?action=reportSpam&Id=Mzg3MzE6NTM2MjA1ND
E5Om
JzdGFya0Bwcm90ZWNocHRzLmNvbQ%3D%3D

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

[Hamilton, Robert L]

WSA is the greatest ispf tool ever... It's the first thing I install
when I hit a mainframe job.

bobh

-----Original Message-----
From: TSO REXX Discussion List [mailto:TSO-...@VM.MARIST.EDU] On Behalf
Of Dave Salt
Sent: Friday, February 15, 2008 10:41 AM
To: TSO-...@VM.MARIST.EDU
Subject: Re: Eclipse Plugin for 3270

[Cruz, Robert]

How can I tell if its available at my shop, and where would I get it
from?

-----Original Message-----
From: TSO REXX Discussion List [mailto:TSO-...@VM.MARIST.EDU] On Behalf

Of Hamilton, Robert L
Sent: Fri 15 Feb 2008 09:50
To: TSO-...@VM.MARIST.EDU
Subject: Re: [TSO-REXX] Eclipse Plugin for 3270

[Bob Stark]

A good summary. I totally concur with your low opinion of IND$FILE; if I
ever use it again it will be too soon.

Now, back to SlickEdit; SlickEdit automates the whole FTP experience for
you.

When you open a file for editing, it FTP's it from the original host,
regardless of platform.

When you save it, it FTP's it back.

I am not sure if it handles member level data integrity - if it manages to
make the file appear in-use while you have it open on your PC. Does the ISPF
workstation agent handle that for you?

Regards,

Bob Stark

Enjoy!

John,

Regards,

Bob Stark

Rob

John M.

http://www.onlymyemail.com/view/?action=reportSpam&Id=Mzg3MzE6NTM2MzAzNDgyOm

[Miranda, John]

I wasn't sure myself. After Michael and Dave mention it, I went looking
and stumbled where it was in our organization. You have to find where
'ISP.SISPGUI' is located. Ours was renamed using a SYS1 prefix. Beyond
the prefix change the name was the same. Hopefully, it is the same for
you. If not, my next step was to head over to the sys admin. Then in
option 3 then 7, if you chose option 3 Manual and fill in the blanks.
It will give you the member name you need to download (as binary). This
member should be saved as an 'EXE' file. It will self extract and
install when you run it. You will find a WSA.EXE, the agent.

That as far as I got. I'm reading on my next steps on how to configure
it then use it.

Thanks everybody for all the feedback. There is plenty to look into.

John Miranda
Host Build Mgmt
CCRM
(210) 912-5134

[Dave Salt]

> Date: Fri, 15 Feb 2008 12:52:36 -0500

> SlickEdit automates the whole FTP experience for you.
> When you open a file for editing, it FTP's it from the original host,
> regardless of platform. When you save it, it FTP's it back.
>
> I am not sure if it handles member level data integrity - if it manages to
> make the file appear in-use while you have it open on your PC. Does the ISPF
> workstation agent handle that for you?

Hi Bob,

The WSA can be configured to open mainframe files in one of two modes; MODAL or MODELESS. Each has pros and cons...

When using MODAL the mainframe session is 'locked' until you've finished editing the file on the PC. As soon as you've finished editing the file, the WSA automatically sends the file back to the mainframe and the mainframe session unlocks. During this time, no-one else can modify the file on the mainframe so data integrity is assured.

When using MODELESS, the mainframe file opens on the PC but the mainframe session is not locked. When you've finished making changes to the file, it is NOT automatically sent back to the mainframe, so this is something you'd have to do manually (if you wanted any changes you made sent back to the mainframe). Plus, someone else could have edited the mainframe file while you were editing on the PC.

MODAL is generally selected for editing files and MODELESS is generally selected for viewing files. In other words, if you select a member from a member list using 'E' for Edit, your mainframe session locks and data integrity is assured. If you select a member from a member list using 'V' for View, your mainframe session is not locked and data integrity is not assured.

HTH,

Dave Salt

See the new SimpList(tm) rollover image at:
http://www.mackinney.com/products/SIM/simplist.htm

_________________________________________________________________

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

[Dave Salt]

> From: Rober...@CTB.COM
> How can I tell if WSA is available at my shop, and where would I get it
> from?

A few years ago I wrote an article for the TSO TIMES explaining how to install the ISPF Workstation Agent. The article can be viewed at:

http://www.tsotimes.com/articles/archive/spring04/wsafiletransfer.html

Hope that helps,

[Miranda, John]

Thanks. Your article got me going. I had to look up the codepage (037)
and character set (0697) values. Other than that, it's working. Sorry
to see this is not being enhanced. The file transfer part is handy, but
the gui could use some work. Thanks again. I'll work with this a
little but hope to find a 3270 Eclipse plugin. Or a plugin that would
communicate to the host via TCP/IP and use USS services to access the
MVS files.

John

-----Original Message-----
From: TSO REXX Discussion List [mailto:TSO-...@VM.MARIST.EDU] On Behalf
Of Dave Salt
Sent: Friday, February 15, 2008 1:28 PM
To: TSO-...@VM.MARIST.EDU
Subject: Re: [TSO-REXX] Eclipse Plugin for 3270

[Dave Salt]

> From: john.m...@USAA.COM

> Thanks. Your article got me going. I had to look up the codepage (037)
> and character set (0697) values. Other than that, it's working. Sorry
> to see this is not being enhanced.

At the time I wrote the WSA article (back in 2004), the WSA was not being enhanced. But since then, IBM stated on one of the listservs that enhancement requests for the WSA would be 'considered'. So, I think there's still some life left in it.

> The file transfer part is handy, but
> the gui could use some work.

I don't think anyone uses the GUI. The main benefits of the WSA are:

1) Makes file transfers much easier
2) Allows PC files to be edited on the mainframe
3) Allows mainframe files to be edited on the PC

The above can all be performed in standard 3270 mode; i.e. GUI mode is *NOT* required.

[Cruz, Robert]

You guys are great! Not only have you motivated me to finally get this
working, but you've given me every last bit of info I needed to get it
up and running for file transfer :-)

However, I haven't been able to figure out how to do either item (2) or
(3) on Dave's list (below). For example, if I issue the workstation
command "NOTEPAD /", NOTEPAD will come up on the PC, but expects a
*local* file of the given name (provided by ISPF to replace the slash).
Thus I am able to cause the mainframe to start an editing session on the
PC for a *PC* file, but not a mainframe file.

Any idea what I am doing wrong?

P.S. I did *not* start WSA in GUI mode, in case that makes a
difference.

-----Original Message-----
From: TSO REXX Discussion List [mailto:TSO-...@VM.MARIST.EDU] On Behalf
Of Dave Salt

[Dave Salt]

> From: Rober...@CTB.COM

> You guys are great! Not only have you motivated me to finally get this
> working, but you've given me every last bit of info I needed to get it
> up and running for file transfer :-)

File transfer is just the beginning; there are SO many great things you can do with the WSA enabled!

> However, I haven't been able to figure out how to do either item (2) or
> (3) on Dave's list (below). For example, if I issue the workstation
> command "NOTEPAD /", NOTEPAD will come up on the PC, but expects a
> *local* file of the given name (provided by ISPF to replace the slash).
> Thus I am able to cause the mainframe to start an editing session on the
> PC for a *PC* file, but not a mainframe file. Any idea what I am doing wrong?

All WSA actions are initiated from the mainframe side, not the PC side. For example, if you want to edit a PC file on the mainframe, all you have to do is enter the PC file name in the appropriate mainframe field (e.g. the 'File name' field in ISPF option 2). If you want to edit a mainframe file on the PC, you first have to do a one-time set-up; i.e. you have to tell the mainframe which editor you want it to use when it opens the file on the PC. To do this, enter INT on any ISPF command line. Once you've set up the integration options, make sure you enable the 'Edit on Workstation' setting on the option 2 edit entry panel.

If SimpList is installed it dramatically expands the list of things you can do using the ISPF workstation agent, and also makes things a lot easier. For example, you can edit mainframe files on the PC without having to go through the INT dialog; you can print mainframe files on the PC or print PC files on the mainframe; you can edit files on the PC or on the mainframe by simply selecting members from a member list using different line commands; you can display on the mainframe a list of files in a PC directory and select the files for many different functions (e.g. browse, edit, transfer, etc); you can visit web sites by selecting the URL from the mainframe; you can execute DOS commands and Windows commands (e.g. IPCONFIG, NOTEPAD, FREECELL, etc); you can open Windows Explorer directly at any file you want to open (e.g. PDF, DOC, XLS, etc), and much more.

> P.S. I did *not* start WSA in GUI mode, in case that makes a difference.

Yes; it does make a difference. Not using the GUI will help to preserve your sanity. :-)

[Harrington, Mark]

Hi all, Can I apply the LISTDSI command on a VSAM dataset?

Thanks

Mark H.

----------------------------------------------------------
IMPORTANT WARNING: This email (and any attachments) is only intended for the use of the person or entity to which it is addressed, and may contain information that is privileged and confidential. You, the recipient, are obligated to maintain it in a safe, secure and confidential manner. Unauthorized redisclosure or failure to maintain confidentiality may subject you to federal and state penalties. If you are not the recipient, please immediately notify us by return email, and delete this message from your computer.
----------------------------------------------------------

[Imbriale, Donald]

Go to the TSO/E REXX Reference manual and do a search on LISTDSI. The
answers will be revealed to you there.

Don Imbriale

-----Original Message-----
From: TSO REXX Discussion List [mailto:TSO-...@VM.MARIST.EDU] On Behalf

Of Harrington, Mark
Sent: Thursday, March 13, 2008 3:18 PM
To: TSO-...@VM.MARIST.EDU

Subject: Re: Using LMINIT in REXX via batch job

Hi all, Can I apply the LISTDSI command on a VSAM dataset?

***********************************************************************
Bear Stearns is not responsible for any recommendation, solicitation,
offer or agreement or any information about any transaction, customer
account or account activity contained in this communication.
***********************************************************************

[Hamilton, Robert L]

Sysdsiorg = 'VS' for VSAM; so I would say yes.

bobh

[Hamilton, Robert L]

IF you are new to REXX, get a copy of REXXTRY and put it in ddname =
sysexec. Then you can easily
Try rexx commands and code.

bobh

[Harrington, Mark]

No I, not just couldn't remember and our book shelf is down but I found
the answer thanks

bobh

Don Imbriale

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

IMPORTANT WARNING: This email (and any attachments) is only intended for the use of the person or entity to which it is addressed, and may contain information that is privileged and confidential. You, the recipient, are obligated to maintain it in a safe, secure and confidential manner. Unauthorized redisclosure or failure to maintain confidentiality may subject you to federal and state penalties. If you are not the recipient, please immediately notify us by return email, and delete this message from your computer.
----------------------------------------------------------

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

[Cruz, Robert]

Remember, you can usually locate a manual and view it, or download a PDF
of it, by pointing your browser to:
http://www.elink.ibmlink.ibm.com/publications/servlet/pbi.wss?CTY=US
Then click on "Search for publications" (NOT on the general "Search" in
the upper right-hand corner!). On the next page, enter your title text
or publication number, select any options you want, and click on "Go".

Be warned, though, its very particular and you may have to try
variations of your search. For example, searching on "TSO REXX"
returned ZERO matches, but searching on "TSO/E REXX" resulted in 27
hits!

-----Original Message-----
From: TSO REXX Discussion List [mailto:TSO-...@VM.MARIST.EDU] On Behalf
Of Harrington, Mark

Sent: Thu 13 Mar 2008 13:16
To: TSO-...@VM.MARIST.EDU

bobh

Don Imbriale

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

The information contained in this message is intended only for the recipient, and may be a confidential attorney-client communication or may otherwise be privileged and confidential and protected from disclosure. If the reader of this message is not the intended recipient, or an employee or agent responsible for delivering this message to the intended recipient, please be aware that any dissemination or copying of this communication is strictly prohibited. If you have received this communication in error, please immediately notify us by replying to the message and deleting it from your computer. The McGraw-Hill Companies, Inc. reserves the right, subject to applicable local law, to monitor and review the content of any electronic message or information sent to or from McGraw-Hill employee e-mail addresses without informing the sender or recipient of the message.
--------------------------------------------------------

[Lindy Mayfield]

This link below is very precious to me. It is very difficult to find
from IBM's site or from Google. (For me at least.)

As for the Java versions of the documentation, they are nice, but
painfully slow. I despise them.

Correct the URL for your version of z/OS. No Java here, just plain
HTML.

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/Shelves?filter=z/OS
%20V1R9&SUBMIT=Find

BTW, Rexx is in the TSO/E bookshelf.

Regards,
Lindy

-----Original Message-----
From: TSO REXX Discussion List [mailto:TSO-...@VM.MARIST.EDU] On Behalf
Of Harrington, Mark

Sent: 13. maaliskuuta 2008 22:16
To: TSO-...@VM.MARIST.EDU

Subject: Re: [TSO-REXX] Using LMINIT in REXX via batch job

No I, not just couldn't remember and our book shelf is down but I found
the answer thanks

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

[David S Speake]

Thank you, thank you, thank you!!!

I am an idiot 1,000 times.

I have been using

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/Shelves

for years and then using 'Find shelves with titles or names containing:'
or just the browser 'FIND'. Even on our corp bandwidth (several T3s worth
I've been told) it takes minutes for the thing to load.

I have never before really LOOKED at some of the URNs++ that I have clicked
on.

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/Shelves?filter=z/OS%20V1R7
&SUBMIT=Find

works much better.

Will now dig aroud a bit for extendibility.

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/Shelves?filter=z/OS%20V1R7
%20TSO&SUBMIT=Find

doesn't work

David Speake
------------------( Forwarded letter 1 follows )---------------------
Date: Fri, 14 Mar 2008 16:22:20 +0100
Reply-To: TSO.REXX.Discussion.List[TSO-REXX]@VM.MARIST.EDU.INET
Sender: TSO.REXX.Discussion.List[TSO-REXX]@VM.MARIST.EDU.INET
From: lindy.m...@SSF.SAS.COM.INET
Subject: Re: Using LMINIT in REXX via batch job
To: TSO-...@VM.MARIST.EDU.INET
X-HDT-HopCount: 1

[Robert Zenuk]

LISTDSI can be used for VSAM datasets for extremely basic things.

Is the dataset cataloged? (RC=4)
Is the DSORG VSAM? (sysdsorg=VS)
What unit type is it on? (sysunit=3390)

Nothing else is really returned for VSAM.

Try this from 3.4 (add more variable if you want to confirm everything)

/* rexx - listdsiv */
arg dsn
say 'RC='listdsi(dsn)
say 'SYSDSNAME='sysdsname
say 'SYSDSORG='sysdsorg
say 'SYSLRECL='syslrecl
say 'SYSUNIT='sysunit
say 'SYSUNITS='sysunits
say 'SYSDSSMS='sysdssms
say 'SYSREASON='sysreason
say 'SYSMSGLVL1='sysmsglvl1
say 'SYSMSGLVL2='sysmsglvl2

Output:

RC=4
SYSDSNAME=your.vsam.cluster
SYSDSORG=VS
SYSLRECL=????
SYSUNIT=3390
SYSUNITS=????
SYSDSSMS=
SYSREASON=0012
SYSMSGLVL1=IKJ58418I PARTIAL DATA SET INFORMATION NOT OBTAINED.
SYSMSGLVL2=IKJ58412I VSAM DATA SETS ARE NOT SUPPORTED.

Rob

In a message dated 3/13/2008 1:16:57 P.M. US Mountain Standard Time,
MHarr...@MEDNET.UCLA.EDU writes:

No I, not just couldn't remember and our book shelf is down but I found
the answer thanks

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

From: TSO REXX Discussion List [mailto:TSO-...@VM.MARIST.EDU] On Behalf

Of Hamilton, Robert L
Sent: Thursday, March 13, 2008 12:48 PM
To: TSO-...@VM.MARIST.EDU

Subject: Re: Using LMINIT in REXX via batch job

IF you are new to REXX, get a copy of REXXTRY and put it in ddname =
sysexec. Then you can easily
Try rexx commands and code.

bobh

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

From: TSO REXX Discussion List [mailto:TSO-...@VM.MARIST.EDU] On Behalf

Of Imbriale, Donald
Sent: Thursday, March 13, 2008 2:33 PM
To: TSO-...@VM.MARIST.EDU

Subject: Re: Using LMINIT in REXX via batch job

Go to the TSO/E REXX Reference manual and do a search on LISTDSI. The
answers will be revealed to you there.

Don Imbriale

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

From: TSO REXX Discussion List [mailto:TSO-...@VM.MARIST.EDU] On Behalf
Of Harrington, Mark

Sent: Thursday, March 13, 2008 3:18 PM
To: TSO-...@VM.MARIST.EDU

Subject: Re: Using LMINIT in REXX via batch job

Hi all, Can I apply the LISTDSI command on a VSAM dataset?

***********************************************************************
Bear Stearns is not responsible for any recommendation, solicitation,
offer or agreement or any information about any transaction, customer
account or account activity contained in this communication.
***********************************************************************

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

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

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

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

IMPORTANT WARNING: This email (and any attachments) is only intended for
the use of the person or entity to which it is addressed, and may contain
information that is privileged and confidential. You, the recipient, are
obligated to maintain it in a safe, secure and confidential manner. Unauthorized
redisclosure or failure to maintain confidentiality may subject you to federal
and state penalties. If you are not the recipient, please immediately notify
us by return email, and delete this message from your computer.
----------------------------------------------------------

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

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

**************It's Tax Time! Get tips, forms, and advice on AOL Money &
Finance. (http://money.aol.com/tax?NCID=aolprf00030000000001)

[Mickey]

I just started playing around with this, having been an RLX user before.

Firstly, does anyone know if one can use the multi-row insert feature via
DSNREXX, and if so, do you have an example.

And secondly, it not, can someone post an example of a simple DB2 insert
using Rexx variables.

TIA,

Mickey

[arlen stovall]

Micky, here is a short example.

J = J + 1
INSERTSQL = " INSERT INTO "UPDTAB" " ,
" VALUES ('"CREATOR"','"TBNAME"', "ROW_COUNT"," ,
" "TBCARD",'"TSNAME"', '"DBNAME"' ) "

INSERTLINE.J = INSERTSQL

DO_INSERT:

DO K = 1 TO J

ADDRESS DSNREXX "EXECSQL "INSERTLINE.K

IF SQLCODE = 0 THEN
DO
ADDRESS DSNREXX "EXECSQL COMMIT"
SAY "INSERT SUCCESSFUL FOR "UPDTAB
END
ELSE
IF SQLCODE /= 0 THEN
DO
SAY "INSERT UNSUCCESSFUL FOR "UPDTAB
ADDRESS DSNREXX "EXECSQL "UPDATELINE.K
CALL DISPLAY_SQLA
END

END

--
Thanks
Arlen Stovall

[Mickey]

Thanks much Arlen.

Mickey

--------------------------------------------------
From: "arlen stovall" <arlens...@GMAIL.COM>
Sent: Friday, March 21, 2008 10:46 AM
To: <TSO-...@VM.MARIST.EDU>
Subject: Re: [TSO-REXX] DSNREXX questions

[Hamilton, Robert L]

Sometime back there was a thread on dealing with relative generations
with REXX. Can someone kickstart me to the thread?? I have to see if the
function works on (+0) . . .

Thnx

bobh

[Lionel B Dyck]

I don't know if this is what you're looking for but if you go to
http://www.lbdsoftware.com/ispftools.html
and download the ALLOCGDG package it might be what you want.

Lionel B. Dyck, Consultant/Specialist
Enterprise Platform Services, Mainframe Engineering
KP-IT Enterprise Engineering
925-926-5332 (8-473-5332) | E-Mail: Lionel...@kp.org
AIM: lbdyck | Yahoo IM: lbdyck
Kaiser Service Credo: "Our cause is health. Our passion is service. We're
here to make lives better."

I never guess. It is a capital mistake to theorize before one has data.
Insensibly one begins to twist facts to suit theories, instead of theories
to suit facts.
- Sir Arthur Conan Doyle

NOTICE TO RECIPIENT: If you are not the intended recipient of this e-mail,
you are prohibited from sharing, copying, or otherwise using or disclosing
its contents. If you have received this e-mail in error, please notify the
sender immediately by reply e-mail and permanently delete this e-mail and
any attachments without reading, forwarding or saving them. Thank you.

[Hamilton, Robert L]

It was a callable routine that would allocate a relative GDG nbr; it was
a function -- something like BPNX. . .

bobh

-----Original Message-----
From: TSO REXX Discussion List [mailto:TSO-...@VM.MARIST.EDU] On Behalf
Of Lionel B Dyck
Sent: Monday, May 12, 2008 3:11 PM
To: TSO-...@VM.MARIST.EDU

[Farley, Peter x23353]

That would be BPXWDYN.

> -----Original Message-----
> From: TSO REXX Discussion List [mailto:TSO-...@VM.MARIST.EDU] On
Behalf
> Of Hamilton, Robert L
> Sent: Monday, May 12, 2008 5:28 PM
> To: TSO-...@VM.MARIST.EDU
> Subject: Re: [TSO-REXX] relative generations in REXX
>
> It was a callable routine that would allocate a relative GDG nbr; it
was
> a function -- something like BPNX. . .
>
> bobh
>
> -----Original Message-----
> From: TSO REXX Discussion List [mailto:TSO-...@VM.MARIST.EDU] On
Behalf
> Of Lionel B Dyck
> Sent: Monday, May 12, 2008 3:11 PM
> To: TSO-...@VM.MARIST.EDU
> Subject: Re: relative generations in REXX
>
> I don't know if this is what you're looking for but if you go to
> http://www.lbdsoftware.com/ispftools.html
> and download the ALLOCGDG package it might be what you want.

This message and any attachments are intended only for the use of the addressee and
may contain information that is privileged and confidential. If the reader of the
message is not the intended recipient or an authorized representative of the
intended recipient, you are hereby notified that any dissemination of this
communication is strictly prohibited. If you have received this communication in
error, please notify us immediately by e-mail and delete the message and any
attachments from your system.

[Imbriale, Donald]

This was a very recent discussion. You can check the archives at

http://www.marist.edu/htbin/wlvindex?TSO-REXX

Don Imbriale

-----Original Message-----
From: TSO REXX Discussion List [mailto:TSO-...@VM.MARIST.EDU] On Behalf
Of Hamilton, Robert L
Sent: Monday, May 12, 2008 5:28 PM
To: TSO-...@VM.MARIST.EDU
Subject: Re: relative generations in REXX

It was a callable routine that would allocate a relative GDG nbr; it was
a function -- something like BPNX. . .

bobh

***********************************************************************

Bear Stearns is not responsible for any recommendation, solicitation,
offer or agreement or any information about any transaction, customer
account or account activity contained in this communication.
***********************************************************************

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