How to catalog to a gdg.

Terry, Richard W

unread,

Mar 14, 2008, 4:02:59 PM3/14/08

to

I am trying to catalog a dataset to a gdg group. +1 doesn't work so I
do a listcat of the gdg group, get the last created
Gv00 number and add 1 to it and allocate the dataset with catalog
specified. What happens is the dataset gets cataloged
As a separate dsn, but not in the gdg group.

RICK TERRY
EDS / CSAA PRODUCTION SUPPORT

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

Jeff Byrum

unread,

Mar 14, 2008, 4:19:50 PM3/14/08

to

Can you provide the DD statement for the "+1" attempt, and the exact
symptom(s) that indicated that it did not work?

McKown, John

unread,

Mar 14, 2008, 4:25:28 PM3/14/08

to

> -----Original Message-----
> From: TSO REXX Discussion List
> [mailto:TSO-...@VM.MARIST.EDU] On Behalf Of Terry, Richard W
> Sent: Friday, March 14, 2008 3:00 PM
> To: TSO-...@VM.MARIST.EDU

> Subject: [TSO-REXX] How to catalog to a gdg.
>
>
> I am trying to catalog a dataset to a gdg group. +1 doesn't work so I
> do a listcat of the gdg group, get the last created
> Gv00 number and add 1 to it and allocate the dataset with catalog
> specified. What happens is the dataset gets cataloged
> As a separate dsn, but not in the gdg group.
>
> RICK TERRY
> EDS / CSAA PRODUCTION SUPPORT

I don't know if this will work, but I would try:

ALTER dsn.GnnnnV00 ROLLIN

Where the dsn.GnnnnV00 is the DSN you put in the ALLOCATE command.

--
John McKown
Senior Systems Programmer
HealthMarkets
Keeping the Promise of Affordable Coverage
Administrative Services Group
Information Technology

The information contained in this e-mail message may be privileged
and/or confidential. It is for intended addressee(s) only. If you are
not the intended recipient, you are hereby notified that any disclosure,
reproduction, distribution or other use of this communication is
strictly prohibited and could, in certain circumstances, be a criminal
offense. If you have received this e-mail in error, please notify the
sender by reply and delete this message without copying or disclosing
it.

Hervey Martinez

unread,

Mar 14, 2008, 4:31:09 PM3/14/08

to

Rick,

You probably need to specify the keyword "ROLLIN" when you catalog your GDG.

On Fri, Mar 14, 2008 at 4:00 PM, Terry, Richard W <richar...@eds.com>
wrote:

--
Hervey

Don't sweat the small stuff....... It's all small stuff

Harrington, Mark

unread,

Mar 14, 2008, 4:47:27 PM3/14/08

to

Here is one I got from the group long ago it works great.
M.

/*********************************************************************/
/* Purpose: Return the GDS for a relative GDG */
/*-------------------------------------------------------------------*/
/* Syntax: dsn = goovoo(xxx.yyy(-2)) */
/*-------------------------------------------------------------------*/
/* Parms: relgdg - Fully qualified relative GDG DSN */
/* */
/*********************************************************************/
/* Change Log */
/* */
/* Author Date Reason */
/* -------- --------- ----------------------------------------- */
/* R. Zenuk Aug 2001 Initial Creation */
/* */
/*********************************************************************/
trace off
arg gdgbase
if gdgbase = '' then exit(99)
/*********************************************************************/
/* Parse the relative number if present, set to 0 if missing */
/*********************************************************************/
parse var gdgbase gdgbase '(' relgdg ')' .
if relgdg = '' | relgdg > 0 then relgdg = 0
gdg = 0
/*********************************************************************/
/* Trap the LISTC output from a LISTC LVL(dsn) ALL */
/*********************************************************************/
x = outtrap(listc.)
"LISTC LVL('"gdgbase"') ALL"
/*********************************************************************/
/* Parse through output putting each GDS in a stem variable */
/*********************************************************************/
do i=1 to listc.0
if word(listc.i,1) = 'NONVSAM' then
do
gdg = gdg + 1
parse var listc.i . . dsn.gdg
end
else
do
iterate
end
end
/*********************************************************************/
/* Determine the offset within the stem and return the GDS */
/*********************************************************************/
absgdg = gdg + relgdg
if abs(relgdg) > gdg - 1 then
return 'INVALID'
else
return dsn.absgdg

ALTER dsn.GnnnnV00 ROLLIN

----------------------------------------------------------
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.
----------------------------------------------------------

Terry, Richard W

unread,

Mar 14, 2008, 4:48:30 PM3/14/08

to

I am doing it like this:

odsn=(datasetname).G0002V00

"alloc ddname(outfile) dsname('" || odsn || "')",
"new catalog dsorg(ps) recfm(f b) lrecl(80) blksize(27920)",
"tracks space(15,1)"

This worked but it cataloged it to the system catalog but not the gdg
group.

I tried it with datasetname(+1) but it said:

odsn=NZGSG(NZGSG9.TEST.JCL(+1)

INVALID DATA SET NAME, 'NZGSG9.TEST.JCL(+1)'
INVALID DATA SET NAME, 'NZGSG9.TEST.JCL(+1)'
MISSING DATA SET NAME OR *+
MISSING NAME OF DATA SET TO BE ALLOCATED
FILE OUTFILE NOT FREED, IS NOT ALLOCATED

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

Of Jeff Byrum
Sent: Friday, March 14, 2008 1:20 PM
To: TSO-...@VM.MARIST.EDU

Robert Zenuk

unread,

Mar 14, 2008, 5:36:45 PM3/14/08

to

You can not use the relative GDG syntax (+1) in the TSO ALLOCATE command.
The way to do this is to figure out the next GOOVOO number and use the
absolute syntax and allocate the absolute GDS (like you attempted). However, like
others have already mentioned, it sounds like you need to ALTER ROLLIN the GDS.

ALTER 'your.new.gds.GnnnnVnn' ROLLIN

Read up on Reclaiming GDS's in the SMS manuals.

_http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/dgt2d450/3.10.8?SH
ELF=DGT2BK61.bks&DT=20060524093000_
(http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/dgt2d450/3.10.8?SHELF=DGT2BK61.bks&DT=20060524093000)

I still like the traditional way of defining GDG's outside SMS... It avoids
the whole ROLLIN issue, but does not give the "protection".

Hope This Helps,

Rob

In a message dated 3/14/2008 1:48:38 P.M. US Mountain Standard Time,
richar...@EDS.COM writes:

odsn=(datasetname).G0002V00

odsn=NZGSG(NZGSG9.TEST.JCL(+1)

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

Terry, Richard W

unread,

Mar 14, 2008, 5:44:22 PM3/14/08

to

Thank You all. I will try it with the rollin.

Mickey

unread,

Mar 14, 2008, 6:11:31 PM3/14/08

to

Bah, just use BPXWDYN to do it.

--------------------------------------------------
From: "Jeff Byrum" <Jeff....@ASG.COM>
Sent: Friday, March 14, 2008 4:19 PM
To: <TSO-...@VM.MARIST.EDU>
Subject: Re: [TSO-REXX] How to catalog to a gdg.

Mickey

unread,

Mar 14, 2008, 6:38:49 PM3/14/08

to

Sheesh, why over complicate things guys?

x = BPXWDYN("ALLOC DD(XXX) DA('MICKEY.TEST.GDG(+1)') NEW SPACE(1,1)
RECFM(F,B) LRECL(80) DSORG(PS) CATALOG")

Works like a charm folks.

Mickey

--------------------------------------------------
From: "Terry, Richard W" <richar...@EDS.COM>
Sent: Friday, March 14, 2008 4:45 PM

Mirelle

unread,

Mar 21, 2008, 11:43:31 PM3/21/08

to

On Mar 14, 3:38 pm, mick...@COMCAST.NET (Mickey) wrote:
> Sheesh, why over complicate things guys?

> x = BPXWDYN("ALLOC DD(XXX) DA('MICKEY.TEST.GDG(+1)') NEW SPACE(1,1)
> RECFM(F,B) LRECL(80) DSORG(PS) CATALOG")

> Works like a charm folks.

> Mickey
MICHAEL BEN-TOVIM, posting from:

IP 208-253-124-96-1

Looking up NET-208-253-124-96-1 at whois.arin.net.

EXTENDED STAY HOTELS, INC
___________________________________________
MICHAEL BEN-TOVIM
2719 GREENDALE DR.
SARASOTA, FL 34232 USA
(941) 371-8726
___________________________________________

Extended Stay Sarasota
7251 North Tamiami Trail
Sarasota, FL 34243
(941) 355-7747

Driving Directions from your home, MICHAEL BEN-TOVIM:

From:
2719 Greendale Dr
Sarasota, FL 34232

Drive:
11.1 mi - about 24 mins
1.
Head east on Greendale Dr toward Greendale Pl
0.2 mi
2.
Turn right at Webber St
0.5 mi
3.
Turn right at Beneva Rd
2.0 mi
4.
Turn left at Fruitville Rd
3.1 mi
5.
Turn right at N Tamiami Trail/US-41
5.4 mi

To:
7251 North Tamiami Trail, Sarasota, FL 34243

> MICHAEL BEN-TOVIM
> 2719 GREENDALE DR.
> SARASOTA, FL 34232 USA
> (941) 371-8726 http://www.adl.org/Anti_semitism/gaza_cartoons.asp
> > > See Photo Of Mimi Krantz, Wife Of Dr.
> > > Mengele/Krantz
> > >http://www.sinaischool.org/elementary_faculty.htm
> > > JEFFREY KORFF & MIMI K KRANTZ
> > > 696 HARRIS AVE.
> > > STATEN ISLAND, NY 10314 USA
> > > (718) 494-4392
> > > EDWARD M. ROSEN
> > > 400 GLENDALE RD. #24E
> > > HAVERTON, PA 19083 USA
> > > DATE OF BIRTH: JUNE 17, 1953
> > > SSN: 186-44-1491
> > >http://s250.photobucket.com/albums/gg261/nesorde123/?action=view&curr...
> > > SARA D. SALZMAN
> > > 4015 S. KILLARNEY WAY
> > > AURORA, CO 80013 USA
> > > (303) 617-9412
> > > catamont @ comcast.net
> > >http://sarasassy.blogspot.com/
> > > GARY A. RUMAIN (Born 1964)
> > > 8112 GROVE ST
> > > SILVER SPRING, MD 20910, USA
> > > (301) 565-9746
> > > SUSAN E. COHEN (Born 1962)
> > > 8112 GROVE ST
> > > SILVER SPRING, MD 20910 USA
> > > (301) 565-9746
> > > RICHARD RATNER
> > > 49 PERRY ST
> > > SOMERVILLE, MA 02143 USA
> > > (617) 625-1717
> > > JACK GARBUZ
> > > 333 BEACH 32nd ST
> > > FAR ROCKAWAY, NY 11691 USA
> > > (718) 868-2780
> > > ZALMAN BEN YECHIEL SHLIESHI (JERRY HOWE)
> > > 1611 24th ST
> > > ORLANDO, FL 32805 USA
> > > (407) 425-5092
> > > ARTHUR J. TANDY (JOE BRUNO)
> > > 1440 OLIVEWOOD LN. APT. 229 (Born Dec. 1945)
> > > ALPINE, CA 91901 USA
> > > (619) 722-6044
> > > On Feb 14, 6:27 pm, "Jeffrey Krantz" <dr...@verizon.net> wrote:
> > > > > They do, Jeffy. Torture, extra-judicial murder, ten thousand hostages held
> > > > > without charge or trial. collective punishments, illegal deportations, the
> > > > > squatter camps in the WB...
> > > > As it should be. Until animals learn how to behave, that how they should be
> > > > treated.
> > > Not good for business,
> > > Dr. Mengele/Kranz, owner of:
> > > East Village Dental Associates.
> > > Dr. Jeffrey Mengele/Krantz
> > > 645 E 11th St
> > > New York, NY 10009 USA
> > > (212) 979-6300
> > > Calling People animals, does not bring in the shekels,
> > > Dr. Mengele/Krantz.
> > > On Feb 29, 9:44 am, Aviroce <dudaras...@gmail.com> wrote:
> > > SOONER OR LATER AN ILLEGAL ALIEN WILL BUY SOCIAL SECURITIES POSTED AND
> > > STEAL THEIR IDENTITIES.
> > > A possibility, no doubt.
> > > JEFFREY G. BROWN
> > > Tel: (513) 474-1953
> > > Fax: (513) 474-9678
> > > Driver License Number: RJ339222
> > > Address: 8357 SUMMITRIDGE
> > > City/State/Zip CINCINNATI OH 45255 USA
> > > DOB: Mar 13 1955
> > > Height: 604
> > > Weight: 245
> > > Eyes: BLU
> > > Hair: BRO
> > > SOCIAL SECURITY NUMBER: 282-58-6925
> > > BANK ACCOUNTS AND ACCOUNT NUMBERS
> > > PNG BANK NATIONAL 4006-470-124
> > > 4000-80-236
> > > PUTNAM INVESTMENTS 26320.33
> > > EMPLOYER
> > > SIEMENS INTERNATIONAL
> > > 4620 FOREST AVENUE
> > > CINCINNATI, OHIO 45237
> > > {Racist shithead who delighted in needling people endlessly but when
> > > his divorce court records and his bankruptcies were posted he went
> > > into hiding like the gutless little shit he is.}
> > > > > See Photo Of Mimi Krantz, wife of Dr. Mengele/Krantz
> > > >http://www.sinaischool.org/elementary_faculty.htm
> > > > JEFFREY KORFF & MIMI K KRANTZ
> > > > 696 HARRIS AVE.
> > > > STATEN ISLAND, NY 10314 USA
> > > > (718) 494-4392
> > > > EDWARD ROSEN
> > > > 400 GLENDALE RD. #24E
> > > > HAVERTON, PA 19083 USA
> > > > DATE OF BIRTH: JUNE 17, 1953
> > > > SSN: 186-44-1491
> > >http://s250.photobucket.com/albums/gg261/nesorde123/?
> > > action=view&current=EdwardMRosen.jpg
> > > > SARA D. SALZMAN
> > > > 4015 S. KILLARNEY WAY
> > > > AURORA, CO 80013 USA
> > > > 303 617-9412
> > > > catamont @ comcast.ne
> > >>thttp://sarasassy.blogspot.com/
> > > > GARY A. RUMAIN (Born 1964)
> > > > 8112 GROVE ST
> > > > SILVER SPRING, MD 20910, USA
> > > > 301 565-9746
> > > > SUSAN E. COHEN (Born 1962)
> > > > 8112 GROVE ST
> > > > SILVER SPRING, MD 20910 USA
> > > > 301 565-9746
> > > > RICHARD RATNER
> > > > 49 PERRY ST
> > > > SOMERVILLE, MA 02143 USA
> > > > ZALMAN BEN YECHIEL SHLIESHI (JERRY HOWE)
> > > > 1611 24th ST
> > > > ORLANDO, FL 32805 USA
> > > > 407 425-5092
> > > > ARTHUR TANDY (Joe Bruno)
> > > > 1440 OLIVEWOOD LN. APT. 229
> > > > ALPINE, CA 91901 USA
> > > > 619 722-6044
> > > > ( Born Dec. 1945)
> > > > On Feb 14, 6:27 pm, "Jeffrey Krantz" <dr...@verizon.net> wrote:
> > > > > > They do, Jeffy. Torture, extra-judicial murder, ten thousand hostages held
> > > > > > without charge or trial. collective punishments, illegal deportations, the
> > > > > > squatter camps in the WB...
> > > > > As it should be. Until animals learn how to behave, that how they should be
> > > > > treated.
> > > > Not good for business,
> > > > Dr. Mengele/Kranz, owner of:
> > > > East Village Dental Associates.
> > > > Dr. Jeffrey Mengele/Krantz
> > > > 645 E 11th St
> > > > New York, NY 10009 USA
> > > > (212) 979-6300
> > > > Calling People animals, does not bring in the shekels,
> > > > Dr. Mengele/Krantz.
> > > > On Feb 29, 9:44 am, Aviroce <dudaras...@gmail.com> wrote:
> > > > SOONER OR LATER AN ILLEGAL ALIEN WILL BUY SOCIAL SECURITIES POSTED AND
> > > > STEAL THEIR IDENTITIES.
> > > > A possibility, no doubt.
> > > > JEFFREY G. BROWN
> > > > Tel: (513) 474-1953
> > > > Fax: (513) 474-9678
> > > > Driver License Number: RJ339222
> > > > Address: 8357 SUMMITRIDGE
> > > > City/State/Zip CINCINNATI OH 45255 USA
> > > > DOB: Mar 13 1955
> > > > Height: 604
> > > > Weight: 245
> > > > Eyes: BLU
> > > > Hair: BRO
> > > > SOCIAL SECURITY NUMBER: 282-58-6925
> > > > BANK ACCOUNTS AND ACCOUNT NUMBERS
> > > > PNG BANK NATIONAL 4006-470-124
> > > > 4000-80-236
> > > > PUTNAM INVESTMENTS 26320.33
> > > > EMPLOYER
> > > > SIEMENS INTERNATIONAL
> > > > 4620 FOREST AVENUE
> > > > CINCINNATI, OHIO 45237
> > > > {Racist shithead who delighted in needling people endlessly but when
> > > > his divorce court records and his bankruptcies were posted he went
> > > > into hiding like the gutless little shit he is.}
> > >http://www.adl.org/Anti_semitism/gaza_cartoons.asp
> > > See Photo Of Mimi Krantz, Wife Of Dr. Mengele/Krantz
> > >http://www.sinaischool.org/elementary_faculty.htm
> > > JEFFREY KORFF & MIMI K KRANTZ
> > > 696 HARRIS AVE.
> > > STATEN ISLAND, NY 10314 USA
> > > (718) 494-4392
> > > EDWARD M. ROSEN
> > > 400 GLENDALE RD. #24E
> > > HAVERTON, PA 19083 USA
> > > DATE OF BIRTH: JUNE 17, 1953
> > > SSN: 186-44-1491
> > > http://s250.photobucket.com/albums/gg261/nesorde123/?action=view&curr...
> > >
> > > SARA D. SALZMAN
> > > 4015 S. KILLARNEY WAY
> > > AURORA, CO 80013 USA
> > > (303) 617-9412
> > > catamont @ comcast.nethttp://sarasassy.blogspot.com/
> > > GARY A. RUMAIN (Born 1964)
> > > 8112 GROVE ST
> > > SILVER SPRING, MD 20910, USA
> > > (301) 565-9746
> > > SUSAN E. COHEN (Born 1962)
> > > 8112 GROVE ST
> > > SILVER SPRING, MD 20910 USA
> > > (301) 565-9746
> > > RICHARD RATNER
> > > 49 PERRY ST
> > > SOMERVILLE, MA 02143 USA
> > > (617) 625-1717
> > > JACK GARBUZ
> > > 333 BEACH 32nd ST
> > > FAR ROCKAWAY, NY 11691 USA
> > > (718) 868-2780
> > > ZALMAN BEN YECHIEL SHLIESHI (JERRY HOWE)
> > > 1611 24th ST
> > > ORLANDO, FL 32805 USA
> > > (407) 425-5092
> > > ARTHUR TANDY (JOE BRUNO)
> > > 1440 OLIVEWOOD LN. APT.229
> > > ALPINE, CA 91901 USA
> > > (619) 722-6044
> > > On Feb 14, 6:27 pm, "Jeffrey Krantz" <dr...@verizon.net> wrote:
> > > > > They do, Jeffy. Torture, extra-judicial murder, ten thousand hostages held
> > > > > without charge or trial. collective punishments, illegal deportations, the
> > > > > squatter camps in the WB...
> > > > As it should be. Until animals learn how to behave, that how they should be
> > > > treated.
> > > Not good for business,
> > > Dr. Mengele/Kranz, owner of:
> > > East Village Dental Associates.
> > > Dr. Jeffrey Mengele/Krantz
> > > 645 E 11th St
> > > New York, NY 10009 USA
> > > (212) 979-6300
> > > Calling People animals, does not bring in the shekels,
> > > Dr. Mengele/Krantz.
> > > On Feb 29, 9:44 am, Aviroce <dudaras...@gmail.com> wrote:
> > > SOONER OR LATER AN ILLEGAL ALIEN WILL BUY SOCIAL SECURITIES POSTED AND
> > > STEAL THEIR IDENTITIES.
> > > A possibility, no doubt.
> > > JEFFREY G. BROWN
> > > Tel: (513) 474-1953
> > > Fax: (513) 474-9678
> > > Driver License Number: RJ339222
> > > Address: 8357 SUMMITRIDGE
> > > City/State/Zip CINCINNATI OH 45255
> > > DOB: Mar 13 1955
> > > Height: 604
> > > Weight: 245
> > > Eyes: BLU
> > > Hair: BRO
> > > SOCIAL SECURITY NUMBER: 282-58-6925
> > > BANK ACCOUNTS AND ACCOUNT NUMBERS
> > > PNG BANK NATIONAL 4006-470-124
> > > 4000-80-236
> > > PUTNAM INVESTMENTS 26320.33
> > > EMPLOYER
> > > SIEMENS INTERNATIONAL
> > > 4620 FOREST AVENUE
> > > CINCINNATI, OHIO 45237
> > > {Racist shithead who delighted in needling people endlessly but when
> > > his divorce court records and his bankruptcies were posted he went
> > > into hiding like the gutless little shit he is.}
> > > > See Photo Of Mimi Krantz, Wife Of Dr.Mengele/Krantz
> > > >http://www.sinaischool.org/elementary_faculty.htm
> > > > JEFFREY KORFF & MIMI K KRANTZ
> > > > 696 HARRIS AVE.
> > > > STATEN ISLAND, NY 10314 USA
> > > > (718) 494-4392
> > > > EDWARD ROSEN
> > > > 400 GLENDALE RD. #24E
> > > > HAVERTON, PA 19083 USA
> > > > DATE OF BIRTH: JUNE 17, 1953
> > > > SSN: 186-44-1491
> > >http://s250.photobucket.com/albums/gg261/nesorde123/?action=view&curr...
> > > > SARA D. SALZMAN
> > > > 4015 S. KILLARNEY WAY
> > > > AURORA, CO 80013 USA
> > > > (303) 617-9412
> > > > catamont @ comcast.net
> > > >http://sarasassy.blogspot.com/
> > > > GARY A. RUMAIN (Born 1964)
> > > > 8112 GROVE ST
> > > > SILVER SPRING, MD 20910, USA
> > > > (301) 565-9746
> > > > SUSAN E. COHEN (Born 1962)
> > > > 8112 GROVE ST
> > > > SILVER SPRING, MD 20910 USA
> > > > (301) 565-9746
> > > > RICHARD RATNER
> > > > 49 PERRY ST
> > > > SOMERVILLE, MA 02143 USA
> > > > (617) 625-1717
> > > > JACK GARBUZ
> > > > 333 BEACH 32nd ST
> > > > FAR ROCKAWAY, NY 11691 USA
> > > > (718) 868-2780
> > > > ZALMAN BEN YECHIEL SHLIESHI (JERRY HOWE)
> > > > 1611 24th ST
> > > > ORLANDO, FL 32805 USA
> > > > (407) 425-5092
> > > > ARTHUR TANDY (JOE BRUNO)
> > > > 1440 OLIVEWOOD LN. APT. 229
> > > > ALPINE, CA 91901 USA
> > > >( 619) 722-6044
> > > > ( Born Dec. 1945)
> > > > On Feb 14, 6:27 pm, "Jeffrey Krantz" <dr...@verizon.net> wrote:
> > > > > > They do, Jeffy. Torture, extra-judicial murder, ten thousand hostages held
> > > > > > without charge or trial. collective punishments, illegal deportations, the
> > > > > > squatter camps in the WB...
> > > > > As it should be. Until animals learn how to behave, that how they should be
> > > > > treated.
> > > > Not good for business,
> > > > Dr. Mengele/Kranz, owner of:
> > > > East Village Dental Associates.
> > > > Dr. Jeffrey Mengele/Krantz
> > > > 645 E 11th St
> > > > New York, NY 10009 USA
> > > > (212) 979-6300
> > > > Calling People animals, does not bring in the shekels,
> > > > Dr. Mengele/Krantz.
> > > > On Feb 29, 9:44 am, Aviroce <dudaras...@gmail.com> wrote:
> > > > SOONER OR LATER AN ILLEGAL ALIEN WILL BUY SOCIAL SECURITIES POSTED AND
> > > > STEAL THEIR IDENTITIES.
> > > > A possibility, no doubt.
> > > > JEFFREY G. BROWN
> > > > Tel: (513) 474-1953
> > > > Fax: (513) 474-9678
> > > > Driver License Number: RJ339222
> > > > Address: 8357 SUMMITRIDGE
> > > > City/State/Zip CINCINNATI OH 45255 USA
> > > > DOB: Mar 13 1955
> > > > Height: 604
> > > > Weight: 245
> > > > Eyes: BLU
> > > > Hair: BRO
> > > > SOCIAL SECURITY NUMBER: 282-58-6925
> > > > BANK ACCOUNTS AND ACCOUNT NUMBERS
> > > > PNG BANK NATIONAL 4006-470-124
> > > > 4000-80-236
> > > > PUTNAM INVESTMENTS 26320.33
> > > > EMPLOYER
> > > > SIEMENS INTERNATIONAL
> > > > 4620 FOREST AVENUE
> > > > CINCINNATI, OHIO 45237
> > > > {Racist shithead who delighted in needling people endlessly but when
> > > > his divorce court records and his bankruptcies were posted he went
> > > > into hiding like the gutless little shit he is.}
> > > > See Photo Of Mimi Krantz, Wife Of Dr.Mengele/Krantz
> > > >http://www.sinaischool.org/elementary_faculty.htm
> > > > JEFFREY KORFF & MIMI K KRANTZ
> > > > 696 HARRIS AVE.
> > > > STATEN ISLAND, NY 10314 USA
> > > > (718) 494-4392
> > > > EDWARD M. ROSEN
> > > > 400 GLENDALE RD. #24E
> > > > HAVERTON, PA 19083 USA
> > > > DATE OF BIRTH: JUNE 17, 1953
> > > > SSN: 186-44-1491
> > >http://s250.photobucket.com/albums/gg261/nesorde123/?
> > >action=view&current=EdwardMRosen.jpg
> > > > SARA D. SALZMAN
> > > > 4015 S. KILLARNEY WAY
> > > > AURORA, CO 80013 USA
> > > > (303) 617-9412
> > > > catamont @ comcast.net
> > > >http://sarasassy.blogspot.com/
> > > > GARY A. RUMAIN (Born 1964)
> > > > 8112 GROVE ST
> > > > SILVER SPRING, MD 20910, USA
> > > > (301) 565-9746
> > > > SUSAN E. COHEN (Born 1962)
> > > > 8112 GROVE ST
> > > > SILVER SPRING, MD 20910 USA
> > > > (301) 565-9746
> > > > RICHARD RATNER
> > > > 49 PERRY ST
> > > > SOMERVILLE, MA 02143 USA
> > > > (617) 625-1717
> > > > JACK GARBUZ
> > > > 333 BEACH 32nd ST
> > > > FAR ROCKAWAY, NY 11691 USA
> > > > (718) 868-2780
> > > > ZALMAN BEN YECHIEL SHLIESHI (JERRY HOWE)
> > > > 1611 24th ST
> > > > ORLANDO, FL 32805 USA
> > > > (407) 425-5092
> > > > ARTHUR TANDY (JOE BRUNO)
> > > > 1440 OLIVEWOOD LN. APT. 229
> > > > ALPINE, CA 91901 USA
> > > > (619) 722-6044
> > > > ( Born Dec. 1945)
> > > > On Feb 14, 6:27 pm, "Jeffrey Krantz" <dr...@verizon.net> wrote:
> > > > > > They do, Jeffy. Torture, extra-judicial murder, ten thousand hostages held
> > > > > > without charge or trial. collective punishments, illegal deportations, the
> > > > > > squatter camps in the WB...
> > > > > As it should be. Until animals learn how to behave, that how they should be
> > > > > treated.
> > > > Not good for business,
> > > > Dr. Mengele/Kranz, owner of:
> > > > East Village Dental Associates.
> > > > Dr. Jeffrey Mengele/Krantz
> > > > 645 E 11th St
> > > > New York, NY 10009 USA
> > > > (212) 979-6300
> > > > Calling People animals, does not bring in the shekels,
> > > > Dr. Mengele/Krantz.
> > > > On Feb 29, 9:44 am, Aviroce <dudaras...@gmail.com> wrote:
> > > > SOONER OR LATER AN ILLEGAL ALIEN WILL BUY SOCIAL SECURITIES POSTED AND
> > > > STEAL THEIR IDENTITIES.
> > > > A possibility, no doubt.
> > > > JEFFREY G. BROWN
> > > > Tel: (513) 474-1953
> > > > Fax: (513) 474-9678
> > > > Driver License Number: RJ339222
> > > > Address: 8357 SUMMITRIDGE
> > > > City/State/Zip CINCINNATI OH 45255 USA
> > > > DOB: Mar 13 1955
> > > > Height: 604
> > > > Weight: 245
> > > > Eyes: BLU
> > > > Hair: BRO
> > > > SOCIAL SECURITY NUMBER: 282-58-6925
> > > > BANK ACCOUNTS AND ACCOUNT NUMBERS
> > > > PNG BANK NATIONAL 4006-470-124
> > > > 4000-80-236
> > > > PUTNAM INVESTMENTS 26320.33
> > > > EMPLOYER
> > > > SIEMENS INTERNATIONAL
> > > > 4620 FOREST AVENUE
> > > > CINCINNATI, OHIO 45237
> > > > {Racist shithead who delighted in needling people endlessly but when
> > > > his divorce court records and his bankruptcies were posted he went
> > > > into hiding like the gutless little shit he is.}

Wasserman, Hirschel

unread,

Mar 26, 2008, 6:31:08 PM3/26/08

to

Try using the IDCAMS ALTER ROLLIN to roll in these generation data sets.

Hirschel Wasserman
IS3S ICBC HO 422 Tel 604.982.6879

-

Miranda, John

unread,

Apr 9, 2008, 2:39:25 PM4/9/08

to

Has anyone created MVS REXX outputting to a USS file? I need to take
some MVS sequential data and insert it into an *.html file at a certain
location within the file. Would appreciate a sample or where I can read
about it. Thanks in advance.

Jon

Robert Zenuk

unread,

Apr 9, 2008, 2:53:31 PM4/9/08

to

Here are some quick and dirty READ And WRITE routines. I suspect the
indentation will disappear in transmission (sorry).

READ:

parse arg path
/*********************************************************************/
/* Dub the address space */
/*********************************************************************/
EXITRC = 0
if syscalls('ON') <> 0 then
do
EXITRC = RC
msg = 'Error dubbing RC='EXITRC
say msg
end
/*********************************************************************/
/* Use readfile */
/*********************************************************************/
fd = ussapi('readfile' path 'rec.')
do i=1 to rec.0
say rec.i
end
exit(EXITRC)
/*********************************************************************/
/* USS API subroutine */
/*********************************************************************/
ussapi: parse arg usscmd
say center(' Before' usscmd' ',76,'-')
address SYSCALL usscmd
say 'RETVAL='RETVAL 'ERRNO='ERRNO 'ERRNOJR='ERRNOJR
if ERRNO <> 0 | ERRNOJR <> 0 then
do
address SYSCALL 'strerror' ERRNO ERRNOJR 'err.'
say
say err.SE_ERRNO
say
parse var err.SE_REASON . '15'x errmsg
say errmsg
say
say err.SE_ACTION
end
say center(' After' usscmd' ',76,'-')
return RETVAL

WRITE:

parse arg path mode
if path = '' then exit(10)
if mode = '' then mode = 777
/*********************************************************************/
/* Dub the address space */
/*********************************************************************/
EXITRC = 0
if syscalls('ON') <> 0 then
do
EXITRC = RC
msg = 'Error dubbing RC='EXITRC
say msg
end
/*********************************************************************/
/* Write to the file */
/*********************************************************************/
msg = 'This is some garbage'
data.1 = date('S') time() left(mvsvar('SYMDEF','JOBNAME'),8) msg
data.0 = 1
fd = ussapi('writefile' path mode 'data.')
exit(EXITRC)
/*********************************************************************/
/* USS API subroutine */
/*********************************************************************/
ussapi: parse arg usscmd
say center(' Before' usscmd' ',76,'-')
address SYSCALL usscmd
say 'RETVAL='RETVAL 'ERRNO='ERRNO 'ERRNOJR='ERRNOJR
if ERRNO <> 0 | ERRNOJR <> 0 then
do
address SYSCALL 'strerror' ERRNO ERRNOJR 'err.'
say
say err.SE_ERRNO
say
parse var err.SE_REASON . '15'x errmsg
say errmsg
say
say err.SE_ACTION
end
say center(' After' usscmd' ',76,'-')
return RETVAL

Hope This Helps,

Rob

In a message dated 4/9/2008 11:39:30 A.M. US Mountain Standard Time,
john.m...@USAA.COM writes:

Jon

**************Planning your summer road trip? Check out AOL Travel Guides.
(http://travel.aol.com/travel-guide/united-states?ncid=aoltrv00030000000016)

McKown, John

unread,

Apr 9, 2008, 3:00:44 PM4/9/08

to

> -----Original Message-----
> From: TSO REXX Discussion List

> [mailto:TSO-...@VM.MARIST.EDU] On Behalf Of Miranda, John
> Sent: Wednesday, April 09, 2008 1:39 PM
> To: TSO-...@VM.MARIST.EDU

> Subject: [TSO-REXX] REXX to write to a USS file
>
>
> Has anyone created MVS REXX outputting to a USS file? I need to take
> some MVS sequential data and insert it into an *.html file at
> a certain
> location within the file. Would appreciate a sample or where
> I can read
> about it. Thanks in advance.
>
>
> Jon

Allocate the PATH to a DD name, then use EXECIO like always? Or you
could go into a 'syscalls' environment. A, rather large, example below
(the goodies are at the bottom).

/* REXX */
IF (SYSCALLS('ON') > 3) THEN DO
SAY "UNABLE TO ESTABLISH SYSCALL ENVIRONMENT"
EXIT 16
END
file_dir='/usr/lpp/internet/server_root/UserAdmin-users'
address syscall "chdir (file_dir)"
if RETVAL <> 0 then do
say "Could not do a chdir."
say "RETVAL="RETVAL" RC="RC" ERRNO="ERRNO" ERRNOJR="ERRORJR
EXIT 16
end
USERIDS=""
NAME.=""
PIN.=""
OPID.=""
PROC.="N"
TAB='05'X
DO FOREVER
"EXECIO 1 DISKR IRRDBU00"
IF RC <> 0 THEN LEAVE
PARSE PULL RECORD
RECID=LEFT(RECORD,4)
SELECT
WHEN RECID='0200' THEN DO
USERID=SPACE(SUBSTR(RECORD,6,8),0)
NAME.USERID=STRIP(SUBSTR(RECORD,75,20),'B')
PIN.USERID=SUBSTR(RECORD,125,4)
USERIDS=USERIDS USERID
END
WHEN RECID='0230' THEN DO
USERID=SPACE(SUBSTR(RECORD,6,8),0)
OPID.USERID=SUBSTR(RECORD,15,3)
END
WHEN RECID='0220' THEN DO
USERID=SPACE(SUBSTR(RECORD,6,8),0)
PROC.USERID=SPACE(SUBSTR(RECORD,150,8),0)
IF PROC.USERID="FTTSO" THEN PROC.USERID="F"
ELSE PROC.USERID='Y'
END
OTHERWISE NOP
END
END
"EXECIO 0 DISKR IRRDBU00(FINIS"
DO I=1 TO WORDS(USERIDS)
USERID=WORD(USERIDS,I)
IF (6<> LENGTH(USERID)) THEN ITERATE
UPREFIX=LEFT(USERID,3)
IF (0 = DATATYPE(UPREFIX,'U')) THEN ITERATE /* A-Z ONLY */
SUFFIX=RIGHT(USERID,3)
IF (0 = DATATYPE(SUFFIX,'W')) THEN ITERATE /* DIGITS ONLY */
RECORD=USERID||TAB||,
NAME.USERID||TAB||,
PIN.USERID||TAB||,
PROC.USERID||TAB||,
OPID.USERID||TAB||,
"CREATE USER"
SAY RECORD
/*
open the file, write one RECORD to it, then close it
*/
ADDRESS SYSCALL "open "USERID o_CREAT+O_EXCL+O_WRONLY 666
fd=RETVAL
if (-1 = fd) then do
say "Could not open file for user "USERID
say "RC= "RC" ERRNO="ERRNO" ERRNOJR="ERRNOJR
end
else do
RECORD=RECORD||ESC_N
address syscall "write "fd" RECORD"
address syscall "close "fd
end
END

read:

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/BPXZB670/CCON
TENTS

--
John McKown
Senior Systems Programmer
HealthMarkets
Keeping the Promise of Affordable Coverage
Administrative Services Group
Information Technology

The information contained in this e-mail message may be privileged
and/or confidential. It is for intended addressee(s) only. If you are
not the intended recipient, you are hereby notified that any disclosure,
reproduction, distribution or other use of this communication is
strictly prohibited and could, in certain circumstances, be a criminal
offense. If you have received this e-mail in error, please notify the
sender by reply and delete this message without copying or disclosing
it.

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

Hamilton, Robert L

unread,

Apr 9, 2008, 3:14:47 PM4/9/08

to

Where is the html file located; on the z/OS or PC or what?

bobh

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

Of McKown, John
Sent: Wednesday, April 09, 2008 2:00 PM
To: TSO-...@VM.MARIST.EDU

Miranda, John

unread,

Apr 9, 2008, 3:17:58 PM4/9/08

to

Thanks will try it out.

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

-----Original Message-----
From: TSO REXX Discussion List [mailto:TSO-...@VM.MARIST.EDU] On Behalf
Of Robert Zenuk
Sent: Wednesday, April 09, 2008 1:53 PM
To: TSO-...@VM.MARIST.EDU

Miranda, John

unread,

Apr 9, 2008, 3:18:38 PM4/9/08

to

Thanks. I'll get back in a few days

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

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

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

Of McKown, John
Sent: Wednesday, April 09, 2008 2:00 PM
To: TSO-...@VM.MARIST.EDU

Miranda, John

unread,

Apr 9, 2008, 3:19:31 PM4/9/08

to

Html is located on z/os. Right now it is under my home directory to
work out the mechanics.

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

Cruz, Robert

unread,

Apr 9, 2008, 3:20:22 PM4/9/08

to

The HTML is on the web, but the link given is broken.

In my copy, the e-mail system has cut the url in two and placed the
second half on the next line. As a result, it is no longer click-able.
Try it without the HTTP:, which your browser will provide:

publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/BPXZB670/CCONTENTS

bobh

read:

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/BPXZB670/CCON
TENTS

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

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.
--------------------------------------------------------

Dunkel, Martin

unread,

May 13, 2008, 10:04:06 AM5/13/08

to

TSO-REXX group,

I see this conversation has been going around for a while now, and I
suspect there is an older history to this gdg question that keeps coming
up.

I thought I would just add my two cents here...

I do not see why, within one execute of a Rexx program, you could not:
1. call IDCAMS to get a LISTCAT,
2. pull off the last generation,
(parse "NONVSAM ---- gdg.base.name.GnnnnVnn"
3. strip the Gnnnn,
4. add one to nnnn (after 9999, go back to 0001),
5. create and allocate a file with the new generation number,
6. call IDCAMS again to
"ALTER gdg.base.name.NEWGEN(V00) ROLLIN" yourself.

And, I do not see why you could not do this 1, 2, 3, or more times in
one execute of a Rexx program.

The only other thing you might need to do, though, is ENQ the GDG base
name (DISP=OLD) to ensure that no one else is creating a new generation
at the same time you are. This ENQ is done for you in JCL, but if you
are doing your allocating dynamically in your program, then you would
need to handle the enqueue yourself.

Note, I did not test this myself, but it might make for a fun little
project when I have a little free time.

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 Terry, Richard W
Sent: Friday, March 14, 2008 4:00 PM
To: TSO-...@VM.MARIST.EDU

-------------------------------------------------------------------------------------------
***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.
===========================================================================================

Robert Zenuk

unread,

May 13, 2008, 10:43:54 AM5/13/08

to

That is what many of us did before BPXWDYN provided relative GDG support.
My old GOOVOO routine would just LISTCAT the GDG, pull the correct GDS and
return that. If the relative number was nonzero and positive, it would
increment the GOOVOO, otherwise it would just find the correct GDS.

"ALLOC F(OLDGDG) DA('"goovoo('MY.GDG(-2)')"') SHR REUSE"

"ALLOC F(NEWGDG) DA('"goovoo('MY.GDG(-2)')"') NEW CATALOG..."

Now that BPXWDYN does this, why bother?

Rob

In a message dated 5/13/2008 7:04:31 A.M. US Mountain Standard Time,
Martin...@NATIONALCITY.COM writes:

TSO-REXX group,

Thanks! MPD

**************Wondering what's for Dinner Tonight? Get new twists on family
favorites at AOL Food.
(http://food.aol.com/dinner-tonight?NCID=aolfod00030000000001)

Bob Hamilton

unread,

May 13, 2008, 1:32:47 PM5/13/08

to

What I need to do is allocate to a generation, that has not
been rolled in, with BPXWDYN. Just starting and haven't
tried anything yet. This will be in batch TSO as a
job-step just before an FTP step to see if the data set is
empty.

bobh

Dunkel, Martin

unread,

May 13, 2008, 1:38:06 PM5/13/08

to

Bob,

Just a simple FileAid will give you a C0008 if you try to copy one
record of an empty file. I have also seen people use IDCAMS REPRO (or
IEBCOPY - I don't remember which one) to just copy one record. In
either case, you can detect if gen(+0) is empty by coding gen(+0) on
your input DD for a fileaid. You don't need Rexx for this.

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 Bob Hamilton
Sent: Tuesday, May 13, 2008 2:21 PM
To: TSO-...@VM.MARIST.EDU

bobh

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

***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

unread,

May 13, 2008, 1:57:35 PM5/13/08

to

You are correct Martin, an IDCAMS of an empty file will generate a
return code of 4 :

//STEP01 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//FILE1 DD DISP=SHR,DSN=YOUR.INPUT.DATASET
//SYSUDUMP DD SYSOUT=*
//SYSIN DD *
PRINT INFILE(FILE1) -
DUMP COUNT(1)

Regards,
Gil.

"Dunkel, Martin" <Martin...@NATIONALCITY.COM>
Sent by: TSO REXX Discussion List <TSO-...@VM.MARIST.EDU>
05/13/2008 12:38 PM
Please respond to
TSO REXX Discussion List <TSO-...@VM.MARIST.EDU>

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

Bob,

Thanks! MPD

bobh

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.

Robert Zenuk

unread,

May 13, 2008, 2:36:52 PM5/13/08

to

Is this all you are looking for so your JCL COND/IF logic can make good
decisions?

/*********************************************************************/
/* REXX */
/*********************************************************************/
/* Purpose: Check if a sequential dataset is empty */
/*-------------------------------------------------------------------*/
/* Syntax: CHKEMPTY dsn */
/*-------------------------------------------------------------------*/
/* Parms: DSN - DSN to check */
/* */
/* Notes: */
/* */
/* Retun Codes 0 - DSN has records */
/* 2 - DSN is empty */
/* */

/* */
/*********************************************************************/
/* Change Log */
/* */
/* Author Date Reason */
/* -------- --------- ----------------------------------------- */

/* R. Zenuk Apr 1991 Initial Creation */
/* */
/*********************************************************************/
arg dsn
"ALLOC F(EMPTY) DA("dsn") SHR"
if RC <> 0 then exit RC
"EXECIO 1 DISKR EMPTY (STEM REC. FINIS"
EXITRC = RC
"FREE F(EMPTY)"
exit EXITRC

Sample JCL:

//jobcard...
//***************************************************************
//* EMPTY SEQUENTIAL FILE AS INPUT CC=2 *
//***************************************************************
//EMPTY EXEC PGM=IKJEFT01,PARM='CHKEMPTY ''MY.EMPTY.FILE'''
//SYSEXEC DD DSN=MY.EXEC,DISP=SHR
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//***************************************************************
//* SEQUENTIAL FILE WITH RECORDS AS INPUT CC=0 *
//***************************************************************
//NOTEMPTY EXEC PGM=IKJEFT01,PARM='CHKEMPTY ''MY.NOTEMPTY.FILE'''
//SYSEXEC DD DSN=MY.EXEC,DISP=SHR
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY

Rob

In a message dated 5/13/2008 10:38:31 A.M. US Mountain Standard Time,
Martin...@NATIONALCITY.COM writes:

Bob,

Thanks! MPD

bobh

**************Wondering what's for Dinner Tonight? Get new twists on family
favorites at AOL Food.
(http://food.aol.com/dinner-tonight?NCID=aolfod00030000000001)

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

Harrington, Mark

unread,

May 13, 2008, 2:47:07 PM5/13/08

to

If you have iceman (icetool)

//CHECK01 EXEC PGM=ICETOOL,COND=(0,NE)
//TOOLMSG DD SYSOUT=&SYSMSG
//DFSMSG DD SYSOUT=&SYSMSG
//SYSOUT DD SYSOUT=&SYSMSG
//SYSPRINT DD SYSOUT=&SYSMSG
//CHECKDD DD DSN=your.file.name,DISP=SHR
//TOOLIN DD *
COUNT FROM(CHECKDD) EMPTY
/*
//*
//
This will abend the job if file is empty
M.

Regards,
Gil.

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

Bob,

Thanks! MPD

bobh

----------------------------------------------------------
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 intended recipient, please immediately notify us by return email, and delete this message from your computer.
----------------------------------------------------------

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

Bob Hamilton

unread,

May 13, 2008, 3:21:01 PM5/13/08

to

Data Set Name is not known. just the relative GDG, e.g.
(+1)

In some cases the DSN is known; in some just the relative
generation number.

What we contend with is FTP in naked JCL istead of running
from a REXX exec. This creates an opportunity for operator
intervention and the disaster apt to ensue therefrom. If
the file is empty we need to copy into it a dummy file of
2-3 records to let the receiver of the data set know that
the transaction was completed but there were no data to
xmit. I know this sounds weird, but it's the result of the
madness of screwing with these PC things instead of
processing the entire transaction in the MF.

Thnx to all for the help.

Robert Zenuk

unread,

May 13, 2008, 5:45:35 PM5/13/08

to

Here is another way to accomplish this:

Here is another REXX EXEC that works with the DD instead of the DSN.

/* REXX - Check DD EMPTY for at least 1 record */

"EXECIO 1 DISKR EMPTY (STEM REC. FINIS"

exit RC

Build a jobstream that resembles this:

//jobcard...
//***************************************************************
//* PROC USING CHKMTGDG *
//***************************************************************
//CHKNFTP PROC FTPGOOD=,FTPBAD=MY.NORECS
//***************************************************************
//* IS IT EMPTY? *
//***************************************************************
//EMPTY EXEC PGM=IKJEFT01,PARM=CHKMTGDG
//SYSEXEC DD DSN=MY.EXEC,DISP=SHR
//EMPTY DD DSN=&FTPGOOD,DISP=SHR

//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//***************************************************************

// IF EMPTY.RC = 0 THEN
//***************************************************************
//* FILE NOT EMPTY, FTP IT *
//***************************************************************
//FTPGOOD EXEC PGM=FTP,PARM='your.target.url (EXIT'
//SYSPRINT DD SYSOUT=*
//FILE DD DSN=&FTPGOOD,DISP=SHR
//INPUT DD DSN=your.ftp.input(member),DISP=SHR
//***************************************************************
// ELSE
//***************************************************************
//* FILE IS EMPTY, SEND THE "NO RECORDS TO SEND" FILE *
//***************************************************************
//FTPBAD EXEC PGM=FTP,PARM='your.target.url (EXIT'
//SYSPRINT DD SYSOUT=*
//FILE DD DSN=&FTPBAD,DISP=SHR
//INPUT DD DSN=your.ftp.input(member),DISP=SHR
//***************************************************************
// ENDIF
//***************************************************************
// PEND
//***************************************************************
//* SEQUENTIAL FILE WITH RECORDS AS INPUT *
//***************************************************************
//NOTEMPTY EXEC CHKNFTP,FTPDSN=MY.GDG(-1)
//***************************************************************
//* EMPTY SEQUENTIAL FILE AS INPUT *
//***************************************************************
//EMPTY EXEC CHKNFTP,FTPDSN=MY.GDG(0)

You might also want to look into the DD support in FTP to avoid changing the
FTP parms if you are not already doing that.

put //DD:FILE your.target.output.file

In a message dated 5/13/2008 12:21:07 P.M. US Mountain Standard Time,
air....@VINTAGE-AERO.COM writes:

bobh

**************Wondering what's for Dinner Tonight? Get new twists on family
favorites at AOL Food.
(http://food.aol.com/dinner-tonight?NCID=aolfod00030000000001)

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

Mickey Bee

unread,

May 13, 2008, 7:33:26 PM5/13/08

to

Once more, with gusto.

x = BPXWDYN("ALLOC DD(XXX) DA('FCMJB33.TEST.GDG(+1)') NEW SPACE(1,1)

RECFM(F,B) LRECL(80) DSORG(PS) CATALOG")

Note there is NO comma at the end of the first line. Don't put one there.

Mickey

-------------- Original message ----------------------
From: Bob Hamilton <air....@VINTAGE-AERO.COM>
> What I need to do is allocate to a generation, that has not
> been rolled in, with BPXWDYN. Just starting and haven't
> tried anything yet. This will be in batch TSO as a
> job-step just before an FTP step to see if the data set is
> empty.
>