Use IFG0EX0B exit

[Raquel Calvo Olmos]

Hi there,
we would like to use the IFG0EX0B exit to obtain the name of the job that it 
created/modified a file. 

Is anybody using this exit with this intention?

Thanks in advance. 

Regards,
Raquel calvo.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: IBM Hardware Group in Big Restructuring

[Van Dalsen, Herbie]

>>Gee, might that mean that they will be extending z/OS down to the
lower end?

I am not so sure about that... The baby z800 could go al low as 40 MIPS,
wasn't that the minimum that they could afford to sell with a Z/Server?
Lower than that just wouldn't pay in terms of future revenue from HW
maintenance / SW Licensing, which in the end all adds up to keep paying
for the R&D + Manufacturing cost.

Herbie
-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Warner Mach
Sent: 05 Januarie 2008 01:23 nm
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: IBM Hardware Group in Big Restructuring

On Jan 4 Sam Knutson remarked:

>Surprised no one had commented on this

Relative to IBM's reorganization, as reported in:

>

I saw the article. Was especially interested in the remark that: 

- IBM gets most of its business from big corporations and governments, 
- but it has been trying to improve sales of services, software and
servers 
- to smaller companies because their technology purchases are growing 
- at a faster rate.

Gee, might that mean that they will be extending z/OS down to the lower
end?
But my interest rapidly dissippated as I reflected that: (1) There is
really
no way to know what the reorganization will mean by the time it actually
hits the ground. Whatever the end result will be it is sure to be other
than
you might expect. (2) The announcement is vague enough to be essentially

useless for a client to use in planning.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
Elavon Financial Services Limited
Registered in Ireland: Number 418442
Registered Office: Block E, 1st Floor, Cherrywood Business Park, Loughlinstown, 
Co. Dublin, Ireland
Directors: Robert Abele (USA), John Collins,  Terrance Dolan (USA),  Pamela 
Joseph (USA), Declan Lynch, John McNally, Malcolm Towlson
Elavon Financial Services Limited, trading as Elavon, is regulated by the 
Financial Regulator

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Purge all members from a PDSE

[Miklos Szigetvari]

Hi

Any method to purge all memebers from a PDSE ?
(Till now we used PDS and with
PDS85 fixpds reset  did this )


--
Miklos Szigetvari

Development Team
ISIS Information Systems Gmbh 
tel: (+43) 2236 27551 570
Fax: (+43) 2236 21081 

E-mail: [EMAIL PROTECTED] 

Info: [EMAIL PROTECTED] 
Hotline: +43-2236-27551-111 

Visit our Website: http://www.isis-papyrus.com 
---

This e-mail is only intended for the recipient and not legally
binding. Unauthorised use, publication, reproduction or
disclosure of the content of this e-mail is not permitted.
This email has been checked for known viruses, but ISIS accepts
no responsibility for malicious or inappropriate content.
--- 


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: C++ recovery from (an otherwise) system abend

[David Logan]

I have now tried CEEHDLR, and this does not appear to work. On to
researching USRHDL.

David Logan

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf
Of Roland Schiradin
Sent: Sunday, January 06, 2008 1:54 PM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: C++ recovery from (an otherwise) system abend

David, 

have you tried a LE-Condition-handler instead of catch()? I believe a 
C catch() wont work for an LE enabled assembler program. 
Did you get a CEEDUMP with the abend code?
Have you tried a USRHDL or register a Condition handler?

roland


>The main problem with this solution (or any other solution) that checked
>something before I make the PC call is that the server could crash (or be
>brought down) between the check and the PC call.
>
>Were I to implement something like the solution you describe, I would hope
>that I could either use the get name/token pair routine to check to make
>sure the server is up, or perhaps be able to check for existence of the
>servers ASCB or TCB, so that I didn't need to place anything into common
>storage.
>
>What I was hoping for was a solution where there was no chance of
>intermittent failure. The only way I know of to support that would be to be
>able to trap the ABEND. Is there really no way to issue an ESTAE type of
>recovery routine in C++ and return control to some function or something
>similar?
>
>Thanks!
>

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Graphics is reason mainframe is losing was (fwd) Re: Java is becoming the new Cobol

[Shmuel Metz (Seymour J.)]

In <[EMAIL PROTECTED]>, on 01/05/2008
   at 09:53 PM, Clark F Morris <[EMAIL PROTECTED]> said:

>The following on comp.lang.cobol should give us some food for thought

Why? It's patently false. IBM may not choose to go in that direction, but
IBM has had grapics on the platform for 4 decades, and 3270 graphics for
more than 2 decades.

FWIW, I'd consider some combination of WSA and X to be the way to go.
 
-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 ISO position; see  
We don't care. We don't have to care, we're Congress.
(S877: The Shut up and Eat Your spam act of 2003)

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: JCL parms

[Shmuel Metz (Seymour J.)]

In <[EMAIL PROTECTED]>, on 01/06/2008
   at 11:08 AM, Paul Gilmartin <[EMAIL PROTECTED]> said:

>I once encountered an IBM program (I forget which) which deliberately
>failed if invoked in a multistep job or not as a jobstep task.

Ouch!

>Is that what I know and often cite as "Conway's Law"?

No, it's "The rape of the design integrity of OS/360". 

>And can anyone help me with "ObCamelDriver"? 

Google for "Not if I don't get my thumb in the way."
 
-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 ISO position; see  
We don't care. We don't have to care, we're Congress.
(S877: The Shut up and Eat Your spam act of 2003)

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: JCL parms

[Shmuel Metz (Seymour J.)]

In <[EMAIL PROTECTED]>, on 01/06/2008
   at 01:20 PM, Ed Gould <[EMAIL PROTECTED]> said:

>I did not say that nor did I imply that.  I don't recall it coming up  
>as a GUIDE requirement in the times I was active at GUIDE. Apparently  
>other people didn't think it important enough to ask IBM for a  
>change.

Or they didn't belong to GUIDE. Or, while belonging to GUIDE, they
considered Share a more useful venue for presenting requirements to IBM.

FWIW, I've submitted lots of requirements over the years, and not one was
via GUIDE.
 
-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 ISO position; see  
We don't care. We don't have to care, we're Congress.
(S877: The Shut up and Eat Your spam act of 2003)

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: JCL parms

[Shmuel Metz (Seymour J.)]

In
<[EMAIL PROTECTED]>,
on 01/06/2008
   at 07:36 PM, Ted MacNEIL <[EMAIL PROTECTED]> said:

>The TSO TMP will do that if your PROC has more than one step.

I routinely run the TMP in multistep jobs.
 
-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 ISO position; see  
We don't care. We don't have to care, we're Congress.
(S877: The Shut up and Eat Your spam act of 2003)

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Purge all members from a PDSE

[Mark Jacobs]

Miklos Szigetvari wrote:
> Hi
>
> Any method to purge all memebers from a PDSE ?
> (Till now we used PDS and with
> PDS85 fixpds reset  did this )
>
>
Here is a code snipit that works

OPEN  (PDSE,OUTPUT)
ISITMGD DCB=PDSE,MF=(E,ISITPARM)   
USING ISM,R1   
LTR   R15,R15 DID IT COMPLETE SUCESSFULLY? 
BNZ   ISITERR NO, EXIT  RC=12  
TMISMOFLG2,ISMPDSE IS IT A PDSE?   
BNO   NOTPDSE NO, EXIT RC=8
STOW  PDSE,,I  
CLOSE (PDSE)   

-- 
Mark Jacobs
Time Customer Service
Tampa, FL


Riley: Find the next number in the sequence: 313, 331, 367, ...? what?

The Doctor: 379. It's a sequence of happy primes, 379.

Martha: Happy what?

The Doctor: Just enter it!

Riley: Are you sure? We only get one chance.

The Doctor: Any number that reduces to one when you take the sum of 
the square of its digits and continue iterating until it yields 1 is 
a happy number, any number that doesn't, isn't. A happy prime is 
both happy and prime. 

Doctor Who episode "42"

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Purge all members from a PDSE

[Vernooy, C.P. - SPLXM]

"Miklos Szigetvari" <[EMAIL PROTECTED]> wrote in
message news:<[EMAIL PROTECTED]>...
> Hi
> 
> Any method to purge all memebers from a PDSE ?
> (Till now we used PDS and with
> PDS85 fixpds reset  did this )
> 
> 
> -- 
> Miklos Szigetvari

If you have SAS, PROC PDS can do this for you.

PROC PDS DDNAME=ddname KILL;
"PROC PDS operates with full capabilities on both extended partitioned
data sets (PDSEs) and standard partitioned data sets (PDSs)."

Kees.

**
For information, services and offers, please visit our web site:
http://www.klm.com. This e-mail and any attachment may contain
confidential and privileged material intended for the addressee
only. If you are not the addressee, you are notified that no part
of the e-mail or any attachment may be disclosed, copied or
distributed, and that any other action related to this e-mail or
attachment is strictly prohibited, and may be unlawful. If you have
received this e-mail by error, please notify the sender immediately
by return e-mail, and delete this message. 

Koninklijke Luchtvaart Maatschappij NV (KLM), its subsidiaries
and/or its employees shall not be liable for the incorrect or
incomplete transmission of this e-mail or any attachments, nor
responsible for any delay in receipt.
Koninklijke Luchtvaart Maatschappij N.V. (also known as KLM Royal
Dutch Airlines) is registered in Amstelveen, The Netherlands, with
registered number 33014286 
**

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Conditional Assembly question

[David Logan]

The equates need to be subtracted from the CSECT label. For example, this
works for me:
 MACRO 
   
 LCLA  &AL 
V1   EQU   (A00100-TESTCS)
V2   EQU   (A0-TESTCS)
V3   EQU   4096-V1-V2  
&AL  SETA  4096-V1-V2  
 AIF   (&AL LT X'20').SPERR
 DCA(&AL)  
 DCA(V3)   
 MEND  
TESTCS   CSECT 
A0   DS   0H   
 
 
A00100   DS0H 
  
REPADDR  DSCL80   
REPECB   DCF'0'   
SVA  DS18F
 END   TESTCS

The listing I got with the invocation of  was:
 49    
  0004A  50+V1   EQU   (A00100-TESTCS)
  0  51+V2   EQU   (A0-TESTCS)
  00FB6  52+V3   EQU   4096-V1-V2  
4A 
4C 0FB6  53+ DCA(4022) 
50 0FB6  54+ DCA(V3)   

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf
Of Leland C. Sheppard
Sent: Sunday, January 06, 2008 10:23 PM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Conditional Assembly question

For the code in line 102, I am getting the assembly error on line 117:

> 00 0D9E 102 A0L  DC   
> AL2(4096-(A00100-A0)) FREE SPACE IN A0  
>
>   00DFC 103 A00100L  EQU   
> X'1000'-(C0-A00100),,C'N'  FREE SPACE IN A00100 
>
>   00DF8 104 C0L  EQU   
> X'1000'-(E0-C0) FREE SPACE IN C0   
>
>  ...
>
> 117  AIF   (A0L LT 
> X'20').SPERR 
>
> ** ASMA154E OPERAND MUST BE ABSOLUTE, PREDEFINED SYMBOLS; SET TO ZERO 
> - OPENC/A0L   
>
>  
>
The way I read the assembler reference, it looks to me like the above 
should work.  The difference between A00100 and A0 will NOT change 
based on relocatability.  The difference will always be the same.

I have tried it using hex DCs as well as adcons and equates, etc. as 
shown in lines 103 and 104 with the same results.

Anyone have any thoughts or suggestions on this?

Thanks for your time.

Leland

-- 
Leland Sheppard
Placerville, California, USA



--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

More on "IBM-MAIN not sending out my emails"

[David Logan]

OK, per yesterdays emails about not getting my posts. I changed my settings
from
NOACK REPRO
To
ACK NOREPRO

And I get the acknowledgement thing below. But when I select NOACK REPRO, I
get nothing.

So, either Outlook 2007 or gmail.com (I strongly suspect Outlook 2007) is
killing my response emails when they come back from the list manager. They
aren't showing up in either Outlooks or gmails spam folder.

My guess so far is that Outlook 2007 knows it sent the email, so when the
email comes back in, Outlook 2007 just kills it. But so far, I have no way
of proving it.

I guess I can safely assume nobody else on this list has had this problem,
although today is a new day, maybe somebody that has seen this before will
respond :)

David Logan

