date:20110804

Add the following to /etc/rc and /etc/profile

TZ=desired value
export $TZ

HTH,

snip
Is there something I should be changing in USS?
*
*
/snip

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

Re: CORRUPT PDS - I/O ERROR

Agreed. This has devolved into a flame war. Boring and bothersome. 

--
John McKown 
Systems Engineer IV
IT

Administrative Services Group

HealthMarkets(r)

9151 Boulevard 26 * N. Richland Hills * TX 76010
(817) 255-3225 phone * 
john.mck...@healthmarkets.com * www.HealthMarkets.com

Confidentiality Notice: This e-mail message may contain confidential or 
proprietary information. If you are not the intended recipient, please contact 
the sender by reply e-mail and destroy all copies of the original message. 
HealthMarkets(r) is the brand name for products underwritten and issued by the 
insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance 
Company(r), Mid-West National Life Insurance Company of TennesseeSM and The 
MEGA Life and Health Insurance Company.SM

 -Original Message-
 From: IBM Mainframe Discussion List 
 [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Steve Dover
 Sent: Thursday, August 04, 2011 7:21 AM
 To: IBM-MAIN@bama.ua.edu
 Subject: Re: CORRUPT PDS - I/O ERROR
 
 Is there any chance that those of you who still have an 
 interest in arguing this matter could take it offline and 
 email each other directly.  That way those of us who have 
 long lost interest in this can stop being bombarded with the 
 constant attacks you all seem to be throwing around 
 indiscriminately.  I know that I, for one, would really 
 appreciate it.  
 
 Please stop.
 
 Respectfully,
 Steve
 
 --
 For IBM-MAIN subscribe / signoff / archive access instructions,
 send email to lists...@bama.ua.edu 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 lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: DFHSM QUESTION - DELETE SDSP DSN

You will never see the cluster name on the volume.

1) Check DFHSM definitions for each volume to see if SDSP is still in
use.

2) To determine the cluster name
LISTCAT ENT('data component name') ALL   One of the lines in the
display will show the cluster name.  

3) To determine if the cluster is cataloged; 
LISTCAT ent 'cluster name'   ALL  will either return the cluster
name or a not found condition.

If not found DEL 'component name' vvr file(dd1) where dd1 points to the
volume.

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

Re: DFHSM QUESTION - DELETE SDSP DSN

Based on this, and some other subsequent posts, DEL 'component name' VVR should 
do the trick

snip

Yes I did.  I ran a LISTCAT of the CLUSTER and it gave me the error message;
 LISTC ENT('VHSM.SMALLDS.VBL1908') ALL 
IDC3012I ENTRY VHSM.SMALLDS.VBL1908 NOT FOUND  
IDC3009I ** VSAM CATALOG RETURN CODE IS 8 - REASON CODE IS IGG0CLEG-42 
IDC1566I ** VHSM.SMALLDS.VBL1908 NOT LISTED    
/snip

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

assembler help!

In our IEFACTRT (accounting exit), an assembler program, it has the following 
commands:

L R2,PARMJOBC
ICM   R1,7,0(R2)

If PARMJOBC contains a binary integer length of 4 with 00 00 00 08, what ends 
up in all bits of R1?  I am trying to add additional values to what is in R1 by 
doing:

MVC   WK1(4),SMF30CPS
A R1,WK1

This is not doing what I want it to do! If SMF30CPS, also a binary integer 
length of 4, has 00 00 00 01,  what ends up in R1?

Anne D. Crabtree
System Programmer
WV Office of Technology Data Center
1900 Kanawha Blvd East
Charleston, WV  25305
(304)558-5914 ext 58292
(304)558-1441 fax


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

Re: DFHSM QUESTION - DELETE SDSP DSN

2011-08-04 Thread willie bunter

Alan,
 
Your suggestion about running the LISTCAT against the DATA component worked.
For some reason the CLUSTER is called HSM.SMALLDS.VBL1908.  I will delete the 
cluster.  Thanks again for clearing the mystery.


--- On Thu, 8/4/11, Staller, Allan allan.stal...@kbmg.com wrote:


From: Staller, Allan allan.stal...@kbmg.com
Subject: Re: DFHSM QUESTION - DELETE SDSP DSN
To: IBM-MAIN@bama.ua.edu
Received: Thursday, August 4, 2011, 5:46 AM


You will never see the cluster name on the volume.

1) Check DFHSM definitions for each volume to see if SDSP is still in
use.

2) To determine the cluster name
    LISTCAT ENT('data component name') ALL   One of the lines in the
display will show the cluster name.  

3) To determine if the cluster is cataloged; 
    LISTCAT ent 'cluster name'   ALL  will either return the cluster
name or a not found condition.

If not found DEL 'component name' vvr file(dd1) where dd1 points to the
volume.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu 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 lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: assembler help!

Unpredictable!

Check the high order byte of R1!

ICM R1,7,0(r2) replaces the low order 3 bytes (and seems  to be
referencing a 24-bit address). R1 may contain residual data in the high
order byte.

HTH,


snip
In our IEFACTRT (accounting exit), an assembler program, it has the
following commands:

L R2,PARMJOBC
ICM   R1,7,0(R2)

If PARMJOBC contains a binary integer length of 4 with 00 00 00 08, what
ends up in all bits of R1?  I am trying to add additional values to what
is in R1 by doing:

MVC   WK1(4),SMF30CPS
A R1,WK1

This is not doing what I want it to do! If SMF30CPS, also a binary
integer length of 4, has 00 00 00 01,  what ends up in R1?
/snip

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

Re: assembler help!

2011-08-04 Thread Ward, Mike S

The ICM will only replace the lower 3 bytes of R1. If there is anything
in the left most byte it will not be replaced. You could try

SR R1,R1
ICM   R1,7,0(R2)

And see if that gets you what you want.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On
Behalf Of Crabtree, Anne D
Sent: Thursday, August 04, 2011 8:02 AM
To: IBM-MAIN@bama.ua.edu
Subject: assembler help!

In our IEFACTRT (accounting exit), an assembler program, it has the
following commands:

L R2,PARMJOBC
ICM   R1,7,0(R2)

If PARMJOBC contains a binary integer length of 4 with 00 00 00 08, what
ends up in all bits of R1?  I am trying to add additional values to what
is in R1 by doing:

MVC   WK1(4),SMF30CPS
A R1,WK1

This is not doing what I want it to do! If SMF30CPS, also a binary
integer length of 4, has 00 00 00 01,  what ends up in R1?

Anne D. Crabtree
System Programmer
WV Office of Technology Data Center
1900 Kanawha Blvd East
Charleston, WV  25305
(304)558-5914 ext 58292
(304)558-1441 fax


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

==
This email and any files transmitted with it are confidential and intended 
solely for the use of the individual or entity
to which they are addressed. If you have received this email in error please 
notify the system manager. This message
contains confidential information and is intended only for the individual 
named. If you are not the named addressee you
should not disseminate, distribute or copy this e-mail. Please notify the 
sender immediately by e-mail if you
have received this e-mail by mistake and delete this e-mail from your system. 
If you are not the intended recipient
you are notified that disclosing, copying, distributing or taking any action in 
reliance on the contents of this
information is strictly prohibited.

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

Re: assembler help!

2011-08-04 Thread Barkow, Eileen

A mask of 7 loads the low order 3 bytes, so that r1 would contain whatever the 
high order byte it contained
originally plus 08 in the low order 3 bytes.
L R2,PARMJOBC
ICM   R1,7,0(R2)

If smf30cps contains 0001, then the first 4 bytes of wk1 would contain 
0001 after the move
And r1 would also contain 0001 after the add, assuming WK1 is on a full 
word boundary.

MVC   WK1(4),SMF30CPS
A R1,WK1-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of 
Crabtree, Anne D
Sent: Thursday, August 04, 2011 9:02 AM
To: IBM-MAIN@bama.ua.edu
Subject: assembler help!

In our IEFACTRT (accounting exit), an assembler program, it has the following 
commands:

L R2,PARMJOBC
ICM   R1,7,0(R2)

If PARMJOBC contains a binary integer length of 4 with 00 00 00 08, what ends 
up in all bits of R1?  I am trying to add additional values to what is in R1 by 
doing:

MVC   WK1(4),SMF30CPS
A R1,WK1

This is not doing what I want it to do! If SMF30CPS, also a binary integer 
length of 4, has 00 00 00 01,  what ends up in R1?

Anne D. Crabtree
System Programmer
WV Office of Technology Data Center
1900 Kanawha Blvd East
Charleston, WV  25305
(304)558-5914 ext 58292
(304)558-1441 fax


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu 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 lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: assembler help!

2011-08-04 Thread Steve Comstock


On 8/4/2011 7:02 AM, Crabtree, Anne D wrote:

In our IEFACTRT (accounting exit), an assembler program, it has the following 
commands:

L R2,PARMJOBC
ICM   R1,7,0(R2)

If PARMJOBC contains a binary integer length of 4 with 00 00 00 08,
what ends up in all bits of R1?


Unpredictable. The first instruction picks up data from
memory location named PARMJOBC, but the second instruction
uses that value as an address not as data.

Either the first instruction should be 'LA' or PARMJOBC
contains an address. If PARMJOBC contains an address,
it should probably not be location 4 in memory!


I am trying to add additional values to what is in R1 by doing:


MVC   WK1(4),SMF30CPS
A R1,WK1


Why would you do this instead of just using one instruction:

  A  R1,SMF3OCPS

??



This is not doing what I want it to do! If SMF30CPS, also a binary integer 
length of 4, has 00 00 00 01,  what ends up in R1?

Anne D. Crabtree
System Programmer
WV Office of Technology Data Center
1900 Kanawha Blvd East
Charleston, WV  25305
(304)558-5914 ext 58292
(304)558-1441 fax


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




--

Kind regards,

-Steve Comstock
The Trainer's Friend, Inc.

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

* Special promotion: 15% off on all DB2 training classes
scheduled by September 1, taught by year end 2011

* Check out our entire DB2 curriculum at:
http://www.trainersfriend.com/DB2_and_VSAM_courses/DB2curric.htm

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

Re: assembler help!

2011-08-04 Thread Steve Comstock


On 8/4/2011 7:31 AM, Steve Comstock wrote:

[correcting my own post]


On 8/4/2011 7:02 AM, Crabtree, Anne D wrote:

In our IEFACTRT (accounting exit), an assembler program, it has the following
commands:

L R2,PARMJOBC
ICM R1,7,0(R2)

If PARMJOBC contains a binary integer length of 4 with 00 00 00 08,
what ends up in all bits of R1?


Unpredictable. The first instruction picks up data from
memory location named PARMJOBC, but the second instruction
uses that value as an address not as data.

Either the first instruction should be 'LA' or PARMJOBC
contains an address. If PARMJOBC contains an address,
it should probably not be location 4 in memory!


I meant location 8.





I am trying to add additional values to what is in R1 by doing:


MVC WK1(4),SMF30CPS
A R1,WK1


Why would you do this instead of just using one instruction:

A R1,SMF3OCPS

??



This is not doing what I want it to do! If SMF30CPS, also a binary integer
length of 4, has 00 00 00 01, what ends up in R1?

Anne D. Crabtree
System Programmer
WV Office of Technology Data Center
1900 Kanawha Blvd East
Charleston, WV 25305
(304)558-5914 ext 58292
(304)558-1441 fax




--

Kind regards,

-Steve Comstock
The Trainer's Friend, Inc.

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

* Special promotion: 15% off on all DB2 training classes
scheduled by September 1, taught by year end 2011

* Check out our entire DB2 curriculum at:
http://www.trainersfriend.com/DB2_and_VSAM_courses/DB2curric.htm

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

ISPF ZPFSHOW Variable

2011-08-04 Thread Chuck Arney

In an assembler ISPF application I am trying to adjust the size of a dynamic
screen area based on the results of a PQUERY and the ZPFSHOW variable.  But,
the ZPFSHOW variable does not seem to work as expected.  It appears that it
is not updated with the actual state of the PFSHOW command results.
According to the documentation it should contain ON or OFF but usually I get
a blank value and changing the PFSHOW state does not change the ZPFSHOW
variable.  Using Dialog Test (7.3) I can change the value from blank to ON
but it gets reset to blank.

Can anyone explain this or describe a proper way to know the actual
displayable size of a dynamic screen area?  I understand a command could be
used to turn the PFK display on or off dynamically but I would rather
respect the user settings.  I also know I could just leave the last two rows
unused, but I would rather use all that's available.  

Chuck Arney
Arney Computer Systems
www.arneycomputer.com

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

Re: assembler help!

Prior to the L R2,PARMJOBC, there is a LR  R1,R1 which zeroes out R1 right?  
So, does R1 have data in it or an address?  I was assuming that R1 had data in 
it (with leading zeroes and 8 on the end) and I'm trying to add other values to 
that value.  How can I do that if not the way I tried (ICM followed by the MVC 
and A)?

Anne D. Crabtree
System Programmer
WV Office of Technology Data Center
1900 Kanawha Blvd East
Charleston, WV  25305
(304)558-5914 ext 58292
(304)558-1441 fax


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of 
Barkow, Eileen
Sent: Thursday, August 04, 2011 9:17 AM
To: IBM-MAIN@bama.ua.edu
Subject: Re: assembler help!

A mask of 7 loads the low order 3 bytes, so that r1 would contain whatever the 
high order byte it contained
originally plus 08 in the low order 3 bytes.
L R2,PARMJOBC
ICM   R1,7,0(R2)

If smf30cps contains 0001, then the first 4 bytes of wk1 would contain 
0001 after the move
And r1 would also contain 0001 after the add, assuming WK1 is on a full 
word boundary.

MVC   WK1(4),SMF30CPS
A R1,WK1-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of 
Crabtree, Anne D
Sent: Thursday, August 04, 2011 9:02 AM
To: IBM-MAIN@bama.ua.edu
Subject: assembler help!

In our IEFACTRT (accounting exit), an assembler program, it has the following 
commands:

L R2,PARMJOBC
ICM   R1,7,0(R2)

If PARMJOBC contains a binary integer length of 4 with 00 00 00 08, what ends 
up in all bits of R1?  I am trying to add additional values to what is in R1 by 
doing:

MVC   WK1(4),SMF30CPS
A R1,WK1

This is not doing what I want it to do! If SMF30CPS, also a binary integer 
length of 4, has 00 00 00 01,  what ends up in R1?

Anne D. Crabtree
System Programmer
WV Office of Technology Data Center
1900 Kanawha Blvd East
Charleston, WV  25305
(304)558-5914 ext 58292
(304)558-1441 fax


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu 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 lists...@bama.ua.edu 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 lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: assembler help!

2011-08-04 Thread Ward, Mike S

Anne, asking this type of question on this list is ok. And a lot of the
people on this list are very sharp and give excellent answers. There is
another list at assembler-l...@listserv.uga.edu that just deals with
assembler questions. These people are also very sharp. :)

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On
Behalf Of Crabtree, Anne D
Sent: Thursday, August 04, 2011 8:46 AM
To: IBM-MAIN@bama.ua.edu
Subject: Re: assembler help!

Prior to the L R2,PARMJOBC, there is a LR  R1,R1 which zeroes out R1
right?  So, does R1 have data in it or an address?  I was assuming that
R1 had data in it (with leading zeroes and 8 on the end) and I'm trying
to add other values to that value.  How can I do that if not the way I
tried (ICM followed by the MVC and A)?

Anne D. Crabtree
System Programmer
WV Office of Technology Data Center
1900 Kanawha Blvd East
Charleston, WV  25305
(304)558-5914 ext 58292
(304)558-1441 fax

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On
Behalf Of Barkow, Eileen
Sent: Thursday, August 04, 2011 9:17 AM
To: IBM-MAIN@bama.ua.edu
Subject: Re: assembler help!

A mask of 7 loads the low order 3 bytes, so that r1 would contain
whatever the high order byte it contained
originally plus 08 in the low order 3 bytes.
L R2,PARMJOBC
ICM   R1,7,0(R2)

If smf30cps contains 0001, then the first 4 bytes of wk1 would
contain 0001 after the move
And r1 would also contain 0001 after the add, assuming WK1 is on a
full word boundary.

MVC   WK1(4),SMF30CPS
A R1,WK1-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On
Behalf Of Crabtree, Anne D
Sent: Thursday, August 04, 2011 9:02 AM
To: IBM-MAIN@bama.ua.edu
Subject: assembler help!

In our IEFACTRT (accounting exit), an assembler program, it has the
following commands:

L R2,PARMJOBC
ICM   R1,7,0(R2)

If PARMJOBC contains a binary integer length of 4 with 00 00 00 08, what
ends up in all bits of R1?  I am trying to add additional values to what
is in R1 by doing:

MVC   WK1(4),SMF30CPS
A R1,WK1

This is not doing what I want it to do! If SMF30CPS, also a binary
integer length of 4, has 00 00 00 01,  what ends up in R1?

Anne D. Crabtree
System Programmer
WV Office of Technology Data Center
1900 Kanawha Blvd East
Charleston, WV  25305
(304)558-5914 ext 58292
(304)558-1441 fax

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu 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 lists...@bama.ua.edu 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 lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

==
This email and any files transmitted with it are confidential and intended 
solely for the use of the individual or entity
to which they are addressed. If you have received this email in error please 
notify the system manager. This message
contains confidential information and is intended only for the individual 
named. If you are not the named addressee you
should not disseminate, distribute or copy this e-mail. Please notify the 
sender immediately by e-mail if you
have received this e-mail by mistake and delete this e-mail from your system. 
If you are not the intended recipient
you are notified that disclosing, copying, distributing or taking any action in 
reliance on the contents of this
information is strictly prohibited.

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

Re: assembler help!

*NO*

LR   R1,R1 will not zero out R1. SRR1,R1  will zero out R1.

snip
Prior to the L R2,PARMJOBC, there is a LR  R1,R1 which zeroes out R1
right?  So, does R1 have data in it or an address?  I was assuming that
R1 had data in it (with leading zeroes and 8 on the end) and I'm trying
to add other values to that value.  How can I do that if not the way I
tried (ICM followed by the MVC and A)?
/snip


SNIP
A mask of 7 loads the low order 3 bytes, so that r1 would contain
whatever the high order byte it contained
originally plus 08 in the low order 3 bytes.
L R2,PARMJOBC
ICM   R1,7,0(R2)

If smf30cps contains 0001, then the first 4 bytes of wk1 would
contain 0001 after the move
And r1 would also contain 0001 after the add, assuming WK1 is on a
full word boundary.

MVC   WK1(4),SMF30CPS
A R1,WK1

/SNIP



SNIP
In our IEFACTRT (accounting exit), an assembler program, it has the
following commands:

L R2,PARMJOBC
ICM   R1,7,0(R2)

If PARMJOBC contains a binary integer length of 4 with 00 00 00 08, what
ends up in all bits of R1?  I am trying to add additional values to what
is in R1 by doing:

MVC   WK1(4),SMF30CPS
A R1,WK1
/SNIP

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

Re: ISPF ZPFSHOW Variable

2011-08-04 Thread Dave Salt

Use LVLINE (Last Visible LINE) in the panel. This will tell you how many lines 
are visible, regardless of whether ZPFSHOW is on or off.

