Re: musings on listing a catalog
1) REXX - It would be nice if I could do the equivalent of a LISTCAT and get
the parsed output back in a stem variable. Or super enhance LISTDSI to work
with VSAM cluster.
Save this REXX as LCXX.
Go to 3.4
Issue command LCXX
Stem variable trap. Contains LISTCAT output
/* REXX - LCX - Display listcat results */
/**/
Dsn = strip(arg(1),'B',')
Call Outtrap(trap.)
LISTCAT ENT('Dsn') ALL
Call outtrap(OFF)
If trap.00 Then
Do
Address ispexec 'VGET (ZSCREEN) SHARED'
ddn='$TRAP$'zscreen
'ALLOC F('ddn') UNIT(VIO) DSO(PS) RECFM(V B) LRECL(255) NEW DEL REU'
'EXECIO 'trap.0' DISKW 'ddn' (FINIS STEM TRAP.'
Address ispexec 'LMINIT DATAID(TRAP) DDNAME('ddn') ENQ(SHR)'
Address ispexec 'VIEW DATAID('trap')'
Address ispexec 'LMFREE DATAID('trap')'
'FREE F('ddn')'
End
Pete
-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of
McKown, John
Sent: Tuesday, July 26, 2011 9:51 AM
To: IBM-MAIN@bama.ua.edu
Subject: musings on listing a catalog
Disclaimer: This e-mail message is intended only for the personal use of
the recipient(s) named above. If you are not an intended recipient, you
may not review, copy or distribute this message. If you have received this
communication in error, please notify us immediately by e-mail and delete
the original message.
This e-mail expresses views only of the sender, which are not to be
attributed to Rite Aid Corporation and may not be copied or distributed
without this statement.
--
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: musings on listing a catalog
The info is in a stem variable (trap.)
You just have to parse out what you want.
/* REXX - LCX - Display listcat results */
/**/
Dsn = strip(arg(1),'B',')
Call Outtrap(trap.)
LISTCAT ENT('Dsn') ALL
Call outtrap(OFF)
If trap.0=0 Then Exit 4
true = 1
false = 0
Found_ATTRIBUTES = false
Found_Data = false
KeyLen='?'
CiSize='?'
RKP ='?'
Do i = 1 to trap.0
If Found_ATTRIBUTES then Do
Info = strip(translate(trap.i,' ','-'),'B')
If pos('KEYLEN',trap.i) 0 then parse var Info . 'KEYLEN' KeyLen .
If pos('CISIZE',trap.i) 0 then parse var Info . 'CISIZE' CiSize .
If pos('RKP',trap.i) 0then parse var Info . 'RKP' RKP .
End
If Found_Data then
If word(trap.i,1) = 'ATTRIBUTES' then Found_ATTRIBUTES = true
If word(trap.i,1) = 'DATA' then Found_Data = true
End
Say 'KeyLen='KeyLen
Say 'CiSize='CiSize
Say 'RKP ='RKP
Exit 0
Pete
-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of
McKown, John
Sent: Tuesday, July 26, 2011 11:26 AM
To: IBM-MAIN@bama.ua.edu
Subject: Re: musings on listing a catalog
Interesting, thanks. But I want to take action in the script based on things
such as KEYS, RKP, percentfree, and so on. Just presenting the LISTC output in
a screen doesn't help. I can get that from 3.4 and doing an I in front of the
cluster.
--
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 Pete Hartung
Sent: Tuesday, July 26, 2011 10:08 AM
To: IBM-MAIN@bama.ua.edu
Subject: Re: musings on listing a catalog
1) REXX - It would be nice if I could do the equivalent of a
LISTCAT and get the parsed output back in a stem variable. Or
super enhance LISTDSI to work with VSAM cluster.
Save this REXX as LCXX.
Go to 3.4
Issue command LCXX
Stem variable trap. Contains LISTCAT output
/* REXX - LCX - Display listcat results */
/**/
Dsn = strip(arg(1),'B',')
Call Outtrap(trap.)
LISTCAT ENT('Dsn') ALL
Call outtrap(OFF)
If trap.00 Then
Do
Address ispexec 'VGET (ZSCREEN) SHARED'
ddn='$TRAP$'zscreen
'ALLOC F('ddn') UNIT(VIO) DSO(PS) RECFM(V B) LRECL(255)
NEW DEL REU'
'EXECIO 'trap.0' DISKW 'ddn' (FINIS STEM TRAP.'
Address ispexec 'LMINIT DATAID(TRAP) DDNAME('ddn') ENQ(SHR)'
Address ispexec 'VIEW DATAID('trap')'
Address ispexec 'LMFREE DATAID('trap')'
'FREE F('ddn')'
End
Pete
-Original Message-
From: IBM Mainframe Discussion List
[mailto:IBM-MAIN@bama.ua.edu] On Behalf Of McKown, John
Sent: Tuesday, July 26, 2011 9:51 AM
To: IBM-MAIN@bama.ua.edu
Subject: musings on listing a catalog
Disclaimer: This e-mail message is intended only for the
personal use of
the recipient(s) named above. If you are not an intended
recipient, you
may not review, copy or distribute this message. If you have
received this
communication in error, please notify us immediately by
e-mail and delete
the original message.
This e-mail expresses views only of the sender, which are not to be
attributed to Rite Aid Corporation and may not be copied or
distributed
without this statement.
--
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
Disclaimer: This e-mail message is intended only for the personal use of
the recipient(s) named above. If you are not an intended recipient, you
may not review, copy or distribute this message. If you have received this
communication in error
Re: Control date format using Rexx
/* REXX */
TestDate1 = '090229' /* 2009 IS NOT A LEAP YEAR */
say TestDate1 CheckDate(TestDate1)
TestDate2 = '10021'/* month s/b nn not n */
say TestDate2 CheckDate(TestDate2)
TestDate3 = '080229' /* this should work */
say TestDate3 CheckDate(TestDate3)
exit 0
CheckDate: procedure
Signal on syntax name DateError
parse arg @Date
If left(@Date,2) 60 then @Date = '20'@Date
else @Date = '19'@Date
@Date = Date('S',@Date,'S')
Signal off syntax
Return 'OK'
DateError:
Signal off syntax
Return 'KO'
090229 KO
10021 KO
080229 OK
Pete
-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of
Mark Zelden
Sent: Tuesday, April 26, 2011 1:21 PM
To: IBM-MAIN@bama.ua.edu
Subject: Re: Control date format using Rexx
On Tue, 26 Apr 2011 09:58:56 -0600, John P Kalinich jkali...@csc.com wrote:
I have a Rexx date function that I got years ago from the TSO-REXX
listserv. It has an edit option. Contact me off-list if you want it.
There is also RDATE / RDATEF on my web site / CBT file 434. I used them to
convert date formats prior to OS/390 2.4 when TSO REXX added
that ability. It still does one type of conversion the builtin routine
doesn't.
Valid input dates ranges are from 01/01/1900 through 12/31/2172.
http://www.mzelden.com/mvsfiles/rdate.txt
http://www.mzelden.com/mvsfiles/rdatef.txt
Mark
--
Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS
mailto:m...@mzelden.com
Mark's MVS Utilities: http://www.mzelden.com/mvsutil.html
Systems Programming expert at http://expertanswercenter.techtarget.com/
*** Please note the new URL for Mark's MVS Utilities ***
--
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
Disclaimer: This e-mail message is intended only for the personal use of
the recipient(s) named above. If you are not an intended recipient, you
may not review, copy or distribute this message. If you have received this
communication in error, please notify us immediately by e-mail and delete
the original message.
This e-mail expresses views only of the sender, which are not to be
attributed to Rite Aid Corporation and may not be copied or distributed
without this statement.
--
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: SV: Mixed case to a CLIST from ISPF command line?
How about another approach /* rexx */ Do while Parm = '' | Parm = 'PARM' say 'Enter foo PARM' Parse External Parm End say Parm exit 0 -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Dave Salt Sent: Tuesday, March 02, 2010 1:16 PM To: IBM-MAIN@bama.ua.edu Subject: Re: SV: Mixed case to a CLIST from ISPF command line? Perhaps a better alternative would be to modify your REXX procedure to check the input argument and see if it's all uppercase. If it is, your REXX procedure could display a message (e.g. You forgot to enter this command on the TSOCMD panel) and then display the TSO command panel so the command can be re-entered? From: thomas.b...@swedbank.se Are Your serious ? Compared to the only other alternative I've heard so far (i.e. customizing panels), yes, I'm deadly serious. And it would be extremely easy to do. Dave Salt SimpList(tm) - try it; you'll get it! http://www.mackinney.com/products/program-development/simplist.html _ Stay in touch. http://go.microsoft.com/?linkid=9712959 -- 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 Disclaimer: This e-mail message is intended only for the personal use of the recipient(s) named above. If you are not an intended recipient, you may not review, copy or distribute this message. If you have received this communication in error, please notify us immediately by e-mail and delete the original message. This e-mail expresses views only of the sender, which are not to be attributed to Rite Aid Corporation and may not be copied or distributed without this statement. -- 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 subject]
INFO REFCARD Disclaimer: This e-mail message is intended only for the personal use of the recipient(s) named above. If you are not an intended recipient, you may not review, copy or distribute this message. If you have received this communication in error, please notify us immediately by e-mail and delete the original message. This e-mail expresses views only of the sender, which are not to be attributed to Rite Aid Corporation and may not be copied or distributed without this statement. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