-Original Message-
From: The University of Alabama LISTSERV Server (15.0)
[mailto:[EMAIL PROTECTED] 
Sent: Monday, January 07, 2008 5:50 AM
To: David Logan
Subject: Message ("Your message dated Mon, 7 Jan 2008 05:49:20 -0700...")

Your message  dated Mon, 7  Jan 2008  05:49:20 -0700 with  subject "Re:
Conditional Assembly question" has been successfully distributed to the
IBM-MAIN list (2556 recipients).

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Purge all members from a PDSE

[John P Kalinich]

Mark Jacobs of the IBM Mainframe Discussion List 
wrote on 01/07/2008 06:28:29 AM:

> Miklos Szigetvari wrote:
> > Hi
> >
> > Any method to purge all memebers from a PDSE ?
> > (Till now we used PDS and with
> > PDS85 fixpds reset  did this )
> >
> >
> Here is a code snipit that works
>
> OPEN  (PDSE,OUTPUT)
> ISITMGD DCB=PDSE,MF=(E,ISITPARM)
> USING ISM,R1
> LTR   R15,R15 DID IT COMPLETE SUCESSFULLY?
> BNZ   ISITERR NO, EXIT  RC=12
> TMISMOFLG2,ISMPDSE IS IT A PDSE?
> BNO   NOTPDSE NO, EXIT RC=8
> STOW  PDSE,,I
> CLOSE (PDSE)
>

"PDS86 fixpds reset" will do what you want.  PDS86 uses the same STOW
Initialize as Mark did above.  Download from
http://www.cbttape.org/ftp/updates/CBT182.zip.

Regards,
John K

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: C++ recovery from (an otherwise) system abend

[David Logan]

I'm using assembler along with C. What "environment" did you have in mind?
Perhaps an ESTAE that's set just before the PC and cleared just after?

David Logan

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf
Of Bill Wilkie
Sent: Sunday, January 06, 2008 2:22 PM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: C++ recovery from (an otherwise) system abend

I haven't done any work on the MF in this regard so forgive me if I am all
wet here, but on the PC side, I know you can intersperse PC assembler in the
C++ code to implement low-level operations. Is that possible on the MF side?
If so, you may be able to set up the environment you are looking for. Just a
thought. 
 
 
Bill> Date: Sun, 6 Jan 2008 14:54:03 -0600> From: [EMAIL PROTECTED]>
Subject: Re: C++ recovery from (an otherwise) system abend> To:
IBM-MAIN@BAMA.UA.EDU> > David, > > have you tried a LE-Condition-handler
instead of catch()? I believe a > C catch() wont work for an LE enabled
assembler program. > Did you get a CEEDUMP with the abend code?> Have you
tried a USRHDL or register a Condition handler?> > roland> > > >The main
problem with this solution (or any other solution) that checked> >something
before I make the PC call is that the server could crash (or be> >brought
down) between the check and the PC call.> >> >Were I to implement something
like the solution you describe, I would hope> >that I could either use the
get name/token pair routine to check to make> >sure the server is up, or
perhaps be able to check for existence of the> >servers ASCB or TCB, so that
I didn't need to place anything into common> >storage.> >> >What I was
hoping for was a solution where there was no chance of> >intermittent
failure. The only way I know of to support that would be to be> >able to
trap the ABEND. Is there really no way to issue an ESTAE type of> >recovery
routine in C++ and return control to some function or something> >similar?>
>> >Thanks!> >> >
--> For
IBM-MAIN subscribe / signoff / archive access instructions,> send email to
[EMAIL PROTECTED] with the message: GET IBM-MAIN INFO> Search the
archives at http://bama.ua.edu/archives/ibm-main.html

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: C++ recovery from (an otherwise) system abend

[Binyamin Dissen]

On Mon, 7 Jan 2008 06:07:51 -0700 David Logan <[EMAIL PROTECTED]> wrote:

:>I'm using assembler along with C. What "environment" did you have in mind?
:>Perhaps an ESTAE that's set just before the PC and cleared just after?

I think that he expects the try/catch to do an ESTAE.

What does a try/catch do? Trap non-zero return codes?

:>-Original Message-
:>From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf
:>Of Bill Wilkie
:>Sent: Sunday, January 06, 2008 2:22 PM
:>To: IBM-MAIN@BAMA.UA.EDU
:>Subject: Re: C++ recovery from (an otherwise) system abend

:>I haven't done any work on the MF in this regard so forgive me if I am all
:>wet here, but on the PC side, I know you can intersperse PC assembler in the
:>C++ code to implement low-level operations. Is that possible on the MF side?
:>If so, you may be able to set up the environment you are looking for. Just a
:>thought. 
 
:>Bill> Date: Sun, 6 Jan 2008 14:54:03 -0600> From: [EMAIL PROTECTED]>
:>Subject: Re: C++ recovery from (an otherwise) system abend> To:
:>IBM-MAIN@BAMA.UA.EDU> > David, > > have you tried a LE-Condition-handler
:>instead of catch()? I believe a > C catch() wont work for an LE enabled
:>assembler program. > Did you get a CEEDUMP with the abend code?> Have you
:>tried a USRHDL or register a Condition handler?> > roland> > > >The main
:>problem with this solution (or any other solution) that checked> >something
:>before I make the PC call is that the server could crash (or be> >brought
:>down) between the check and the PC call.> >> >Were I to implement something
:>like the solution you describe, I would hope> >that I could either use the
:>get name/token pair routine to check to make> >sure the server is up, or
:>perhaps be able to check for existence of the> >servers ASCB or TCB, so that
:>I didn't need to place anything into common> >storage.> >> >What I was
:>hoping for was a solution where there was no chance of> >intermittent
:>failure. The only way I know of to support that would be to be> >able to
:>trap the ABEND. Is there really no way to issue an ESTAE type of> >recovery
:>routine in C++ and return control to some function or something> >similar?>
:>>> >Thanks!> >> >

--
Binyamin Dissen <[EMAIL PROTECTED]>
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.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

COBOL is simple -- NOT!!

[Chase, John]

Hi, All,

This is almost embarrassing to ask, but how in blazes does one code the
equivalent of a TM instruction in COBOL?  Here's what we have:

In the data division:

05  MAP-FIELD-ATTRIBUTE  PIC X.
...
In an IBM-supplied copybook:

02  DFHBMFLG  PIC X.
  88 DFHERASE VALUES ARE ,  

In the procedure division, we code:

IF MAP-FIELD-ATTRIBUTE = DFHERASE

and the compiler says:

Condition-name "DFHERASE" was found inside the scope of an
abbreviated condition
The statement was discarded. 

All we want is the equivalent of

TMMAP-FIELD-ATTRIBUTE,X'80'

How is that done in COBOL??  Can it even be done in COBOL??

TIA,

-jc-


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: COBOL is simple -- NOT!!

[Ganesh Rao]

MOVE MAP-FIELD-ATTRIBUTE TO  DFHBMFLG 
IF DFHERASE

I think the above code should help you. Note: That is not the same as TM

HTH,
Gani

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: C++ recovery from (an otherwise) system abend

[Bill Wilkie]

David:
 
Yes, That's what I was thinking Bill> Date: Mon, 7 Jan 2008 06:07:51 -0700> 
From: [EMAIL PROTECTED]> Subject: Re: C++ recovery from (an otherwise) system 
abend> To: IBM-MAIN@BAMA.UA.EDU> > I'm using assembler along with C. What 
"environment" did you have in mind?> Perhaps an ESTAE that's set just before 
the PC and cleared just after?> > David Logan> > -Original Message-> 
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf> Of 
Bill Wilkie> Sent: Sunday, January 06, 2008 2:22 PM> To: IBM-MAIN@BAMA.UA.EDU> 
Subject: Re: C++ recovery from (an otherwise) system abend> > I haven't done 
any work on the MF in this regard so forgive me if I am all> wet here, but on 
the PC side, I know you can intersperse PC assembler in the> C++ code to 
implement low-level operations. Is that possible on the MF side?> If so, you 
may be able to set up the environment you are looking for. Just a> thought. > > 
> Bill> Date: Sun, 6 Jan 2008 14:54:03 -0600> From: [EMAIL PROTECTED]>> 
Subject: Re: C++ recovery from (an otherwise) system abend> To:> 
IBM-MAIN@BAMA.UA.EDU> > David, > > have you tried a LE-Condition-handler> 
instead of catch()? I believe a > C catch() wont work for an LE enabled> 
assembler program. > Did you get a CEEDUMP with the abend code?> Have you> 
tried a USRHDL or register a Condition handler?> > roland> > > >The main> 
problem with this solution (or any other solution) that checked> >something> 
before I make the PC call is that the server could crash (or be> >brought> 
down) between the check and the PC call.> >> >Were I to implement something> 
like the solution you describe, I would hope> >that I could either use the> get 
name/token pair routine to check to make> >sure the server is up, or> perhaps 
be able to check for existence of the> >servers ASCB or TCB, so that> I didn't 
need to place anything into common> >storage.> >> >What I was> hoping for was a 
solution where there was no chance of> >intermittent> failure. The only way I 
know of to support that would be to be> >able to> trap the ABEND. Is there 
really no way to issue an ESTAE type of> >recovery> routine in C++ and return 
control to some function or something> >similar?>> >> >Thanks!> >> >> 
--> For> 
IBM-MAIN subscribe / signoff / archive access instructions,> send email to> 
[EMAIL PROTECTED] with the message: GET IBM-MAIN INFO> Search the> archives at 
http://bama.ua.edu/archives/ibm-main.html> > 
--> For 
IBM-MAIN subscribe / signoff / archive access instructions,> send email to 
[EMAIL PROTECTED] with the message: GET IBM-MAIN INFO> Search the archives at 
http://bama.ua.edu/archives/ibm-main.html> > 
--> For 
IBM-MAIN subscribe / signoff / archive access instructions,> send email to 
[EMAIL PROTECTED] with the message: GET IBM-MAIN INFO> Search the archives at 
http://bama.ua.edu/archives/ibm-main.html
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: C++ recovery from (an otherwise) system abend

[David Logan]

A try/catch block is supposed to catch either a specific error or a generic
error, and return control to the "catch" block if one occurs. (Skipping the
catch block of course if no error occurs.)

It is supposed to catch serious errors too I believe, like divide-by-zero,
protection exceptions (SIGSEGV, S0C4) etc.

I'm liking the ESTAE before the PC option. My only real concern there is
performance. Since this routine is called for every block read from disk,
it's going to be called a LOT of times (which is why I wrote this to begin
with.)

David Logan

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf
Of Binyamin Dissen
Sent: Monday, January 07, 2008 6:25 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: C++ recovery from (an otherwise) system abend

On Mon, 7 Jan 2008 06:07:51 -0700 David Logan <[EMAIL PROTECTED]> wrote:

:>I'm using assembler along with C. What "environment" did you have in mind?
:>Perhaps an ESTAE that's set just before the PC and cleared just after?

I think that he expects the try/catch to do an ESTAE.

What does a try/catch do? Trap non-zero return codes?

:>-Original Message-
:>From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf
:>Of Bill Wilkie
:>Sent: Sunday, January 06, 2008 2:22 PM
:>To: IBM-MAIN@BAMA.UA.EDU
:>Subject: Re: C++ recovery from (an otherwise) system abend

:>I haven't done any work on the MF in this regard so forgive me if I am all
:>wet here, but on the PC side, I know you can intersperse PC assembler in
the
:>C++ code to implement low-level operations. Is that possible on the MF
side?
:>If so, you may be able to set up the environment you are looking for. Just
a
:>thought. 
 
:>Bill> Date: Sun, 6 Jan 2008 14:54:03 -0600> From: [EMAIL PROTECTED]>
:>Subject: Re: C++ recovery from (an otherwise) system abend> To:
:>IBM-MAIN@BAMA.UA.EDU> > David, > > have you tried a LE-Condition-handler
:>instead of catch()? I believe a > C catch() wont work for an LE enabled
:>assembler program. > Did you get a CEEDUMP with the abend code?> Have you
:>tried a USRHDL or register a Condition handler?> > roland> > > >The main
:>problem with this solution (or any other solution) that checked>
>something
:>before I make the PC call is that the server could crash (or be> >brought
:>down) between the check and the PC call.> >> >Were I to implement
something
:>like the solution you describe, I would hope> >that I could either use the
:>get name/token pair routine to check to make> >sure the server is up, or
:>perhaps be able to check for existence of the> >servers ASCB or TCB, so
that
:>I didn't need to place anything into common> >storage.> >> >What I was
:>hoping for was a solution where there was no chance of> >intermittent
:>failure. The only way I know of to support that would be to be> >able to
:>trap the ABEND. Is there really no way to issue an ESTAE type of>
>recovery
:>routine in C++ and return control to some function or something>
>similar?>
:>>> >Thanks!> >> >

--
Binyamin Dissen <[EMAIL PROTECTED]>
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.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: C++ recovery from (an otherwise) system abend

[Bill Wilkie]

David:
 
It shouldn't matter. You should only set up the environment once and WITHIN the 
environment you anchor the GETMAINED addresses or values that should be cleaned 
up when something goes wrong. 
 