HTH,
 
Dave Salt

SimpList(tm) - try it; you'll get it! 

http://www.mackinney.com/products/program-development/simplist.html  





 Date: Thu, 4 Aug 2011 08:25:14 -0500
 From: ch...@arneycomputer.com
 Subject: ISPF ZPFSHOW Variable
 To: IBM-MAIN@bama.ua.edu
 
 In an assembler ISPF application I am trying to adjust the size of a dynamic
 screen area based on the results of a PQUERY and the ZPFSHOW variable.  But,
 the ZPFSHOW variable does not seem to work as expected.  It appears that it
 is not updated with the actual state of the PFSHOW command results.
 According to the documentation it should contain ON or OFF but usually I get
 a blank value and changing the PFSHOW state does not change the ZPFSHOW
 variable.  Using Dialog Test (7.3) I can change the value from blank to ON
 but it gets reset to blank.
 
 Can anyone explain this or describe a proper way to know the actual
 displayable size of a dynamic screen area?  I understand a command could be
 used to turn the PFK display on or off dynamically but I would rather
 respect the user settings.  I also know I could just leave the last two rows
 unused, but I would rather use all that's available.  
 
 Chuck Arney
 Arney Computer Systems
 www.arneycomputer.com
 
 --
 For IBM-MAIN subscribe / signoff / archive access instructions,
 send email to lists...@bama.ua.edu 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 lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: ISPF ZPFSHOW Variable

2011-08-04 Thread Itschak Mugzach

Variable LVLINE holds the last visible line of an area. If you know where
the area start on your panel, it is easy to know screen depth.

ITschak

On Thu, Aug 4, 2011 at 4:25 PM, Chuck Arney ch...@arneycomputer.com wrote:

 In an assembler ISPF application I am trying to adjust the size of a
 dynamic
 screen area based on the results of a PQUERY and the ZPFSHOW variable.
  But,
 the ZPFSHOW variable does not seem to work as expected.  It appears that it
 is not updated with the actual state of the PFSHOW command results.
 According to the documentation it should contain ON or OFF but usually I
 get
 a blank value and changing the PFSHOW state does not change the ZPFSHOW
 variable.  Using Dialog Test (7.3) I can change the value from blank to ON
 but it gets reset to blank.

 Can anyone explain this or describe a proper way to know the actual
 displayable size of a dynamic screen area?  I understand a command could be
 used to turn the PFK display on or off dynamically but I would rather
 respect the user settings.  I also know I could just leave the last two
 rows
 unused, but I would rather use all that's available.

 Chuck Arney
 Arney Computer Systems
 www.arneycomputer.com

 --
 For IBM-MAIN subscribe / signoff / archive access instructions,
 send email to lists...@bama.ua.edu 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 lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: assembler help!

Sorry!  I meant SR R1,R1 ... typo

Anne D. Crabtree
System Programmer
WV Office of Technology Data Center
1900 Kanawha Blvd East
Charleston, WV  25305
(304)558-5914 ext 58292
(304)558-1441 fax


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of 
Staller, Allan
Sent: Thursday, August 04, 2011 9:51 AM
To: IBM-MAIN@bama.ua.edu
Subject: Re: assembler help!

*NO*

LR   R1,R1 will not zero out R1. SRR1,R1  will zero out R1.

snip
Prior to the L R2,PARMJOBC, there is a LR  R1,R1 which zeroes out R1
right?  So, does R1 have data in it or an address?  I was assuming that
R1 had data in it (with leading zeroes and 8 on the end) and I'm trying
to add other values to that value.  How can I do that if not the way I
tried (ICM followed by the MVC and A)?
/snip


SNIP
A mask of 7 loads the low order 3 bytes, so that r1 would contain
whatever the high order byte it contained
originally plus 08 in the low order 3 bytes.
L R2,PARMJOBC
ICM   R1,7,0(R2)

If smf30cps contains 0001, then the first 4 bytes of wk1 would
contain 0001 after the move
And r1 would also contain 0001 after the add, assuming WK1 is on a
full word boundary.

MVC   WK1(4),SMF30CPS
A R1,WK1

/SNIP



SNIP
In our IEFACTRT (accounting exit), an assembler program, it has the
following commands:

L R2,PARMJOBC
ICM   R1,7,0(R2)

If PARMJOBC contains a binary integer length of 4 with 00 00 00 08, what
ends up in all bits of R1?  I am trying to add additional values to what
is in R1 by doing:

MVC   WK1(4),SMF30CPS
A R1,WK1
/SNIP

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu 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 lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: assembler help!

I realize I'm not asking the smartest questions...  PARMJOBC is an address and 
at that address is the value 0008 (I think).   To be honest, I can't even 
figure out where it is getting PARMJOBC.  I'm basing the assumption on the SMF 
record I dumped for the job that I ran that uses the exit.  

If anyone is using IEFACTRT to do chargeback and is using multiple SMF30 cpu 
type fields in the calculation(ie. SMF30ICU, SMF30IIP, SMF30_TIME_ON_IFA, 
etc...)  I'd love to see how you did it.  The production version only looks at 
SMF30CPT for job cpu time and I need to add in all the other CPU fields!

Anne D. Crabtree
System Programmer
WV Office of Technology Data Center
1900 Kanawha Blvd East
Charleston, WV  25305
(304)558-5914 ext 58292
(304)558-1441 fax


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of 
Steve Comstock
Sent: Thursday, August 04, 2011 9:31 AM
To: IBM-MAIN@bama.ua.edu
Subject: Re: assembler help!

On 8/4/2011 7:02 AM, Crabtree, Anne D wrote:
 In our IEFACTRT (accounting exit), an assembler program, it has the following 
 commands:

 L R2,PARMJOBC
 ICM   R1,7,0(R2)

 If PARMJOBC contains a binary integer length of 4 with 00 00 00 08,
 what ends up in all bits of R1?

Unpredictable. The first instruction picks up data from
memory location named PARMJOBC, but the second instruction
uses that value as an address not as data.

Either the first instruction should be 'LA' or PARMJOBC
contains an address. If PARMJOBC contains an address,
it should probably not be location 4 in memory!


I am trying to add additional values to what is in R1 by doing:

 MVC   WK1(4),SMF30CPS
 A R1,WK1

Why would you do this instead of just using one instruction:

   A  R1,SMF3OCPS

??


 This is not doing what I want it to do! If SMF30CPS, also a binary integer 
 length of 4, has 00 00 00 01,  what ends up in R1?

 Anne D. Crabtree
 System Programmer
 WV Office of Technology Data Center
 1900 Kanawha Blvd East
 Charleston, WV  25305
 (304)558-5914 ext 58292
 (304)558-1441 fax


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



-- 

Kind regards,

-Steve Comstock
The Trainer's Friend, Inc.

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

* Special promotion: 15% off on all DB2 training classes
 scheduled by September 1, taught by year end 2011

* Check out our entire DB2 curriculum at:
 http://www.trainersfriend.com/DB2_and_VSAM_courses/DB2curric.htm

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu 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 lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Time On Mainframe Emails

I don't know that I would recommend that unless he gets his TOD clock set to
the proper UTC time.

On Thu, Aug 4, 2011 at 8:28 AM, Staller, Allan allan.stal...@kbmg.comwrote:

 Add the following to /etc/rc and /etc/profile

 TZ=desired value
 export $TZ

 HTH,

 snip
 Is there something I should be changing in USS?
 *
 *
 /snip

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


CONFIDENTIALITY/EMAIL NOTICE: The material in this transmission contains
confidential and privileged information intended only for the addressee.
If you are not the intended recipient, please be advised that you have
received this material in error and that any forwarding, copying, printing,
distribution, use or disclosure of the material is strictly prohibited.
If you have received this material in error, please (i) do not read it,
(ii) reply to the sender that you received the message in error, and
(iii) erase or destroy the material. Emails are not secure and can be
intercepted, amended, lost or destroyed, or contain viruses. You are deemed
to have accepted these risks if you communicate with us by email. Thank you.

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

Re: ISPF ZPFSHOW Variable

2011-08-04 Thread Bass, Walter W

I have also been frustrated by this same issue of ZPFSHOW not reflecting
the real PFSHOW state.  I have a rexx application (a BMS map editor)
that needs to determine the state of PFSHOW and SWAPBAR, because I want
to temporarily turn them off (for a full screen display) then restore
them back to the former state later (when full screen is turned off).

So, is ZPFSHOW broken?  How about ZSWPBR?  They do not seem to work as
advertised.

Thanks,
Bill Bass
United Health Care
Greenville, SC

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On
Behalf Of Itschak Mugzach
Sent: Thursday, August 04, 2011 10:06 AM
To: IBM-MAIN@bama.ua.edu
Subject: Re: ISPF ZPFSHOW Variable

Variable LVLINE holds the last visible line of an area. If you know
where the area start on your panel, it is easy to know screen depth.

ITschak

On Thu, Aug 4, 2011 at 4:25 PM, Chuck Arney ch...@arneycomputer.com
wrote:

 In an assembler ISPF application I am trying to adjust the size of a 
 dynamic screen area based on the results of a PQUERY and the ZPFSHOW 
 variable.
  But,
 the ZPFSHOW variable does not seem to work as expected.  It appears 
 that it is not updated with the actual state of the PFSHOW command
results.
 According to the documentation it should contain ON or OFF but usually

 I get a blank value and changing the PFSHOW state does not change the 
 ZPFSHOW variable.  Using Dialog Test (7.3) I can change the value from

 blank to ON but it gets reset to blank.

 Can anyone explain this or describe a proper way to know the actual 
 displayable size of a dynamic screen area?  I understand a command 
 could be used to turn the PFK display on or off dynamically but I 
 would rather respect the user settings.  I also know I could just 
 leave the last two rows unused, but I would rather use all that's 
 available.

 Chuck Arney
 Arney Computer Systems
 www.arneycomputer.com

 --
 For IBM-MAIN subscribe / signoff / archive access instructions, send 
 email to lists...@bama.ua.edu 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 lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search
the archives at http://bama.ua.edu/archives/ibm-main.html

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 lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: assembler help!

2011-08-04 Thread Chase, John

 -Original Message-
 From: IBM Mainframe Discussion List On Behalf Of Crabtree, Anne D
 
 In our IEFACTRT (accounting exit), an assembler program, it has the
following commands:
 
 L R2,PARMJOBC
 ICM   R1,7,0(R2)
 
 If PARMJOBC contains a binary integer length of 4 with 00 00 00 08,
what ends up in all bits of R1?  I
 am trying to add additional values to what is in R1 by doing:
 
 MVC   WK1(4),SMF30CPS
 A R1,WK1
 
 This is not doing what I want it to do! If SMF30CPS, also a binary
integer length of 4, has 00 00 00
 01,  what ends up in R1?

In a later post you added that, prior to L   R2,PARMJOBC you have SR
R1,R1.  So, the updated sequence of instructions should be
substantially:

SRR1,R1
...  (at this point, R1 contains 00 00 00 00)

L R2,PARMJOBC
...  Since location PARMJOBC contains 00 00 00 08, R2 now
contains 00 00 00 08)

ICM   R1,7,0(R2)
...  Now R1 contains, in its second through fourth bytes, the
contents of the first three bytes of storage at location 8, which
(according to my really old yellow booklet) is the Restart Old PSW.

MVC   WK1(4),SMF30CPS
...  Now the area of storage known to your program as WK1
contains, in its first four bytes, the contents of the area of storage
known to your program as SMF30CPS.

A R1,WK1
...  Now R1 contains the arithmetic sum of the first three bytes
of the Restart Old PSW and whatever was in the first four bytes of the
storage area WK1.

As others have suggested, the L   R2,PARMJOBC should probably be LA
R2,PARMJOBC.

-jc-

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

Re: Time On Mainframe Emails

2011-08-04 Thread George Rodriguez

In a specific location of file rc?
*
*
*George Rodriguez*
*Specialist II - IT Solutions*
*Application Support / Quality Assurance*
*PX - 47652*
*(561) 357-7652 (office)*
*(561) 707-3496 (mobile)*
*School District of Palm Beach County*
*3348 Forest Hill Blvd.*
*Room B-332*
*West Palm Beach, FL. 33406-5869*
*Florida's Only A-Rated Urban District For Seven Consecutive Years*



On Thu, Aug 4, 2011 at 8:28 AM, Staller, Allan allan.stal...@kbmg.comwrote:

 Add the following to /etc/rc and /etc/profile

 TZ=desired value
 export $TZ

 HTH,

 snip
 Is there something I should be changing in USS?
 *
 *
 /snip

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


Home of Florida's first LEED Gold Certified School

Under Florida law, e-mail addresses are public records. If you do not want your 
e-mail address
released in response to a public records request, do not send electronic mail 
to this entity. 
Instead, contact this office by phone or in writing.

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

Re: assembler help!

2011-08-04 Thread van der Grijn, Bart (B)

I believe Anne mentioned something about PARMJOBC containing the address
to a field with x0..08, rather than the actual value. 

Looking at the TWS supplied code on our system, that seems to match. It
has: 

L DRKR2,PARMJOBC  LOAD ADDR OF JOB CPU TIME
ICM   DRKR1,K7,K0(DRKR2)  LOAD JOB CPU TIME

See also the code listed in
http://www.mail-archive.com/ibm-main@bama.ua.edu/msg62558.html

Bart



-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On
Behalf Of Chase, John
Sent: Thursday, August 04, 2011 10:47 AM
To: IBM-MAIN@bama.ua.edu
Subject: Re: assembler help!

 -Original Message-
 From: IBM Mainframe Discussion List On Behalf Of Crabtree, Anne D
 
 In our IEFACTRT (accounting exit), an assembler program, it has the
following commands:
 
 L R2,PARMJOBC
 ICM   R1,7,0(R2)
 
 If PARMJOBC contains a binary integer length of 4 with 00 00 00 08,
what ends up in all bits of R1?  I
 am trying to add additional values to what is in R1 by doing:
 
 MVC   WK1(4),SMF30CPS
 A R1,WK1
 
 This is not doing what I want it to do! If SMF30CPS, also a binary
integer length of 4, has 00 00 00
 01,  what ends up in R1?

In a later post you added that, prior to L   R2,PARMJOBC you have SR
R1,R1.  So, the updated sequence of instructions should be
substantially:

SRR1,R1
...  (at this point, R1 contains 00 00 00 00)

L R2,PARMJOBC
...  Since location PARMJOBC contains 00 00 00 08, R2 now
contains 00 00 00 08)

ICM   R1,7,0(R2)
...  Now R1 contains, in its second through fourth bytes, the
contents of the first three bytes of storage at location 8, which
(according to my really old yellow booklet) is the Restart Old PSW.

MVC   WK1(4),SMF30CPS
...  Now the area of storage known to your program as WK1
contains, in its first four bytes, the contents of the area of storage
known to your program as SMF30CPS.

A R1,WK1
...  Now R1 contains the arithmetic sum of the first three bytes
of the Restart Old PSW and whatever was in the first four bytes of the
storage area WK1.

As others have suggested, the L   R2,PARMJOBC should probably be LA
R2,PARMJOBC.

-jc-

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu 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 lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: assembler help!

2011-08-04 Thread David Andrews

On Thu, 2011-08-04 at 10:20 -0400, Crabtree, Anne D wrote:
 If anyone is using IEFACTRT to do chargeback and is using multiple
 SMF30 cpu type fields in the calculation(ie. SMF30ICU, SMF30IIP,
 SMF30_TIME_ON_IFA, etc...)  I'd love to see how you did it.  The
 production version only looks at SMF30CPT for job cpu time and I need
 to add in all the other CPU fields!

The halfword SMF30TFL contains bits that indicate which of the CPU
fields contain valid data and which do not.

If the high order bit of SMF30TFL is off (i.e. SMF30TFL is non-negative)
then all fields are valid.  Otherwise, you'll have to examine each bit
in SMF30TFL before you add corresponding selected CPU fields.

-- 
David Andrews
A. Duda  Sons, Inc.
david.andr...@duda.com

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

Re: ISPF ZPFSHOW Variable

2011-08-04 Thread Chuck Arney

LVLINE is a panel function rather than a variable and it does not seem to be
usable for this purpose.  The manual says that the value may not be correct
depending on the command line being at the bottom of the screen, the PF key
display and the SPLIT status.  Its purpose seems to be more related to
determining the last visible row in split screen mode.

 

I have not tried it but given those restrictions I don't think it is worth a
serious look.

 

Chuck Arney

Arney Computer Systems

www.arneycomputer.com 

 

 

  _  


From: Itschak Mugzach imugz...@gmail.com
To: IBM-MAIN@bama.ua.edu
Sent: Thursday, August 4, 2011 9:06 AM
Subject: Re: ISPF ZPFSHOW Variable

Variable LVLINE holds the last visible line of an area. If you know where
the area start on your panel, it is easy to know screen depth.

ITschak





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

IGD06023I STORAGE GROUP ZFSCLASS IS NOT REFERENCED BY THE STORAGE GROUP ACS ROUTINE

2011-08-04 Thread Lim Ming Liang


Hi,
I am new in DFSMS, trying to do a validate against my SCDS, got a 
warning msg


IGD06023I STORAGE GROUP ZFSCLASS IS NOT REFERENCED BY THE STORAGE GROUP 
ACS ROUTINE


But in Storage Group ACS routine as below;

PROC STORGRP
/**/
FILTLIST HSM_HLQ INCLUDE('HFS1')
FILTLIST ZFS_HLQ INCLUDE('ZFS')
FILTLIST HS1_HLQ INCLUDE('CICSTS1X')
FILTLIST SYSTEM_DATA_SET INCLUDE(SYS%.**)
FILTLIST VALID_STORAGE_CLASS INCLUDE('HFSCLASS','DBCLASS','ZFSCLASS')
/**/
/**/
/* End of FILTLIST Statements */
/**/
 SELECT
  WHEN (HLQ = HSM_HLQ)  /*  MANAGE MULTI VOLUME HFS DATA SETS */
DO
  SET STORGRP = 'HFSCLASS'
  EXIT
END
  WHEN (HLQ = ZFS_HLQ)  /*  MANAGE MULTI VOLUME ZFS DATA SETS
DO
  SET STORGRP = 'ZFSCLASS'
  EXIT
END
  WHEN (HLQ = HS1_HLQ)   /*  MANAGE HFS DATA SETS*
DO
  SET STORGRP = 'DBCLASS'
  EXIT
END
 END
END  /* END OF STORAGE GROUP ROUTINE PROC */


I did have ZFSCLASS referenced in the ACS source, where did I go wrong ?

--
Regards Lim ML

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

Re: ISPF ZPFSHOW Variable

2011-08-04 Thread Dave Salt

LVLINE is a function that can be used to set a variable. Several years ago I 
tested it extensively and it always returned an accurate value for the number 
of visible lines. This is true regardless of where the screen is split, or 
whether PFSHOW is on or off, or whether the SWAPBAR is being displayed (etc). 
Your mileage may vary but all I can say is it works for me.
 
Dave Salt

SimpList(tm) - try it; you'll get it! 

