| View previous topic :: View next topic |
| Author |
Message |
Skayara
Beginner
Joined: 18 Jul 2005
Posts: 2
Topics: 1
Location: Omaha
|
 Posted: Mon Jul 18, 2005 9:11 am Post subject: VSAM maxlrecl question |
 |
|
For any given KSDS file, how can I programatically determine what
is the data component MAXLRECL used when creating the cluster?
I looked at IFGRPL and IFGACB but didn't find anything useful.
Thanks |
|
| Back to top |
|
 |
Brian
Beginner
Joined: 12 Aug 2003
Posts: 95
Topics: 6
|
| Posted: Mon Jul 18, 2005 11:34 pm Post subject: |
|
|
Hello,
Do a LISTCAT ENTRIES(VSAM) ALL and trap the output in a stem variable. Stem.32 / 36 (not very sure) will contain the result that you are looking at.
Cheers
Brian |
|
| Back to top |
|
|
Skayara
Beginner
Joined: 18 Jul 2005
Posts: 2
Topics: 1
Location: Omaha
|
| Posted: Tue Jul 19, 2005 7:19 am Post subject: Stem.32/36 ? |
|
|
Mr. Brian:
Stem 32/36? Now, that is something new to me. Can you refer me
to a manual that shows how to trap this thing? Or do you know of a
technique?
Thanks |
|
| Back to top |
|
|
Brian
Beginner
Joined: 12 Aug 2003
Posts: 95
Topics: 6
|
| Posted: Tue Jul 19, 2005 7:44 am Post subject: |
|
|
Skayara,
The outtrap command in rexx traps the output of any TSO command and it is in good faith that all programmers trap the output in a stem variable. A stem variable is like an array that can be referred by the variable name.number.
Just run this script and you should have your max lrecl ..
| Code: |
/* REXX */
DS="MY.VSAM.BASE.CLUSTER"
X = OUTTRAP("VSAM.");
"LISTCAT ENTRIES('"DS"') ALL"
X = OUTTRAP("OFF");
PARSE VAR VSAM.32 A B C
IF POS("CLUSTER",VSAM.1) > 0 THEN /* avoid data and index */
DO
P1 = LASTPOS("-",B)
P2 = POS("E",C)
P3 = SUBSTR(B,P1+1,P2-1)
RL = STRIP(P3) /* CONTAINS THE RECORD LENGTH */
END
|
Cheers
Brian |
|
| Back to top |
|
|
|
|
|
FAQ
Search
Quick Manuals
Register
Profile
Log in to check your private messages
Log in