Bill> Date: Mon, 7 Jan 2008 06:33:41 -0700> From: [EMAIL PROTECTED]> Subject: 
Re: C++ recovery from (an otherwise) system abend> To: IBM-MAIN@BAMA.UA.EDU> > 
A try/catch block is supposed to catch either a specific error or a generic> 
error, and return control to the "catch" block if one occurs. (Skipping the> 
catch block of course if no error occurs.)> > It is supposed to catch serious 
errors too I believe, like divide-by-zero,> protection exceptions (SIGSEGV, 
S0C4) etc.> > I'm liking the ESTAE before the PC option. My only real concern 
there is> performance. Since this routine is called for every block read from 
disk,> it's going to be called a LOT of times (which is why I wrote this to 
begin> with.)> > David Logan> > -Original Message-> From: IBM Mainframe 
Discussion List [mailto:[EMAIL PROTECTED] On Behalf> Of Binyamin Dissen> Sent: 
Monday, January 07, 2008 6:25 AM> To: IBM-MAIN@BAMA.UA.EDU> Subject: Re: C++ 
recovery from (an otherwise) system abend> > On Mon, 7 Jan 2008 06:07:51 -0700 
David Logan <[EMAIL PROTECTED]> wrote:> > :>I'm using assembler along with C. 
What "environment" did you have in mind?> :>Perhaps an ESTAE that's set just 
before the PC and cleared just after?> > I think that he expects the try/catch 
to do an ESTAE.> > What does a try/catch do? Trap non-zero return codes?> > 
:>-Original Message-> :>From: IBM Mainframe Discussion List 
[mailto:[EMAIL PROTECTED] On> Behalf> :>Of Bill Wilkie> :>Sent: Sunday, January 
06, 2008 2:22 PM> :>To: IBM-MAIN@BAMA.UA.EDU> :>Subject: Re: C++ recovery from 
(an otherwise) system abend> > :>I haven't done any work on the MF in this 
regard so forgive me if I am all> :>wet here, but on the PC side, I know you 
can intersperse PC assembler in> the> :>C++ code to implement low-level 
operations. Is that possible on the MF> side?> :>If so, you may be able to set 
up the environment you are looking for. Just> a> :>thought. > > :>Bill> Date: 
Sun, 6 Jan 2008 14:54:03 -0600> From: [EMAIL PROTECTED]>> :>Subject: Re: C++ 
recovery from (an otherwise) system abend> To:> :>IBM-MAIN@BAMA.UA.EDU> > 
David, > > have you tried a LE-Condition-handler> :>instead of catch()? I 
believe a > C catch() wont work for an LE enabled> :>assembler program. > Did 
you get a CEEDUMP with the abend code?> Have you> :>tried a USRHDL or register 
a Condition handler?> > roland> > > >The main> :>problem with this solution (or 
any other solution) that checked>> >something> :>before I make the PC call is 
that the server could crash (or be> >brought> :>down) between the check and the 
PC call.> >> >Were I to implement> something> :>like the solution you describe, 
I would hope> >that I could either use the> :>get name/token pair routine to 
check to make> >sure the server is up, or> :>perhaps be able to check for 
existence of the> >servers ASCB or TCB, so> that> :>I didn't need to place 
anything into common> >storage.> >> >What I was> :>hoping for was a solution 
where there was no chance of> >intermittent> :>failure. The only way I know of 
to support that would be to be> >able to> :>trap the ABEND. Is there really no 
way to issue an ESTAE type of>> >recovery> :>routine in C++ and return control 
to some function or something>> >similar?>> :>>> >Thanks!> >> >> > --> Binyamin 
Dissen <[EMAIL PROTECTED]>> 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.> > 
--> For 
IBM-MAIN subscribe / signoff / archive access instructions,> send email to 
[EMAIL PROTECTED] with the message: GET IBM-MAIN INFO> Search the archives at 
http://bama.ua.edu/archives/ibm-main.html> > 
--> For 
IBM-MAIN subscribe / signoff / archive access instructions,> send email to 
[EMAIL PROTECTED] with the message: GET IBM-MAIN INFO> Search the archives at 
http://bama.ua.edu/archives/ibm-main.html
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

If you are not getting your own postings, gmail.com is the reason

[David Logan]

It's definitely gmail. I gave up on gmail, and created another comcast.net
account for this list, and got gmail disabled, this one set up, etc. etc.
etc.

 

And lo and behold, I am getting my postings!

 

So warning to those thinking about using gmail. They somehow prevent you
from getting your own posts. I recommend something else.

 

David Logan


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: COBOL is simple -- NOT!!

[David Andrews]

On Mon, 2008-01-07 at 07:32 -0600, Chase, John wrote:
> All we want is the equivalent of
>   TMMAP-FIELD-ATTRIBUTE,X'80'
> How is that done in COBOL??  Can it even be done in COBOL??

Look at CEESITST.  (I agree that bit testing is cumbersome in COBOL.)

-- 
David Andrews
A. Duda and Sons, Inc.
[EMAIL PROTECTED]

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: COBOL is simple -- NOT!!

[David Logan]

You can use a divide instruction:

DIVIDE MAP-FIELD-ATTRIBUTE BY 128 GIVING WS-BIT.
IF WS-BIT IS NOT EQUAL TO ZERO THEN
DISPLAY "X'80' IS SET".

David Logan

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf
Of Chase, John
Sent: Monday, January 07, 2008 6:33 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: COBOL is simple -- NOT!!

Hi, All,

This is almost embarrassing to ask, but how in blazes does one code the
equivalent of a TM instruction in COBOL?  Here's what we have:

In the data division:

05  MAP-FIELD-ATTRIBUTE  PIC X.
...
In an IBM-supplied copybook:

02  DFHBMFLG  PIC X.
  88 DFHERASE VALUES ARE ,  

In the procedure division, we code:

IF MAP-FIELD-ATTRIBUTE = DFHERASE

and the compiler says:

Condition-name "DFHERASE" was found inside the scope of an
abbreviated condition
The statement was discarded. 

All we want is the equivalent of

TMMAP-FIELD-ATTRIBUTE,X'80'

How is that done in COBOL??  Can it even be done in COBOL??

TIA,

-jc-


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: SMP/E and why not.

[Tom Marchant]

On Sat, 5 Jan 2008 18:26:17 -0600, Paul Gilmartin wrote:

>On Sat, 5 Jan 2008 17:53:13 -0600, Patrick O'Keefe wrote:
>>
>>   If you don't mind having incredibly convoluted RESTORE
>>processes, don't ACCEPT anything except the FUNCTION.  There is an
>>obvious trade off between ACCEPT and RESTORE.
>>
>>Perhaps it would be a good enhancement to SMP (SMP/E2?) to provide
>>generations of levelsets.  You're free to submit a request.
>>
>Tedious, but not convoluted.  At each intended levelset point,
>LIST all the sysmods in the target zone.  Then, based on the
>list, RESTORE everything except the FUNCTIONs (because PTFs with
>prerequisites can't be restored alone), and re-APPLY everything
>in the list.
>
>Of course, some PTFs can't ever be RESTORED. ...

What do you mean by that?  I can't think of an example or a reason.

>>You are right, though.  Using SMP you can go back only to the
>>previously ACCEPTed maintenance level.  You can restore libraries
>>back to any arbitrary backup point.
>>
>Thereby leaving the libraries out of sync with the data base?  Gasp!

Yes, that is a possibility.  An alternative to backup and restore is to clone 
the 
target and distribution zone, though perhaps Radoslaw might not like doing it 
that way.  There is a lot that can be accomplished with a clone.

-- 
Tom Marchant

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

RES: Use IFG0EX0B exit

[ITURIEL DO NASCIMENTO NETO]

Raquel,

There is a tool called DAF that can show you this kind of information
and 
you can get free at www.cbttape.org .  


Atenciosamente / Regards / Saludos

Ituriel do Nascimento Neto 
Banco Bradesco S/A 
4254/DPCD Alphaville 
Engenharia de Software - Sistemas Operacionais Mainframes 
 
Tel: 55 11 4197-2021 Fax: 55 11 4197-2814 


-Mensagem original-
De: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] Em nome
de Raquel Calvo Olmos
Enviada em: segunda-feira, 7 de janeiro de 2008 07:09
Para: IBM-MAIN@BAMA.UA.EDU
Assunto: Use IFG0EX0B exit

Hi there,
we would like to use the IFG0EX0B exit to obtain the name of the job
that it created/modified a file. 

Is anybody using this exit with this intention?

Thanks in advance. 

Regards,
Raquel calvo.

--
For IBM-MAIN subscribe / signoff / archive access instructions, send
email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search
the archives at http://bama.ua.edu/archives/ibm-main.html

AVISO LEGAL Esta mensagem é 
destinada exclusivamente para a(s) pessoa(s) a quem é dirigida, podendo conter 
informação confidencial e/ou legalmente privilegiada. Se você não for 
destinatário desta mensagem, desde já fica notificado de abster-se a divulgar, 
copiar, distribuir, examinar ou, de qualquer forma, utilizar a informação 
contida nesta mensagem, por ser ilegal. Caso você tenha recebido esta mensagem 
por engano, pedimos que nos retorne este E-Mail, promovendo, desde logo, a 
eliminação do seu conteúdo em sua base de dados, registros ou sistema de 
controle. Fica desprovida de eficácia e validade a mensagem que contiver 
vínculos obrigacionais, expedida por quem não detenha poderes de representação. 


LEGAL ADVICE This message is 
exclusively destined for the people to whom it is directed, and it can bear 
private and/or legally exceptional information. If you are not addressee of 
this message, since now you are advised to not release, copy, distribute, check 
or, otherwise, use the information contained in this message, because it is 
illegal. If you received this message by mistake, we ask you to return this 
email, making possible, as soon as possible, the elimination of its contents of 
your database, registrations or controls system. The message that bears any 
mandatory links, issued by someone who has no representation powers, shall be 
null or void.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Purge all members from a PDSE

[Miklos Szigetvari]

Hi

Thnak you very much , I have installed PDS86, it works fine

John P Kalinich wrote:


Mark Jacobs of the IBM Mainframe Discussion List 
wrote on 01/07/2008 06:28:29 AM:

 


Miklos Szigetvari wrote:
   


Hi

Any method to purge all memebers from a PDSE ?
(Till now we used PDS and with
PDS85 fixpds reset  did this )


 


Here is a code snipit that works

OPEN  (PDSE,OUTPUT)
ISITMGD DCB=PDSE,MF=(E,ISITPARM)
USING ISM,R1
LTR   R15,R15 DID IT COMPLETE SUCESSFULLY?
BNZ   ISITERR NO, EXIT  RC=12
TMISMOFLG2,ISMPDSE IS IT A PDSE?
BNO   NOTPDSE NO, EXIT RC=8
STOW  PDSE,,I
CLOSE (PDSE)

   



"PDS86 fixpds reset" will do what you want.  PDS86 uses the same STOW
Initialize as Mark did above.  Download from
http://www.cbttape.org/ftp/updates/CBT182.zip.

Regards,
John K

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html


 



--
Miklos Szigetvari

Development Team
ISIS Information Systems Gmbh 
tel: (+43) 2236 27551 570
Fax: (+43) 2236 21081 

E-mail: [EMAIL PROTECTED] 

Info: [EMAIL PROTECTED] 
Hotline: +43-2236-27551-111 

Visit our Website: http://www.isis-papyrus.com 
---

This e-mail is only intended for the recipient and not legally
binding. Unauthorised use, publication, reproduction or
disclosure of the content of this e-mail is not permitted.
This email has been checked for known viruses, but ISIS accepts
no responsibility for malicious or inappropriate content.
--- 


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: JCL parms

[Tom Marchant]

On Fri, 4 Jan 2008 22:00:15 -0600, Paul Gilmartin wrote:

>On Sat, 5 Jan 2008 02:19:44 +, Bill Wilkie wrote:
>
>>Tom:
>>
>>No, only the one that is coded. If you have PARM=" " coded, it works as 
always. If you code NEWPARM="" they Getmain an area for something larger 
like 256 bytes and everything else works the same. That way you could have 
a controlled implementation without mucking up what's there. Once the 
support for newparm is in the system, you can add it where needed.
>>

Then I don't see why there would be a different keyword.

>In fact, there's the seed of a compromise here.  Provided that NEWPARM 
doesn't
>introduce any unexpected restrictions; i.e.:
>
>o It supports symbolic substitution in the same way as PARM.
>
>o It can be used in PROCs and open code alike, even as PARM.
>
>There could be a bridge load module; preferably from IBM; as an alternative
>from CBT which would reformat the NEWPARM into classic PARM format, 
verifying
>that the length does not exceed 65,535 (no need to limit it to 32,767) and
>XCTL to the program named in the first 8 characters of NEWPARM.

What is there to format?  The NEWPARM would be a halfword length followed 
by the specified value, wouldn't it?  Just like the PARM, but without the 100 
byte restriction.

-- 
Tom Marchant

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Use IFG0EX0B exit

[Field, Alan C.]

I used this exit at a previous company to store the accessing job name
in the F1 DSCB. 

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Raquel Calvo Olmos
Sent: Monday, January 07, 2008 03:09
To: IBM-MAIN@BAMA.UA.EDU
Subject: Use IFG0EX0B exit

Hi there,
we would like to use the IFG0EX0B exit to obtain the name of the job
that it 
created/modified a file. 

Is anybody using this exit with this intention?

Thanks in advance. 

Regards,
Raquel calvo.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: COBOL is simple -- NOT!!

[Clark Morris]

On 7 Jan 2008 05:54:35 -0800, in bit.listserv.ibm-main you wrote:

>On Mon, 2008-01-07 at 07:32 -0600, Chase, John wrote:
>> All we want is the equivalent of
>>  TMMAP-FIELD-ATTRIBUTE,X'80'
>> How is that done in COBOL??  Can it even be done in COBOL??
>
>Look at CEESITST.  (I agree that bit testing is cumbersome in COBOL.)

Since the 2002 COBOL standard now has USAGE BIT and logical
operations, cite the appropriate SHARE Requirement and push IBM to
implement that feature.  I know that I submitted one that covered it
in addition to a generic support the 2002 Standard requirement.  If I
had known about the requirement to access bits in CICS COBOL, I would
have added that in the justification.

Clark Morris

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: IBM-MAIN mailing list is not sending my emails back out.

[Chase, John]

> -Original Message-
> From: IBM Mainframe Discussion List On Behalf Of David Logan
> 
> I am sending questions and responses to the list. If I logon 
> to the web site, I can see the list manager receives my 
> messages (search for sender loga3870 or message # 073417) but 
> it isn't being sent out, and I'm trying to figure out why.
> 
> Any ideas?

By "not being sent out", do you mean you don't receive a copy?  If so,
it's because your subscription is configured with NOREPRO, which is the
default here in IBM-MAIN.  To change it, send an email to
[EMAIL PROTECTED] with SET IBM-MAIN REPRO as the message body.

"Obviously", this message was "sent out" because otherwise I'd not have
seen it.

-jc-

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: COBOL is simple -- NOT!!

[Steve Comstock]

Chase, John wrote:

Hi, All,

This is almost embarrassing to ask, but how in blazes does one code the
equivalent of a TM instruction in COBOL?  Here's what we have:

In the data division:

05  MAP-FIELD-ATTRIBUTE  PIC X.
...
In an IBM-supplied copybook:

02  DFHBMFLG  PIC X.
	  88 DFHERASE VALUES ARE ,  


This doesn't seem right. The syntax should be:

  88 DFHERASE Values are x'80', x'82'.




In the procedure division, we code:

IF MAP-FIELD-ATTRIBUTE = DFHERASE


The proper way to reference a level 88 is by name:

IF DFHEREASE ...

means if DFHBMFLG = x'80' or x'82' ...





and the compiler says:

Condition-name "DFHERASE" was found inside the scope of an
abbreviated condition
	The statement was discarded. 


All we want is the equivalent of

TMMAP-FIELD-ATTRIBUTE,X'80'

How is that done in COBOL??  Can it even be done in COBOL??

TIA,



Can you please show us the stream of instructions? It
might make a little more sense to see more context.


Kind regards,

-Steve Comstock
The Trainer's Friend, Inc.

303-393-8716
http://www.trainersfriend.com

  z/OS Application development made easier
* Our classes include
   + How things work
   + Programming examples with realistic applications
   + Starter / skeleton code
   + Complete working programs
   + Useful utilities and subroutines
   + Tips and techniques

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Conditional Assembly question

[Gerhard Postpischil]

Leland C. Sheppard wrote:

For the code in line 102, I am getting the assembly error on line 117:

00 0D9E 102 A0L  DC   
AL2(4096-(A00100-A0)) FREE SPACE IN A0 
  00DFC 103 A00100L  EQU   
X'1000'-(C0-A00100),,C'N'  FREE SPACE IN A00100
  00DF8 104 C0L  EQU   
X'1000'-(E0-C0) FREE SPACE IN C0  
 ...


117  AIF   (A0L LT 
X'20').SPERR
** ASMA154E OPERAND MUST BE ABSOLUTE, PREDEFINED SYMBOLS; SET TO ZERO 
- OPENC/A0L  
 

The way I read the assembler reference, it looks to me like the above 
should work.  The difference between A00100 and A0 will NOT change 
based on relocatability.  The difference will always be the same.


Looks can be deceiving. The operand in your AIF is a label, 
whereas the requirement is for an absolute term or symbol.


Gerhard Postpischil
Bradford, VT

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: COBOL is simple -- NOT!!

[Howard Brazee]

On 7 Jan 2008 05:33:02 -0800, [EMAIL PROTECTED] (Chase, John) wrote:

>In an IBM-supplied copybook:
>
>   02  DFHBMFLG  PIC X.
> 88 DFHERASE VALUES ARE ,  
>
>In the procedure division, we code:
>
>   IF MAP-FIELD-ATTRIBUTE = DFHERASE

That's not a matter of simple vs complex - that's a matter of knowing
the syntax of a language.   88 levels are labels, not fields.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Joys setting up RESOLVER

[Chris Mason]

John and Patrick

The important point here are as follows:

1. It is a feature of started task procedures that it is possible to provide a 
procedure name that differs from the procedure library member name.

2. z/OS (and many flavours of MVS before it) provides a procedure member 
IEESYSAS which may be used simply to start a program when no DD 
statements are needed.

3. It is possible to specify the value for the EXEC statement PGM parameter 
as a symbolic parameter in a procedure definition (PROG in the case of 
IEESYSAS)[1].

In the case of the resolver program started in its default guise, the procedure 
is IEESYSAS and the started task is given the name RESOLVER by 
adding .RESOLVER to the member name.

These points are MVS business-as-usual even they constitute a bit of a 
relatively obscure "trick".

-

The text in the CS IP 1.9 manual:



Because z/OS UNIX does not receive any error indication when it tries to start 
the address space, it will issue an informational message containing the name 
of the procedure it has started. The message is:

   BPXF224I THE RESOLVER_PROC, procname, IS BEING STARTED.

Rule: If the RESOLVER_PROC statement is not present or is specified with a 
procedure name of DEFAULT, the procname value will be RESOLVER even 
though no start procedure was used. If you want to use a start procedure 
named RESOLVER, you must add a RESOLVER_PROC(RESOLVER) statement to 
your BPXPRMxx parmlib member.



I would prefer the following:



Because z/OS UNIX does not receive any error indication when it submits the 
command internally to start the address space, it will issue an informational 
message containing the name of the procedure it has started. The message is:

   BPXF224I THE RESOLVER_PROC, procname, IS BEING STARTED.

Note: If the RESOLVER_PROC statement is not present in BPXPRMxx or is 
specified with a procedure name of DEFAULT, the procname value will appear 
in this message as RESOLVER. This is because the actual procedure started is 
IEESYSAS with RESOLVER used as the identifier parameter. However If you 
want to use a start procedure with member name RESOLVER, you can ensure 
that a RESOLVER_PROC(RESOLVER) statement is present in your BPXPRMxx 
parmlib member.



The point the original author thought he/she was trying to make here is that, 
just because a procedure named RESOLVER appears to be being used, it does 
not imply that a procedure member actually called RESOLVER cannot be 
present in the procedure library and invoked by means of the BPXPRMxx 
statement.

Interestingly enough, if you happened to want your resolver procedure to use 
the member name DEFAULT, *then* you'd be stumped; you'd also be a bit 
weird - but I would stand by the principle that a systems programmer ought to 
be allowed to be weird if he/she so desires. Perhaps "resolver" translates to a 
word that sounds like "default" in some language or other - you never know!

It's unnecessary to make the general point by referring to a general procedure 
name/member name, John's X, since that is covered in the description of 
the RESOLVER_PROC statement in the MVS Initialization and Tuning Guide.

It's not strictly true that the procedure name IEESYSAS is being started since 
that is the *member* name and the MVS feature is used to provide the 
procedure name - or address space name - RESOLVER.

There's no sort-of hard-coded JCL.

- If RESOLVER_PROC(DEFAULT) is found or assumed by default when 
BPXPRMxx ix processed, the logic issues the command

START IEESYSAS.RESOLVER,PROG=EZBREINI,SUB=MSTR

- If RESOLVER_PROC(x) is found when BPXPRMxx is processed, the logic 
issues the command

START x,SUB=MSTR

This is all hinted at in the next section, 1.2.6.3 Managing the resolver 
address 
space.

Chris Mason

[1] Making sure of my facts, I Googled for IEESYSAS and found out that the 
member IEESYSAS consists of the two statements:

//IEESYSAS PROC PROG=IEFBR14
//IEFPROC EXEC PGM=&PROG

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: IBM-MAIN mailing list is not sending my emails back out.

[David Logan]

There was no problem with my configuration. It was configured correctly.
Something with gmail was causing my emails to never be copied back to me.

I dumped gmail.com and created a second account in my comcast.net area, and
all is fine now.

David Logan

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf
Of Chase, John
Sent: Monday, January 07, 2008 7:47 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: IBM-MAIN mailing list is not sending my emails back out.

> -Original Message-
> From: IBM Mainframe Discussion List On Behalf Of David Logan
> 
> I am sending questions and responses to the list. If I logon 
> to the web site, I can see the list manager receives my 
> messages (search for sender loga3870 or message # 073417) but 
> it isn't being sent out, and I'm trying to figure out why.
> 
> Any ideas?

By "not being sent out", do you mean you don't receive a copy?  If so,
it's because your subscription is configured with NOREPRO, which is the
default here in IBM-MAIN.  To change it, send an email to
[EMAIL PROTECTED] with SET IBM-MAIN REPRO as the message body.

"Obviously", this message was "sent out" because otherwise I'd not have
seen it.

-jc-

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: COBOL is simple -- NOT!!

[Thompson, Steve]

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Chase, John
Sent: Monday, January 07, 2008 7:33 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: COBOL is simple -- NOT!!

Hi, All,

This is almost embarrassing to ask, but how in blazes does one code the
equivalent of a TM instruction in COBOL?  Here's what we have:

In the data division:

05  MAP-FIELD-ATTRIBUTE  PIC X.
...
In an IBM-supplied copybook:

02  DFHBMFLG  PIC X.
  88 DFHERASE VALUES ARE , =20


>From the old CICS 1.1.1 macro level COBOL days:

What you do is, in your editor, you change to HEX and you put the values
you are specifically looking for in your 88 level.

Thusly:
  88 DFHERASE VALUE '.' '.' .

Where '.' the . is a non-displayable value that gets xlated to x'4b'
(period) for display purposes. But when you edit (using ISPF) you will
be told that your source contains hex values (or non-displayable
values).

COBOL will accept those and will build your IF statement using CLI not
TM, so make sure that you specify all the bit patterns that will contain
the bit you are after.

OTHERWISE, you will have to "explode" the byte(s) on your own (I don't
know of any LE or COBOL build in functions to do this) and then do the
test of the byte that contains the bit you are interested in.

Regards,
Steve Thompson

-- All opinions expressed by me are my own and may not necessarily
reflect those of my employer. --

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Purge all members from a PDSE

[Paul Gilmartin]

On Mon, 7 Jan 2008 07:28:29 -0500, Mark Jacobs wrote:
>
>TMISMOFLG2,ISMPDSE IS IT A PDSE?
>BNO   NOTPDSE NO, EXIT RC=8
>STOW  PDSE,,I
>
Note that as of z/OS 1.8 the Initialize function has been retrofitted
to PDS, making the test unnecessary.

-- gil

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: RACF Training ??

[Todd Squires]

Mark,
I get emails from Vanguard software concerning RACF classes.  We have 
some of their products, which seem okay.  Never have taken any of their 
classes.  The classes all seem to be in LasVegas, NV which may be good or 
bad depending.  
Any way -   http://www.go2vanguard.com/training/
Hope this helps.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: JCL parms

[Paul Gilmartin]

On Mon, 7 Jan 2008 08:29:46 -0600, Tom Marchant wrote:
>
>Then I don't see why there would be a different keyword.
>
>What is there to format?  The NEWPARM would be a halfword length followed
>by the specified value, wouldn't it?  Just like the PARM, but without the 100
>byte restriction.
>
Such would be my wish, but several participants in this thread feel
that the innovation would be acceptable only with a new keyword and/or
an incompatible format.

The suggestion of a 64-bit length field is, well, forward-looking.
If that were the decision, a bridge module could be used to perform
the reformatting after testing that the length of the PARM<=65,535.

-- gil

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: C++ recovery from (an otherwise) system abend

[Steve Comstock]

David Logan wrote:

I have now tried CEEHDLR, and this does not appear to work. On to
researching USRHDL.

David Logan


Hmmm. "Does not appear to work" isn't much information.
If you are interested in pursuing the condition handler
train of thought, perhpas you could post more details:

How did you invoke CEEHDLR? What routine did you register?
What does that routine look like? How do you know it didn't
work?

Kind regards,

-Steve Comstock
The Trainer's Friend, Inc.

303-393-8716
http://www.trainersfriend.com

  z/OS Application development made easier
* Our classes include
   + How things work
   + Programming examples with realistic applications
   + Starter / skeleton code
   + Complete working programs
   + Useful utilities and subroutines
   + Tips and techniques

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

DIAG (was It keeps getting uglier)

[(IBM Mainframe Discussion List)]

 
 
In a message dated 12/29/2007 2:13:19 A.M. Central Standard Time,  
[EMAIL PROTECTED] writes:

Documented or not, DIAG is heavily used, both in IBM and non-IBM code.  



One example:  I don't remember the CPU model, but in 1987 I  studied the 
microfiche for the various initialization modules of RMF.  A  Diagnose 
instruction 
was used to read the I/O configuration data stored on  a floppy diskette.
 
Bill  Fairchild
Franklin, TN



**Start the year off right.  Easy ways to stay in shape. 
http://body.aol.com/fitness/winter-exercise?NCID=aolcmp0030002489

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: JCL procedure parameters

[Bass, Walter W]

> >SDSF can be run as a separate step or can be called from 
> your program.

I started a similar thread a couple of months ago and came to the
conclusion that I would indeed have to "roll my own".  So I did.

I have now completed a program I call SYMBSUB.  It is written in COBOL.
It creates a TSO environment, then invokes SDSF from TSO to print the
JESJCL to a dataset from the spool.  It then reads that dataset and
parses the jcl to get the symbolic variable values to use for
substitution.

The program reads in files of 80 byte cards and writes then back out
performing substitution using jcl syntax substitution rules.

It is written in COBOL, so just about anyone should be able to compile
it and run it.  I will donate the source code to the CBT.

I have never contributed any code before, so if can anyone provide some
pointers on how I go about doing so I would greatly appreciate it.  If
anyone on this list like to try out the code before I place it on the
CBT, please pipe up!

Thanks,
Bill Bass


This e-mail, including attachments, may include confidential and/or 
proprietary information, and may be used only by the person or entity to 
which it is addressed. If the reader of this e-mail is not the intended 
recipient or his or her authorized agent, the reader is hereby notified 
that any dissemination, distribution or copying of this e-mail is 
prohibited. If you have received this e-mail in error, please notify the 
sender by replying to this message and delete this e-mail immediately.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: C++ recovery from (an otherwise) system abend

[David Logan]

All good questions. How it did not work was that none of my printf
statements were generated, and the S0D6 occurred anyway.

I know the CEEHDLR is registering my routine because I was getting a message
256, meaning it was already registered, and was being re-registered.

I'm thinking an ESTAE might work. I would have to restrict it to returning
to a spot within the assembler code doing the PC instruction, but that's all
I really need.

The code is:

void handler(_FEEDBACK *fc, _INT4 *token,
 _INT4 *result, _FEEDBACK *newfc)
{
  printf("tok_sev  =%d\n", fc->tok_sev); 
  printf("tok_msgno=%d\n", fc->tok_msgno);   
  printf("tok_case =%d\n", fc->tok_case);
  printf("tok_sever=%d\n", fc->tok_sever);   
  printf("tok_ctrl =%d\n", fc->tok_ctrl);
//printf("tok_facid=%3.3s", fc->facid);  
//printf("tok_isi  =%d\n", fc->isi); 
  *result = 10;  
}

<...unrelated code...>

int server_read(int handle, int block_number, void*dest_buffer)  
{
 
   _FEEDBACK fc; 
   _ENTRYroutine;
   _INT4 token;  
 
   token = 99;   
 
   routine.address = (_POINTER)&handler; 
   routine.nesting = NULL;   
   CEEHDLR(&routine, &token, &fc);   
   if( _FBCHECK(fc, CEE000 ) != 0 && 
   _FBCHECK(fc, CEE080 ) != 0)   
   { 
 printf("CEEHDLR failed with message number %d\n", fc.tok_msgno);
 exit(2999); 
   };
 
   char workareaÝ256¨;  
   long ecb = 0;   
   int ascb = *(int*)0x224;
   int rc = 0; 
   DEBUG2("2/Our ECB=%p ASCB=%p\n", &ecb, (void*)ascb);
   do  
   {   
   rc=CallPC(data.lx_value,
 1, handle, block_number, dest_buffer, 
 data.data, workarea, &ecb, ascb); 
   }   
   while(rc != 1126);  
   return rc;  
}  

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf
Of Steve Comstock
Sent: Monday, January 07, 2008 8:51 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: C++ recovery from (an otherwise) system abend

David Logan wrote:
> I have now tried CEEHDLR, and this does not appear to work. On to
> researching USRHDL.
> 
> David Logan

Hmmm. "Does not appear to work" isn't much information.
If you are interested in pursuing the condition handler
train of thought, perhpas you could post more details:

How did you invoke CEEHDLR? What routine did you register?
What does that routine look like? How do you know it didn't
work?

Kind regards,

-Steve Comstock
The Trainer's Friend, Inc.

303-393-8716
http://www.trainersfriend.com

   z/OS Application development made easier
 * Our classes include
+ How things work
+ Programming examples with realistic applications
+ Starter / skeleton code
+ Complete working programs
+ Useful utilities and subroutines
+ Tips and techniques

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: SMP/E and why not.

[Paul Gilmartin]

On Mon, 7 Jan 2008 08:04:11 -0600, Tom Marchant wrote:
>>
>>Of course, some PTFs can't ever be RESTORED. ...
>
>What do you mean by that?  I can't think of an example or a reason.
>
2.4 "SMP/E V3R4.0 Reference"

2.4 ++DELETE MCS

   Note: This change is not reversible. You cannot restore the
   SYSMOD containing the ++DELETE MCS; therefore, you cannot
   recreate the deleted load module.

The example.  The reason?  I suspect complexity of implementation
or cost of operation.

-- gil

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: SMP/E and why not.

[Mark Zelden]

On Mon, 7 Jan 2008 08:04:11 -0600, Tom Marchant <[EMAIL PROTECTED]>
wrote:

>>
>>Of course, some PTFs can't ever be RESTORED. ...
>

++DELETE

--
Mark Zelden
Sr. Software and Systems Architect - z/OS Team Lead
Zurich North America / Farmers Insurance Group - ZFUS G-ITO
mailto:[EMAIL PROTECTED]
z/OS Systems Programming expert at http://expertanswercenter.techtarget.com/
Mark's MVS Utilities: http://home.flash.net/~mzelden/mvsutil.html

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: SMP/E and why not.

[Mark Zelden]

I snipped too much last time...

On Mon, 7 Jan 2008 08:04:11 -0600, Tom Marchant <[EMAIL PROTECTED]>
wrote:

>>
>>Of course, some PTFs can't ever be RESTORED. ...
>
>What do you mean by that?  I can't think of an example or a reason.
>

++DELETE

--
Mark Zelden
Sr. Software and Systems Architect - z/OS Team Lead
Zurich North America / Farmers Insurance Group - ZFUS G-ITO
mailto:[EMAIL PROTECTED]
z/OS Systems Programming expert at http://expertanswercenter.techtarget.com/
Mark's MVS Utilities: http://home.flash.net/~mzelden/mvsutil.html

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: COBOL is simple -- NOT!!

[Don Leahy]

On Jan 7, 2008 8:32 AM, Chase, John <[EMAIL PROTECTED]> wrote:

>
>
> In the procedure division, we code:
>
>IF MAP-FIELD-ATTRIBUTE = DFHERASE
>

Change to:

IF DFHERASE

An 88 level in Cobol is a logical value that can be either TRUE or not
TRUE.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: C++ recovery from (an otherwise) system abend

[Steve Comstock]

David Logan wrote:

All good questions. How it did not work was that none of my printf
statements were generated, and the S0D6 occurred anyway.

I know the CEEHDLR is registering my routine because I was getting a message
256, meaning it was already registered, and was being re-registered.

I'm thinking an ESTAE might work. I would have to restrict it to returning
to a spot within the assembler code doing the PC instruction, but that's all
I really need.

The code is:

void handler(_FEEDBACK *fc, _INT4 *token,
 _INT4 *result, _FEEDBACK *newfc)
{
  printf("tok_sev  =%d\n", fc->tok_sev); 
  printf("tok_msgno=%d\n", fc->tok_msgno);   
  printf("tok_case =%d\n", fc->tok_case);
  printf("tok_sever=%d\n", fc->tok_sever);   
  printf("tok_ctrl =%d\n", fc->tok_ctrl);
//printf("tok_facid=%3.3s", fc->facid);  
//printf("tok_isi  =%d\n", fc->isi); 
  *result = 10;  
}


<...unrelated code...>

int server_read(int handle, int block_number, void*dest_buffer)  
{
 
   _FEEDBACK fc; 
   _ENTRYroutine;
   _INT4 token;  
 
   token = 99;   
 
   routine.address = (_POINTER)&handler; 
   routine.nesting = NULL;   
   CEEHDLR(&routine, &token, &fc);   
   if( _FBCHECK(fc, CEE000 ) != 0 && 
   _FBCHECK(fc, CEE080 ) != 0)   
   { 
 printf("CEEHDLR failed with message number %d\n", fc.tok_msgno);
 exit(2999); 
   };
 
   char workareaÝ256¨;  
   long ecb = 0;   
   int ascb = *(int*)0x224;
   int rc = 0; 
   DEBUG2("2/Our ECB=%p ASCB=%p\n", &ecb, (void*)ascb);
   do  
   {   
   rc=CallPC(data.lx_value,
 1, handle, block_number, dest_buffer, 
 data.data, workarea, &ecb, ascb); 
   }   
   while(rc != 1126);  
   return rc;  
}  


Well, I have to admit it all looks proper. One question:
was "handler" in the same source module as your main? I've
never seen a condition handler in the same source; I've
always seen it separately compiled and bound.


Kind regards,

-Steve Comstock
The Trainer's Friend, Inc.

303-393-8716
http://www.trainersfriend.com

  z/OS Application development made easier
* Our classes include
   + How things work
   + Programming examples with realistic applications
   + Starter / skeleton code
   + Complete working programs
   + Useful utilities and subroutines
   + Tips and techniques

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: COBOL is simple -- NOT!!

[Chase, John]

> -Original Message-
> From: IBM Mainframe Discussion List On Behalf Of Ganesh Rao
> 
> MOVE MAP-FIELD-ATTRIBUTE TO  DFHBMFLG
> IF DFHERASE
> 
> I think the above code should help you. Note: That is not the 
> same as TM

Yes, it looks like this is the "simplest" means in COBOL (Enterprise
COBOL 3.4).

For those who asked about the underlying problem:

We're experimenting with the new Service Flow feature of CICS TS 3.2,
and one of our programs in the "flow" tests for field erasure with IF
MAP-FIELD-ATTRIBUTE NOT = LOW-VALUES THEN ... .  This test has worked
for "years" over several releases of CICS, because if the field was not
erased (by pressing the Erase EOF key) the attribute (or more correctly,
"flag") byte always contained x'00' after AN EXEC CICS RECEIVE MAP
command.  In the Service Flow context, that same attribute byte contains
x'02' after the RECEIVE MAP, which indicates that the cursor is in that
field, and causes the program to take the "field erased" code path
(x'02' is not equal to LOW-VALUES).

I have a PMR open with CICS support over this inconsistency, and based
on the dialog to date in that PMR it appears that the Service Flow
processing is ignoring the CURSLOC=NO default that we take in all our
BMS mapset definitions.  That's why we never see the x'02' flag bit in
"native" 3270/BMS processing, but it suddenly started showing up in the
Service Flow, causing the program to misbehave.

-jc-

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: (fwd) Re: Java is becoming the new Cobol

[Don Leahy]

On Jan 3, 2008 9:08 PM, Clark F Morris <[EMAIL PROTECTED]> wrote:

> Pete Dashwood who is the author of most of this posting, has coded for
> the mainframe and CICS.  Unfortunately, based on the actual actions of
> the COBOL standards committee, the lack of 64 bit support or support
> for even parts of the 2002 COBOL standard that were in specific SHARE
> requirements, and other things that I and others have kvetched about
> regarding mainframes and COBOL over the years, I tend to agree with
> Pete though not necessarily for his reasons.
>
> Clark Morris
> On Thu, 3 Jan 2008 11:17:49 +1300, in comp.lang.cobol "Pete Dashwood"
> <[EMAIL PROTECTED]> wrote:
>
> >
> >
> >"tlmfru" <[EMAIL PROTECTED]> wrote in message
> >news:[EMAIL PROTECTED]
> >>  Or will COBOL become the new mainframe?  I seem to recall that
> mainframes
> >> were pronounced dead a couple of decades ago.
> >>
> >> PL
> >
> >Mainframes ARE dead in terms of doing anything interesting with them :-)
> >
> >The best chance of survival they have is by attachment to the Network and
> >welcoming the Web. To the extent that they do this and become powerful
> >servers in a Network environment, they will have a future. The days when
> >they sat at the centre of things and controlled everything are long gone.
> To
> >that extent, the role they served decades ago is gone, so they ARE dead
> as
> >far as that goes.
> >
> >Don't hold your breath for a resurgence of COBOL, in the role which it
> >served decades ago, either.
> >
> >Fortress COBOL is in ruins. It has been sacked and looted. Whatever was
> of
> >value has been incorporated into the Brave New World and the barbarians
> on
> >their wiry little ponies have swept on...
> >
> >Pete.
> >--
> >"I used to write COBOL...now I can do anything."
> >
>
> Mainframes have been used to serve web-based applications for years now.

"Fortress Cobol" (wherein all applications are master file based)  is a
myth, and has been for a long time.

Having said that, I agree that the lack of 64 bit support is beginning to
become a hindrance.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: JCL parms

[Thomas David Rivers]

GAVIN Darren * OPS EAS wrote:

John,

Or better yet an enhancement by IBM to the JES Sub System itself so that
it pushes the JCL Variables into Environment Variables as soon as the
Job first fires up.

Also I think LE adds a routine for Environment Variables as well called
CEEENV at Z/OS levels 1.7 and later.

Darren



I think we would prefer a non-LE solution to the
environment-variable problem...

- Dave Rivers -

--
[EMAIL PROTECTED]Work: (919) 676-0847
Get your mainframe programming tools at http://www.dignus.com

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: 2007 Year in Review on Mainframes - Interesting

[Shmuel Metz (Seymour J.)]

In <[EMAIL PROTECTED]>, on 01/04/2008
   at 11:29 AM, Ed Gould <[EMAIL PROTECTED]> said:

>I was talking about this issue on another list and they suggested   that
>the probable culprit was the listserv.

The listserv sent you my message with the URL exactly as I wrote it.
That's why I suggested that the problem was either limited to digest or
was in the web interface.

>They also suggested that some of the people on here ought to re-read  
>the RFC's as the text=flowed (sic) (as one person put it) does not 
>mean what the person says it does.

AFAIK Paul didn't allude to the RFC at all, nor did he state anything
about what format=flowed[1] meant, other than the claim that it was an
oxymoron. I cited the RFC, but made no claim about what format=flowed[1]
meant. I take it that the comment referred to messages on the other list?

>I am going to continue putting the <> around the URL's

As will I, unless and until the RFC's change.

[1] I didn't see "text=flowed" in the thread.
 
-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 ISO position; see  
We don't care. We don't have to care, we're Congress.
(S877: The Shut up and Eat Your spam act of 2003)

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: SMP/E and why not.

[Tom Marchant]

On Mon, 7 Jan 2008 10:18:06 -0600, Mark Zelden wrote:

>On Mon, 7 Jan 2008 08:04:11 -0600, Tom Marchant 
>wrote:
>
>>>
>>>Of course, some PTFs can't ever be RESTORED. ...
>>
>>What do you mean by that?  I can't think of an example or a reason.
>>
>
>++DELETE

duh.  Of course.  Thanks.

-- 
Tom Marchant

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: IBM Hardware Group in Big Restructuring

[Skip Robinson]

Back in the day when graduated software charges were young and a certain
whale of a software vendor was swallowing up every little Jonah encountered
in a dark grotto, I excoriated a hapless sales rep for confiscatory pricing
policies. My shrillest point was that he was charging me more to run the
same software as a smaller customer down the street who might be in the
very same business. I was a deep pocket being forced to subsidize a smaller
competitor already snapping at my heals. It was a mutation of the old
two-cow metaphor: if you have two cows, a big one and a small one, you chop
off pieces of the big one to feed the little one until you have only one
cow left. Sociocapitalism? Mad-cow-ism?

That was then. Today I'm happy to help feed the little buggers around me
because I recognize that cows are herd creatures. One loner roaming the
wide open range does not thrive regardless of its size or prowess. My udder
is full. Little ones may step up and take a slug or two.

P.S. This offer is valid only for supplicants who have to reach UP to
imbibe. Bogus posers may expect a swift hoof in kisser for their trouble.

.
.
JO.Skip Robinson
Southern California Edison Company
Electric Dragon Team Paddler
SHARE MVS Program Co-Manager
626-302-7535 Office
323-715-0595 Mobile
[EMAIL PROTECTED]


   
 "Van Dalsen,  
 Herbie"   
   IBM-MAIN@BAMA.UA.EDU
 Sent by: IBM   cc 
 Mainframe 
 Discussion List   Subject 
 <[EMAIL PROTECTED] Re: IBM Hardware Group in Big   
 .EDU> Restructuring   
   
   
 01/07/2008 03:12  
 AM
   
   
 Please respond to 
   IBM Mainframe   
  Discussion List  
 <[EMAIL PROTECTED] 
   .EDU>   
   
   




>>Gee, might that mean that they will be extending z/OS down to the
lower end?

I am not so sure about that... The baby z800 could go al low as 40 MIPS,
wasn't that the minimum that they could afford to sell with a Z/Server?
Lower than that just wouldn't pay in terms of future revenue from HW
maintenance / SW Licensing, which in the end all adds up to keep paying
for the R&D + Manufacturing cost.

Herbie
-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Warner Mach
Sent: 05 Januarie 2008 01:23 nm
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: IBM Hardware Group in Big Restructuring

On Jan 4 Sam Knutson remarked:

>Surprised no one had commented on this

Relative to IBM's reorganization, as reported in:

>

I saw the article. Was especially interested in the remark that:

- IBM gets most of its business from big corporations and governments,
- but it has been trying to improve sales of services, software and
servers
- to smaller companies because their technology purchases are growing
- at a faster rate.

Gee, might that mean that they will be extending z/OS down to the lower
end?
But my interest rapidly dissippated as I reflected that: (1) There is
really
no way to know what the reorganization will mean by the time it actually
hits the ground. Whatever the end result will be it is sure to be other
than
you might expect. (2) The announcement is vague enough to be essentially

useless for a client to use in planning.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: IBM Hardware Group in Big Restructuring

[Steve Comstock]

Skip Robinson wrote:

Back in the day when graduated software charges were young and a certain
whale of a software vendor was swallowing up every little Jonah encountered
in a dark grotto, I excoriated a hapless sales rep for confiscatory pricing
policies. My shrillest point was that he was charging me more to run the
same software as a smaller customer down the street who might be in the
very same business. I was a deep pocket being forced to subsidize a smaller
competitor already snapping at my heals. It was a mutation of the old
two-cow metaphor: if you have two cows, a big one and a small one, you chop
off pieces of the big one to feed the little one until you have only one
cow left. Sociocapitalism? Mad-cow-ism?

That was then. Today I'm happy to help feed the little buggers around me
because I recognize that cows are herd creatures. One loner roaming the
wide open range does not thrive regardless of its size or prowess. My udder
is full. Little ones may step up and take a slug or two.

P.S. This offer is valid only for supplicants who have to reach UP to
imbibe. Bogus posers may expect a swift hoof in kisser for their trouble.


Well I'll get in line. But we offer training not software.

Kind regards,

-Steve Comstock
The Trainer's Friend, Inc.

303-393-8716
http://www.trainersfriend.com

  z/OS Application development made easier
* Our classes include
   + How things work
   + Programming examples with realistic applications
   + Starter / skeleton code
   + Complete working programs
   + Useful utilities and subroutines
   + Tips and techniques

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: C++ recovery from (an otherwise) system abend

[David Logan]

Void handler is defined in the same source as the rest of the code at this
point. However, I cannot imagine how putting it in its own source would
change anything, unless somebody else knows of a reason.

David Logan

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf
Of Steve Comstock
Sent: Monday, January 07, 2008 9:28 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: C++ recovery from (an otherwise) system abend

David Logan wrote:
> All good questions. How it did not work was that none of my printf
> statements were generated, and the S0D6 occurred anyway.
> 
> I know the CEEHDLR is registering my routine because I was getting a
message
> 256, meaning it was already registered, and was being re-registered.
> 
> I'm thinking an ESTAE might work. I would have to restrict it to returning
> to a spot within the assembler code doing the PC instruction, but that's
all
> I really need.
> 
> The code is:
> 
> void handler(_FEEDBACK *fc, _INT4 *token,
>  _INT4 *result, _FEEDBACK *newfc)
> {
>   printf("tok_sev  =%d\n", fc->tok_sev); 
>   printf("tok_msgno=%d\n", fc->tok_msgno);   
>   printf("tok_case =%d\n", fc->tok_case);
>   printf("tok_sever=%d\n", fc->tok_sever);   
>   printf("tok_ctrl =%d\n", fc->tok_ctrl);
> //printf("tok_facid=%3.3s", fc->facid);  
> //printf("tok_isi  =%d\n", fc->isi); 
>   *result = 10;  
> }
> 
> <...unrelated code...>
> 
> int server_read(int handle, int block_number, void*dest_buffer)  
> {
>  
>_FEEDBACK fc; 
>_ENTRYroutine;
>_INT4 token;  
>  
>token = 99;   
>  
>routine.address = (_POINTER)&handler; 
>routine.nesting = NULL;   
>CEEHDLR(&routine, &token, &fc);   
>if( _FBCHECK(fc, CEE000 ) != 0 && 
>_FBCHECK(fc, CEE080 ) != 0)   
>{ 
>  printf("CEEHDLR failed with message number %d\n", fc.tok_msgno);
>  exit(2999); 
>};
>  
>char workareaÝ256¨;  
>long ecb = 0;   
>int ascb = *(int*)0x224;
>int rc = 0; 
>DEBUG2("2/Our ECB=%p ASCB=%p\n", &ecb, (void*)ascb);
>do  
>{   
>rc=CallPC(data.lx_value,
>  1, handle, block_number, dest_buffer, 
>  data.data, workarea, &ecb, ascb); 
>}   
>while(rc != 1126);  
>return rc;  
> }  

Well, I have to admit it all looks proper. One question:
was "handler" in the same source module as your main? I've
never seen a condition handler in the same source; I've
always seen it separately compiled and bound.


Kind regards,

-Steve Comstock
The Trainer's Friend, Inc.

303-393-8716
http://www.trainersfriend.com

   z/OS Application development made easier
 * Our classes include
+ How things work
+ Programming examples with realistic applications
+ Starter / skeleton code
+ Complete working programs
+ Useful utilities and subroutines
+ Tips and techniques

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

COBOL is simple -- NOT!!

[Bill Klein]

It seems that you have gotten a variety of semi-correct answers.  If I
understand it correctly, you are trying to test the value of
MAP-FIELD=ATTRIBUTE to see if is either X'80' or X'82' - and that you have
these values from the definition in DFHERASE - which is elsewhere in your
application.  If this is the correct definition of the problem then there
are two solutions:

1) (Possibly easiest), in your procedure division code,
If MAP-FIELD-ATTRIBUTE = x'80' or x'82' ...
or
2) "more elegant) add a source line under:
  05  MAP-FIELD-ATTRIBUTE  PIC X.
that says,
   88 Map-Field-Attribute-Erase Value X'80' x'82'.


then in your procedure division code
 If map-field-attribute-erase then 

There is no way to compare a data item's content to the values of an
unrelated 88-level (as others have pointed out).

Hopefully, this helps.

P.S.  If the real issue is testing for the high order bit turned on, then I
think you need to change:
   88  map-field-attribute-erase Value X'80' thru X'8f' X'f0' thru x'ff'.

It is VERY true that current COBOL is really "nasty" for handling bit
twiddling, but as someone suggested, you can use the CEE callable service
for this. If it is only the high-order bit, then the "thru" should work OK.
  


"Chase, John" <[EMAIL PROTECTED]> wrote in message
news:<[EMAIL PROTECTED]>..
.
> Hi, All,
> 
> This is almost embarrassing to ask, but how in blazes does one code the
> equivalent of a TM instruction in COBOL?  Here's what we have:
> 
> In the data division:
> 
>   05  MAP-FIELD-ATTRIBUTE  PIC X.
>   ...
> In an IBM-supplied copybook:
> 
>   02  DFHBMFLG  PIC X.
> 88 DFHERASE VALUES ARE ,  
> 
> In the procedure division, we code:
> 
>   IF MAP-FIELD-ATTRIBUTE = DFHERASE
> 
> and the compiler says:
> 
>   Condition-name "DFHERASE" was found inside the scope of an
> abbreviated condition
>   The statement was discarded. 
> 
> All we want is the equivalent of
> 
>   TMMAP-FIELD-ATTRIBUTE,X'80'
> 
> How is that done in COBOL??  Can it even be done in COBOL??
> 
> TIA,
> 
> -jc-

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: PARMLIB(s) (Was: how to list LE options)

[Shmuel Metz (Seymour J.)]

In <[EMAIL PROTECTED]>, on 06/27/2007
   at 02:19 PM, Paul Gilmartin <[EMAIL PROTECTED]> said:

>But, as discussed here recently, prohibiting read access doesn't prevent
>the allocation, and it might be more likely that a program that ABENDs on
>OPEN will exit abnormally without doing the FREE.

Depending on how he is looking at the data set, the free might be
automatic.
 
-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 ISO position; see  
We don't care. We don't have to care, we're Congress.
(S877: The Shut up and Eat Your spam act of 2003)

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: PARMLIB(s) (Was: how to list LE options)

[Paul Gilmartin]

On Mon, 7 Jan 2008 12:46:34 -0500, Shmuel Metz (Seymour J.) wrote:

>In <[EMAIL PROTECTED]>, on 06/27/2007
>
Time warp?

>   at 02:19 PM, Paul Gilmartin said:
>
>>But, as discussed here recently, prohibiting read access doesn't prevent
>>the allocation, and it might be more likely that a program that ABENDs on
>>OPEN will exit abnormally without doing the FREE.
>
>Depending on how he is looking at the data set, the free might be
>automatic.
>
Take my remark as largely rhetorical.  IIRC, I was rebutting a prior
post expressing a phobic delusion that if PARMLIB had UACC=READ, an
incompetently or maliciously crafted job might ABEND leaving an
unreleased restrictive ENQ on PARMLIB.  I never considered it a
realistic concern.  ("more likely" means some larger multiple of 0.)

Of course, there's always:

//STEP1   EXEC  PGM=BPXBATCH,PARM='PGM /bin/sleep '
//STEP2   EXEC  PGM=IEFBR14,COND=(0,LE)
//SYSUT99  DD   DISP=OLD,DSN=SYS1.PARMLIB

... but RACF won't help you there.

-- gil

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: JCL parms

[Ted MacNEIL]

>I think we would prefer a non-LE solution to the
environment-variable problem...

Why? LE is not going away.
And, most (if not all) compatibility issues have been resolved in the last few 
years.

-
Too busy driving to stop for gas!

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Problem while recalling few datasets

[Jacky Bright]

Hi,

I am getting following error while recalling few datasets. But few datasets
recalls are successful.


IOS000I 882A,E3,EQC,07,0E00,,**,,DFHSM  657

 1048203500206011(B31102005015)(57FF)CE3F1D9B13140A00

IEC512I I/O ERR 882A,AT3728,,DFHSM,DFHSM,DFHSM.HMIGTAPE.DATASET

IEC502E R 882A,,DFHSM,DFHSM


ARC1001I ACIS.C008MRGE.CUCPR004.CASH.G0716V00  RECALL FAILED, RC=0035,
ARC1001I (CONT.) REAS=
ARC1135I ERROR OPENING INPUT DATA SET DURING RECALL/RECOVERY
***

Any idea on this. This is urgent as few production datasets are not getting
recalled.



JAcky

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Problem while recalling few datasets

[Mark Jacobs]

Jacky Bright wrote:
> Hi,
>
> I am getting following error while recalling few datasets. But few datasets
> recalls are successful.
>
>
> IOS000I 882A,E3,EQC,07,0E00,,**,,DFHSM  657
>
>  1048203500206011(B31102005015)(57FF)CE3F1D9B13140A00
>
> IEC512I I/O ERR 882A,AT3728,,DFHSM,DFHSM,DFHSM.HMIGTAPE.DATASET
>
> IEC502E R 882A,,DFHSM,DFHSM
>
>
> ARC1001I ACIS.C008MRGE.CUCPR004.CASH.G0716V00  RECALL FAILED, RC=0035,
> ARC1001I (CONT.) REAS=
> ARC1135I ERROR OPENING INPUT DATA SET DURING RECALL/RECOVERY
> ***
>
> Any idea on this. This is urgent as few production datasets are not getting
> recalled.
>
>
>
> JAcky
>   
Bad drive or bad tape?

-- 
Mark Jacobs
Time Customer Service
Tampa, FL


Riley: Find the next number in the sequence: 313, 331, 367, ...? what?

The Doctor: 379. It's a sequence of happy primes, 379.

Martha: Happy what?

The Doctor: Just enter it!

Riley: Are you sure? We only get one chance.

The Doctor: Any number that reduces to one when you take the sum of 
the square of its digits and continue iterating until it yields 1 is 
a happy number, any number that doesn't, isn't. A happy prime is 
both happy and prime. 

Doctor Who episode "42"

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

IOS050I CHANNEL DETECTED ERROR ON AA1A,52,9D,**02,PCHID=0142

[Leon Schwering]

We have just connected some DASD at our remote site and when we are writing
data we get an" IOS050I CHANNEL DETECTED ERROR ON
AA1A,52,9D,**02,PCHID=0142" message.  

Here is the LOGREC info:

SSYS ID  REASON   PSW-MCH /PROG-EC 
RCYRYXI T   COMP/MOD  CSECTID  ERROR-ID

   TIME JOBNAME  RECTYP CP CUA  DEVT CMD CSW  SENSE04  06   08 
10   12  14   16  18   20  22   VOLUMESEEKSD CT

 *  DNO  CRW  CHP SCSW
ESW STOR ADDR

 
DATE  007 08

09 10 04 88   N/AMDR00 0102 3590  51

09 10 04 92   N/AMDR00 0102 3590  51

11 20 25 80 ICEGENE2 SLH00 AA1A 3390  52 84C240174AB48172
00806680 

Any idea's on how I can eliminate the IOS051I messages?

Thanks 

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Problem while recalling few datasets

[Ed Finnell]

 
In a message dated 1/7/2008 12:55:53 P.M. Central Standard Time,  
[EMAIL PROTECTED] writes:

Bad drive or bad tape?


>>
Or could be channel adapter card. I'd run EREP  if you haven't and call the 
CE. --->DS QT,882A,1,validate?   





**Start the year off right.  Easy ways to stay in shape. 
http://body.aol.com/fitness/winter-exercise?NCID=aolcmp0030002489

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Problem while recalling few datasets

[Ted MacNEIL]

>Any idea on this. This is urgent as few production datasets are not getting 
>recalled.


Bad drive/tape.
Either try on a different drive, or suck it up -- time to go into application 
recovery/re-run.

Over 40 years of mainframe tape (alone) and the media is still so fragile 
(sucks).

-
Too busy driving to stop for gas!

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Updating Source in SMPE

[Lizette Koehler]

I think I am missing something in my usermod.  I have source that needs to be 
in a usermod.  I have tried ++SRC and it keeps trying to assemble the source.  
The source is an Earl Program.  So there is no assembly.

All I want to do is replace the current earl source with my modified one.  This 
is so I can keep track when this changes.

++USERMOD(EJCUMOD) .   
++VER(Z038) FMID(CL052B0)  
  .
++JCLIN./* JCLIN TO GET SRC COPIED. */ 
//JOB1 JOB 'ACCOUNTING INFO',MSGLEVEL=(1,1)
//STEP1EXEC PGM=IEBCOPY
//SOURCE   DD DISP=SHR,DSN=SYSM.CA1.V115SP2.USERMODS.SOURCE
//CAISRC   DD DISP=SHR,DSN=SYSM.CA1.V115SP2.CAISRC 
//SYSINDD *
 COPY INDD=SOURCE,OUTDD=CAISRC 
 SELECT M=(TMEEJECT)   
++SRC(TMEEJECT) TXLIB(EARLSRC) DISTLIB(CAISRC) .   

The copy part works, but the APPLY tries to assemble it (which of course 
failes).  I have been reading the SMPE Reference and user's guide.  But I still 
am not connecting the dots.  

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Updating Source in SMPE

[Staller, Allan]

TMEEJECT is defined in my SMPCDS as a MAC entry.

Change the UMOD from ++SRC(TMEEJECT) TXLIB(EARLSRC) DISTLIB(CAISRC)  
To   ++MAC(TMEEJECT) TXLIB(EARLSRC) DISTLIB(CAISRC) 

HTH,



I think I am missing something in my usermod.  I have source that needs
to be in a usermod.  I have tried ++SRC and it keeps trying to assemble
the source.  The source is an Earl Program.  So there is no assembly.

All I want to do is replace the current earl source with my modified
one.  This is so I can keep track when this changes.

++USERMOD(EJCUMOD) .   
++VER(Z038) FMID(CL052B0)  
  .
++JCLIN./* JCLIN TO GET SRC COPIED. */ 
//JOB1 JOB 'ACCOUNTING INFO',MSGLEVEL=(1,1)
//STEP1EXEC PGM=IEBCOPY
//SOURCE   DD DISP=SHR,DSN=SYSM.CA1.V115SP2.USERMODS.SOURCE
//CAISRC   DD DISP=SHR,DSN=SYSM.CA1.V115SP2.CAISRC 
//SYSINDD *
 COPY INDD=SOURCE,OUTDD=CAISRC 
 SELECT M=(TMEEJECT)   
++SRC(TMEEJECT) TXLIB(EARLSRC) DISTLIB(CAISRC) .   

The copy part works, but the APPLY tries to assemble it (which of course
failes).  I have been reading the SMPE Reference and user's guide.  But
I still am not connecting the dots.

  

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Updating Source in SMPE

[Binyamin Dissen]

On Mon, 7 Jan 2008 14:22:08 -0500 Lizette Koehler <[EMAIL PROTECTED]>
wrote:

:>I think I am missing something in my usermod.  I have source that needs to be 
in a usermod.  I have tried ++SRC and it keeps trying to assemble the source.  
The source is an Earl Program.  So there is no assembly.

:>All I want to do is replace the current earl source with my modified one.  
This is so I can keep track when this changes.

:>++USERMOD(EJCUMOD) .   
:>++VER(Z038) FMID(CL052B0)  
  .
:>++JCLIN./* JCLIN TO GET SRC COPIED. */ 
:>//JOB1 JOB 'ACCOUNTING INFO',MSGLEVEL=(1,1)
:>//STEP1EXEC PGM=IEBCOPY
:>//SOURCE   DD DISP=SHR,DSN=SYSM.CA1.V115SP2.USERMODS.SOURCE
:>//CAISRC   DD DISP=SHR,DSN=SYSM.CA1.V115SP2.CAISRC 
:>//SYSINDD *
:> COPY INDD=SOURCE,OUTDD=CAISRC 
:> SELECT M=(TMEEJECT)   
:>++SRC(TMEEJECT) TXLIB(EARLSRC) DISTLIB(CAISRC) .   
:>
:>The copy part works, but the APPLY tries to assemble it (which of course 
failes).  I have been reading the SMPE Reference and user's guide.  But I still 
am not connecting the dots.  

++SRC means assembler.

The old way would be to use ++MAC (which meant non-assembler text). Nowadays I
believe that you can define your own type.

But as you are replacing something, do a query to determine the type of
TMEEJECT and use that type. I would hope that the CAI manuals have an example
usermod.

--
Binyamin Dissen <[EMAIL PROTECTED]>
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.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Use IFG0EX0B exit

[Miklos Szigetvari]

Hi

We used it todetect PDS upadtes and write an SMF record if an update 
occured.



- Original Message - 
From: "Raquel Calvo Olmos" <[EMAIL PROTECTED]>

Newsgroups: bit.listserv.ibm-main
To: 
Sent: Monday, January 07, 2008 10:08 AM
Subject: Use IFG0EX0B exit



Hi there,
we would like to use the IFG0EX0B exit to obtain the name of the job that 
it

created/modified a file.

Is anybody using this exit with this intention?

Thanks in advance.

Regards,
Raquel calvo.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html



--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: IOS050I CHANNEL DETECTED ERROR ON AA1A,52,9D,**02,PCHID=0142

[Lizette Koehler]

Have you checked the hardware connections to make sure the end to end process 
is working?
Do you have a physical cable issue?
Do you have a physical channel connection issue?
How is it connected?  Ficon, escon, Cicso routers?  Any hardware from point a 
to point b needs to be looked at.

I will usually run LOGREC with the following control cards.  Verbose but I can 
get an idea of what kind of flags are set.

ZERO=N  
PRINT=AL
TYPE=CDEHIMOS   
DATE=(07288,07288)  
TIME=(0400,0500)
ACC=N   
ENDPARM 



The IOS050I is stating you have a hardware error.  The only way to fix it is to 
correct the issue.

I would look at the logrec and see what flags are set ...  Do you have any of 
the following details in your logrec?
 
RECOVERY ACTIONS PERFORMED BYTE:  AC   
   HALT OR CLEAR SUBCHANNEL  1 
   SIMULATED INTERRUPT   0 
   REDRIVE DEVICE1 
   REQUEUE I/O REQUEST   0 
   ISSUE MESSAGE 1 
   LOG THE CONDITION 1 
   BIT 6 0 
   BIT 7 0 
ATTENTION0  PGM-CTLD IRPT0  CCW FORMAT   0  RESERVED 0  
SUBCHANNEL ACTIV 0
STATUS MODIFIER  0  INCORRECT LENGTH 0  PRE-FETCH CCW1  SSCH FUNCTION1  
DEVICE ACTIVE0
CONTROL UNIT END 0  PROGRAM CHECK0  INIT STATUS  0  HSCH FUNCTION0  
SUSPENDED0
BUSY 0  PROTECTION CHECK 0  ADDR LIMIT   0  CSCH FUNCTION0  
ALERT STATUS 1
CHANNEL END  0  CHAN DATA CHECK  0  SUPP SUSPEND INT 0  RESUME PENDING   0  
INTERMED STATUS  0
DEVICE END   0  CHAN CTL CHECK   1  ZERO COND CODE   0  START PENDING0  
PRIMARY STATUS   1
UNIT CHECK   0  I/F CTL CHECK1  EXTENDED CONTROL 0  HALT PENDING 0  
SECONDARY STATUS 1
UNIT EXCEPTION   0  CHAINING CHECK   0  PATH NOT OPER0  CLEAR PENDING0  
STATUS PENDING   0



Lizette


>We have just connected some DASD at our remote site and when we are writing
>data we get an" IOS050I CHANNEL DETECTED ERROR ON
>AA1A,52,9D,**02,PCHID=0142" message.  
>
>Here is the LOGREC info:
>
>SSYS ID  REASON   PSW-MCH /PROG-EC 
>RCYRYXI T   COMP/MOD  CSECTID  ERROR-ID
>
>   TIME JOBNAME  RECTYP CP CUA  DEVT CMD CSW  SENSE04  06   08 
>10   12  14   16  18   20  22   VOLUMESEEKSD CT
>
> *  DNO  CRW  CHP SCSW
>ESW STOR ADDR
>
> 
>DATE  007 08
>
>09 10 04 88   N/AMDR00 0102 3590  51
>
>09 10 04 92   N/AMDR00 0102 3590  51
>
>11 20 25 80 ICEGENE2 SLH00 AA1A 3390  52 84C240174AB48172
>00806680 
>

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Updating Source in SMPE

[Lizette Koehler]

Thanks for helping me with the difference between SRC and MAC. I had forgotten.


This is not controled by SMPE currently under CA1.  So I am having to do this 
for my own notifications.  It is easy to miss doing this source update without 
some sort of process.  I am using SMPE as a reminder.

I wish CA1 was better designed with SMPE in mind.  Many of their files and 
source which I feel should be under SMPE control are not.  So I am making it be 
under SMPE control just so someone will notice it on an upgrade.  I create my 
own UCLIN because CA1 chooses not to use it.  I like not having to have DD 
statements in my SMPE zones.  Just one of many issues I have with CA1 SMPE 
Processes.  

Lizette

>The old way would be to use ++MAC (which meant non-assembler text). Nowadays I
>believe that you can define your own type.
>
>But as you are replacing something, do a query to determine the type of
>TMEEJECT and use that type. I would hope that the CAI manuals have an example
>usermod.
>

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: IOS050I CHANNEL DETECTED ERROR ON AA1A,52,9D,**02,PCHID=0142

[Bill Wilkie]

Leon:
 
The error occurred on a write count key data command X'1D' with the multi-trk 
bit on, hence the 9d to device AA1A on chpid 52. I'd have the ce check it out 
for that chpid. If this is a first time, it's not a bad idea anyway as It may 
also be an error in software.
 
Bill  
> Date: Mon, 7 Jan 2008 13:01:10 -0600> From: [EMAIL PROTECTED]> Subject: 
> IOS050I CHANNEL DETECTED ERROR ON AA1A,52,9D,**02,PCHID=0142> To: 
> IBM-MAIN@BAMA.UA.EDU> > We have just connected some DASD at our remote site 
> and when we are writing> data we get an" IOS050I CHANNEL DETECTED ERROR ON> 
> AA1A,52,9D,**02,PCHID=0142" message. > > Here is the LOGREC info:> > SSYS ID 
> REASON PSW-MCH /PROG-EC > RCYRYXI T COMP/MOD CSECTID ERROR-ID> > TIME JOBNAME 
> RECTYP CP CUA DEVT CMD CSW SENSE 04 06 08 > 10 12 14 16 18 20 22 VOLUME SEEK 
> SD CT> > * DNO CRW CHP SCSW > ESW STOR ADDR> > > DATE 007 08> > 09 10 04 88 
> N/A MDR 00 0102 3590 51> > 09 10 04 92 N/A MDR 00 0102 3590 51> > 11 20 25 80 
> ICEGENE2 SLH 00 AA1A 3390 52 84C240174AB48172> 00806680 > > 
> Any idea's on how I can eliminate the IOS051I messages?> > Thanks > > 
> --> For 
> IBM-MAIN subscribe / signoff / archive access instructions,> send email to 
> [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO> Search the archives at 
> http://bama.ua.edu/archives/ibm-main.html
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Updating Source in SMPE

[Staller, Allan]

In that case, try the following:

UCLIN.
ADD MAC(TMEEJECT) UMID().
ENDUCL.

This will cause a notification at apply check time. 

To "undo" this change the ADD to a DEL. Perform the CA supplied update
and re-apply the original UCLIN.

HTH,


-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Lizette Koehler
Sent: Monday, January 07, 2008 1:38 PM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: Updating Source in SMPE

Thanks for helping me with the difference between SRC and MAC. I had
forgotten.


This is not controled by SMPE currently under CA1.  So I am having to do
this for my own notifications.  It is easy to miss doing this source
update without some sort of process.  I am using SMPE as a reminder.


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

extended Search for utility

[HELIO]

Hi,

We have z /OS 1.7, in the panel of ISPF 3.15 (extended-Search for 
utility) I am doing a search and concatenating a list of libraries, in 
this case the utility so that doing the research in the first library 
not searching the rest of the list and sending the message "in the 
string found."

Anyone know how to solve or if you have any fix for the problem.

Thank you all.

--
Hélio José da Silva
Depto. Software Básico

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Updating Source in SMPE (Resolved)

[Lizette Koehler]

Oops.

Made a slight mistake.  It is under SMPE control, so I am good to go now.  
Thanks guys for your help.

the ++MAC was successful.

Lizette

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: IOS050I CHANNEL DETECTED ERROR ON AA1A,52,9D,**02,PCHID=0142

[(IBM Mainframe Discussion List)]

 
 
In a message dated 1/7/2008 1:38:24 P.M. Central Standard Time,  
[EMAIL PROTECTED] writes:

The  error occurred on a write count key data command X'1D' with the 
multi-trk bit  on, hence the 9d to device AA1A on chpid 52.


Close.  It is actually a write count, key, and data next track  command.  I 
think it would be more helpful to let us see all the CCWs that  preceded it.
 
Bill  Fairchild
Franklin, TN



**Start the year off right.  Easy ways to stay in shape. 
http://body.aol.com/fitness/winter-exercise?NCID=aolcmp0030002489

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: IOS050I CHANNEL DETECTED ERROR ON AA1A,52,9D,**02,PCHID=0142

[(IBM Mainframe Discussion List)]

 
 
In a message dated 1/7/2008 1:33:50 P.M. Central Standard Time,  
[EMAIL PROTECTED] writes:
>The IOS050I is stating you have a hardware error.  The only way to  fix it 
is to correct the issue.
 
Not necessarily.  I always assume that I have made an error in  building the 
channel program regardless of the minutiae within the error  message.  So far 
I have always been right.  I have seen a very recent  case of an obvious 
hardware error-induced IOS message that was caused by an  incorrect CCW 
flag 
bit.  The error message can point you to the CCW that  probably has the 
problem. 
 Examine that CCW carefully; e.g., a 9D must  always be executed within a 
Locate Record Domain.  Make sure all the Define  Extent and Locate Record (or 
Locate Record Extended) parameter are  correct.  Then work your way forward 
from 
the last LRD in the chain, making  sure that each CCW before the 9D executed.  
My advice is to look for a  hardware error as a last resort.
 
Bill  Fairchild
Franklin, TN





**Start the year off right.  Easy ways to stay in shape. 
http://body.aol.com/fitness/winter-exercise?NCID=aolcmp0030002489

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

SMP/E HOLDs: ACTION vs. IPL

[Mark Zelden]

Looks like some SMP/E HOLDDATA reason education still needed within IBM...
but things are much better than they used to be.

The 2nd and 3rd one should have a REASON(DEP) also or a REQ
for the 3rd one (VTAM and TCPIP are the 2 FMIDs involved). 
4th should be reason RESTART.


++ HOLD(UA34181) SYS FMID(HBB7730) REASON(ACTION) DATE(07131) 
   COMMENT
( 
 * FUNCTION AFFECTED: 5752SC1CH   (OA19565) * 
 *  VIRTUAL STOR MGR* 
  
 * DESCRIPTION  : IPL with CLPA * 
  
 * TIMING   : Post-APPLY* 
  
  
 In order for this PTF to be fully effective, an IPL with CLPA
 is required.).  

 ==

++ HOLD(UK24827) SYS FMID(HIP6180) REASON(ACTION) DATE(07124)
   COMMENT   
(
 * FUNCTION AFFECTED: Communications Server TCP/IP (PK43224)*
 * Resolver *
 
 * DESCRIPTION  : IPL required  *
 
 * TIMING   : Post-APPLY*
 
 The nucleus resident module, EZBRECST, is changed by this fix.  
 To pickup its fix an IPL must be done after the SMP/E APPLY of  
 this PTF.   
 To eliminate this failure the PTF for z/OS UNIX APAR OA20384
 also needs to be applied.). 


 ==


++ HOLD(UK27017) SYS FMID(HIP6180) REASON(ACTION) DATE(07193)
   COMMENT   
(
 * FUNCTION AFFECTED: Communications Server TCP/IP (PK46764)*
 
 * DESCRIPTION  : To implement this function you will   *
 *  : also need to install OA21405. *
 
 * TIMING   : Pre- or Post-APPLY*
 
 

++ HOLD(UA90370) SYS FMID(HRM7730) REASON(ACTION) DATE(07214)  
   COMMENT 
(PLEASE STOP RMF BEFORE AND RESTART IT AFTER THIS  
 PTF BECAME ACTIVE).   
   
   


--
Mark Zelden
Sr. Software and Systems Architect - z/OS Team Lead
Zurich North America / Farmers Insurance Group - ZFUS G-ITO
mailto:[EMAIL PROTECTED]
z/OS Systems Programming expert at http://expertanswercenter.techtarget.com/
Mark's MVS Utilities: http://home.flash.net/~mzelden/mvsutil.html

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: It keeps getting uglier

[(IBM Mainframe Discussion List)]

 
 
In a message dated 12/31/2007 2:13:53 P.M. Central Standard Time,  
[EMAIL PROTECTED] writes:
>When processors srarted to include High-Speed Buffers, now commonly  called 
cache, any published timings became very difficult to  determine.  When 
memory references were simple real memory references,  the time required for 
each was easily determined.
 
There was also LCS (Large Capacity Storage, Low Cost Storage, bulk storage)  
in the late 1960s that could move a double-word aligned field much faster than 
 with regular storage, thus adding another variable not accounted for in any  
instruction timing formula.  It was installed on a S/360 Model 75 to which  I 
had access.  That data center's billing algorithm gave users an incentive  to 
use the bulk storage if possible, thus letting their jobs run faster, thus  
allowing greater daily throughput of the whole data center.
 
Bill  Fairchild
Franklin, TN





**Start the year off right.  Easy ways to stay in shape. 
http://body.aol.com/fitness/winter-exercise?NCID=aolcmp0030002489

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: New version of IBM JZOS Toolkit 2.2.1 on alphaWorks

[Barkow, Eileen]

Hi Kirk,

i have a few comments/questions about JZOS 2.2.1 assembler record
mapping.

1. job DSECTGEN passes the classname to MAINARGS and does not specify
the JAVACLS parm. this causes an error  since it takes the class name to
be a passed parm. in order to get around this, i had to specify
JAVACLS=com.ibm.RecordClassGenerator and remove the class name from
MAINARGS.

//MAINARGS DD *
com.ibm.jzos.recordgen.asm.RecordClassGenerator
  section=F5DSCB
  bufoffset=true
  package=com.ibm.jzos.sample.fields
  class=Format5DSCBBase
  outputDir=~/asmgen



2. The output java file has x'05' in the first character of some lines
which will cause a compile error.

,---
---,
public class Format5DSCBBase {
9A89884898AA4C9998AFCECCC8A84C
742393033122066941354232212500
,---
---,
.protected static AssemblerDatatypeFactory factory = new
AssemblerDatatypeFactor
0999A88A884AA8A884CAA898989C8A8AA98C88A99A4888A99A47498A4CAA898989C8A8AA
98C88A99
579635335402313930122542359413138756133698061336980E05560122542359413138
75613369
,---
---,
.static { factory.setStringTrimDefault(false); }
0AA8A884C4888A99A4A8AEA9898E989C888A9A4889A8554D4
52313930006133698B25323995739944561433D61325DE000

are these errors or am i running something wrong?

   thanks



-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Kirk Wolf
Sent: Thursday, January 03, 2008 1:12 PM
To: IBM-MAIN@BAMA.UA.EDU
Subject: New version of IBM JZOS Toolkit 2.2.1 on alphaWorks

FYI, IBM released today version 2.2.1 of the JZOS Batch Launcher and
Toolkit
on alphaWorks.

http://www.alphaworks.ibm.com/tech/zosjavabatchtk

I've attached a copy of the README file below.

The most notable addition is support for generating Java record mapping
classes from COBOL copy books
and Assembler DSECTS.

Regards,

Kirk Wolf
Dovetailed Technologies


==
README for IBM JZOS Batch Toolkit for z/OS SDKs alphaWorks preview

Before you Begin:
=
Note that the alphaWorks version of JZOS is not covered by IBM support.
If
you encounter
problems with this version, you should use the alphaWorks forum to
report
problems and/or
have your questions answered.

Installation:
=
Please refer to the document:  "JZOS alphaWorks Installation.pdf" in the
"doc"
directory of this distribution for installation instructions.

2.2.1 New Features:
===
- Support for automatic generation of record classes from
Assembler DSECTs (package com.ibm.jzos.recordgen.asm).  See the sample
JCL
member DSECTGEN
and the document "JZOS Assembler Record Generator Users Guide.pdf" in
the
"doc" directory.

- Support for automatic generation of record classes from
COBOL copybooks DSECTs (package com.ibm.jzos.recordgen.cobol).  See the
sample JCL
member COBGEN and the document "JZOS COBOL Record Generator Users
Guide.pdf"
in
the "doc" directory.

2.1.1 New Features:
===
- Changed PdsDirectory to read PDSE dirs as well as PDS dirs.

- Wrappers for CatalogSearch, LOCATE and OBTAIN.

- Sample program that illustrates the usage of the above three wrappers:
com.ibm.jzos.sample.CatalogSearchSample.

- Field converters for Assembler and COBOL datatypes (package
com.ibm.jzos.fields)
This package also includes Factory classes for COBOL and Assembler.

- Class com.ibm.jzos.sample.MedicareRecord as a field converter sample.

- *Preliminary* support for automatic generation of record classes from
Assembler DSECTs (package com.ibm.jzos.recordgen.asm).  See the sample
JCL
member DSECTGEN.


2.1.0 New Features:
===
- Batch Launcher jar executables:  If the first two arguments supplied
to
the launcher
are "-jar /path/to/jarfile", the manifest of the indicated jar file will
examined to
determine which main() class to run.

- MVS job submission and status with Java/Rexx integration:  See the
javadoc
and
sample code for com.ibm.jzos.sample.MvsJobSubmitter

- DFSORT Java interface and sample programs:  See the javadoc and sample
code for
the package com.ibm.jzos.sample.dfsort

- z/OS Logstream interfaces for IXGCONN (connect) and IXGWRITE (write):
See
the
javadoc for com.ibm.jzos.ZLogstream for details.

- Features added to com.ibm.jzos.ZUtil
- System Management Facility (SMF) interface via the __smf_record()
C
library routine.
- CPU time interface via the clock() C-library routine.
- Process ID interfaces via the getpid() and getppid() C-library
routines.

License:

For license information, refer to the contents of the "licenses"
directory

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message

Re: It keeps getting uglier

[Michael Stack]

At 02:51 PM 1/7/2008, you wrote:
>...
>There was also LCS (Large Capacity Storage, Low Cost Storage, bulk storage)  
>in the late 1960s that could move a double-word aligned field much faster than 
> with regular storage, thus adding another variable not accounted for in any  
>instruction timing formula.  It was installed on a S/360 Model 75 to which  I 
>had access.  That data center's billing algorithm gave users an incentive  to 
>use the bulk storage if possible, thus letting their jobs run faster, thus  
>allowing greater daily throughput of the whole data center.
> 
>Bill  Fairchild
>Franklin, TN

LCS?  Fast?  Maybe if the Same Day Service bit was on ... :-)



Michael Stack
Product Developer
NEON Enterprise Software, Inc.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

DIAG (was It keeps getting uglier)

[(IBM Mainframe Discussion List)]

 
 
In a message dated 12/31/2007 12:25:48 P.M. Central Standard Time,  
[EMAIL PROTECTED] writes:
>IIRC, the various S/360 instruction timings were in a manual called  
"Functional Characteristics". The various DIAGNOSE code might have been  
included there, since the manual was "model dependant". Stuff like  
stacker-selection timings, etc. was in the individual hardware manuals,  
where appropriate. I remmber hunting for that stuff for the 2540  
Reader/Punch. Ours was hanging on a 2821 controller at the time. We were  
trying to do a read-punch-stack function all on the same card; we  
finally found a better way to handle the situation.
 
On the S/360, selecting which stacker in which to stack cards after they  are 
read or punched is an option with the CCW command code, and is described in  
the "hardware manual" for that device or control unit rather than in the  
PoOps.  
 
Bill  Fairchild
Franklin, TN

"Real patriots ask questions." [Carl  Sagan]





**Start the year off right.  Easy ways to stay in shape. 
http://body.aol.com/fitness/winter-exercise?NCID=aolcmp0030002489

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

DSL speed checker

[August Carideo]

I know this is a bit OT , but a while back someone on the list helped me
with this now
I can't find it.
There was a pgm to run that provided DSL line speed , to make sure not
being billed for high speed but not getting it
at home, if any one remembers this and can point me to pgm again I would
appreciate it
thanks,
Augie

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: DSL speed checker

[McKown, John]

> -Original Message-
> From: IBM Mainframe Discussion List 
> [mailto:[EMAIL PROTECTED] On Behalf Of August Carideo
> Sent: Monday, January 07, 2008 4:04 PM
> To: IBM-MAIN@BAMA.UA.EDU
> Subject: DSL speed checker
> 
> 
> I know this is a bit OT , but a while back someone on the 
> list helped me
> with this now
> I can't find it.
> There was a pgm to run that provided DSL line speed , to make sure not
> being billed for high speed but not getting it
> at home, if any one remembers this and can point me to pgm 
> again I would
> appreciate it
> thanks,
> Augie

Try doing a Google search on "dsl speed test" and you'll get a lot of
hits.

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

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: DSL speed checker

[Jousma, David]

You can go to http://www.dslreports.com and test your linespeed there.
It is under tools, and there is nothing to install on your workstation.


 
Dave Jousma 
AVP, Mainframe Services 
[EMAIL PROTECTED] 
616.653.8429 


-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of August Carideo
Sent: Monday, January 07, 2008 5:04 PM
To: IBM-MAIN@BAMA.UA.EDU
Subject: DSL speed checker

I know this is a bit OT , but a while back someone on the list helped me
with this now I can't find it.
There was a pgm to run that provided DSL line speed , to make sure not
being billed for high speed but not getting it at home, if any one
remembers this and can point me to pgm again I would appreciate it
thanks, Augie


This e-mail transmission contains information that is confidential and may be 
privileged.   It is intended only for the addressee(s) named above. If you 
receive this e-mail in error, please do not read, copy or disseminate it in any 
manner. If you are not the intended recipient, any disclosure, copying, 
distribution or use of the contents of this information is prohibited. Please 
reply to the message immediately by informing the sender that the message was 
misdirected. After replying, please erase it from your computer system. Your 
assistance in correcting this error is appreciated.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: VTOC Fmt6 (just curious)

[(IBM Mainframe Discussion List)]

 
 
In a message dated 12/31/2007 12:47:22 P.M. Central Standard Time,  
[EMAIL PROTECTED] writes
>What was Fmt6 for ?





Originally in DOS/360 you could, and in some cases were encouraged  to, 
allocate files so that more than one file would share the same cylinder  
numbers as 
another file.  This was called split cylinder allocation.   For example, File 
1 could be tracks 0-9 of cylinders 100-199 and File 2 could be  tracks 10-19 
of those same 100 cylinders.  DASD seek times were humongous  in the 1960s, so 
it made sense that if a program's DASD access pattern involved  very frequent 
references between two data sets that those two data sets should  be 
allocated so as to minimize seeking.  Switching between two tracks in  the same 
cylinder has always been a more or less instantaneous electronic  event.  Even 
if 
you have to wait for a full rotation to get to the right  place on that other 
track in the same cylinder, the elapsed time was  significantly less than an 
average seek on the first several DASD models.   Another thing IBM did in 
DOS/360 
was to design software deliberately to access  multiple files that would 
assume the data was allocated with split  cylinders.  Thus their recommendation 
to 
use split cylinders with certain  programs, such as the DOS Assembler and 
Sort/Merge. 

Next came compatibility between a DASD volume created on DOS/360 and being  
able to access its data under OS/360.  This is why OS/MVS/etc. had support  for 
split cylinder allocation.
 
Bill  Fairchild
Franklin, TN



**Start the year off right.  Easy ways to stay in shape. 
http://body.aol.com/fitness/winter-exercise?NCID=aolcmp0030002489

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: DSL speed checker

[August Carideo]

Thank you



   
 "Jousma, David"   
 <[EMAIL PROTECTED] 
 COM>   To 
 Sent by: IBM  IBM-MAIN@BAMA.UA.EDU
 Mainframe  cc 
 Discussion List   
 <[EMAIL PROTECTED] Subject 
 .EDU> Re: DSL speed checker   
   
   
 01/07/2008 05:07  
 PM
   
   
 Please respond to 
   IBM Mainframe   
  Discussion List  
 <[EMAIL PROTECTED] 
   .EDU>   
   
   




You can go to http://www.dslreports.com and test your linespeed there.
It is under tools, and there is nothing to install on your workstation.



Dave Jousma
AVP, Mainframe Services
[EMAIL PROTECTED]
616.653.8429


-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of August Carideo
Sent: Monday, January 07, 2008 5:04 PM
To: IBM-MAIN@BAMA.UA.EDU
Subject: DSL speed checker

I know this is a bit OT , but a while back someone on the list helped me
with this now I can't find it.
There was a pgm to run that provided DSL line speed , to make sure not
being billed for high speed but not getting it at home, if any one
remembers this and can point me to pgm again I would appreciate it
thanks, Augie


This e-mail transmission contains information that is confidential and may
be privileged.   It is intended only for the addressee(s) named above. If
you receive this e-mail in error, please do not read, copy or disseminate
it in any manner. If you are not the intended recipient, any disclosure,
copying, distribution or use of the contents of this information is
prohibited. Please reply to the message immediately by informing the sender
that the message was misdirected. After replying, please erase it from your
computer system. Your assistance in correcting this error is appreciated.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Purge all members from a PDSE

[R.S.]

Miklos Szigetvari wrote:

Hi

Any method to purge all memebers from a PDSE ?
(Till now we used PDS and with
PDS85 fixpds reset  did this )


By command ?

I'd suggest IDCAMS:
DEL SYS1.PDSE
ALLOCATE SYS1.PDSE

Also works with PDSes.
:-)

HTH
--
Radoslaw Skorupka
Lodz, Poland


--
BRE Bank SA
ul. Senatorska 18
00-950 Warszawa
www.brebank.pl

Sd Rejonowy dla m. st. Warszawy 
XII Wydzia Gospodarczy Krajowego Rejestru Sdowego, 
nr rejestru przedsibiorców KRS 025237

NIP: 526-021-50-88
Wedug stanu na dzie 01.01.2007 r. kapita zakadowy BRE Banku SA (w caoci 
opacony) wynosi 118.064.140 z. W zwizku z realizacj warunkowego 
podwyszenia kapitau zakadowego, na podstawie uchwa XVI WZ z dnia 21.05.2003 
r., kapita zakadowy BRE Banku SA moe ulec podwyszeniu do kwoty 118.760.528 
z. Akcje w podwyszonym kapitale zakadowym bd w caoci opacone.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Purge all members from a PDSE

[HUTCHISON Gregory]

I like BR14

//DLTPDS   EXEC PGM=IEFBR14
//INDD DD  DSN=MY.JCL.JCK.PDS,   
// DISP=(MOD,DELETE,DELETE),SPACE=(TRK,(1)),UNIT=DISK   

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of R.S.
Sent: Monday, January 07, 2008 2:24 PM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: Purge all members from a PDSE

Miklos Szigetvari wrote:
> Hi
> 
> Any method to purge all memebers from a PDSE ?
> (Till now we used PDS and with
> PDS85 fixpds reset  did this )

By command ?

I'd suggest IDCAMS:
DEL SYS1.PDSE
ALLOCATE SYS1.PDSE

Also works with PDSes.
:-)

HTH
--
Radoslaw Skorupka
Lodz, Poland


--
BRE Bank SA
ul. Senatorska 18
00-950 Warszawa
www.brebank.pl

Sd Rejonowy dla m. st. Warszawy 
XII Wydzia Gospodarczy Krajowego Rejestru Sdowego, 
nr rejestru przedsibiorców KRS 025237
NIP: 526-021-50-88
Wedug stanu na dzie 01.01.2007 r. kapita zakadowy BRE Banku SA (w caoci 
opacony) wynosi 118.064.140 z. W zwizku z realizacj warunkowego 
podwyszenia kapitau zakadowego, na podstawie uchwa XVI WZ z dnia 21.05.2003 
r., kapita zakadowy BRE Banku SA moe ulec podwyszeniu do kwoty 118.760.528 
z. Akcje w podwyszonym kapitale zakadowym bd w caoci opacone.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: COBOL is simple -- NOT!!

[GAVIN Darren * OPS EAS]

Like this


05  MAP-FIELD1-ATTRIBUTE  PIC X.
 88  FIELD1-ERASED   VALUES X'80' X'82'.

05  MAP-FIELD2-ATTRIBUTE  PIC X.
 88  FIELD2-ERASED   VALUES X'80' X'82'.



IF FIELD1-ERASED



IF FIELD2-ERASED




-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Chase, John
Sent: Monday, January 07, 2008 5:33 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: COBOL is simple -- NOT!!

Hi, All,

This is almost embarrassing to ask, but how in blazes does one code the
equivalent of a TM instruction in COBOL?  Here's what we have:

In the data division:

05  MAP-FIELD-ATTRIBUTE  PIC X.
...
In an IBM-supplied copybook:

02  DFHBMFLG  PIC X.
  88 DFHERASE VALUES ARE ,  

In the procedure division, we code:

IF MAP-FIELD-ATTRIBUTE = DFHERASE

and the compiler says:

Condition-name "DFHERASE" was found inside the scope of an
abbreviated condition
The statement was discarded. 

All we want is the equivalent of

TMMAP-FIELD-ATTRIBUTE,X'80'

How is that done in COBOL??  Can it even be done in COBOL??

TIA,

-jc-

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Purge all members from a PDSE

[Peter Van Dyke]

The D command for ISPF options 3.1, 3.4, and 11 support the deletion of all
members from a PDSE (or PDS) by specifying an asterisk (*) as the member
name. This can also be done using the LMMDEL service and specifying an
asterisk for the member-name parameter. For a PDSE, STOW initialize
(directory action = I) is used to clear the PDSE directory. This support
has been available since z/OS 1.5.


Peter Van Dyke
ISPF Development

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Use IFG0EX0B exit

[Rick Fochtman]

Hi there,
we would like to use the IFG0EX0B exit to obtain the name of the job that it 
created/modified a file. 


Is anybody using this exit with this intention?

Thanks in advance. 
 



We've always gotten that information by processing SMF records, usually 
the Type 14/15 records. Don't remember offhand which we used for 
monitoring VSAM Clusters. If you have SAS, there's some nifty samples 
that you can modify as you see fit to generate the reports you're 
looking for.


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Purge all members from a PDSE

[Edward Jaffe]

Peter Van Dyke wrote:

The D command for ISPF options 3.1, 3.4, and 11 support the deletion of all
members from a PDSE (or PDS) by specifying an asterisk (*) as the member
name. This can also be done using the LMMDEL service and specifying an
asterisk for the member-name parameter. For a PDSE, STOW initialize
(directory action = I) is used to clear the PDSE directory. This support
has been available since z/OS 1.5.
  


Recent z/OS releases support "STOW initialize" it for PDS as well.

--
Edward E Jaffe
Phoenix Software International, Inc
5200 W Century Blvd, Suite 800
Los Angeles, CA 90045
310-338-0400 x318
[EMAIL PROTECTED]
http://www.phoenixsoftware.com/

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Purge all members from a PDSE

[Edward Jaffe]

R.S. wrote:

By command ?

I'd suggest IDCAMS:
DEL SYS1.PDSE
ALLOCATE SYS1.PDSE

Also works with PDSes.
:-)


The problem with this or JCL re-allocation is the high potential for 
getting something wrong. Wrong attributes, wrong space, wrong placement, 
etc., the inability to perform the function with an outstanding DISP=SHR 
ENQ in effect, and the unfortunate effect on the data set creation date 
saved in the DSCB.


--
Edward E Jaffe
Phoenix Software International, Inc
5200 W Century Blvd, Suite 800
Los Angeles, CA 90045
310-338-0400 x318
[EMAIL PROTECTED]
http://www.phoenixsoftware.com/

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Problem while recalling few datasets

[Rick Fochtman]

I am getting following error while recalling few datasets. But few datasets
recalls are successful.


IOS000I 882A,E3,EQC,07,0E00,,**,,DFHSM  657

1048203500206011(B31102005015)(57FF)CE3F1D9B13140A00

IEC512I I/O ERR 882A,AT3728,,DFHSM,DFHSM,DFHSM.HMIGTAPE.DATASET

IEC502E R 882A,,DFHSM,DFHSM


ARC1001I ACIS.C008MRGE.CUCPR004.CASH.G0716V00  RECALL FAILED, RC=0035,
ARC1001I (CONT.) REAS=
ARC1135I ERROR OPENING INPUT DATA SET DURING RECALL/RECOVERY
***

Any idea on this. This is urgent as few production datasets are not getting
recalled.
 


-
The error message seems to indicate either a hardware problem or a 
configuration error. Take it up seriously with your tape vendor, and if 
it's a OEM vendor, tell him that his high-blown phrases about complete 
compatability with IBM are a truckload of fertilizer, of bovine origin. 
"Equipment check" indicates, among other things, that the CCW command 
code is not acceptable to the drive and/or the controller. Don't be 
afraid to be nasty with ANY vendor; if they're taking your money, then 
the product better perform! :-) BTDTGTSS