http://www.mackinney.com/products/program-development/simplist.html  




 Date: Thu, 4 Aug 2011 10:07:29 -0500
 From: ch...@arneycomputer.com
 Subject: Re: ISPF ZPFSHOW Variable
 To: IBM-MAIN@bama.ua.edu
 
 LVLINE is a panel function rather than a variable and it does not seem to be
 usable for this purpose.  The manual says that the value may not be correct
 depending on the command line being at the bottom of the screen, the PF key
 display and the SPLIT status.  Its purpose seems to be more related to
 determining the last visible row in split screen mode.
 
  
 
 I have not tried it but given those restrictions I don't think it is worth a
 serious look.
 
  
 
 Chuck Arney
 
 Arney Computer Systems
 
 www.arneycomputer.com 
 
  
 
  
 
   _  
 
 
 From: Itschak Mugzach imugz...@gmail.com
 To: IBM-MAIN@bama.ua.edu
 Sent: Thursday, August 4, 2011 9:06 AM
 Subject: Re: ISPF ZPFSHOW Variable
 
 Variable LVLINE holds the last visible line of an area. If you know where
 the area start on your panel, it is easy to know screen depth.
 
 ITschak
 
 
 
 
 
 --
 For IBM-MAIN subscribe / signoff / archive access instructions,
 send email to lists...@bama.ua.edu 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 lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: IGD06023I STORAGE GROUP ZFSCLASS IS NOT REFERENCED BY THE STORAGE GROUP ACS ROUTINE

2011-08-04 Thread Darth Keller

Your validate seems to be indicating that this code is not actually part 
of your translated routines.

I'd say that either -

1.  This code was never actually translated to the SCDS that you are using 
for this Validate .

2. Your code actually ends before this section.  Take a close look at the 
output of your translate.

#1 is probably the most likely. 


HTH's
ddk





From:   Lim Ming Liang limm...@unifi.my
To: IBM-MAIN@bama.ua.edu
Date:   08/04/2011 10:14 AM
Subject:IGD06023I STORAGE GROUP ZFSCLASS IS NOT REFERENCED BY THE 
STORAGE GROUP ACS ROUTINE
Sent by:IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu



Hi,
I am new in DFSMS, trying to do a validate against my SCDS, got a 
warning msg

IGD06023I STORAGE GROUP ZFSCLASS IS NOT REFERENCED BY THE STORAGE GROUP 
ACS ROUTINE

But in Storage Group ACS routine as below;

PROC STORGRP
/**/
FILTLIST HSM_HLQ INCLUDE('HFS1')
FILTLIST ZFS_HLQ INCLUDE('ZFS')
FILTLIST HS1_HLQ INCLUDE('CICSTS1X')
FILTLIST SYSTEM_DATA_SET INCLUDE(SYS%.**)
FILTLIST VALID_STORAGE_CLASS INCLUDE('HFSCLASS','DBCLASS','ZFSCLASS')
/**/
/**/
/* End of FILTLIST Statements */
/**/
  SELECT
   WHEN (HLQ = HSM_HLQ)  /*  MANAGE MULTI VOLUME HFS DATA SETS */
 DO
   SET STORGRP = 'HFSCLASS'
   EXIT
 END
   WHEN (HLQ = ZFS_HLQ)  /*  MANAGE MULTI VOLUME ZFS DATA SETS
 DO
   SET STORGRP = 'ZFSCLASS'
   EXIT
 END
   WHEN (HLQ = HS1_HLQ)   /*  MANAGE HFS DATA SETS*
 DO
   SET STORGRP = 'DBCLASS'
   EXIT
 END
  END
END  /* END OF STORAGE GROUP ROUTINE PROC */


I did have ZFSCLASS referenced in the ACS source, where did I go wrong ?

-- 
Regards Lim ML

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



This e-mail message and all attachments transmitted with it may
contain legally privileged and/or confidential information intended
solely for the use of the addressee(s). If the reader of this
message is not the intended recipient, you are hereby notified that
any reading, dissemination, distribution, copying, forwarding or
other use of this message or its attachments is strictly
prohibited. If you have received this message in error, please
notify the sender immediately and delete this message and all
copies and backups thereof. Thank you.

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

Re: assembler help!

See sys1.samplib(ieeactrt) for doc on the parameter  lists,

snip
I realize I'm not asking the smartest questions...  PARMJOBC is an
address and at that address is the value 0008 (I think).   To be
honest, I can't even figure out where it is getting PARMJOBC.  
/snip

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

Re: Time On Mainframe Emails

agreed

Al Staller | Z Systems Programmer | KBM Group | (Tel) 972 664 3565 |
allan.stal...@kbmg.com


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On
Behalf Of Scott Rowe
Sent: Thursday, August 04, 2011 9:33 AM
To: IBM-MAIN@bama.ua.edu
Subject: Re: Time On Mainframe Emails

I don't know that I would recommend that unless he gets his TOD clock
set to
the proper UTC time.

On Thu, Aug 4, 2011 at 8:28 AM, Staller, Allan
allan.stal...@kbmg.comwrote:

 Add the following to /etc/rc and /etc/profile

 TZ=desired value
 export $TZ

 HTH,

 snip
 Is there something I should be changing in USS?
 *
 *
 /snip

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


CONFIDENTIALITY/EMAIL NOTICE: The material in this transmission contains
confidential and privileged information intended only for the addressee.
If you are not the intended recipient, please be advised that you have
received this material in error and that any forwarding, copying,
printing,
distribution, use or disclosure of the material is strictly prohibited.
If you have received this material in error, please (i) do not read it,
(ii) reply to the sender that you received the message in error, and
(iii) erase or destroy the material. Emails are not secure and can be
intercepted, amended, lost or destroyed, or contain viruses. You are
deemed
to have accepted these risks if you communicate with us by email. Thank
you.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu 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 lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Time On Mainframe Emails

Almost anywhere in the file. I have mine about 5 lines in.

Be aware. My prior post was based on the HW clock being set to GMT. The
desired value is the timezone offset

In the case that the HW clock is set to GMT, I would probably use
EST5EDT. The 5 can be adjusted up or down to yield the correct
timezone offset.

e.g. EST4EDT is also valid. Google is your friend. There are hundreds of
possible values for the TZ offset.

HTH,

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

Re: assembler help!

2011-08-04 Thread Edward Jaffe


On 8/4/2011 6:02 AM, Crabtree, Anne D wrote:

In our IEFACTRT (accounting exit), an assembler program, it has the following 
commands:

L R2,PARMJOBC
ICM   R1,7,0(R2)

If PARMJOBC contains a binary integer length of 4 with 00 00 00 08, what ends 
up in all bits of R1?  I am trying to add additional values to what is in R1 by 
doing:

MVC   WK1(4),SMF30CPS
A R1,WK1

This is not doing what I want it to do! If SMF30CPS, also a binary integer 
length of 4, has 00 00 00 01,  what ends up in R1?


Many have asserted that assembler language skills are inadequate to properly 
maintain 21st-Century z/OS systems.


Would it be better if IBM provided sample exits in METAL C?

--
Edward E Jaffe
Phoenix Software International, Inc
831 Parkview Drive North
El Segundo, CA 90245
310-338-0400 x318
edja...@phoenixsoftware.com
http://www.phoenixsoftware.com/

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

Re: Does this apply to some of the messages here?

2011-08-04 Thread Jeff Holst

On Tue, 2 Aug 2011 16:36:54 -0500, Rick Fochtman rfocht...@ync.net wrote:

-snip
Too many #%$# lawyers with too much free time and too little to do.

But on the positive side (ever the optimist), perhaps it's the
beginning of an effort to demonstrate the inanity (and insanity) of far
too many knee-jerk-reaction laws enacted to protect us from various and
sundry bogeymen.
unsnip-
What do you call 100,000 lawyers buried chin-deep in concrete?

CONCRETE SHORTAGE!

Rick

You are in a room with Adolf Hitler, Osama bin Ladin, and a lawyer.   You have 
a gun and two bullets. What should you do?

Shoot the lawyer. Twice.

Jeff

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

Re: NOT Running DFHSM on an LPAR

2011-08-04 Thread Paul Gilmartin

On Wed, 3 Aug 2011 14:05:47 -0400, John Eells wrote:

Lizette Koehler wrote:
 I have 5 LPARS currently running DFHSM.  I have just added a Sixth LPAR 
 where we do not want to run DFHSM due to constraints we are placing on this 
 LPAR.

 I ran a test on what would happen with DFHSM not running on a RECALL.

 When I issued the command, it placed the request on a queue.

 So, the question is, can I have the request failed on the LPAR where we were 
 not going to run DFHSM rather than the request getting queued?

I'm not sure whether you want to (a) avoid recalls or (b) avoid the CPU
time required to run DFSMShsm at all.
 
In our case (which may be different from Lizette's) we have so many
lab systems, at so many OS levels (some unsupported, but we must
be able to reproduce customer problems) that z/OS will not allow us
to sysplex them all.  And some of our migration devices are not attached
to some of our test systems.

So sometimes I submit a job to a test system.  It hangs with a WTOR
that a needed data set is migrated, and HSM is not started; start
HSM and reply.  So I log on to a production system; recall the data
set; go back to the test system and reply RETRY.

HSM (or perhaps allocation) is a moron with tunnel vision.  It repeats
the WTOR to start HSM.  It has lost sight of its objective, to allocate
the data set, and is narrowly fixated on starting HSM.  If it would
only look around for the data set it would see there's _no_need_
for HSM; the data set is available.  I reply CANCEL  and re-submit
the job.

Bad design.  What were the designers thinking?  Or is it YA
misapplication of Conway's law?

-- gil

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

Re: Does this apply to some of the messages here?

2011-08-04 Thread Grinsell, Don

Yeah...especially since the other two are already dead.  Sorry, just couldn't 
resist.  ;)

--
 
Donald Grinsell
State of Montana
406-444-2983
dgrins...@mt.gov

They that can give up essential liberty to obtain a little temporary safety 
deserve neither liberty nor safety.
-- Benjamin Franklin

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of 
Jeff Holst
Sent: Thursday, 04 August 2011 10:29
To: IBM-MAIN@bama.ua.edu
Subject: Re: Does this apply to some of the messages here?

On Tue, 2 Aug 2011 16:36:54 -0500, Rick Fochtman rfocht...@ync.net wrote:

-snip
Too many #%$# lawyers with too much free time and too little to do.

But on the positive side (ever the optimist), perhaps it's the 
beginning of an effort to demonstrate the inanity (and insanity) of far 
too many knee-jerk-reaction laws enacted to protect us from various and 
sundry bogeymen.
unsnip---
-- What do you call 100,000 lawyers buried chin-deep in concrete?

CONCRETE SHORTAGE!

Rick

You are in a room with Adolf Hitler, Osama bin Ladin, and a lawyer.   You have 
a gun and two bullets. What should you do?

Shoot the lawyer. Twice.

Jeff

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@bama.ua.edu 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 lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: IGD06023I STORAGE GROUP ZFSCLASS IS NOT REFERENCED BY THE STORAGE GROUP ACS ROUTINE

2011-08-04 Thread Gibney, Dave

Starting with:
WHEN (HLQ = ZFS_HLQ)  /*  MANAGE MULTI VOLUME ZFS DATA SETS
It's all comment until the */ on the last line.

Dave Gibney
Information Technology Services
Washington State University


 -Original Message-
 From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On
 Behalf Of Darth Keller
 Sent: Thursday, August 04, 2011 8:27 AM
 To: IBM-MAIN@bama.ua.edu
 Subject: Re: IGD06023I STORAGE GROUP ZFSCLASS IS NOT REFERENCED BY
 THE STORAGE GROUP ACS ROUTINE
 
 Your validate seems to be indicating that this code is not actually part
 of your translated routines.
 
 I'd say that either -
 
 1.  This code was never actually translated to the SCDS that you are using
 for this Validate .
 
 2. Your code actually ends before this section.  Take a close look at the
 output of your translate.
 
 #1 is probably the most likely.
 
 
 HTH's
 ddk
 
 
 
 
 
 From:   Lim Ming Liang limm...@unifi.my
 To: IBM-MAIN@bama.ua.edu
 Date:   08/04/2011 10:14 AM
 Subject:IGD06023I STORAGE GROUP ZFSCLASS IS NOT REFERENCED BY
 THE
 STORAGE GROUP ACS ROUTINE
 Sent by:IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu
 
 
 
 Hi,
 I am new in DFSMS, trying to do a validate against my SCDS, got a
 warning msg
 
 IGD06023I STORAGE GROUP ZFSCLASS IS NOT REFERENCED BY THE STORAGE
 GROUP
 ACS ROUTINE
 
 But in Storage Group ACS routine as below;
 
 PROC STORGRP
 /**
 /
 FILTLIST HSM_HLQ INCLUDE('HFS1')
 FILTLIST ZFS_HLQ INCLUDE('ZFS')
 FILTLIST HS1_HLQ INCLUDE('CICSTS1X')
 FILTLIST SYSTEM_DATA_SET INCLUDE(SYS%.**)
 FILTLIST VALID_STORAGE_CLASS INCLUDE('HFSCLASS','DBCLASS','ZFSCLASS')
 /**
 /
 /**
 /
 /* End of FILTLIST Statements */
 /**
 /
   SELECT
WHEN (HLQ = HSM_HLQ)  /*  MANAGE MULTI VOLUME HFS DATA
 SETS */
  DO
SET STORGRP = 'HFSCLASS'
EXIT
  END
WHEN (HLQ = ZFS_HLQ)  /*  MANAGE MULTI VOLUME ZFS DATA
 SETS
  DO
SET STORGRP = 'ZFSCLASS'
EXIT
  END
WHEN (HLQ = HS1_HLQ)   /*  MANAGE HFS DATA SETS*
  DO
SET STORGRP = 'DBCLASS'
EXIT
  END
   END
 END  /* END OF STORAGE GROUP ROUTINE PROC */
 
 
 I did have ZFSCLASS referenced in the ACS source, where did I go wrong ?
 
 --
 Regards Lim ML
 
 --
 For IBM-MAIN subscribe / signoff / archive access instructions,
 send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
 Search the archives at http://bama.ua.edu/archives/ibm-main.html
 
 
 
 This e-mail message and all attachments transmitted with it may
 contain legally privileged and/or confidential information intended
 solely for the use of the addressee(s). If the reader of this
 message is not the intended recipient, you are hereby notified that
 any reading, dissemination, distribution, copying, forwarding or
 other use of this message or its attachments is strictly
 prohibited. If you have received this message in error, please
 notify the sender immediately and delete this message and all
 copies and backups thereof. Thank you.
 
 --
 For IBM-MAIN subscribe / signoff / archive access instructions,
 send email to lists...@bama.ua.edu 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 lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: assembler help!

2011-08-04 Thread Robert A. Rosenberg


At 09:17 -0700 on 08/04/2011, Edward Jaffe wrote about Re: assembler help!:

Many have asserted that assembler language skills are inadequate to 
properly maintain 21st-Century z/OS systems.


Would it be better if IBM provided sample exits in METAL C?


That depends on what the person's job function is supposed to be. If 
it is to maintain system exits, an adequate knowledge of assembler 
language skills (or at least enough reading comprehension to 
understand the PoP manual's descriptions of the use and function of 
the individual instructions) would seem to me to be all that is 
required (aside from knowing what the different exits are supposed to 
do and when they get invoked). Not to degrade the original poster but 
it seems to me that a quick look in PoPs would have answered the 
query of how the instructions function and what the results would 
have been. I am not expecting knowledge of all the non-standard trick 
usage of instructions (such as using TR to do a patterned move of 
data as opposed to the command's standard usage of changing one 
codepoint to another) but just simple knowledge of how an instruction 
functions (as well as what it is used for).


Some of this simple knowledge seemed to be lacking in some of the 
early replies since that missed the fact that the ICM source parm is 
an address (which was loaded by the prior L) not a immediate operand. 
This was ultimately due to the original description that said the L 
operand was pointing at the F'8' value not it's location.


If the job function involves maintaining the IBM supplied code (which 
is not included in the job specs since you reference only maintenance 
of the exits) then you need SMPE skills as well as possibly SYSGEN 
Coding skills (to tailor the system).


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

What is the userid of the MVS machine in the CP Directory? For demonstration
purposes, assume M060404 is your virtual machine user name in the CP Directory.
From an authorized user (OPERATOR) type the following commands:

CP QUERY M060404
HCPXQY045E M060404 not logged on
Ready(00045); T=0.01/0.01 13:14:15
CP QUERY FILES M060404
FILES: NO RDR, 0003 PRT, NO PUN
Ready; T=0.01/0.01 13:14:19
CP QUERY PRT M060404 ALL
ORIGINID FILE CLASS RECORDS CPY HOLD DATE TIME NAME TYPE
M060404 0042 T CON 0038 001 NONE 05/19 10:54:36
M060404 0046 T CON 0331 001 NONE 05/19 11:04:30
M060404 0005 T CON 0017 001 NONE 05/19 10:58:50
Ready; T=0.01/0.01 13:14:26
CP TRANSFER M060404 PRT 0042 * RDR
RDR FILE 0018 SENT FROM M060404 PRT WAS 0042 RECS 0038 CPY 001 T NOHOLD NOKEEP
001 FILE TRANSFERRED
Ready; T=0.01/0.01 13:16:39

You should be able to view the file from your RDRLIST using PEEK.

Bryan Klimek
Mayo Clinic

On Thu, 4 Aug 2011 02:00:47 +0530, saurabh khandelwal
sourabhkhandelwal...@gmail.com wrote:

Any clue.?

Regards
Saurabh Khandelwal

On Thu, Aug 4, 2011 at 1:21 AM, saurabh khandelwal
sourabhkhandelwal...@gmail.com wrote:

Hello,

I am not sure on this, as I am new to this env.
But I am interest in z/VM console log. I think in this log, it will tell us
about the MVS guest crashes

Can you help me to find in my system, how it has been defined and how do I
check this.

On Thu, Aug 4, 2011 at 1:12 AM, Carlos Bodra - Pessoal
cbo...@terra.com.br wrote:

Have you any console log for MVS machine in spool?
And if you put MVS up again and check MVS log, any messages?

Carlos Bodra
IBM Certified Specialist System z
Sao Paulo - Brazil

Em 03/08/2011 15:32, saurabh khandelwal escreveu:

I check rl ( reader list) by logging at Operator id . And it gives me zVM
log sorting by date.

but it doesnt give me particular MVS SYStem log, which is crashing . Can
anybody help me to get that MVs log in this.

Regards
Saurabh

On Wed, Aug 3, 2011 at 11:43 PM, saurabh khandelwal
sourabhkhandelwal...@gmail.com** wrote:

Hello Carlos,
Thanks for replying.I used below command and got the
error
that Spool id not found.

Ready; T=0.01/0.02 19:17:48
*cp sp cons clo*
19:23:39 RDR FILE 0002 SENT FROM OPERATOR CON WAS 0002 RECS 0005 CPY
001
T NOHO
LD NOKEEP
Ready; T=0.01/0.01 19:23:39
*trans operator prt 0002 to maint r*
19:24:31 NO FILES TRANSFERRED
19:24:31 HCPCSC042E User OPERATOR spoolid 0002 does not exist
Ready(00042); T=0.01/0.01 19:24:31

Can you please help me, how do I check spool file id.