JAcky

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

 



--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Updating Source in SMPE

[Rick Fochtman]

---


I think I am missing something in my usermod.  I have source that needs to be 
in a usermod.  I have tried ++SRC and it keeps trying to assemble the source.  
The source is an Earl Program.  So there is no assembly.

All I want to do is replace the current earl source with my modified one.  This 
is so I can keep track when this changes.

++USERMOD(EJCUMOD) .   
++VER(Z038) FMID(CL052B0)  
 .
++JCLIN./* JCLIN TO GET SRC COPIED. */ 
//JOB1 JOB 'ACCOUNTING INFO',MSGLEVEL=(1,1)
//STEP1EXEC PGM=IEBCOPY
//SOURCE   DD DISP=SHR,DSN=SYSM.CA1.V115SP2.USERMODS.SOURCE
//CAISRC   DD DISP=SHR,DSN=SYSM.CA1.V115SP2.CAISRC 
//SYSINDD *
COPY INDD=SOURCE,OUTDD=CAISRC 
SELECT M=(TMEEJECT)   
++SRC(TMEEJECT) TXLIB(EARLSRC) DISTLIB(CAISRC) .   


The copy part works, but the APPLY tries to assemble it (which of course 
failes).  I have been reading the SMPE Reference and user's guide.  But I still 
am not connecting the dots.


--
Do you have the right OPTIONS table specified for SMP/E ?? IIRC, that's 
where you specify the name of the ASSEMBLER, etc.


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Purge all members from a PDSE

[Wayne Driscoll]

Not to mention the fact that while a user may very well have authority
to UPDATE a PDS(/E), which is required to re-init the directory, that
same user may not have ALTER authority, which is required for
DELETE/DEFINE.   

Wayne Driscoll
Product Developer
JME Software LLC
NOTE:  All opinions are strictly my own.



-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Edward Jaffe
Sent: Monday, January 07, 2008 6:18 PM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: Purge all members from a PDSE

R.S. wrote:
> By command ?
>
> I'd suggest IDCAMS:
> DEL SYS1.PDSE
> ALLOCATE SYS1.PDSE
>
> Also works with PDSes.
> :-)

The problem with this or JCL re-allocation is the high potential for 
getting something wrong. Wrong attributes, wrong space, wrong placement,

etc., the inability to perform the function with an outstanding DISP=SHR

ENQ in effect, and the unfortunate effect on the data set creation date 
saved in the DSCB.

-- 
Edward E Jaffe
Phoenix Software International, Inc
5200 W Century Blvd, Suite 800
Los Angeles, CA 90045
310-338-0400 x318
[EMAIL PROTECTED]
http://www.phoenixsoftware.com/

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: DIAG (was It keeps getting uglier)