Regards
Saurabh

On Wed, Aug 3, 2011 at 11:21 PM, Carlos Bodra - Pessoal
cbo...@terra.com.br wrote:

trans operator prt xxx to yourmachine r

xxx = spool file id

Give this command on operator machine

Carlos Bodra
IBM Certified Specialist System z
Sao Paulo - Brazil

Em 03/08/2011 14:47, saurabh khandelwal escreveu:

Thanks for reply. I used cp sp cons clo command to lose console log.

Now can you help me to transfer this printer file from operator to
CMS
machine and how do I use RDRList to watch.

Thanks in advance.

Regards
Saurabh

On Wed, Aug 3, 2011 at 11:11 PM, Carlos Bodra - Pessoal
cbo...@terra.com.br

wrote:
Goes to Operator cms machine, and give.

cp sp cons clo

Thsi should close console log from IPL until now and generate a
Printer
file. You can trans fer this printer file from Operator to your cms
machine
and using RDRList watch it to check what happens.

Carlos Bodra
IBM Certified Specialist System z
Sao Paulo - Brazil

Em 03/08/2011 14:37, saurabh khandelwal escreveu:

Hello,

Our MVS Guest's crash abruptly, the only message about
it's
reason is in zVM's Operator's Log, because these MVS are running
under.

Can anybody help me, how to see Operator log under zVM,
so
that
I can check the reason for MVS crashes.

Sorry, if I am posting this problem in the wrong forum.

--**--**
--**

--**--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN
INFO
Search the archives at http://bama.ua.edu/archives/
**ibm-main.html http://bama.ua.edu/archives/ibm-main.html
http://bama.**ua.edu/archives/**ibm-main.**htmlhttp://bama.ua.edu/archives/**ibm-main.html

Re: How to get Operator Log

2011-08-04 Thread saurabh khandelwal

Thanks all of you to resolve my problem.  Thanks once again..

Regards
Saurabh

On Thu, Aug 4, 2011 at 11:47 PM, Bryan Klimek klimek.br...@mayo.edu wrote:

 What is the userid of the MVS machine in the CP Directory? For
 demonstration purposes, assume M060404 is your virtual machine user name in
 the CP Directory. From an authorized user (OPERATOR) type the following
 commands:

 CP QUERY M060404
 HCPXQY045E M060404 not logged on
 Ready(00045); T=0.01/0.01 13:14:15
 CP QUERY FILES M060404
 FILES:   NO RDR, 0003 PRT,   NO PUN
 Ready; T=0.01/0.01 13:14:19
 CP QUERY PRT M060404 ALL
 ORIGINID FILE CLASS RECORDS  CPY HOLD DATE  TIME NAME  TYPE
 M060404  0042 T CON 0038 001 NONE 05/19 10:54:36
 M060404  0046 T CON 0331 001 NONE 05/19 11:04:30
 M060404  0005 T CON 0017 001 NONE 05/19 10:58:50
 Ready; T=0.01/0.01 13:14:26
 CP TRANSFER M060404 PRT 0042 * RDR
 RDR FILE 0018 SENT FROM M060404  PRT WAS 0042 RECS 0038 CPY  001 T NOHOLD
 NOKEEP
 001 FILE  TRANSFERRED
 Ready; T=0.01/0.01 13:16:39

 You should be able to view the file from your RDRLIST using PEEK.

 Bryan Klimek
 Mayo Clinic


 On Thu, 4 Aug 2011 02:00:47 +0530, saurabh khandelwal 
 sourabhkhandelwal...@gmail.com wrote:

 Any clue.?
 
 Regards
 Saurabh Khandelwal
 
 On Thu, Aug 4, 2011 at 1:21 AM, saurabh khandelwal 
 sourabhkhandelwal...@gmail.com wrote:
 
  Hello,
 
  I am not sure on this, as I am new to this env.
  But I am interest in z/VM console log. I think in this log, it will tell
 us
  about the MVS guest crashes
 
  Can you help me to find in my system, how it has been defined and how do
 I
  check this.
 
 
  On Thu, Aug 4, 2011 at 1:12 AM, Carlos Bodra - Pessoal 
  cbo...@terra.com.br wrote:
 
  Have you any console log for MVS machine in spool?
  And if you put MVS up again and check MVS log, any messages?
 
 
  Carlos Bodra
  IBM Certified Specialist System z
  Sao Paulo - Brazil
 
 
  Em 03/08/2011 15:32, saurabh khandelwal escreveu:
 
  I check rl ( reader list) by logging at Operator id . And it gives me
 zVM
  log sorting by date.
 
  but it doesnt give me particular MVS SYStem log, which is crashing .
 Can
  anybody help me to get that MVs log in this.
 
  Regards
  Saurabh
 
  On Wed, Aug 3, 2011 at 11:43 PM, saurabh khandelwal
  sourabhkhandelwal...@gmail.com**  wrote:
 
   Hello Carlos,
   Thanks for replying.I used below command and got the
  error
  that Spool id not found.
 
 
   Ready; T=0.01/0.02 19:17:48
  *cp sp cons clo*
  19:23:39 RDR FILE 0002 SENT FROM OPERATOR CON WAS 0002 RECS 0005 CPY
   001
  T NOHO
  LD NOKEEP
  Ready; T=0.01/0.01 19:23:39
  *trans operator prt 0002 to maint r*
  19:24:31  NO FILES TRANSFERRED
  19:24:31 HCPCSC042E User OPERATOR spoolid 0002 does not exist
  Ready(00042); T=0.01/0.01 19:24:31
 
  Can you please help me, how do I check spool  file id.
 
  Regards
  Saurabh
 
 
 
  On Wed, Aug 3, 2011 at 11:21 PM, Carlos Bodra - Pessoal
  cbo...@terra.com.br  wrote:
 
   trans operator prt xxx to yourmachine r
 
  xxx = spool file id
 
  Give this command on operator machine
 
 
  Carlos Bodra
  IBM Certified Specialist System z
  Sao Paulo - Brazil
 
 
  Em 03/08/2011 14:47, saurabh khandelwal escreveu:
 
   Thanks for reply. I used cp sp cons clo command to lose console
 log.
 
  Now can you help me to transfer this printer file from operator to
  CMS
  machine and how do I use RDRList to watch.
 
  Thanks in advance.
 
  Regards
  Saurabh
 
  On Wed, Aug 3, 2011 at 11:11 PM, Carlos Bodra - Pessoal
  cbo...@terra.com.br
 
   wrote:
  Goes to Operator cms machine, and give.
 
  cp sp cons clo
 
  Thsi should close console log from IPL until now and generate a
  Printer
  file. You can trans fer this printer file from Operator to your
 cms
  machine
  and using RDRList watch it to check what happens.
 
  Carlos Bodra
  IBM Certified Specialist System z
  Sao Paulo - Brazil
 
 
  Em 03/08/2011 14:37, saurabh khandelwal escreveu:
 
   Hello,
 
Our MVS Guest's crash abruptly, the only message
 about
  it's
  reason is in zVM's Operator's Log, because these MVS are running
  under.
 
  Can anybody help me, how to see Operator log under
 zVM,
  so
  that
  I can check the reason for MVS crashes.
 
  Sorry, if I am posting this problem in the wrong
 forum.
 
 
 
 
 
  --**--**
  --**
 
  --**--
  For IBM-MAIN subscribe / signoff / archive access instructions,
  send email to lists...@bama.ua.edu with the message: GET
 IBM-MAIN
  INFO
  Search the archives at http://bama.ua.edu/archives/
  **ibm-main.html http://bama.ua.edu/archives/ibm-main.html
  http://bama.**ua.edu/archives/**ibm-main.**html
 http://bama.ua.edu/archives/**ibm-main.html
  
  http://bama.ua.**edu/**archives/ibm-main.htmlhttp://**
  bama.ua.edu/archives/ibm-main.**html
 http://bama.ua.edu/archives/ibm-main.html
  
 
 
   --**

Re: assembler help!

NO Why? Because we're too cheap to license the C compiler. We do have 
HLASM. Now, if they want to make the C/C++ come for free, I'd jump for joy. We 
had a license at one time. But a manager who was struggling to save his job 
decided that eliminating all non-critical software was the way to go. So the 
C license went. Followed shortly thereafter by the manager.

--
John McKown 
Systems Engineer IV
IT

Administrative Services Group

HealthMarkets(r)

9151 Boulevard 26 * N. Richland Hills * TX 76010
(817) 255-3225 phone * 
john.mck...@healthmarkets.com * www.HealthMarkets.com