[Rick Fochtman]

-

On the S/360, selecting which stacker in which to stack cards after they  are 
read or punched is an option with the CCW command code, and is described in  
the "hardware manual" for that device or control unit rather than in the  
PoOps.
 



That's true, but when you're trying to do READ, PUNCH, SELECT STACKER 
all on the same record, timings are very important, bot hat the 2540 
level and the CPU instruction level. You've only got so much time 
between the READ and PUNCH operations so instruction paths can be very 
important. The same is true of check processing operations, where yu 
need to read the check, evaluate it, perhaps print additional 
information, all before the check leaves the machine.


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: PARMLIB(s) (Was: how to list LE options)

[Ed Gould]

On Jan 7, 2008, at 12:32 PM, Paul Gilmartin wrote:


On Mon, 7 Jan 2008 12:46:34 -0500, Shmuel Metz (Seymour J.) wrote:


In <[EMAIL PROTECTED]>, on 06/27/2007


Time warp?


  at 02:19 PM, Paul Gilmartin said:

But, as discussed here recently, prohibiting read access doesn't  
prevent
the allocation, and it might be more likely that a program that  
ABENDs on

OPEN will exit abnormally without doing the FREE.


Depending on how he is looking at the data set, the free might be
automatic.


Take my remark as largely rhetorical.  IIRC, I was rebutting a prior
post expressing a phobic delusion that if PARMLIB had UACC=READ, an
incompetently or maliciously crafted job might ABEND leaving an
unreleased restrictive ENQ on PARMLIB.  I never considered it a
realistic concern.  ("more likely" means some larger multiple of 0.)

Of course, there's always:

//STEP1   EXEC  PGM=BPXBATCH,PARM='PGM /bin/sleep '
//STEP2   EXEC  PGM=IEFBR14,COND=(0,LE)
//SYSUT99  DD   DISP=OLD,DSN=SYS1.PARMLIB

... but RACF won't help you there.

Gil:


But the initiator might stop you as RMF has (assuming you are running  
RMF) the disp=shr in its JCL.


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Problem while recalling few datasets

[Traylor, Terry]

Jacky,

For those datasets that won't recall, see if you have a backup.  If you
do, see if you can recover newname the datasets.  Then hdelete the
originals and rename the newnames to the original name.  If you are able
to recover all the files off the tape, then recycle force the tape.
However, if you can't get all the data off the tape, determine if the
remaining data is vital.  If it is not, then recycle force the tape.  If
the data is vital, the see if it can be recreated.  Otherwise, its off
to Tucson with your tape.

Terry Traylor
charlesSCHWAB
TIS Mainframe Storage Management
Remedy Queue: tis-hs-mstg
(602) 977-5154 

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Jacky Bright
Sent: Monday, January 07, 2008 11:53 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Problem while recalling few datasets

Hi,

I am getting following error while recalling few datasets. But few
datasets recalls are successful.


IOS000I 882A,E3,EQC,07,0E00,,**,,DFHSM  657

 1048203500206011(B31102005015)(57FF)CE3F1D9B13140A00

IEC512I I/O ERR 882A,AT3728,,DFHSM,DFHSM,DFHSM.HMIGTAPE.DATASET

IEC502E R 882A,,DFHSM,DFHSM


ARC1001I ACIS.C008MRGE.CUCPR004.CASH.G0716V00  RECALL FAILED, RC=0035,
ARC1001I (CONT.) REAS= ARC1135I ERROR OPENING INPUT DATA SET DURING
RECALL/RECOVERY
***

Any idea on this. This is urgent as few production datasets are not
getting recalled.



JAcky

--
For IBM-MAIN subscribe / signoff / archive access instructions, send
email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search
the archives at http://bama.ua.edu/archives/ibm-main.html

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html