Confidentiality Notice: This e-mail message may contain confidential or 
proprietary information. If you are not the intended recipient, please contact 
the sender by reply e-mail and destroy all copies of the original message. 
HealthMarkets(r) is the brand name for products underwritten and issued by the 
insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance 
Company(r), Mid-West National Life Insurance Company of TennesseeSM and The 
MEGA Life and Health Insurance Company.SM

 

 -Original Message-
 From: IBM Mainframe Discussion List 
 [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Edward Jaffe
 Sent: Thursday, August 04, 2011 11:18 AM
 To: IBM-MAIN@bama.ua.edu
 Subject: Re: assembler help!
 
 On 8/4/2011 6:02 AM, Crabtree, Anne D wrote:
  In our IEFACTRT (accounting exit), an assembler program, it 
 has the following commands:
 
  L R2,PARMJOBC
  ICM   R1,7,0(R2)
 
  If PARMJOBC contains a binary integer length of 4 with 00 
 00 00 08, what ends up in all bits of R1?  I am trying to add 
 additional values to what is in R1 by doing:
 
  MVC   WK1(4),SMF30CPS
  A R1,WK1
 
  This is not doing what I want it to do! If SMF30CPS, also a 
 binary integer length of 4, has 00 00 00 01,  what ends up in R1?
 
 Many have asserted that assembler language skills are 
 inadequate to properly 
 maintain 21st-Century z/OS systems.
 
 Would it be better if IBM provided sample exits in METAL C?
 
 -- 
 Edward E Jaffe
 Phoenix Software International, Inc
 831 Parkview Drive North
 El Segundo, CA 90245
 310-338-0400 x318
 edja...@phoenixsoftware.com
 http://www.phoenixsoftware.com/
 
 --
 For IBM-MAIN subscribe / signoff / archive access instructions,
 send email to lists...@bama.ua.edu 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 lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: assembler help!

2011-08-04 Thread Thomas David Rivers


McKown, John wrote:


NO Why? Because we're too cheap to license the C compiler. We do have HLASM. Now, if 
they want to make the C/C++ come for free, I'd jump for joy. We had a license at one 
time. But a manager who was struggling to save his job decided that eliminating all 
non-critical software was the way to go. So the C license went. Followed 
shortly thereafter by the manager.

 



I think we could help you with that...

- Dave Rivers -

--
riv...@dignus.comWork: (919) 676-0847
Get your mainframe programming tools at http://www.dignus.com

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

Source code to Milten, Orvyl, Wylbur is here.

I vaguely remember using these in college on MVT. The actual HLASM source is 
available. It's liberally licensed in a MPL type license. Now, this is not 
likely of much use to us here. But if you're running MVS 3.8j or MVT on 
Hercules/390, this might be of some interest.

http://www.stanford.edu/dept/its/support/wylorv/


John McKown
Systems Engineer IV
IT

Administrative Services Group

HealthMarkets(r)

9151 Boulevard 26 * N. Richland Hills * TX 76010
(817) 255-3225 phone *
john.mck...@healthmarkets.com * www.HealthMarkets.com

Confidentiality Notice: This e-mail message may contain confidential or 
proprietary information. If you are not the intended recipient, please contact 
the sender by reply e-mail and destroy all copies of the original message. 
HealthMarkets(r) is the brand name for products underwritten and issued by the 
insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance 
Company(r), Mid-West National Life Insurance Company of TennesseeSM and The 
MEGA Life and Health Insurance Company.SM


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

Re: assembler help!

2011-08-04 Thread Edward Jaffe


On 8/4/2011 11:27 AM, McKown, John wrote:

NO Why? Because we're too cheap to license the C compiler. We do have HLASM. Now, if 
they want to make the C/C++ come for free, I'd jump for joy. We had a license at one 
time. But a manager who was struggling to save his job decided that eliminating all 
non-critical software was the way to go. So the C license went. Followed 
shortly thereafter by the manager.


Sorry, John. Your answer makes no sense. You must have misunderstood my 
question.

I wasn't asking if IBM should remove support for HLASM exits and replace them 
with METAL C exits. I simply asked if it would be better if IBM provided sample 
exits in METAL C.


The original poster seems to have a poor grasp of HLASM basics and I was 
wondering if she (and people like her) could be better served if sample exits 
were provided in METAL C.


--
Edward E Jaffe
Phoenix Software International, Inc
831 Parkview Drive North
El Segundo, CA 90245
310-338-0400 x318
edja...@phoenixsoftware.com
http://www.phoenixsoftware.com/

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

Re: IGD06023I STORAGE GROUP ZFSCLASS IS NOT REFERENCED BY THE STORAGE GROUP ACS ROUTINE

Good catch Dave.

I would like to add the following observation:
Why use a SELECT structure, and then use
 DO
 SET STORGRP = ''
 EXIT
   END

When you could code it more like this:
SELECT
  WHEN (HLQ = HSM_HLQ)  /*  MANAGE MULTI VOLUME HFS DATA SETS */
 SET STORGRP = 'HFSCLASS'
  WHEN (HLQ = ZFS_HLQ)  /*  MANAGE MULTI VOLUME ZFS DATA SETS */
 SET STORGRP = 'ZFSCLASS'
  WHEN (HLQ = HS1_HLQ)   /*  MANAGE HFS DATA SETS*/
 SET STORGRP = 'DBCLASS
  END
END  /* END OF STORAGE GROUP ROUTINE PROC */

I find the second case much more readable.

On Thu, Aug 4, 2011 at 12:59 PM, Gibney, Dave gib...@wsu.edu wrote:

 Starting with:
 WHEN (HLQ = ZFS_HLQ)  /*  MANAGE MULTI VOLUME ZFS DATA SETS
 It's all comment until the */ on the last line.

 Dave Gibney
 Information Technology Services
 Washington State University


  -Original Message-
  From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On
  Behalf Of Darth Keller
  Sent: Thursday, August 04, 2011 8:27 AM
  To: IBM-MAIN@bama.ua.edu
  Subject: Re: IGD06023I STORAGE GROUP ZFSCLASS IS NOT REFERENCED BY
  THE STORAGE GROUP ACS ROUTINE
 
  Your validate seems to be indicating that this code is not actually part
  of your translated routines.
 
  I'd say that either -
 
  1.  This code was never actually translated to the SCDS that you are
 using
  for this Validate .
 
  2. Your code actually ends before this section.  Take a close look at the
  output of your translate.
 
  #1 is probably the most likely.
 
 
  HTH's
  ddk
 
 
 
 
 
  From:   Lim Ming Liang limm...@unifi.my
  To: IBM-MAIN@bama.ua.edu
  Date:   08/04/2011 10:14 AM
  Subject:IGD06023I STORAGE GROUP ZFSCLASS IS NOT REFERENCED BY
  THE
  STORAGE GROUP ACS ROUTINE
  Sent by:IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu
 
 
 
  Hi,
  I am new in DFSMS, trying to do a validate against my SCDS, got a
  warning msg
 
  IGD06023I STORAGE GROUP ZFSCLASS IS NOT REFERENCED BY THE STORAGE
  GROUP
  ACS ROUTINE
 
  But in Storage Group ACS routine as below;
 
  PROC STORGRP
  /**
  /
  FILTLIST HSM_HLQ INCLUDE('HFS1')
  FILTLIST ZFS_HLQ INCLUDE('ZFS')
  FILTLIST HS1_HLQ INCLUDE('CICSTS1X')
  FILTLIST SYSTEM_DATA_SET INCLUDE(SYS%.**)
  FILTLIST VALID_STORAGE_CLASS INCLUDE('HFSCLASS','DBCLASS','ZFSCLASS')
  /**
  /
  /**
  /
  /* End of FILTLIST Statements */
  /**
  /
SELECT
 WHEN (HLQ = HSM_HLQ)  /*  MANAGE MULTI VOLUME HFS DATA
  SETS */
   DO
 SET STORGRP = 'HFSCLASS'
 EXIT
   END
 WHEN (HLQ = ZFS_HLQ)  /*  MANAGE MULTI VOLUME ZFS DATA
  SETS
   DO
 SET STORGRP = 'ZFSCLASS'
 EXIT
   END
 WHEN (HLQ = HS1_HLQ)   /*  MANAGE HFS DATA SETS*
   DO
 SET STORGRP = 'DBCLASS'
 EXIT
   END
END
  END  /* END OF STORAGE GROUP ROUTINE PROC */
 
 
  I did have ZFSCLASS referenced in the ACS source, where did I go wrong ?
 
  --
  Regards Lim ML
 
  --
  For IBM-MAIN subscribe / signoff / archive access instructions,
  send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
  Search the archives at http://bama.ua.edu/archives/ibm-main.html
 
 
 
  This e-mail message and all attachments transmitted with it may
  contain legally privileged and/or confidential information intended
  solely for the use of the addressee(s). If the reader of this
  message is not the intended recipient, you are hereby notified that
  any reading, dissemination, distribution, copying, forwarding or
  other use of this message or its attachments is strictly
  prohibited. If you have received this message in error, please
  notify the sender immediately and delete this message and all
  copies and backups thereof. Thank you.
 
  --
  For IBM-MAIN subscribe / signoff / archive access instructions,
  send email to lists...@bama.ua.edu 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 lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
 Search the archives at http://bama.ua.edu/archives/ibm-main.html


CONFIDENTIALITY/EMAIL NOTICE: The material in this transmission contains
confidential and privileged information intended only for the addressee.
If you are not the intended recipient, please

Re: assembler help!

But not at a cost of $0.00. We're still in lock down mode. We seem to be 
doing better as a company, but there is still a push to keep costs at a 
minimum. Some day, I may look at relicensing your C, C++, and assembler for my 
home Linux system to do cross-compiles. I had them licensed some years ago, but 
medical expenses and the death of my mother totally destroyed my disposable 
income. Most of my joy of programming is now done on Linux using gratis 
tools. This is reinforced by the constant pressure here to not use the 
mainframe unnecessarily.

--
John McKown 
Systems Engineer IV
IT

Administrative Services Group

HealthMarkets(r)

9151 Boulevard 26 * N. Richland Hills * TX 76010
(817) 255-3225 phone * 
john.mck...@healthmarkets.com * www.HealthMarkets.com

Confidentiality Notice: This e-mail message may contain confidential or 
proprietary information. If you are not the intended recipient, please contact 
the sender by reply e-mail and destroy all copies of the original message. 
HealthMarkets(r) is the brand name for products underwritten and issued by the 
insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance 
Company(r), Mid-West National Life Insurance Company of TennesseeSM and The 
MEGA Life and Health Insurance Company.SM

 

 -Original Message-
 From: IBM Mainframe Discussion List 
 [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Thomas David Rivers
 Sent: Thursday, August 04, 2011 1:32 PM
 To: IBM-MAIN@bama.ua.edu
 Subject: Re: assembler help!
 
 McKown, John wrote:
 
 NO Why? Because we're too cheap to license the C 
 compiler. We do have HLASM. Now, if they want to make the 
 C/C++ come for free, I'd jump for joy. We had a license at 
 one time. But a manager who was struggling to save his job 
 decided that eliminating all non-critical software was the 
 way to go. So the C license went. Followed shortly thereafter 
 by the manager.
 
   
 
 
 I think we could help you with that...
 
  - Dave Rivers -
 
 -- 
 riv...@dignus.comWork: (919) 676-0847
 Get your mainframe programming tools at http://www.dignus.com
 
 --
 For IBM-MAIN subscribe / signoff / archive access instructions,
 send email to lists...@bama.ua.edu 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 lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: assembler help!

Oh, you're right. I was thinking instead of and not in addition to. My bad.

--
John McKown 
Systems Engineer IV
IT

Administrative Services Group

HealthMarkets(r)

9151 Boulevard 26 * N. Richland Hills * TX 76010
(817) 255-3225 phone * 
john.mck...@healthmarkets.com * www.HealthMarkets.com

Confidentiality Notice: This e-mail message may contain confidential or 
proprietary information. If you are not the intended recipient, please contact 
the sender by reply e-mail and destroy all copies of the original message. 
HealthMarkets(r) is the brand name for products underwritten and issued by the 
insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance 
Company(r), Mid-West National Life Insurance Company of TennesseeSM and The 
MEGA Life and Health Insurance Company.SM

 -Original Message-
 From: IBM Mainframe Discussion List 
 [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Edward Jaffe
 Sent: Thursday, August 04, 2011 1:41 PM
 To: IBM-MAIN@bama.ua.edu
 Subject: Re: assembler help!
 
 On 8/4/2011 11:27 AM, McKown, John wrote:
  NO Why? Because we're too cheap to license the C 
 compiler. We do have HLASM. Now, if they want to make the 
 C/C++ come for free, I'd jump for joy. We had a license at 
 one time. But a manager who was struggling to save his job 
 decided that eliminating all non-critical software was the 
 way to go. So the C license went. Followed shortly thereafter 
 by the manager.
 
 Sorry, John. Your answer makes no sense. You must have 
 misunderstood my question.
 
 I wasn't asking if IBM should remove support for HLASM exits 
 and replace them 
 with METAL C exits. I simply asked if it would be better if 
 IBM provided sample 
 exits in METAL C.
 
 The original poster seems to have a poor grasp of HLASM 
 basics and I was 
 wondering if she (and people like her) could be better served 
 if sample exits 
 were provided in METAL C.
 
 -- 
 Edward E Jaffe
 Phoenix Software International, Inc
 831 Parkview Drive North
 El Segundo, CA 90245
 310-338-0400 x318
 edja...@phoenixsoftware.com
 http://www.phoenixsoftware.com/
 
 --
 For IBM-MAIN subscribe / signoff / archive access instructions,
 send email to lists...@bama.ua.edu 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 lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: IGD06023I STORAGE GROUP ZFSCLASS IS NOT REFERENCED BY THE STORAGE GROUP ACS ROUTINE

2011-08-04 Thread Greg Shirey

Right, and translation won't be successful.  Therefore, it won't activate.  

Greg Shirey
Ben E. Keith Company  


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of 
Gibney, Dave
Sent: Thursday, August 04, 2011 12:00 PM
To: IBM-MAIN@bama.ua.edu
Subject: Re: IGD06023I STORAGE GROUP ZFSCLASS IS NOT REFERENCED BY THE STORAGE 
GROUP ACS ROUTINE

Starting with:
WHEN (HLQ = ZFS_HLQ)  /*  MANAGE MULTI VOLUME ZFS DATA SETS
It's all comment until the */ on the last line.

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

Re: IGD06023I STORAGE GROUP ZFSCLASS IS NOT REFERENCED BY THE STORAGE GROUP ACS ROUTINE

2011-08-04 Thread Lizette Koehler

   But in Storage Group ACS routine as below;
  
   PROC STORGRP
   /**
   /
   FILTLIST HSM_HLQ INCLUDE('HFS1')
   FILTLIST ZFS_HLQ INCLUDE('ZFS')
   FILTLIST HS1_HLQ INCLUDE('CICSTS1X')
   FILTLIST SYSTEM_DATA_SET INCLUDE(SYS%.**)
   FILTLIST VALID_STORAGE_CLASS
   INCLUDE('HFSCLASS','DBCLASS','ZFSCLASS')
   /**
   /
   /**
   /
   /* End of FILTLIST Statements
*/
   /**
   /
 SELECT
  WHEN (HLQ = HSM_HLQ)  /*  MANAGE MULTI VOLUME HFS DATA
   SETS */
DO
  SET STORGRP = 'HFSCLASS'
  EXIT
END
  WHEN (HLQ = ZFS_HLQ)  /*  MANAGE MULTI VOLUME ZFS DATA
   SETS
DO
  SET STORGRP = 'ZFSCLASS'
  EXIT
END
  WHEN (HLQ = HS1_HLQ)   /*  MANAGE HFS DATA
SETS*
DO
  SET STORGRP = 'DBCLASS'
  EXIT
END
 END
   END  /* END OF STORAGE GROUP ROUTINE PROC */
  
  
   I did have ZFSCLASS referenced in the ACS source, where did I go wrong
?
  
   --
   Regards Lim ML
  
   

Lim - 
I am not seeing how you are setting up the DATA Class to provide the EA
attribute.

I do not think the STORCLAS is enough for your issue.  You will also need to
code a DATACLAS process in the ACS Source library and associate it with your
files.

Lizette

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

Re: assembler help!

John,

Why not use GCC?

On Thu, Aug 4, 2011 at 2:44 PM, McKown, John
john.mck...@healthmarkets.comwrote:

 But not at a cost of $0.00. We're still in lock down mode. We seem to be
 doing better as a company, but there is still a push to keep costs at a
 minimum. Some day, I may look at relicensing your C, C++, and assembler for
 my home Linux system to do cross-compiles. I had them licensed some years
 ago, but medical expenses and the death of my mother totally destroyed my
 disposable income. Most of my joy of programming is now done on Linux
 using gratis tools. This is reinforced by the constant pressure here to not
 use the mainframe unnecessarily.

 --
 John McKown
 Systems Engineer IV
 IT

 Administrative Services Group

 HealthMarkets(r)

 9151 Boulevard 26 * N. Richland Hills * TX 76010
 (817) 255-3225 phone *
 john.mck...@healthmarkets.com * www.HealthMarkets.com

 Confidentiality Notice: This e-mail message may contain confidential or
 proprietary information. If you are not the intended recipient, please
 contact the sender by reply e-mail and destroy all copies of the original
 message. HealthMarkets(r) is the brand name for products underwritten and
 issued by the insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake
 Life Insurance Company(r), Mid-West National Life Insurance Company of
 TennesseeSM and The MEGA Life and Health Insurance Company.SM



  -Original Message-
  From: IBM Mainframe Discussion List
  [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Thomas David Rivers
  Sent: Thursday, August 04, 2011 1:32 PM
  To: IBM-MAIN@bama.ua.edu
  Subject: Re: assembler help!
 
  McKown, John wrote:
 
  NO Why? Because we're too cheap to license the C
  compiler. We do have HLASM. Now, if they want to make the
  C/C++ come for free, I'd jump for joy. We had a license at
  one time. But a manager who was struggling to save his job
  decided that eliminating all non-critical software was the
  way to go. So the C license went. Followed shortly thereafter
  by the manager.
  
  
  
 
  I think we could help you with that...
 
   - Dave Rivers -
 
  --
  riv...@dignus.comWork: (919) 676-0847
  Get your mainframe programming tools at http://www.dignus.com
 
  --
  For IBM-MAIN subscribe / signoff / archive access instructions,
  send email to lists...@bama.ua.edu 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 lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
 Search the archives at http://bama.ua.edu/archives/ibm-main.html


CONFIDENTIALITY/EMAIL NOTICE: The material in this transmission contains
confidential and privileged information intended only for the addressee.
If you are not the intended recipient, please be advised that you have
received this material in error and that any forwarding, copying, printing,
distribution, use or disclosure of the material is strictly prohibited.
If you have received this material in error, please (i) do not read it,
(ii) reply to the sender that you received the message in error, and
(iii) erase or destroy the material. Emails are not secure and can be
intercepted, amended, lost or destroyed, or contain viruses. You are deemed
to have accepted these risks if you communicate with us by email. Thank you.

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

Re: assembler help!

I'm too stupid to figure out how to install it. But that was a few years ago. 
It the z/OS version maintained? Or is it like other GNU software that gets on 
z/OS - out of date and not actively kept in sync with the Linux version.

--
John McKown 
Systems Engineer IV
IT

Administrative Services Group

HealthMarkets(r)

9151 Boulevard 26 * N. Richland Hills * TX 76010
(817) 255-3225 phone * 
john.mck...@healthmarkets.com * www.HealthMarkets.com

Confidentiality Notice: This e-mail message may contain confidential or 
proprietary information. If you are not the intended recipient, please contact 
the sender by reply e-mail and destroy all copies of the original message. 
HealthMarkets(r) is the brand name for products underwritten and issued by the 
insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance 
Company(r), Mid-West National Life Insurance Company of TennesseeSM and The 
MEGA Life and Health Insurance Company.SM

 

 -Original Message-
 From: IBM Mainframe Discussion List 
 [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Scott Rowe
 Sent: Thursday, August 04, 2011 2:10 PM
 To: IBM-MAIN@bama.ua.edu
 Subject: Re: assembler help!
 
 John,
 
 Why not use GCC?
 
 On Thu, Aug 4, 2011 at 2:44 PM, McKown, John
 john.mck...@healthmarkets.comwrote:
 
  But not at a cost of $0.00. We're still in lock down 
 mode. We seem to be
  doing better as a company, but there is still a push to 
 keep costs at a
  minimum. Some day, I may look at relicensing your C, C++, 
 and assembler for
  my home Linux system to do cross-compiles. I had them 
 licensed some years
  ago, but medical expenses and the death of my mother 
 totally destroyed my
  disposable income. Most of my joy of programming is now 
 done on Linux
  using gratis tools. This is reinforced by the constant 
 pressure here to not
  use the mainframe unnecessarily.
 
  --
  John McKown
  Systems Engineer IV
  IT
 
  Administrative Services Group
 
  HealthMarkets(r)
 
  9151 Boulevard 26 * N. Richland Hills * TX 76010
  (817) 255-3225 phone *
  john.mck...@healthmarkets.com * www.HealthMarkets.com
 
  Confidentiality Notice: This e-mail message may contain 
 confidential or
  proprietary information. If you are not the intended 
 recipient, please
  contact the sender by reply e-mail and destroy all copies 
 of the original
  message. HealthMarkets(r) is the brand name for products 
 underwritten and
  issued by the insurance subsidiaries of HealthMarkets, Inc. 
 -The Chesapeake
  Life Insurance Company(r), Mid-West National Life Insurance 
 Company of
  TennesseeSM and The MEGA Life and Health Insurance Company.SM
 
 
 
   -Original Message-
   From: IBM Mainframe Discussion List
   [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Thomas David Rivers
   Sent: Thursday, August 04, 2011 1:32 PM
   To: IBM-MAIN@bama.ua.edu
   Subject: Re: assembler help!
  
   McKown, John wrote:
  
   NO Why? Because we're too cheap to license the C
   compiler. We do have HLASM. Now, if they want to make the
   C/C++ come for free, I'd jump for joy. We had a license at
   one time. But a manager who was struggling to save his job
   decided that eliminating all non-critical software was the
   way to go. So the C license went. Followed shortly thereafter
   by the manager.
   
   
   
  
   I think we could help you with that...
  
- Dave Rivers -
  
   --
   riv...@dignus.comWork: (919) 676-0847
   Get your mainframe programming tools at http://www.dignus.com
  
   
 --
   For IBM-MAIN subscribe / signoff / archive access instructions,
   send email to lists...@bama.ua.edu 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 lists...@bama.ua.edu with the message: GET 
 IBM-MAIN INFO
  Search the archives at http://bama.ua.edu/archives/ibm-main.html
 
 
 CONFIDENTIALITY/EMAIL NOTICE: The material in this 
 transmission contains
 confidential and privileged information intended only for the 
 addressee.
 If you are not the intended recipient, please be advised that you have
 received this material in error and that any forwarding, 
 copying, printing,
 distribution, use or disclosure of the material is strictly 
 prohibited.
 If you have received this material in error, please (i) do 
 not read it,
 (ii) reply to the sender that you received the message in error, and
 (iii) erase or destroy the material. Emails are not secure and can be
 intercepted, amended, lost or destroyed, or contain viruses. 
 You are deemed
 to have accepted these risks if you communicate with us by 
 email. Thank you.
 
 --
 For IBM-MAIN subscribe / signoff / archive access instructions,

Re: IGD06023I STORAGE GROUP ZFSCLASS IS NOT REFERENCED BY THE STORAGE GROUP ACS ROUTINE

2011-08-04 Thread Darth Keller

I would like to add the following observation:
Why use a SELECT structure, and then use
 DO
 SET STORGRP = ''
 EXIT
   END

When you could code it more like this:
SELECT
  WHEN (HLQ = HSM_HLQ)  /*  MANAGE MULTI VOLUME HFS DATA SETS */
 SET STORGRP = 'HFSCLASS'
  WHEN (HLQ = ZFS_HLQ)  /*  MANAGE MULTI VOLUME ZFS DATA SETS */
 SET STORGRP = 'ZFSCLASS'
  WHEN (HLQ = HS1_HLQ)   /*  MANAGE HFS DATA SETS*/
 SET STORGRP = 'DBCLASS
  END
END  /* END OF STORAGE GROUP ROUTINE PROC */

I find the second case much more readable.

I would NEVER recommend that.  My recommendation would be to use DO-END 
Pairs and WRITE statements (ALWAYS) 
and EXIT's (Almost Always).  The above code maybe be shorter, but gives 
you absolutely no help when 
it comes time to debug a problem in the future.  I don't care how pretty 
the code is, I want to know how 
much it's going to help me at o-dark in the morning when I trying to 
figure out some issue. 
 
Readability is in the eye of the beholder - I much rather provide as much 
assistance to myself and co-workers as
possible..

SELECT 
  WHEN (stmt)
  DO
SET stmt
WRITE identifying information
EXIT
  END
- etc -
END

WRITE statements provide identifiable exit points in the code.  You know 
immediately where the dataset assignment 
fell out of the code.  I almost always code an EXIT statement to prevent 
re-assignments later in the code.  When I chose not to
code an EXIT, it's because I've specifically chosen not to  understand 
exactly what it means.

It's all personal preference in the end, but why not take the opportunity 
to help yourself right from the beginning?

dd keller


This e-mail message and all attachments transmitted with it may
contain legally privileged and/or confidential information intended
solely for the use of the addressee(s). If the reader of this
message is not the intended recipient, you are hereby notified that
any reading, dissemination, distribution, copying, forwarding or
other use of this message or its attachments is strictly
prohibited. If you have received this message in error, please
notify the sender immediately and delete this message and all
copies and backups thereof. Thank you.

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

Not able to Access OMVS

2011-08-04 Thread saurabh khandelwal

Hello,
  I am not able to login to OMVS. I am getting below error.

Function = chdir(), directory name = '/u/tec1008', return value = -1, errno
= 12
9 (X'0081'), reason code = 05190050, message = 'EDC5129I No such file or
dir
ectory.'

  FSUM2331 The session has ended.  Press Enter to end OMVS.

RUNNING


The end of the session was not recorded.  The proper location for recording
cou
d not be found.+
Function = getutxline(), terminal name = 'ttyp0001', user name = TEC1008,
retur
 value = 0
***

But I checked my OMVS segment in RACF,. /u/tec1008 is defined for me.


OMVS INFORMATION

UID= 00
HOME= /u/tec1008
PROGRAM= /bin/sh
CPUTIMEMAX= NONE
ASSIZEMAX= NONE
FILEPROCMAX= NONE
PROCUSERMAX= NONE
THREADSMAX= NONE
MMAPAREAMAX= NONE

Can you help me to resolve this issue.
-- 
Thanks  Regards
Saurabh Khandelwal

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

Re: Not able to Access OMVS

2011-08-04 Thread Hal Merritt

Does the file exist?
 



-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of 
saurabh khandelwal
Sent: Thursday, August 04, 2011 3:22 PM
To: IBM-MAIN@bama.ua.edu
Subject: Not able to Access OMVS

Hello,
  I am not able to login to OMVS. I am getting below error.

Function = chdir(), directory name = '/u/tec1008', return value = -1, errno = 12
9 (X'0081'), reason code = 05190050, message = 'EDC5129I No such file or 
dir ectory.'

  FSUM2331 The session has ended.  Press Enter to end OMVS.

RUNNING


The end of the session was not recorded.  The proper location for recording cou 
d not be found.+ Function = getutxline(), terminal name = 'ttyp0001', user name 
= TEC1008, retur  value = 0
***

But I checked my OMVS segment in RACF,. /u/tec1008 is defined for me.


OMVS INFORMATION

UID= 00
HOME= /u/tec1008
PROGRAM= /bin/sh
CPUTIMEMAX= NONE
ASSIZEMAX= NONE
FILEPROCMAX= NONE
PROCUSERMAX= NONE
THREADSMAX= NONE
MMAPAREAMAX= NONE

Can you help me to resolve this issue.
--
Thanks  Regards
Saurabh Khandelwal

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at 
http://bama.ua.edu/archives/ibm-main.html
NOTICE: This electronic mail message and any files transmitted with it are 
intended
exclusively for the individual or entity to which it is addressed. The message, 
together with any attachment, may contain confidential and/or privileged 
information.
Any unauthorized review, use, printing, saving, copying, disclosure or 
distribution 
is strictly prohibited. If you have received this message in error, please 
immediately advise the sender by reply email and delete all copies.

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

Re: Not able to Access OMVS

2011-08-04 Thread George, Kevin A

You need to have a directory in the /u named tec1008. Normally this is done 
using automount and a ZFS for your file system.

-
Kevin George
U.S. Office of Personnel Management
1900 E Street NW
Room BH04L
Washington, DC 20415
(202) 606-1195 - Main
(202) 528-8215 - Cell

From: IBM Mainframe Discussion List [IBM-MAIN@bama.ua.edu] On Behalf Of saurabh 
khandelwal [sourabhkhandelwal...@gmail.com]
Sent: Thursday, August 04, 2011 4:21 PM
To: IBM-MAIN@bama.ua.edu
Subject: Not able to Access OMVS

Hello,
  I am not able to login to OMVS. I am getting below error.

Function = chdir(), directory name = '/u/tec1008', return value = -1, errno
= 12
9 (X'0081'), reason code = 05190050, message = 'EDC5129I No such file or
dir
ectory.'

  FSUM2331 The session has ended.  Press Enter to end OMVS.

RUNNING


The end of the session was not recorded.  The proper location for recording
cou
d not be found.+
Function = getutxline(), terminal name = 'ttyp0001', user name = TEC1008,
retur
 value = 0
***

But I checked my OMVS segment in RACF,. /u/tec1008 is defined for me.


OMVS INFORMATION

UID= 00
HOME= /u/tec1008
PROGRAM= /bin/sh
CPUTIMEMAX= NONE
ASSIZEMAX= NONE
FILEPROCMAX= NONE
PROCUSERMAX= NONE
THREADSMAX= NONE
MMAPAREAMAX= NONE

Can you help me to resolve this issue.
--
Thanks  Regards
Saurabh Khandelwal

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu 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 lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Not able to Access OMVS

2011-08-04 Thread Rob Schramm

The message clearly indicates that the directory /u/tec108 does not exist.

Have someone with the proper authority create the directory /u/tec108

Rob Schramm
Senior Systems Consultant
Imperium Group




On Thu, Aug 4, 2011 at 4:28 PM, Hal Merritt hmerr...@jackhenry.com wrote:

 Does the file exist?




 -Original Message-
 From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On
 Behalf Of saurabh khandelwal
 Sent: Thursday, August 04, 2011 3:22 PM
 To: IBM-MAIN@bama.ua.edu
 Subject: Not able to Access OMVS

 Hello,
  I am not able to login to OMVS. I am getting below error.

 Function = chdir(), directory name = '/u/tec1008', return value = -1, errno
 = 12
 9 (X'0081'), reason code = 05190050, message = 'EDC5129I No such file
 or dir ectory.'

   FSUM2331 The session has ended.  Press Enter to end OMVS.

 RUNNING


 The end of the session was not recorded.  The proper location for recording
 cou d not be found.+ Function = getutxline(), terminal name = 'ttyp0001',
 user name = TEC1008, retur  value = 0
 ***

 But I checked my OMVS segment in RACF,. /u/tec1008 is defined for me.


 OMVS INFORMATION
 
 UID= 00
 HOME= /u/tec1008
 PROGRAM= /bin/sh
 CPUTIMEMAX= NONE
 ASSIZEMAX= NONE
 FILEPROCMAX= NONE
 PROCUSERMAX= NONE
 THREADSMAX= NONE
 MMAPAREAMAX= NONE

 Can you help me to resolve this issue.
 --
 Thanks  Regards
 Saurabh Khandelwal

 --
 For IBM-MAIN subscribe / signoff / archive access instructions, send email
 to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the
 archives at http://bama.ua.edu/archives/ibm-main.html
 NOTICE: This electronic mail message and any files transmitted with it are
 intended
 exclusively for the individual or entity to which it is addressed. The
 message,
 together with any attachment, may contain confidential and/or privileged
 information.
 Any unauthorized review, use, printing, saving, copying, disclosure or
 distribution
 is strictly prohibited. If you have received this message in error, please
 immediately advise the sender by reply email and delete all copies.

 --
 For IBM-MAIN subscribe / signoff / archive access instructions,
 send email to lists...@bama.ua.edu 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 lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Not able to Access OMVS

2011-08-04 Thread saurabh khandelwal

Yes, There was a problem with directory. someone by mistake has deleted it .

So because of this I got this error. Thanks every one to help me .

Regards
Saurabh

On Fri, Aug 5, 2011 at 1:57 AM, George, Kevin A kevin.geo...@opm.govwrote:

 You need to have a directory in the /u named tec1008. Normally this is done
 using automount and a ZFS for your file system.

 -
 Kevin George
 U.S. Office of Personnel Management
 1900 E Street NW
 Room BH04L
 Washington, DC 20415
 (202) 606-1195 - Main
 (202) 528-8215 - Cell
 
 From: IBM Mainframe Discussion List [IBM-MAIN@bama.ua.edu] On Behalf Of
 saurabh khandelwal [sourabhkhandelwal...@gmail.com]
 Sent: Thursday, August 04, 2011 4:21 PM
 To: IBM-MAIN@bama.ua.edu
 Subject: Not able to Access OMVS

 Hello,
  I am not able to login to OMVS. I am getting below error.

 Function = chdir(), directory name = '/u/tec1008', return value = -1, errno
 = 12
 9 (X'0081'), reason code = 05190050, message = 'EDC5129I No such file
 or
 dir
 ectory.'

   FSUM2331 The session has ended.  Press Enter to end OMVS.

 RUNNING


 The end of the session was not recorded.  The proper location for recording
 cou
 d not be found.+
 Function = getutxline(), terminal name = 'ttyp0001', user name = TEC1008,
 retur
  value = 0
 ***

 But I checked my OMVS segment in RACF,. /u/tec1008 is defined for me.


 OMVS INFORMATION
 
 UID= 00
 HOME= /u/tec1008
 PROGRAM= /bin/sh
 CPUTIMEMAX= NONE
 ASSIZEMAX= NONE
 FILEPROCMAX= NONE
 PROCUSERMAX= NONE
 THREADSMAX= NONE
 MMAPAREAMAX= NONE

 Can you help me to resolve this issue.
 --
 Thanks  Regards
 Saurabh Khandelwal

 --
 For IBM-MAIN subscribe / signoff / archive access instructions,
 send email to lists...@bama.ua.edu 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 lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
 Search the archives at http://bama.ua.edu/archives/ibm-main.html




-- 
Thanks  Regards
Saurabh Khandelwal

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

Re: IGD06023I STORAGE GROUP ZFSCLASS IS NOT REFERENCED BY THE STORAGE GROUP ACS ROUTINE

2011-08-04 Thread Greg Shirey

My personal preference, for what it's worth, is to follow IBM's examples.  They 
appear to prevent re-assignments later by coding only one SELECT statement 
and use EXIT only for errors.  They also use indenting and commenting for 
readability and understandability. 
 
Greg Shirey
Ben E. Keith Company 
  

-Original Message-
From: IBM Mainframe Discussion List On Behalf Of Darth Keller
Sent: Thursday, August 04, 2011 2:28 PM
To: IBM-MAIN@bama.ua.edu

I almost always code an EXIT statement to prevent re-assignments later in the 
code.  When I chose not to
code an EXIT, it's because I've specifically chosen not to  understand exactly 
what it means.

It's all personal preference in the end, but why not take the opportunity 
to help yourself right from the beginning?

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

Re: assembler help!

2011-08-04 Thread Schwarz, Barry A

You indicated subsequently that you clear R1 previously and that PARMJOBC 
points to (instead of contains) X'0008'.

With a mask of 7, the ICM instruction leaves byte 0 of R1 unchanged and loads 
bytes 1-3 with bytes 0-2 of the effective address.  The net result in R1 is
   byte 0: X'00' unchanged
   byte 1: X'00' from PARMJOBC
   byte 2: X'00' from PARMJOBC+1
   byte 3: X'00' from PARMJOBC+2

The last byte of PARMJOBC does not participate in the instruction.

Barry Schwarz
OS/390 System Programmer
M/S 80-JE
Phone: 253-657-5262
Fax: 253-657-8574

 -Original Message-
 From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On
 Behalf Of Crabtree, Anne D
 Sent: Thursday, August 04, 2011 6:02 AM
 To: IBM-MAIN@bama.ua.edu
 Subject: assembler help!

 In our IEFACTRT (accounting exit), an assembler program, it has the
 following commands:

 L R2,PARMJOBC
 ICM   R1,7,0(R2)

 If PARMJOBC contains a binary integer length of 4 with 00 00 00 08, what
 ends up in all bits of R1?  I am trying to add additional values to what
 is in R1 by doing:

 MVC   WK1(4),SMF30CPS
 A R1,WK1

 This is not doing what I want it to do! If SMF30CPS, also a binary integer
 length of 4, has 00 00 00 01,  what ends up in R1?

 Anne D. Crabtree
 System Programmer
 WV Office of Technology Data Center
 1900 Kanawha Blvd East
 Charleston, WV  25305
 (304)558-5914 ext 58292
 (304)558-1441 fax


 --
 For IBM-MAIN subscribe / signoff / archive access instructions,
 send email to lists...@bama.ua.edu 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 lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Source code to Milten, Orvyl, Wylbur is here.

2011-08-04 Thread Gerhard Postpischil


On 8/4/2011 2:37 PM, McKown, John wrote:

I vaguely remember using these in college on MVT. The actual
HLASM source is available. It's liberally licensed in a MPL
type license. Now, this is not likely of much use to us here.
But if you're running MVS 3.8j or MVT on Hercules/390, this
might be of some interest.

http://www.stanford.edu/dept/its/support/wylorv/


This has been available for a number of years, but it's of 
limited utility. Some person moved mainframe data to a PC 
environment without consideration of the character set, 
resulting in loss of some special characters in the code, module 
names, and directories. No effort was made to keep it in a mode 
easily retrievable for mainframe use (I wrote a little REXX 
utility to combine files in one directory into IEBUPDTE format, 
but couldn't fix the special character problem). The code is 
incomplete (some missing source has assembly listings).


It's further not really useful on MVS 3.8 because it requires 
HLASM features (e.g., it uses dynamically generated global 
variable names, and the D' attribute). I tried the Dignus 
assembler, but had problems with it.


Installation specific code for logon and accounting should be 
replaceable, but is fairly embedded. And finally, the code for 
asynchronous terminal support isn't included, as they moved that 
functionality into a custom front-end.


Gerhard Postpischil
Bradford, VT

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

Re: IGD06023I STORAGE GROUP ZFSCLASS IS NOT REFERENCED BY THE STORAGE GROUP ACS ROUTINE

Ah, but I prefer to have a WRITE at the bottom of the routine to show what
was assigned every time the routine is executed, and EXIT statements prevent
you from having that.

On Thu, Aug 4, 2011 at 3:27 PM, Darth Keller darth.kel...@assurant.comwrote:

 I would like to add the following observation:
 Why use a SELECT structure, and then use
  DO
  SET STORGRP = ''
  EXIT
END

 When you could code it more like this:
 SELECT
   WHEN (HLQ = HSM_HLQ)  /*  MANAGE MULTI VOLUME HFS DATA SETS */
  SET STORGRP = 'HFSCLASS'
   WHEN (HLQ = ZFS_HLQ)  /*  MANAGE MULTI VOLUME ZFS DATA SETS */
  SET STORGRP = 'ZFSCLASS'
   WHEN (HLQ = HS1_HLQ)   /*  MANAGE HFS DATA SETS*/
  SET STORGRP = 'DBCLASS
   END
 END  /* END OF STORAGE GROUP ROUTINE PROC */

 I find the second case much more readable.

 I would NEVER recommend that.  My recommendation would be to use DO-END
 Pairs and WRITE statements (ALWAYS)
 and EXIT's (Almost Always).  The above code maybe be shorter, but gives
 you absolutely no help when
 it comes time to debug a problem in the future.  I don't care how pretty
 the code is, I want to know how
 much it's going to help me at o-dark in the morning when I trying to
 figure out some issue.

 Readability is in the eye of the beholder - I much rather provide as much
 assistance to myself and co-workers as
 possible..

 SELECT
  WHEN (stmt)
  DO
SET stmt
WRITE identifying information
EXIT
  END
 - etc -
 END

 WRITE statements provide identifiable exit points in the code.  You know
 immediately where the dataset assignment
 fell out of the code.  I almost always code an EXIT statement to prevent
 re-assignments later in the code.  When I chose not to
 code an EXIT, it's because I've specifically chosen not to  understand
 exactly what it means.

 It's all personal preference in the end, but why not take the opportunity
 to help yourself right from the beginning?

 dd keller


 This e-mail message and all attachments transmitted with it may
 contain legally privileged and/or confidential information intended
 solely for the use of the addressee(s). If the reader of this
 message is not the intended recipient, you are hereby notified that
 any reading, dissemination, distribution, copying, forwarding or
 other use of this message or its attachments is strictly
 prohibited. If you have received this message in error, please
 notify the sender immediately and delete this message and all
 copies and backups thereof. Thank you.

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


CONFIDENTIALITY/EMAIL NOTICE: The material in this transmission contains
confidential and privileged information intended only for the addressee.
If you are not the intended recipient, please be advised that you have
received this material in error and that any forwarding, copying, printing,
distribution, use or disclosure of the material is strictly prohibited.
If you have received this material in error, please (i) do not read it,
(ii) reply to the sender that you received the message in error, and
(iii) erase or destroy the material. Emails are not secure and can be
intercepted, amended, lost or destroyed, or contain viruses. You are deemed
to have accepted these risks if you communicate with us by email. Thank you.

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

Re: assembler help!

I can't help you with that question, since I don't use C myself.  I just
thought it was interesting that you keep complaining about not having a C
compiler due to funds, yet there is a free one out there.  I thought I saw
some messages recently talking about it being relatively up to date.

On Thu, Aug 4, 2011 at 3:17 PM, McKown, John
john.mck...@healthmarkets.comwrote:

 I'm too stupid to figure out how to install it. But that was a few years
 ago. It the z/OS version maintained? Or is it like other GNU software that
 gets on z/OS - out of date and not actively kept in sync with the Linux
 version.

 --
 John McKown
 Systems Engineer IV
 IT

 Administrative Services Group

 HealthMarkets(r)

 9151 Boulevard 26 * N. Richland Hills * TX 76010
 (817) 255-3225 phone *
 john.mck...@healthmarkets.com * www.HealthMarkets.com

 Confidentiality Notice: This e-mail message may contain confidential or
 proprietary information. If you are not the intended recipient, please
 contact the sender by reply e-mail and destroy all copies of the original
 message. HealthMarkets(r) is the brand name for products underwritten and
 issued by the insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake
 Life Insurance Company(r), Mid-West National Life Insurance Company of
 TennesseeSM and The MEGA Life and Health Insurance Company.SM



  -Original Message-
  From: IBM Mainframe Discussion List
  [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Scott Rowe
  Sent: Thursday, August 04, 2011 2:10 PM
  To: IBM-MAIN@bama.ua.edu
  Subject: Re: assembler help!
 
  John,
 
  Why not use GCC?
 
  On Thu, Aug 4, 2011 at 2:44 PM, McKown, John
  john.mck...@healthmarkets.comwrote:
 
   But not at a cost of $0.00. We're still in lock down
  mode. We seem to be
   doing better as a company, but there is still a push to
  keep costs at a
   minimum. Some day, I may look at relicensing your C, C++,
  and assembler for
   my home Linux system to do cross-compiles. I had them
  licensed some years
   ago, but medical expenses and the death of my mother
  totally destroyed my
   disposable income. Most of my joy of programming is now
  done on Linux
   using gratis tools. This is reinforced by the constant
  pressure here to not
   use the mainframe unnecessarily.
  
   --
   John McKown
   Systems Engineer IV
   IT
  
   Administrative Services Group
  
   HealthMarkets(r)
  
   9151 Boulevard 26 * N. Richland Hills * TX 76010
   (817) 255-3225 phone *
   john.mck...@healthmarkets.com * www.HealthMarkets.com
  
   Confidentiality Notice: This e-mail message may contain
  confidential or
   proprietary information. If you are not the intended
  recipient, please
   contact the sender by reply e-mail and destroy all copies
  of the original
   message. HealthMarkets(r) is the brand name for products
  underwritten and
   issued by the insurance subsidiaries of HealthMarkets, Inc.
  -The Chesapeake
   Life Insurance Company(r), Mid-West National Life Insurance
  Company of
   TennesseeSM and The MEGA Life and Health Insurance Company.SM
  
  
  
-Original Message-
From: IBM Mainframe Discussion List
[mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Thomas David Rivers
Sent: Thursday, August 04, 2011 1:32 PM
To: IBM-MAIN@bama.ua.edu
Subject: Re: assembler help!
   
McKown, John wrote:
   
NO Why? Because we're too cheap to license the C
compiler. We do have HLASM. Now, if they want to make the
C/C++ come for free, I'd jump for joy. We had a license at
one time. But a manager who was struggling to save his job
decided that eliminating all non-critical software was the
way to go. So the C license went. Followed shortly thereafter
by the manager.



   
I think we could help you with that...
   
 - Dave Rivers -
   
--
riv...@dignus.comWork: (919) 676-0847
Get your mainframe programming tools at http://www.dignus.com
   
   
  --
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu 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 lists...@bama.ua.edu with the message: GET
  IBM-MAIN INFO
   Search the archives at http://bama.ua.edu/archives/ibm-main.html
  
 
  CONFIDENTIALITY/EMAIL NOTICE: The material in this
  transmission contains
  confidential and privileged information intended only for the
  addressee.
  If you are not the intended recipient, please be advised that you have
  received this material in error and that any forwarding,
  copying, printing,
  distribution, use or disclosure of the material is strictly
  prohibited.
  If you have received this material in error,

Dino Software RTD Product

2011-08-04 Thread Herring, Bobby

We are thinking about getting the RTD product from Dino Software.

Does anyone have any good or bad experience with the product?

Offlist if fine if you prefer.

Bobby Herring
Systems Programmer
Texas Farm Bureau Insurance Companies
Waco, TX

CONFIDENTIALITY STATEMENT: The foregoing message (including attachments) is 
covered by the Electronic Communication Privacy Act, 18 U.S.C. sections 
2510-2521, and is CONFIDENTIAL. If you believe that it has been sent to you in 
error, do not read it. If you are not the intended recipient, you are hereby 
notified that any retention, dissemination, distribution, or copying of this 
communication is strictly prohibited. Please reply to the sender that you have 
received the message in error, then delete it. Thank you.

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

Re: assembler help!

Sir,

No such thing ... please do not put yourself down. If you need
assistance, please let me know and I'd be happy to try and help. 

Kind Regards

Jim Thomas
617-233-4130 (mobile)
636-294-1014(res)
j...@thethomasresidence.us (Email)


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf
Of McKown, John
Sent: Thursday, August 04, 2011 2:18 PM
To: IBM-MAIN@bama.ua.edu
Subject: Re: assembler help!

I'm too stupid to figure out how to install it. But that was a few years
ago. It the z/OS version maintained? Or is it like other GNU software that
gets on z/OS - out of date and not actively kept in sync with the Linux
version.

--
John McKown 
Systems Engineer IV
IT

Administrative Services Group

HealthMarkets(r)

9151 Boulevard 26 * N. Richland Hills * TX 76010
(817) 255-3225 phone * 
john.mck...@healthmarkets.com * www.HealthMarkets.com

Confidentiality Notice: This e-mail message may contain confidential or
proprietary information. If you are not the intended recipient, please
contact the sender by reply e-mail and destroy all copies of the original
message. HealthMarkets(r) is the brand name for products underwritten and
issued by the insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake
Life Insurance Company(r), Mid-West National Life Insurance Company of
TennesseeSM and The MEGA Life and Health Insurance Company.SM

 

 -Original Message-
 From: IBM Mainframe Discussion List 
 [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Scott Rowe
 Sent: Thursday, August 04, 2011 2:10 PM
 To: IBM-MAIN@bama.ua.edu
 Subject: Re: assembler help!
 
 John,
 
 Why not use GCC?
 
 On Thu, Aug 4, 2011 at 2:44 PM, McKown, John
 john.mck...@healthmarkets.comwrote:
 
  But not at a cost of $0.00. We're still in lock down 
 mode. We seem to be
  doing better as a company, but there is still a push to 
 keep costs at a
  minimum. Some day, I may look at relicensing your C, C++, 
 and assembler for
  my home Linux system to do cross-compiles. I had them 
 licensed some years
  ago, but medical expenses and the death of my mother 
 totally destroyed my
  disposable income. Most of my joy of programming is now 
 done on Linux
  using gratis tools. This is reinforced by the constant 
 pressure here to not
  use the mainframe unnecessarily.
 
  --
  John McKown
  Systems Engineer IV
  IT
 
  Administrative Services Group
 
  HealthMarkets(r)
 
  9151 Boulevard 26 * N. Richland Hills * TX 76010
  (817) 255-3225 phone *
  john.mck...@healthmarkets.com * www.HealthMarkets.com
 
  Confidentiality Notice: This e-mail message may contain 
 confidential or
  proprietary information. If you are not the intended 
 recipient, please
  contact the sender by reply e-mail and destroy all copies 
 of the original
  message. HealthMarkets(r) is the brand name for products 
 underwritten and
  issued by the insurance subsidiaries of HealthMarkets, Inc. 
 -The Chesapeake
  Life Insurance Company(r), Mid-West National Life Insurance 
 Company of
  TennesseeSM and The MEGA Life and Health Insurance Company.SM
 
 
 
   -Original Message-
   From: IBM Mainframe Discussion List
   [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Thomas David Rivers
   Sent: Thursday, August 04, 2011 1:32 PM
   To: IBM-MAIN@bama.ua.edu
   Subject: Re: assembler help!
  
   McKown, John wrote:
  
   NO Why? Because we're too cheap to license the C
   compiler. We do have HLASM. Now, if they want to make the
   C/C++ come for free, I'd jump for joy. We had a license at
   one time. But a manager who was struggling to save his job
   decided that eliminating all non-critical software was the
   way to go. So the C license went. Followed shortly thereafter
   by the manager.
   
   
   
  
   I think we could help you with that...
  
- Dave Rivers -
  
   --
   riv...@dignus.comWork: (919) 676-0847
   Get your mainframe programming tools at http://www.dignus.com
  
   
 --
   For IBM-MAIN subscribe / signoff / archive access instructions,
   send email to lists...@bama.ua.edu 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 lists...@bama.ua.edu with the message: GET 
 IBM-MAIN INFO
  Search the archives at http://bama.ua.edu/archives/ibm-main.html
 
 
 CONFIDENTIALITY/EMAIL NOTICE: The material in this 
 transmission contains
 confidential and privileged information intended only for the 
 addressee.
 If you are not the intended recipient, please be advised that you have
 received this material in error and that any forwarding, 
 copying, printing,
 distribution, use or disclosure of the material is strictly 
 prohibited.
 If you have received this material in

assembler help!

2011-08-04 Thread john gilmore

It is clear from this and other examples we have seen here that 1) the 
assembly-language sklls of most installation sysprogs under 50 are rudimentary 
2) IBM's maintenance of the HLASM interfaces to system services has low 
priority and is deteriorating, chiefly because the PL/X interfaces are the ones 
that its own programmers use.
 
I should like to see 1) exit samples written in PL/X and 2) release of the PL/X 
translator for customer and ISV use in writing exits and the like.  

John Gilmore Ashland, MA 01721-1817 USA 
  
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: programmable SYSOUT (was: dynamic STEPLIB)

In 1312392325.46164.yahoomail...@web65513.mail.ac4.yahoo.com, on
08/03/2011
   at 10:25 AM, Scott Ford scott_j_f...@yahoo.com said:

Yep, Shmuel we have a couple customers asking for a 'generic' wilbur
or roscoe type interface. It amazes me that people are still using
Wilbur or Roscoe..

The associative range construct in Wylbur is quite powerful.
 
-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 ISO position; see http://patriot.net/~shmuel/resume/brief.html 
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 lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: assembler help!

Sir,

Forgive me ... I'm confused ... I don't see the connection. 
In fact, as far as I'm concerned ... why even bother with 
HLASM vs. sticking to straight good old fashioned tested and
true assembler ??. 

I'll have a 'rant' posted shortly. 

Kind Regards

Jim Thomas
617-233-4130 (mobile)
636-294-1014(res)
j...@thethomasresidence.us (Email)


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf
Of john gilmore
Sent: Thursday, August 04, 2011 5:15 PM
To: IBM-MAIN@bama.ua.edu
Subject: assembler help!

It is clear from this and other examples we have seen here that 1) the
assembly-language sklls of most installation sysprogs under 50 are
rudimentary 2) IBM's maintenance of the HLASM interfaces to system services
has low priority and is deteriorating, chiefly because the PL/X interfaces
are the ones that its own programmers use.
 
I should like to see 1) exit samples written in PL/X and 2) release of the
PL/X translator for customer and ISV use in writing exits and the like.  

John Gilmore Ashland, MA 01721-1817 USA

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



-
No virus found in this message.
Checked by AVG - www.avg.com
Version: 10.0.1391 / Virus Database: 1518/3810 - Release Date: 08/04/11

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

Re: assembler help!

Ummm ... dare I say ... 'free products' mean that management 
(and CxO's) cannot justify their positions and cannot 'piss 
and moan' about costs ??.

:-)  

Kind Regards

Jim Thomas
617-233-4130 (mobile)
636-294-1014(res)
j...@thethomasresidence.us (Email)


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf
Of Scott Rowe
Sent: Thursday, August 04, 2011 4:25 PM
To: IBM-MAIN@bama.ua.edu
Subject: Re: assembler help!

I can't help you with that question, since I don't use C myself.  I just
thought it was interesting that you keep complaining about not having a C
compiler due to funds, yet there is a free one out there.  I thought I saw
some messages recently talking about it being relatively up to date.

On Thu, Aug 4, 2011 at 3:17 PM, McKown, John
john.mck...@healthmarkets.comwrote:

 I'm too stupid to figure out how to install it. But that was a few years
 ago. It the z/OS version maintained? Or is it like other GNU software that
 gets on z/OS - out of date and not actively kept in sync with the Linux
 version.

 --
 John McKown
 Systems Engineer IV
 IT

 Administrative Services Group

 HealthMarkets(r)

 9151 Boulevard 26 * N. Richland Hills * TX 76010
 (817) 255-3225 phone *
 john.mck...@healthmarkets.com * www.HealthMarkets.com

 Confidentiality Notice: This e-mail message may contain confidential or
 proprietary information. If you are not the intended recipient, please
 contact the sender by reply e-mail and destroy all copies of the original
 message. HealthMarkets(r) is the brand name for products underwritten and
 issued by the insurance subsidiaries of HealthMarkets, Inc. -The
Chesapeake
 Life Insurance Company(r), Mid-West National Life Insurance Company of
 TennesseeSM and The MEGA Life and Health Insurance Company.SM



  -Original Message-
  From: IBM Mainframe Discussion List
  [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Scott Rowe
  Sent: Thursday, August 04, 2011 2:10 PM
  To: IBM-MAIN@bama.ua.edu
  Subject: Re: assembler help!
 
  John,
 
  Why not use GCC?
 
  On Thu, Aug 4, 2011 at 2:44 PM, McKown, John
  john.mck...@healthmarkets.comwrote:
 
   But not at a cost of $0.00. We're still in lock down
  mode. We seem to be
   doing better as a company, but there is still a push to
  keep costs at a
   minimum. Some day, I may look at relicensing your C, C++,
  and assembler for
   my home Linux system to do cross-compiles. I had them
  licensed some years
   ago, but medical expenses and the death of my mother
  totally destroyed my
   disposable income. Most of my joy of programming is now
  done on Linux
   using gratis tools. This is reinforced by the constant
  pressure here to not
   use the mainframe unnecessarily.
  
   --
   John McKown
   Systems Engineer IV
   IT
  
   Administrative Services Group
  
   HealthMarkets(r)
  
   9151 Boulevard 26 * N. Richland Hills * TX 76010
   (817) 255-3225 phone *
   john.mck...@healthmarkets.com * www.HealthMarkets.com
  
   Confidentiality Notice: This e-mail message may contain
  confidential or
   proprietary information. If you are not the intended
  recipient, please
   contact the sender by reply e-mail and destroy all copies
  of the original
   message. HealthMarkets(r) is the brand name for products
  underwritten and
   issued by the insurance subsidiaries of HealthMarkets, Inc.
  -The Chesapeake
   Life Insurance Company(r), Mid-West National Life Insurance
  Company of
   TennesseeSM and The MEGA Life and Health Insurance Company.SM
  
  
  
-Original Message-
From: IBM Mainframe Discussion List
[mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Thomas David Rivers
Sent: Thursday, August 04, 2011 1:32 PM
To: IBM-MAIN@bama.ua.edu
Subject: Re: assembler help!
   
McKown, John wrote:
   
NO Why? Because we're too cheap to license the C
compiler. We do have HLASM. Now, if they want to make the
C/C++ come for free, I'd jump for joy. We had a license at
one time. But a manager who was struggling to save his job
decided that eliminating all non-critical software was the
way to go. So the C license went. Followed shortly thereafter
by the manager.



   
I think we could help you with that...
   
 - Dave Rivers -
   
--
riv...@dignus.comWork: (919) 676-0847
Get your mainframe programming tools at http://www.dignus.com
   
   
  --
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu 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 lists...@bama.ua.edu with the message: GET
  IBM-MAIN INFO

Re: assembler help!


--snip---


In our IEFACTRT (accounting exit), an assembler program, it has the following 
commands:

L R2,PARMJOBC
 

    R2 now contains PARMJOBC, 
X'0008'



ICM   R1,7,0(R2)
 

  R1 now contains 
X'..zz', where .. are the origincal contents of R1 and zz are 
the contents of storage location X'0008'



If PARMJOBC contains a binary integer length of 4 with 00 00 00 08, what ends 
up in all bits of R1?  I am trying to add additional values to what is in R1 by 
doing:

MVC   WK1(4),SMF30CPS
A R1,WK1

This is not doing what I want it to do! If SMF30CPS, also a binary integer 
length of 4, has 00 00 00 01,  what ends up in R1?
 

 R1 now contains God only knows 
what.


Shoot me an Assembler listing of the source code (ZIP'ped) and I'll take 
a look at it. I suspect I know what's wrong but don't want to clutter 
the list with a long drawn-out explanation.


Rick

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

Re: assembler help!


--snip--
I realize I'm not asking the smartest questions... PARMJOBC is an 
address and at that address is the value 0008 (I think). To be 
honest, I can't even figure out where it is getting PARMJOBC. I'm basing 
the assumption on the SMF record I dumped for the job that I ran that 
uses the exit.


If anyone is using IEFACTRT to do chargeback and is using multiple SMF30 
cpu type fields in the calculation(ie. SMF30ICU, SMF30IIP, 
SMF30_TIME_ON_IFA, etc...) I'd love to see how you did it. The 
production version only looks at SMF30CPT for job cpu time and I need to 
add in all the other CPU fields!

unsnip--
I'll send you a ZIP'ped copy of mine.

Rick

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

Re: assembler help!

Sir/s ... 

Forgive me ... I have a completely different take on this and again
forgive me if I'm about to 'rock the boat'. 

Why not 'train' them ?. 

I realize (and have seen the underlying 'supposed' 'business' reasons)
that some of our old timer skills are dwindling but .. I still do not
see that as a reason for everybody to insist (as I've said before) to
start making the mainframes look like the PC world. Unless of course,
IBM wants to start adding 'CTRL-ALT-DEL' to NIPCON and MSTR consoles. 

Please do not misunderstand ... it's not that I do not like 'C' per se.
In fact, I do like C for certain applications but I certainly do not like
the rest of the Visual crud. Of course, everybody wants top performance 
too right ??.. Even with C, you have a compiler that, IMHO, is not suitable
for true business needs ... why ... should we start talking about garbage 
collection, JAVA and such ??. Performance ??. 

To bring up another example, I seem to remember (back in a former lifetime 
while at Univ.) when I first learnt C, it was much easier... and any 
given 'C' application had but perhaps a .C and a .H file that one had to
worry about. This perhaps is still true (have not touched C in close to
three decades) but the rest of the variants certainly require more .xxx
files and maintenance. 

I've had many (far too many) an argument with non-mainframe folks that have
adamantly been opposed to the fact that we did not recompile our products
every two days  while I do understand their limited knowledge .. I 
personally don't want to promote them developing or maintaining MVS (or VM
or VSE or or or or). Further, as I've told each and every one of them,
verbatim,
I do not need to recompile or reassemble my product every day just to
justify
my job. In fact, this relates to 'SCRUM' and 'AGILE' and the rest of the 
buzzword nonsense does it not ??. By the .. SCRUM, taken from the old rugby
terms, mean (kinda) mass confusion (which is now seen) and agile... well,
I'll
let that one go for now. 

Another aspect that I see is the common complaint that 'oh .. we can't find
people with good z/OS sysprog and or z/OS assembler' skills. Is that really 
true ??. Or would it more so be that there are plenty of sales folks, be 
they be associated to the 'development' world, the 'consulting' world, the
PC
world or even and especially, the HR / recruitment world that wants to cough

up $60+/hr (in terms of consulting) or 90k+ (in terms of salary) for one
that 
has almost no experience on the mainframe so long as they know JAVA ... BUT
..
still keep looking for a Senior level developers or systems programmers,
with 
strong experience in MVS, VM, VSE, Linux, WINDOWS, VMS, and whatever else
have
you, all for a paltry $20/hr ??. If that's not bad enough, all the while ...

lopping off ten times as much for their own pockets.  

Invariably, when they cannot find anybody, their response to their
management 
and or the client is ... 'oh nobody knows MVS or assembler'. 

We already have a non-mainframe world that barely can survive with one that 
codes in just any ONE language or architecture. More so, from what I've
known,
it's usually a mix of multiple .. e.g. .. JAVA for DB2 ... is it JUST JAVA
??.
NO !!. We have a constant slew of buzz words that needs to be a tail to JAVA
do we not ??. How about the fact that most all (if not all) of these
recently
graduated genius's don't even know how to spell assembly (in the PC
environment
that is). 

IMHO, costs and everything else come thereafter. No offence meant to anybody
(and I'm being as honest as I can be) but .. I fear that currently,
stupidity 
reigns.

By the way ... if anyone of us had to have brain or heart surgery .. would
we 
want one that learnt how to perform surgery with JAVA simulations ??. By
that,
I mean this as a reference to 'Rapid Development' and 'Point And Click'
IDE's
which has taken over the data processing and even, engineering world. 
   

Kind Regards

Jim Thomas
617-233-4130 (mobile)
636-294-1014(res)
j...@thethomasresidence.us (Email)


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf
Of Edward Jaffe
Sent: Thursday, August 04, 2011 1:41 PM
To: IBM-MAIN@bama.ua.edu
Subject: Re: assembler help!

On 8/4/2011 11:27 AM, McKown, John wrote:
 NO Why? Because we're too cheap to license the C compiler. We do have
HLASM. Now, if they want to make the C/C++ come for free, I'd jump for joy.
We had a license at one time. But a manager who was struggling to save his
job decided that eliminating all non-critical software was the way to go.
So the C license went. Followed shortly thereafter by the manager.

Sorry, John. Your answer makes no sense. You must have misunderstood my
question.

I wasn't asking if IBM should remove support for HLASM exits and replace
them 
with METAL C exits. I simply asked if it would be better if IBM provided
sample 
exits in METAL C.

The original poster

Re: Does this apply to some of the messages here?


--snip


-snip
Too many #%$# lawyers with too much free time and too little to do.

But on the positive side (ever the optimist), perhaps it's the
beginning of an effort to demonstrate the inanity (and insanity) of far
too many knee-jerk-reaction laws enacted to protect us from various and
sundry bogeymen.
unsnip-
What do you call 100,000 lawyers buried chin-deep in concrete?

CONCRETE SHORTAGE!

Rick

   


You are in a room with Adolf Hitler, Osama bin Ladin, and a lawyer.   You have 
a gun and two bullets. What should you do?

Shoot the lawyer. Twice.
 


unsnip
ROTFLMAO !!

Rick

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

Re: assembler help!


-snip
NO Why? Because we're too cheap to license the C compiler. We do 
have HLASM. Now, if they want to make the C/C++ come for free, I'd jump 
for joy. We had a license at one time. But a manager who was struggling 
to save his job decided that eliminating all non-critical software was 
the way to go. So the C license went. Followed shortly thereafter by the 
manager.

unsnip---
IMHO, this is the desired fate for most managers of this mindset.

Rick

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

Re: IGD06023I STORAGE GROUP ZFSCLASS IS NOT REFERENCED BY THE STORAGE GROUP ACS ROUTINE

2011-08-04 Thread Lim Ming Liang

I just woke up in the morning, and found so many replies on this issue I 
raised.
This is a wonderful forum list, I learn a lot from here, considered just 
joined days ago.

Thank you to all the guys here. Much obliged.
Regards Lim ML

On 05/08/11 5:20 AM, Scott Rowe wrote:

Ah, but I prefer to have a WRITE at the bottom of the routine to show what
was assigned every time the routine is executed, and EXIT statements prevent
you from having that.

On Thu, Aug 4, 2011 at 3:27 PM, Darth Kellerdarth.kel...@assurant.comwrote:


I would like to add the following observation:
Why use a SELECT structure, and then use
DO
 SETSTORGRP = ''
 EXIT
   END
When you could code it more like this:
SELECT
  WHEN (HLQ =HSM_HLQ)  /*  MANAGE MULTI VOLUME HFS DATA SETS */
 SETSTORGRP = 'HFSCLASS'
  WHEN (HLQ =ZFS_HLQ)  /*  MANAGE MULTI VOLUME ZFS DATA SETS */
 SETSTORGRP = 'ZFSCLASS'
  WHEN (HLQ =HS1_HLQ)   /*  MANAGE HFS DATA SETS*/
 SETSTORGRP = 'DBCLASS
  END
END  /* END OF STORAGE GROUP ROUTINE PROC */
I find the second case much more readable.

I would NEVER recommend that.  My recommendation would be to use DO-END
Pairs and WRITE statements (ALWAYS)
and EXIT's (Almost Always).  The above code maybe be shorter, but gives
you absolutely no help when
it comes time to debug a problem in the future.  I don't care how pretty
the code is, I want to know how
much it's going to help me at o-dark in the morning when I trying to
figure out some issue.

Readability is in the eye of the beholder - I much rather provide as much
assistance to myself and co-workers as
possible..

SELECT
  WHEN (stmt)
  DO
SET stmt
WRITE identifying information
EXIT
  END
- etc -
END

WRITE statements provide identifiable exit points in the code.  You know
immediately where the dataset assignment
fell out of the code.  I almost always code an EXIT statement to prevent
re-assignments later in the code.  When I chose not to
code an EXIT, it's because I've specifically chosen not to  understand
exactly what it means.

It's all personal preference in the end, but why not take the opportunity
to help yourself right from the beginning?

dd keller


This e-mail message and all attachments transmitted with it may
contain legally privileged and/or confidential information intended
solely for the use of the addressee(s). If the reader of this
message is not the intended recipient, you are hereby notified that
any reading, dissemination, distribution, copying, forwarding or
other use of this message or its attachments is strictly
prohibited. If you have received this message in error, please
notify the sender immediately and delete this message and all
copies and backups thereof. Thank you.

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


CONFIDENTIALITY/EMAIL NOTICE: The material in this transmission contains
confidential and privileged information intended only for the addressee.
If you are not the intended recipient, please be advised that you have
received this material in error and that any forwarding, copying, printing,
distribution, use or disclosure of the material is strictly prohibited.
If you have received this material in error, please (i) do not read it,
(ii) reply to the sender that you received the message in error, and
(iii) erase or destroy the material. Emails are not secure and can be
intercepted, amended, lost or destroyed, or contain viruses. You are deemed
to have accepted these risks if you communicate with us by email. Thank you.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu 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 lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Does this apply to some of the messages here?

I agree !! ... :-) 

Kind Regards

Jim Thomas
617-233-4130 (mobile)
636-294-1014(res)
j...@thethomasresidence.us (Email)


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf
Of Rick Fochtman
Sent: Thursday, August 04, 2011 5:46 PM
To: IBM-MAIN@bama.ua.edu
Subject: Re: Does this apply to some of the messages here?

--snip

-snip
Too many #%$# lawyers with too much free time and too little to do.

But on the positive side (ever the optimist), perhaps it's the
beginning of an effort to demonstrate the inanity (and insanity) of far
too many knee-jerk-reaction laws enacted to protect us from various and
sundry bogeymen.
unsnip-
What do you call 100,000 lawyers buried chin-deep in concrete?

CONCRETE SHORTAGE!

Rick



You are in a room with Adolf Hitler, Osama bin Ladin, and a lawyer.   You
have a gun and two bullets. What should you do?

Shoot the lawyer. Twice.
  

unsnip

ROTFLMAO !!

Rick

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



-
No virus found in this message.
Checked by AVG - www.avg.com
Version: 10.0.1391 / Virus Database: 1518/3810 - Release Date: 08/04/11

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

Re: assembler help!

2011-08-04 Thread Ed Gould

 Jim,

The ctrl-alt-delete in
 Window is the load option in our world.
We invented it, so Its quicker!  And faster.

Ed

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

Re: assembler help!

In
897c82fc69765d45a301af8f5d1210cb023ea55...@otb6mail01.executive.stateofwv.gov,
on 08/04/2011
   at 09:02 AM, Crabtree, Anne D anne.d.crabt...@wv.gov said:

ICM   R1,7,0(R2)

If PARMJOBC contains a binary integer length of 4 with 00 00 00 08,
what ends up in all bits of R1? 

Bits 0-7 unchanged, bits 8-31 the contents of locations 8-10.

This is not doing what I want it to do!
 
What do you expect? What do you get?

If SMF30CPS, also a binary integer length of 4, has 00 00 00 01, 
what ends up in R1?

Bits 0-7 unchanged or incremented by one, bits 24 1 more than the
contents of locations 8-10.


Prior to the L R2,PARMJOBC, there is a LR  R1,R1 which zeroes out R1
right?

No, it's a no-op. SLR, SR or XR would zero the register.

So, does R1 have data in it or an address?

Data.

I was assuming that R1 had data in it (with leading zeroes and 8 on
the end)

You showed 08 at the end of the operand of the load, not the operand
of the ICM.

How can I do that if not the way I tried (ICM followed by the MVC
and A)?

That was correct, but you could have used just an A.
 
 
-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 ISO position; see http://patriot.net/~shmuel/resume/brief.html 
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 lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: assembler help!

In
A826B9FD78356242A9D9595912F9B2323A4690FA06@DOITTMAIL03.doitt.nycnet,
on 08/04/2011
   at 09:16 AM, Barkow, Eileen ebar...@doitt.nyc.gov said:

A mask of 7 loads the low order 3 bytes, so that r1 would contain
whatever the high order byte it contained originally plus 08 

No; R1 would contain whatever high order byte it contained originally
plus the three bytes at location 08.
 
-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 ISO position; see http://patriot.net/~shmuel/resume/brief.html 
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 lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: assembler help!

In p06240802ca60816d092d@[192.168.1.11], on 08/04/2011
   at 01:28 PM, Robert A. Rosenberg hal9...@panix.com said:

That depends on what the person's job function is supposed to be. If 
it is to maintain system exits, an adequate knowledge of assembler 
language skills (or at least enough reading comprehension to 
understand the PoP manual's descriptions of the use and function of 
the individual instructions) would seem to me to be all that is 
required (aside from knowing what the different exits are supposed to
 do and when they get invoked).

You also need knowledge of the system services used by the exits.
 
-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 ISO position; see http://patriot.net/~shmuel/resume/brief.html 
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 lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: assembler help!

In d173ec266418d84395b4b89759d861d409097...@usmdlmdowx025.dow.com,
on 08/04/2011
   at 11:03 AM, van der Grijn, Bart (B) bvandergr...@dow.com said:

I believe Anne mentioned something about PARMJOBC containing the
address to a field with x0..08, rather than the actual value. 

Even if she meant that it contained the address of 00 00 00 08, the
ICM would not load a value of 8, but rather 0. Is it possible that
PARMJOBC was the address of 00 00 08?
 
-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 ISO position; see http://patriot.net/~shmuel/resume/brief.html 
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 lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: assembler help!

In
897c82fc69765d45a301af8f5d1210cb023ea55...@otb6mail01.executive.stateofwv.gov,
on 08/04/2011
   at 10:20 AM, Crabtree, Anne D anne.d.crabt...@wv.gov said:

I realize I'm not asking the smartest questions...  PARMJOBC is an
address and at that address is the value 0008 (I think). 

If PARMJOBC is supposed to contain an address then a value of 00 00 00
08 is implausible.
 
-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 ISO position; see http://patriot.net/~shmuel/resume/brief.html 
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 lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: CORRUPT PDS - I/O ERROR

In
f255efe0ecf08c4a9c1db6aff423541715f32...@ch2wpmail1.na.ds.ussco.com,
on 08/03/2011
   at 12:16 PM, Chase, John jch...@ussco.com said:

IOW, to perfect the DWIM macro?  :-)

I believe that he wants the DWIWHMHIUWIWTA macro.
 
-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 ISO position; see http://patriot.net/~shmuel/resume/brief.html 
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 lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: CORRUPT PDS - I/O ERROR

In 4e394150.1070...@bcs.org.uk, on 08/03/2011
   at 01:38 PM, CM Poncelet ponce...@bcs.org.uk said:

Well yes, they have to be loaded into VS to be processed. In the case
of  block read/writes they precede the data records in the buffer.
But  whatever was being discussed at the time I wrote that had to do
with  record read/writes, in which case the BDW and RDW would not be 
accessible from the buffer: so perhaps I should have said 'not 
accessible' instead of 'not loaded'.

You would still have been wrong.

If I dealt only with MVS, I would have the time to refresh my
memory:  but I don't; I work with subsystems.

Would you mind identifying your employer?

the fact that the channel programs (CPs) are issuing CCWs

It's not a fact.

True. I translate my thoughts into words and for this I use whatever
 suitable word

Or, as in this case, unsuitable word.


In 4e395926.7040...@bcs.org.uk, on 08/03/2011
   at 03:20 PM, CM Poncelet ponce...@bcs.org.uk said:

I am proving by 'reductio ad absurdum' that if the assertion is true,
 then its consequences are absurd:

No; you are confusing an assertion with a proof.


In 4e395cad.9020...@bcs.org.uk, on 08/03/2011
   at 03:35 PM, CM Poncelet ponce...@bcs.org.uk said:

I have read the manuals and I reference them when *necessary*,

FSVO necessary.

and I am 'adamant' that I am right in 
pointing out that an assertion made by others is logically absurd
when it is logically absurd.

You are also adamant that you are right in claiming as logically
absurd things that are not logically absurd and in rebutting claims
that nobody made.
 
 
-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 ISO position; see http://patriot.net/~shmuel/resume/brief.html 
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 lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: assembler help!

Sir,

Forgive me, I honestly did not mean to insult you. 

In fact, I concur with you, only, I meant that to bring 
up the topic of how MVS is put down constantly and if we
have to take an outage, we have (just about) hell to pay
but by the same token, if you have to reboot a server ...
it's just not a big deal. 


By the by  FWIW .. my rant actually goes well beyond
MVS vs. the non-MVS world. 

Kind Regards

Jim Thomas
617-233-4130 (mobile)
636-294-1014(res)
j...@thethomasresidence.us (Email)


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf
Of Ed Gould
Sent: Thursday, August 04, 2011 6:14 PM
To: IBM-MAIN@bama.ua.edu
Subject: Re: assembler help!

 Jim,

The ctrl-alt-delete in
 Window is the load option in our world.
We invented it, so Its quicker!  And faster.

Ed

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



-
No virus found in this message.
Checked by AVG - www.avg.com
Version: 10.0.1391 / Virus Database: 1518/3810 - Release Date: 08/04/11

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

Re: IGD06023I STORAGE GROUP ZFSCLASS IS NOT REFERENCED BY THE STORAGE GROUP ACS ROUTINE

2011-08-04 Thread Lim Ming Liang


Hi Dave,
You hit the jackpot on this.
I got it resolved.
Thank you so much.
Regards Lim ML

On 05/08/11 12:59 AM, Gibney, Dave wrote:

Starting with:
WHEN (HLQ =ZFS_HLQ)  /*  MANAGE MULTI VOLUME ZFS DATA SETS
It's all comment until the */ on the last line.

Dave Gibney
Information Technology Services
Washington State University



-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On
Behalf Of Darth Keller
Sent: Thursday, August 04, 2011 8:27 AM
To: IBM-MAIN@bama.ua.edu
Subject: Re: IGD06023I STORAGE GROUP ZFSCLASS IS NOT REFERENCED BY
THE STORAGE GROUP ACS ROUTINE

Your validate seems to be indicating that this code is not actually part
of your translated routines.

I'd say that either -

1.  This code was never actually translated to the SCDS that you are using
for this Validate .

2. Your code actually ends before this section.  Take a close look at the
output of your translate.

#1 is probably the most likely.


HTH's
ddk





From:   Lim Ming Lianglimm...@unifi.my
To: IBM-MAIN@bama.ua.edu
Date:   08/04/2011 10:14 AM
Subject:IGD06023I STORAGE GROUP ZFSCLASS IS NOT REFERENCED BY
THE
STORAGE GROUP ACS ROUTINE
Sent by:IBM Mainframe Discussion ListIBM-MAIN@bama.ua.edu



Hi,
I am new in DFSMS, trying to do a validate against my SCDS, got a
warning msg

IGD06023I STORAGE GROUP ZFSCLASS IS NOT REFERENCED BY THE STORAGE
GROUP
ACS ROUTINE

But in Storage Group ACS routine as below;

PROC STORGRP
/**
/
FILTLIST HSM_HLQ INCLUDE('HFS1')
FILTLIST ZFS_HLQ INCLUDE('ZFS')
FILTLIST HS1_HLQ INCLUDE('CICSTS1X')
FILTLIST SYSTEM_DATA_SET INCLUDE(SYS%.**)
FILTLIST VALID_STORAGE_CLASS INCLUDE('HFSCLASS','DBCLASS','ZFSCLASS')
/**
/
/**
/
/* End of FILTLIST Statements */
/**
/
   SELECT
WHEN (HLQ =HSM_HLQ)  /*  MANAGE MULTI VOLUME HFS DATA
SETS */
  DO
SETSTORGRP = 'HFSCLASS'
EXIT
  END
WHEN (HLQ =ZFS_HLQ)  /*  MANAGE MULTI VOLUME ZFS DATA
SETS
  DO
SETSTORGRP = 'ZFSCLASS'
EXIT
  END
WHEN (HLQ =HS1_HLQ)   /*  MANAGE HFS DATA SETS*
  DO
SETSTORGRP = 'DBCLASS'
EXIT
  END
   END
END  /* END OF STORAGE GROUP ROUTINE PROC */


I did have ZFSCLASS referenced in the ACS source, where did I go wrong ?

--
Regards Lim ML

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



This e-mail message and all attachments transmitted with it may
contain legally privileged and/or confidential information intended
solely for the use of the addressee(s). If the reader of this
message is not the intended recipient, you are hereby notified that
any reading, dissemination, distribution, copying, forwarding or
other use of this message or its attachments is strictly
prohibited. If you have received this message in error, please
notify the sender immediately and delete this message and all
copies and backups thereof. Thank you.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu 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 lists...@bama.ua.edu 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 lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: assembler help!

In 01a401cc52f5$570e93a0$052bbae0$@us, on 08/04/2011
   at 05:24 PM, Jim Thomas j...@thethomasresidence.us said:

Forgive me ... I'm confused ... I don't see the connection.  In fact,
as far as I'm concerned ... why even bother with  HLASM vs. sticking
to straight good old fashioned tested and true assembler ??.

SOAP2? SAP? HLASM is the currently supported assembler i MVS, and has
been for quite some time.
 
-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 ISO position; see http://patriot.net/~shmuel/resume/brief.html 
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 lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: How to get Operator Log

In
CAMThvFu76y_=o-fbwzi8g7-nzjmhd6gzoqvd9mwznllsoen...@mail.gmail.com,
on 08/03/2011
   at 11:07 PM, saurabh khandelwal sourabhkhandelwal...@gmail.com
said:

 Our MVS Guest's crash abruptly, the only message about
it's reason is in zVM's Operator's Log, because these MVS are 
running under.

I really doubt that MVS is running on OPERATOR. Check with your VM
systems programmer as to what VM it is.

  Can anybody help me, how to see Operator log under zVM,
so that I can check the reason for MVS crashes.

You need to close the console log for the correct virtual machine and
spool it to yourself. Depending on how you're configured you might
have to directly log on or you might have to use a programmed
operator.

Sorry, if I am posting this problem in the wrong forum.

This is a correct list; there's another, more specialized list, for
VM.
 
-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 ISO position; see http://patriot.net/~shmuel/resume/brief.html 
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 lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: CORRUPT PDS - I/O ERROR

In 4e3a4e7e.5090...@bcs.org.uk, on 08/04/2011
   at 08:47 AM, CM Poncelet ponce...@bcs.org.uk said:

I proved that, if On input, the order of override priority is
program  DCB - JCL DCB - dataset attributes, then the consequence
is an I/O error

Not only did you not prove that, but others gave examples of such
overrides having practical value.

the hypothesis that the priority order both on 
output and on input is the same 

Not an hypothesis - an observed fact.

because there is no I/O error on output, 

False.

It is not 'my' prejudice, but what one of the greatest MVS sysprogs
I've  ever known (he too had 30+ years experience, then) taught me
when I  started as a sysprog on IBM mainframes in '85

I wonder why I don't believe you?

The documentation does not necessarily match the facts

The code does.

and the I/O error is a fact..

An irrelevant fact, and not what you seem to believe at that. An
inappropriate override can cause an I/O error for *both* input and
output, and an appropriate override will not cause an I/O error for
either.
 
-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 ISO position; see http://patriot.net/~shmuel/resume/brief.html 
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 lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: S/A Dump issue

In
of20daac15.9a65b2cc-on882578e1.005b47d9-882578e1.005c1...@ucdmc.ucdavis.edu,
on 08/03/2011
   at 09:46 AM, John Norgauer john.norga...@ucdmc.ucdavis.edu said:

Now, after a few weeks have passed and having re-create the S/A dump
after  getting the same Wait state , IPCS is unable to locate the
CVT.

Is the PSA in the dump?
 
-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 ISO position; see http://patriot.net/~shmuel/resume/brief.html 
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 lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: CORRUPT PDS - I/O ERROR

In 4e397247.7070...@bcs.org.uk, on 08/03/2011
   at 05:07 PM, CM Poncelet ponce...@bcs.org.uk said:

The absurd consequences are that 'FB,90' records would have to be
read  as 'FB,80' records and the last record in the block padded with
X'00's

That is not a consequence, absurd or otherwise.


In 4e3975b7.4030...@bcs.org.uk, on 08/03/2011
   at 05:22 PM, CM Poncelet ponce...@bcs.org.uk said:

You cannot have two 'logic sets' - one for output and another for
input. 

WTF is a logic set?

If output hits no I/O error then input hits no I/O error.

Non sequitor.

Otherwise your single assertion, applicable both to output and 
input, is flawed - because it has two possible outcomes. It is 
'along the lines of' asserting that: if apples then 2 + 2 = 4, 
if oranges then 2 + 2 = 6.

Only in your imagination.


In 4e3a19f7.8070...@bcs.org.uk, on 08/04/2011
   at 05:03 AM, CM Poncelet ponce...@bcs.org.uk said:

My Collins English dictionary

Has generic definitions, not terms of art.

(2) to supersede or annul;

Which is exactly what the override (forward merge) in OPEN does.

As your interpretation seems to be the only one that matters

Liar.

But I maintain that my assertion is correct within the context of my
 interpretation of the word override. 

Perhaps in your world dogs have 5 legs.

The difficulty in arguing a point here is that the English 
language is itself ambiguous and imprecise,

No, the difficulty is that although IBM has provided precise
definitions for various terms of art in its software, you insist on
inventing your own.

I 'misunderstood' only that assembling etc. a DCB, or substituting
one  JCL parm for another, are examples of the correct meaning of
override: 

ROTF,LMAO! You misujderstood a lot more.
 
 
-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 ISO position; see http://patriot.net/~shmuel/resume/brief.html 
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 lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: CORRUPT PDS - I/O ERROR

In 4e395e34.1070...@bcs.org.uk, on 08/03/2011
   at 03:41 PM, CM Poncelet ponce...@bcs.org.uk said:

But I should get *no* I/O error at all on read if the DCB precedence 
rules for output apply also to input,

False.


In 4e396dcd.60...@bcs.org.uk, on 08/03/2011
   at 04:48 PM, CM Poncelet ponce...@bcs.org.uk said:

But I do not dispute that the DCB is filled in exactly the same way
for  output and for input (bar the flags being set for write or/and
for read  etc.). I dispute that the program's DCB attributes for
input prevail  over the attributes of the dataset (i.e. that they now
temporarily  become the dataset's new attributes whether the dataset
'likes' it or  not) in the way that its DCB attributes for output
prevail over them  (ditto, but permanently).

The values in the DCB *are* the dataset attributes.

It all comes down to what is meant by 'override'. To me, 'override' 
implies 'with successful completion and CC=00':

Then by *your* definition there is an override; the OPEN completes
with RC 0.

if the job then hits I/O errors

What if the job gets an 0C7 because of invalid decimal data? Does that
mean that there was no override?

because the important thing to understand about 'override' is  that
it has nothing to do with whether the job can complete afterwards,

Are you incapable of accurately citing what others have written? The
important thing to understand about override is how it works.

How about applying this 'override' concept to JCL procedures, and 
override say the PROC's STEPLIB with a VSAM file or DD DUMMY, then 
submit the JCL. Does this mean the PROC's STEPLIB was successfully 
overriden because the JCL could be submitted,

Yes. What if the user submits a STEPLIB override with a load library,
but not the correct one. Would you claim that there was no override? 

that does not matter, because the important thing was 
to override STEPLIB and *that* was successful?

Do you consider lying about the positions of your oponents to be a
valid debating tactic?
  
-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 ISO position; see http://patriot.net/~shmuel/resume/brief.html 
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 lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Source code to Milten, Orvyl, Wylbur is here.