Re: SDSF info in Rexx
Sean,
No, that's wrong.
That's what I thought as well and tested that several times, but it did
not work.
It should not be specified in an ISFEXEC call but in an ISFACT call.
Hans
-Original Message-
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of
Smith, Sean M
Sent: maandag 20 april 2009 17:00
To: IBM-MAIN@bama.ua.edu
Subject: Re: SDSF info in Rexx
Guess I should have spelled out what I meant instead of just typing it into a
sentence. You may need to look at using the DELEAYED or DELAYED2 option on
the ISFEXEC call to get these variables.
Sean
-Original Message-
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of
Smith, Sean M
Sent: Thursday, April 16, 2009 3:16 PM
To: IBM-MAIN@bama.ua.edu
Subject: Re: SDSF info in Rexx
You may need to look at using the DELEAYED or DELAYED2 option on the ISFEXEC
call to get these variables. Check the ISFCOLS and ISFCOLS2 variable on return
to see what variables are there for your choosing.
Sean
-Original Message-
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of
Visser, Hans (PinkRoccade Infrastructure Services Technisch Specialist)
Sent: Thursday, April 16, 2009 7:10 AM
To: IBM-MAIN@bama.ua.edu
Subject: Re: SDSF info in Rexx
Thomas,
Result:
SAY j_ddname.didx pagedef pagedef.didx j_pagedef j_pagedef.didx
SYSUT2 PAGEDEF PAGEDEF.4 J_PAGEDEF J_PAGEDEF.4
-Original Message-
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of
Thomas Berg
Sent: Thursday, April 16, 2009 3:44 PM
To: IBM-MAIN@bama.ua.edu
Subject: SV: SDSF info in Rexx
Initiate variable isfcols with (at least)
pagedef and formdef, e g:
isfcols = 'DDNAME STEPN PROCS PAGEDEF FORMDEF'
immediately before:
ISFACT ST TOKEN('token.jidx') PARM(NP ?) (PREFIX J_
Regards,
Thomas Berg
__
Thomas Berg Specialist IT-U SWEDBANK
-Ursprungligt meddelande-
Från: IBM Mainframe Discussion List
[mailto:ibm-m...@bama.ua.edu] För Visser, Hans (PinkRoccade
Infrastructure Services Technisch Specialist)
Skickat: den 16 april 2009 15:24
Till: IBM-MAIN@bama.ua.edu
Ämne: Re: SDSF info in Rexx
Thomas,
I know, but how to GET that info.
See REXX below:
/ REXX
/
/*
*/
/*TRACE R
*/
/*
*/
rc = ISFCALLS('ON')
/*
*/
isfprefix = 'TC49*'
/*
*/
ADDRESS SDSF
/*
*/
ISFEXEC ST (VERBOSE DELAYED)
/*
*/
DO jidx=1 TO jname.0
IF jname.jidx = 'TC49VISF' THEN
DO
ISFACT ST TOKEN('token.jidx') PARM(NP ?) (PREFIX
J_
/*
*/
DO didx=1 TO j_ddname.0
IF j_ddname.didx 'SYSUT2' THEN
ITERATE
/*
*/
SAY j_ddname.didx pagedef pagedef.didx j_pagedef
j_pagedef.didx
END
END
END
/*
*/
rc = ISFCALLS('OFF')
/*
*/
RETURN
/*
*/
Regards, Hans
-Original Message-
From: IBM Mainframe Discussion List
[mailto:ibm-m...@bama.ua.edu] On Behalf Of Thomas Berg
Sent: Thursday, April 16, 2009 2:14 PM
To: IBM-MAIN@bama.ua.edu
Subject: SV: SDSF info in Rexx
They are found in the JDS (Job Data Set) panel, with column
names
Re: SDSF info in Rexx
Sean,
I check ISFCOLS,ISFCOLS2, ISFDCOLS, ISFDCOLS2, ISFRCOLS and ISFRCOLS2
with ISFEXEC ST (DELAYED)
DELAYED2 dos not exist.
This is what I get:
isfcols JNAME TOKEN JOBID OWNERID JPRIO QUEUE JCLASS POS SYSAFF ACTSYS
STATUS
PRTDEST SECLABEL TGNUM TGPCT ORIGNODE EXECNODE DEVID OFFDEVS
RETCODE SRVCLS
WLMPOS SCHENV DELAY SSMODE SPIN
isfcols2DDNAME TOKEN STEPN PROCS DSID OWNERID OCLASS DESTN RECCNT PAGECNT
BYTECNT COPYCNT DEST NODE OGNAME SECLABEL PRMODE BURST DSDATE
FORMS FCBID UCSID
WTRID FLASHID FLASHC SEGID DSNAME CHARS CPYMOD CPYMODFT
isfdcols
isfdcols2
isfrcolsSYSAFF
isfrcols2
But NO pagedef
Regards,
Hans
-Original Message-
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of
Smith, Sean M
Sent: vrijdag 17 april 2009 0:16
To: IBM-MAIN@bama.ua.edu
Subject: Re: SDSF info in Rexx
You may need to look at using the DELEAYED or DELAYED2 option on the ISFEXEC
call to get these variables. Check the ISFCOLS and ISFCOLS2 variable on return
to see what variables are there for your choosing.
Sean
-Original Message-
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of
Visser, Hans (PinkRoccade Infrastructure Services Technisch Specialist)
Sent: Thursday, April 16, 2009 7:10 AM
To: IBM-MAIN@bama.ua.edu
Subject: Re: SDSF info in Rexx
Thomas,
Result:
SAY j_ddname.didx pagedef pagedef.didx j_pagedef j_pagedef.didx
SYSUT2 PAGEDEF PAGEDEF.4 J_PAGEDEF J_PAGEDEF.4
-Original Message-
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of
Thomas Berg
Sent: Thursday, April 16, 2009 3:44 PM
To: IBM-MAIN@bama.ua.edu
Subject: SV: SDSF info in Rexx
Initiate variable isfcols with (at least)
pagedef and formdef, e g:
isfcols = 'DDNAME STEPN PROCS PAGEDEF FORMDEF'
immediately before:
ISFACT ST TOKEN('token.jidx') PARM(NP ?) (PREFIX J_
Regards,
Thomas Berg
__
Thomas Berg Specialist IT-U SWEDBANK
-Ursprungligt meddelande-
Från: IBM Mainframe Discussion List
[mailto:ibm-m...@bama.ua.edu] För Visser, Hans (PinkRoccade
Infrastructure Services Technisch Specialist)
Skickat: den 16 april 2009 15:24
Till: IBM-MAIN@bama.ua.edu
Ämne: Re: SDSF info in Rexx
Thomas,
I know, but how to GET that info.
See REXX below:
/ REXX
/
/*
*/
/*TRACE R
*/
/*
*/
rc = ISFCALLS('ON')
/*
*/
isfprefix = 'TC49*'
/*
*/
ADDRESS SDSF
/*
*/
ISFEXEC ST (VERBOSE DELAYED)
/*
*/
DO jidx=1 TO jname.0
IF jname.jidx = 'TC49VISF' THEN
DO
ISFACT ST TOKEN('token.jidx') PARM(NP ?) (PREFIX
J_
/*
*/
DO didx=1 TO j_ddname.0
IF j_ddname.didx 'SYSUT2' THEN
ITERATE
/*
*/
SAY j_ddname.didx pagedef pagedef.didx j_pagedef
j_pagedef.didx
END
Re: SDSF Rexx and Output queue
Lizette,
Is tsrec on the ST panel what you are looking for?
/ REXX /
/**/
/*TRACE R */
/**/
rc = ISFCALLS('ON')
/**/
isfprefix = 'TC49*'
/**/
ADDRESS SDSF
/**/
ISFEXEC ST (ALTERNATE DELAYED)
/**/
DO jidx=1 TO jname.0
SAY tsrec.jidx
END
/**/
rc = ISFCALLS('OFF')
/**/
RETURN
/**/
Regards, Hans
-Original Message-
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of
Lizette Koehler
Sent: donderdag 16 april 2009 18:36
To: IBM-MAIN@bama.ua.edu
Subject: SDSF Rexx and Output queue
I am writing my first SDSF REXX program. The process is suppose to go to
specific output queues and get the tot-recs for each job. If I find a job is
GT 500,000 lines, then I will need to modify the printer to accept it, then put
the printer back.
While reading the documentation I did not see that there was the total record
count that I could retrieve. Perhaps I am being to narrow in my understanding
in SDSF/REXX.
Is it possible to do what I want? Or do I need to use the batch SDSF job and
then just parse the information that way?
Thanks
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
--
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: SDSF info in Rexx
Yes, with no result.
I tried everything - 1.
And I'm looking for just that last 1. ;-)
-Original Message-
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of
Thomas Berg
Sent: vrijdag 17 april 2009 13:46
To: IBM-MAIN@bama.ua.edu
Subject: SV: SDSF info in Rexx
Have You tried *without*:
IF j_ddname.didx 'SYSUT2' THEN ?
Regards,
Thomas Berg
__
Thomas Berg Specialist IT-U SWEDBANK
-Ursprungligt meddelande-
Från: IBM Mainframe Discussion List
[mailto:ibm-m...@bama.ua.edu] För Visser, Hans (PinkRoccade
Infrastructure Services Technisch Specialist)
Skickat: den 17 april 2009 12:56
Till: IBM-MAIN@bama.ua.edu
Ämne: Re: SDSF info in Rexx
Thomas,
Setting a ...COLS variable is not necessary.
If you don't set that variable, you get ALL the columns.
My problem is that I get no columns at all.
Regards,
Hans
-Original Message-
From: IBM Mainframe Discussion List
[mailto:ibm-m...@bama.ua.edu] On Behalf Of Thomas Berg
Sent: vrijdag 17 april 2009 12:14
To: IBM-MAIN@bama.ua.edu
Subject: SV: SDSF info in Rexx
Yes, isfdcols is probably the right variable to set FORMDEF
and PAGEDEF in.
Regards,
Thomas Berg
__
Thomas Berg Specialist IT-U SWEDBANK
-Ursprungligt meddelande-
Från: IBM Mainframe Discussion List
[mailto:ibm-m...@bama.ua.edu] För Visser, Hans (PinkRoccade
Infrastructure Services Technisch Specialist)
Skickat: den 17 april 2009 10:55
Till: IBM-MAIN@bama.ua.edu
Ämne: Re: SDSF info in Rexx
Sean,
I check ISFCOLS,ISFCOLS2, ISFDCOLS, ISFDCOLS2, ISFRCOLS
and ISFRCOLS2
with ISFEXEC ST (DELAYED)
DELAYED2 dos not exist.
This is what I get:
isfcols JNAME TOKEN JOBID OWNERID JPRIO QUEUE JCLASS POS
SYSAFF ACTSYS STATUS
PRTDEST SECLABEL TGNUM TGPCT ORIGNODE EXECNODE
DEVID OFFDEVS RETCODE
SRVCLS
WLMPOS SCHENV DELAY SSMODE SPIN
isfcols2DDNAME TOKEN STEPN PROCS DSID OWNERID OCLASS
DESTN RECCNT PAGECNT
BYTECNT COPYCNT DEST NODE OGNAME SECLABEL
PRMODE BURST DSDATE FORMS
FCBID UCSID
WTRID FLASHID FLASHC SEGID DSNAME CHARS CPYMOD
CPYMODFT
isfdcols
isfdcols2
isfrcolsSYSAFF
isfrcols2
But NO pagedef
Regards,
Hans
-Original Message-
From: IBM Mainframe Discussion List
[mailto:ibm-m...@bama.ua.edu] On Behalf Of Smith, Sean M
Sent: vrijdag 17 april 2009 0:16
To: IBM-MAIN@bama.ua.edu
Subject: Re: SDSF info in Rexx
You may need to look at using the DELEAYED or DELAYED2
option on the
ISFEXEC call to get these variables. Check the ISFCOLS and
ISFCOLS2
variable on return to see what variables are there for your
choosing.
Sean
-Original Message-
From: IBM Mainframe Discussion List
[mailto:ibm-m...@bama.ua.edu] On Behalf Of Visser, Hans
(PinkRoccade
Infrastructure Services Technisch Specialist)
Sent: Thursday, April 16, 2009 7:10 AM
To: IBM-MAIN@bama.ua.edu
Subject: Re: SDSF info in Rexx
Thomas,
Result:
SAY j_ddname.didx pagedef pagedef.didx j_pagedef j_pagedef.didx
SYSUT2 PAGEDEF PAGEDEF.4 J_PAGEDEF J_PAGEDEF.4
-Original Message-
From: IBM Mainframe Discussion List
[mailto:ibm-m...@bama.ua.edu] On Behalf Of Thomas Berg
Sent: Thursday, April 16, 2009 3:44 PM
To: IBM-MAIN@bama.ua.edu
Subject: SV: SDSF info in Rexx
Initiate variable isfcols with (at least) pagedef and formdef, e g:
isfcols = 'DDNAME STEPN PROCS PAGEDEF FORMDEF'
immediately before:
ISFACT ST TOKEN('token.jidx') PARM(NP ?) (PREFIX J_
Regards,
Thomas Berg
__
Thomas Berg Specialist IT-U SWEDBANK
-Ursprungligt meddelande-
Från: IBM Mainframe Discussion List
[mailto:ibm-m...@bama.ua.edu] För Visser, Hans (PinkRoccade
Infrastructure Services Technisch Specialist)
Skickat: den 16
Re: SDSF info in Rexx
Thomas,
Setting a ...COLS variable is not necessary.
If you don't set that variable, you get ALL the columns.
My problem is that I get no columns at all.
Regards,
Hans
-Original Message-
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of
Thomas Berg
Sent: vrijdag 17 april 2009 12:14
To: IBM-MAIN@bama.ua.edu
Subject: SV: SDSF info in Rexx
Yes, isfdcols is probably the right variable to
set FORMDEF and PAGEDEF in.
Regards,
Thomas Berg
__
Thomas Berg Specialist IT-U SWEDBANK
-Ursprungligt meddelande-
Från: IBM Mainframe Discussion List
[mailto:ibm-m...@bama.ua.edu] För Visser, Hans (PinkRoccade
Infrastructure Services Technisch Specialist)
Skickat: den 17 april 2009 10:55
Till: IBM-MAIN@bama.ua.edu
Ämne: Re: SDSF info in Rexx
Sean,
I check ISFCOLS,ISFCOLS2, ISFDCOLS, ISFDCOLS2, ISFRCOLS
and ISFRCOLS2 with ISFEXEC ST (DELAYED)
DELAYED2 dos not exist.
This is what I get:
isfcols JNAME TOKEN JOBID OWNERID JPRIO QUEUE JCLASS POS
SYSAFF ACTSYS STATUS
PRTDEST SECLABEL TGNUM TGPCT ORIGNODE EXECNODE
DEVID OFFDEVS RETCODE SRVCLS
WLMPOS SCHENV DELAY SSMODE SPIN
isfcols2DDNAME TOKEN STEPN PROCS DSID OWNERID OCLASS
DESTN RECCNT PAGECNT
BYTECNT COPYCNT DEST NODE OGNAME SECLABEL
PRMODE BURST DSDATE FORMS FCBID UCSID
WTRID FLASHID FLASHC SEGID DSNAME CHARS CPYMOD
CPYMODFT
isfdcols
isfdcols2
isfrcolsSYSAFF
isfrcols2
But NO pagedef
Regards,
Hans
-Original Message-
From: IBM Mainframe Discussion List
[mailto:ibm-m...@bama.ua.edu] On Behalf Of Smith, Sean M
Sent: vrijdag 17 april 2009 0:16
To: IBM-MAIN@bama.ua.edu
Subject: Re: SDSF info in Rexx
You may need to look at using the DELEAYED or DELAYED2 option
on the ISFEXEC call to get these variables. Check the
ISFCOLS and ISFCOLS2 variable on return to see what variables
are there for your choosing.
Sean
-Original Message-
From: IBM Mainframe Discussion List
[mailto:ibm-m...@bama.ua.edu] On Behalf Of Visser, Hans
(PinkRoccade Infrastructure Services Technisch Specialist)
Sent: Thursday, April 16, 2009 7:10 AM
To: IBM-MAIN@bama.ua.edu
Subject: Re: SDSF info in Rexx
Thomas,
Result:
SAY j_ddname.didx pagedef pagedef.didx j_pagedef j_pagedef.didx
SYSUT2 PAGEDEF PAGEDEF.4 J_PAGEDEF J_PAGEDEF.4
-Original Message-
From: IBM Mainframe Discussion List
[mailto:ibm-m...@bama.ua.edu] On Behalf Of Thomas Berg
Sent: Thursday, April 16, 2009 3:44 PM
To: IBM-MAIN@bama.ua.edu
Subject: SV: SDSF info in Rexx
Initiate variable isfcols with (at least) pagedef and formdef, e g:
isfcols = 'DDNAME STEPN PROCS PAGEDEF FORMDEF'
immediately before:
ISFACT ST TOKEN('token.jidx') PARM(NP ?) (PREFIX J_
Regards,
Thomas Berg
__
Thomas Berg Specialist IT-U SWEDBANK
-Ursprungligt meddelande-
Från: IBM Mainframe Discussion List
[mailto:ibm-m...@bama.ua.edu] För Visser, Hans (PinkRoccade
Infrastructure Services Technisch Specialist)
Skickat: den 16 april 2009 15:24
Till: IBM-MAIN@bama.ua.edu
Ämne: Re: SDSF info in Rexx
Thomas,
I know, but how to GET that info.
See REXX below:
/ REXX
/
/*
*/
/*TRACE R
*/
/*
*/
rc = ISFCALLS('ON')
/*
*/
isfprefix = 'TC49*'
/*
*/
ADDRESS SDSF
Re: SDSF info in Rexx
I'm looking in the z/OS V1R9.0 SDSF Operation and Customization manual but there are those fields NOT marked as new. Unfortunataly, the response of the list is rather poor. -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Thomas Berg Sent: vrijdag 17 april 2009 14:34 To: IBM-MAIN@bama.ua.edu Subject: SV: SDSF info in Rexx Have done a test myself with ST and H panels, with same result as You! It seems that there are a couple of fields that are not returned, among them PAGEDEF and FORMDEF but also ODNAME, ODTITLE, ODADR, etc. All these fields are marked as new in the manual as of z/OS 1.10. Though I'm running under 1.10 so... ? Regards, Thomas Berg __ Thomas Berg Specialist IT-U SWEDBANK -Ursprungligt meddelande- Från: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] För Visser, Hans (PinkRoccade Infrastructure Services Technisch Specialist) Skickat: den 17 april 2009 13:54 Till: IBM-MAIN@bama.ua.edu Ämne: Re: SDSF info in Rexx Yes, with no result. I tried everything - 1. And I'm looking for just that last 1. ;-) -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Thomas Berg Sent: vrijdag 17 april 2009 13:46 To: IBM-MAIN@bama.ua.edu Subject: SV: SDSF info in Rexx Have You tried *without*: IF j_ddname.didx 'SYSUT2' THEN ? Regards, Thomas Berg __ Thomas Berg Specialist IT-U SWEDBANK -Ursprungligt meddelande- Från: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] För Visser, Hans (PinkRoccade Infrastructure Services Technisch Specialist) Skickat: den 17 april 2009 12:56 Till: IBM-MAIN@bama.ua.edu Ämne: Re: SDSF info in Rexx Thomas, Setting a ...COLS variable is not necessary. If you don't set that variable, you get ALL the columns. My problem is that I get no columns at all. Regards, Hans -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Thomas Berg Sent: vrijdag 17 april 2009 12:14 To: IBM-MAIN@bama.ua.edu Subject: SV: SDSF info in Rexx Yes, isfdcols is probably the right variable to set FORMDEF and PAGEDEF in. Regards, Thomas Berg __ Thomas Berg Specialist IT-U SWEDBANK -Ursprungligt meddelande- Från: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] För Visser, Hans (PinkRoccade Infrastructure Services Technisch Specialist) Skickat: den 17 april 2009 10:55 Till: IBM-MAIN@bama.ua.edu Ämne: Re: SDSF info in Rexx Sean, I check ISFCOLS,ISFCOLS2, ISFDCOLS, ISFDCOLS2, ISFRCOLS and ISFRCOLS2 with ISFEXEC ST (DELAYED) DELAYED2 dos not exist. This is what I get: isfcols JNAME TOKEN JOBID OWNERID JPRIO QUEUE JCLASS POS SYSAFF ACTSYS STATUS PRTDEST SECLABEL TGNUM TGPCT ORIGNODE EXECNODE DEVID OFFDEVS RETCODE SRVCLS WLMPOS SCHENV DELAY SSMODE SPIN isfcols2DDNAME TOKEN STEPN PROCS DSID OWNERID OCLASS DESTN RECCNT PAGECNT BYTECNT COPYCNT DEST NODE OGNAME SECLABEL PRMODE BURST DSDATE FORMS FCBID UCSID WTRID FLASHID FLASHC SEGID DSNAME CHARS CPYMOD CPYMODFT isfdcols isfdcols2 isfrcolsSYSAFF isfrcols2 But NO pagedef Regards, Hans -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Smith, Sean M Sent: vrijdag 17 april 2009 0:16 To: IBM-MAIN@bama.ua.edu Subject: Re: SDSF info in Rexx You may need to look at using the DELEAYED or DELAYED2 option on the ISFEXEC call to get these variables. Check the ISFCOLS and ISFCOLS2 variable on return to see what variables are there for your choosing. Sean -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Visser, Hans (PinkRoccade Infrastructure Services Technisch Specialist) Sent: Thursday, April 16, 2009 7:10 AM To: IBM-MAIN@bama.ua.edu Subject: Re: SDSF info in Rexx Thomas, Result: SAY j_ddname.didx pagedef pagedef.didx j_pagedef j_pagedef.didx SYSUT2 PAGEDEF PAGEDEF.4 J_PAGEDEF J_PAGEDEF.4 -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Thomas Berg Sent: Thursday, April 16, 2009 3:44 PM To: IBM-MAIN@bama.ua.edu Subject: SV: SDSF info in Rexx Initiate variable isfcols with (at least) pagedef and formdef, e g: isfcols = 'DDNAME STEPN PROCS PAGEDEF FORMDEF' immediately before: ISFACT ST TOKEN
Re: SDSF info in Rexx
Found!
/ REXX /
/**/
/*TRACE R */
/**/
rc = ISFCALLS('ON')
/**/
isfprefix = 'TC49*'
/**/
ADDRESS SDSF
/**/
ISFEXEC ST (VERBOSE ALTERNATE DELAYED)
/**/
DO jidx=1 TO jname.0
IF jname.jidx = 'TC49VISF' THEN
DO
ISFACT ST TOKEN('token.jidx') PARM(NP ?)
(PREFIX j_ ALTERNATE DELAYED DELAYED2)
=
/**/
DO didx=1 TO j_ddname.0
SAY LEFT(j_ddname.didx,9) j_pagedef.didx j_formdef.didx
END
END
END
/**/
rc = ISFCALLS('OFF')
/**/
RETURN
/**/
-Original Message-
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of
Thomas Berg
Sent: vrijdag 17 april 2009 14:54
To: IBM-MAIN@bama.ua.edu
Subject: SV: SDSF info in Rexx
My wrong, they are marked as changed by the
information: (JES2 only).
As I see these columns in live it can't be
authority problems, I think...
Regards,
Thomas Berg
__
Thomas Berg Specialist IT-U SWEDBANK
-Ursprungligt meddelande-
Från: IBM Mainframe Discussion List
[mailto:ibm-m...@bama.ua.edu] För Visser, Hans (PinkRoccade
Infrastructure Services Technisch Specialist)
Skickat: den 17 april 2009 14:48
Till: IBM-MAIN@bama.ua.edu
Ämne: Re: SDSF info in Rexx
I'm looking in the z/OS V1R9.0 SDSF Operation and
Customization manual but there are those fields NOT marked as new.
Unfortunataly, the response of the list is rather poor.
-Original Message-
From: IBM Mainframe Discussion List
[mailto:ibm-m...@bama.ua.edu] On Behalf Of Thomas Berg
Sent: vrijdag 17 april 2009 14:34
To: IBM-MAIN@bama.ua.edu
Subject: SV: SDSF info in Rexx
Have done a test myself with ST and H panels, with same result as You!
It seems that there are a couple of fields that are not
returned, among them PAGEDEF and FORMDEF but also ODNAME,
ODTITLE, ODADR, etc.
All these fields are marked as new in the manual as of z/OS
1.10. Though I'm running under 1.10 so... ?
Regards,
Thomas Berg
__
Thomas Berg Specialist IT-U SWEDBANK
-Ursprungligt meddelande-
Från: IBM Mainframe Discussion List
[mailto:ibm-m...@bama.ua.edu] För Visser, Hans (PinkRoccade
Infrastructure Services Technisch Specialist)
Skickat: den 17 april 2009 13:54
Till: IBM-MAIN@bama.ua.edu
Ämne: Re: SDSF info in Rexx
Yes, with no result.
I tried everything - 1.
And I'm looking for just that last 1. ;-)
-Original Message-
From: IBM Mainframe Discussion List
[mailto:ibm-m...@bama.ua.edu] On Behalf Of Thomas Berg
Sent: vrijdag 17 april 2009 13:46
To: IBM-MAIN@bama.ua.edu
Subject: SV: SDSF info in Rexx
Have You tried *without*:
IF j_ddname.didx 'SYSUT2' THEN ?
Regards,
Thomas Berg
__
Thomas Berg Specialist IT-U SWEDBANK
-Ursprungligt meddelande-
Från: IBM Mainframe Discussion List
[mailto:ibm-m...@bama.ua.edu] För Visser, Hans (PinkRoccade
Infrastructure Services Technisch Specialist)
Skickat: den 17 april 2009 12:56
Till: IBM-MAIN@bama.ua.edu
Ämne: Re: SDSF info in Rexx
Thomas,
Setting a ...COLS variable is not necessary.
If you don't set that variable, you get ALL the columns.
My problem is that I get no columns at all.
Regards,
Hans
-Original Message-
From: IBM Mainframe Discussion List
[mailto:ibm-m...@bama.ua.edu] On Behalf Of Thomas Berg
Sent: vrijdag 17 april 2009 12:14
To: IBM-MAIN@bama.ua.edu
Subject: SV: SDSF info in Rexx
Yes, isfdcols is probably the right variable to set FORMDEF and
PAGEDEF in.
Regards,
Thomas Berg
__
Thomas Berg Specialist IT-U SWEDBANK
-Ursprungligt meddelande-
Från: IBM Mainframe Discussion List
[mailto:ibm-m...@bama.ua.edu]
För Visser, Hans (PinkRoccade Infrastructure Services Technisch
Specialist)
Skickat: den 17 april 2009
Re: SDSF info in Rexx
And thanks for your help. :-)
All the others are sleeping. ;-)
-Original Message-
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of
Thomas Berg
Sent: vrijdag 17 april 2009 16:40
To: IBM-MAIN@bama.ua.edu
Subject: SV: SDSF info in Rexx
I missed that one!
Thanks for finding that... :)
Regards,
Thomas Berg
__
Thomas Berg Specialist IT-U SWEDBANK
-Ursprungligt meddelande-
Från: IBM Mainframe Discussion List
[mailto:ibm-m...@bama.ua.edu] För Visser, Hans (PinkRoccade
Infrastructure Services Technisch Specialist)
Skickat: den 17 april 2009 16:22
Till: IBM-MAIN@bama.ua.edu
Ämne: Re: SDSF info in Rexx
Found!
/ REXX
/
/*
*/
/*TRACE R
*/
/*
*/
rc = ISFCALLS('ON')
/*
*/
isfprefix = 'TC49*'
/*
*/
ADDRESS SDSF
/*
*/
ISFEXEC ST (VERBOSE ALTERNATE DELAYED)
/*
*/
DO jidx=1 TO jname.0
IF jname.jidx = 'TC49VISF' THEN
DO
ISFACT ST TOKEN('token.jidx') PARM(NP ?)
(PREFIX j_ ALTERNATE DELAYED DELAYED2)
=
/*
*/
DO didx=1 TO j_ddname.0
SAY LEFT(j_ddname.didx,9) j_pagedef.didx j_formdef.didx
END
END
END
/*
*/
rc = ISFCALLS('OFF')
/*
*/
RETURN
/*
*/
-Original Message-
From: IBM Mainframe Discussion List
[mailto:ibm-m...@bama.ua.edu] On Behalf Of Thomas Berg
Sent: vrijdag 17 april 2009 14:54
To: IBM-MAIN@bama.ua.edu
Subject: SV: SDSF info in Rexx
My wrong, they are marked as changed by the
information: (JES2 only).
As I see these columns in live it can't be authority
problems, I think...
Regards,
Thomas Berg
__
Thomas Berg Specialist IT-U SWEDBANK
-Ursprungligt meddelande-
Från: IBM Mainframe Discussion List
[mailto:ibm-m...@bama.ua.edu] För Visser, Hans (PinkRoccade
Infrastructure Services Technisch Specialist)
Skickat: den 17 april 2009 14:48
Till: IBM-MAIN@bama.ua.edu
Ämne: Re: SDSF info in Rexx
I'm looking in the z/OS V1R9.0 SDSF Operation and
Customization manual but there are those fields NOT marked as new.
Unfortunataly, the response of the list is rather poor.
-Original Message-
From: IBM Mainframe Discussion List
[mailto:ibm-m...@bama.ua.edu] On Behalf Of Thomas Berg
Sent: vrijdag 17 april 2009 14:34
To: IBM-MAIN@bama.ua.edu
Subject: SV: SDSF info in Rexx
Have done a test myself with ST and H panels, with same
result as You!
It seems that there are a couple of fields that are not returned,
among them PAGEDEF and FORMDEF but also ODNAME, ODTITLE, ODADR, etc.
All these fields are marked as new in the manual as of
z/OS 1.10.
Though I'm running under 1.10 so... ?
Regards,
Thomas Berg
__
Thomas Berg Specialist IT-U SWEDBANK
-Ursprungligt meddelande-
Från: IBM Mainframe Discussion List
[mailto:ibm-m...@bama.ua.edu] För Visser, Hans (PinkRoccade
Infrastructure Services Technisch Specialist)
Skickat: den 17 april 2009 13:54
Till: IBM-MAIN@bama.ua.edu
Ämne: Re: SDSF info in Rexx
Yes, with no result.
I tried everything - 1.
And I'm looking for just that last 1. ;-)
-Original Message-
From: IBM Mainframe Discussion List
[mailto:ibm-m...@bama.ua.edu] On Behalf Of Thomas Berg
Sent: vrijdag 17 april 2009 13:46
To: IBM-MAIN@bama.ua.edu
Subject: SV: SDSF info in Rexx
Have You tried *without*:
IF j_ddname.didx 'SYSUT2' THEN ?
Regards,
Thomas Berg
__
Thomas Berg Specialist IT-U SWEDBANK
-Ursprungligt meddelande-
Från: IBM Mainframe Discussion List
[mailto:ibm-m...@bama.ua.edu]
För Visser, Hans (PinkRoccade Infrastructure Services Technisch
Specialist)
Skickat: den 17 april 2009 12:56
Till: IBM-MAIN@bama.ua.edu
Ämne: Re: SDSF info in Rexx
Thomas,
Setting a ...COLS variable is not necessary.
If you don't set that variable, you get ALL the columns.
My problem is that I get no columns at all.
Regards,
Hans
-Original Message-
From: IBM Mainframe Discussion List
[mailto:ibm-m...@bama.ua.edu]
On Behalf Of Thomas Berg
Sent: vrijdag 17 april 2009 12:14
To: IBM-MAIN@bama.ua.edu
Subject: SV: SDSF info in Rexx
Yes, isfdcols is probably the right variable to set FORMDEF and
PAGEDEF in.
Regards,
Thomas Berg
__
Thomas Berg
Re: SDSF info in Rexx
Thomas,
I know, but how to GET that info.
See REXX below:
/ REXX /
/**/
/*TRACE R */
/**/
rc = ISFCALLS('ON')
/**/
isfprefix = 'TC49*'
/**/
ADDRESS SDSF
/**/
ISFEXEC ST (VERBOSE DELAYED)
/**/
DO jidx=1 TO jname.0
IF jname.jidx = 'TC49VISF' THEN
DO
ISFACT ST TOKEN('token.jidx') PARM(NP ?) (PREFIX J_
/**/
DO didx=1 TO j_ddname.0
IF j_ddname.didx 'SYSUT2' THEN
ITERATE
/**/
SAY j_ddname.didx pagedef pagedef.didx j_pagedef j_pagedef.didx
END
END
END
/**/
rc = ISFCALLS('OFF')
/**/
RETURN
/**/
Regards, Hans
-Original Message-
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of
Thomas Berg
Sent: Thursday, April 16, 2009 2:14 PM
To: IBM-MAIN@bama.ua.edu
Subject: SV: SDSF info in Rexx
They are found in the JDS (Job Data Set) panel,
with column names PAGEDEF and FORMDEF.
(And OD panel.)
Regards,
Thomas Berg
__
Thomas Berg Specialist IT-U SWEDBANK
-Ursprungligt meddelande-
Från: IBM Mainframe Discussion List
[mailto:ibm-m...@bama.ua.edu] För Hans Visser
Skickat: den 16 april 2009 13:58
Till: IBM-MAIN@bama.ua.edu
Ämne: SDSF info in Rexx
Hi listers,
I want to extract column information from
SDSF in a REXX.
F.i. pagedef and formdef.
I can get and see a lot of data and columns
but NOT pagedef and formdef.
How can this be done?
Regards, Hans
--
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: SDSF info in Rexx
Thomas,
Result:
SAY j_ddname.didx pagedef pagedef.didx j_pagedef j_pagedef.didx
SYSUT2 PAGEDEF PAGEDEF.4 J_PAGEDEF J_PAGEDEF.4
-Original Message-
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of
Thomas Berg
Sent: Thursday, April 16, 2009 3:44 PM
To: IBM-MAIN@bama.ua.edu
Subject: SV: SDSF info in Rexx
Initiate variable isfcols with (at least)
pagedef and formdef, e g:
isfcols = 'DDNAME STEPN PROCS PAGEDEF FORMDEF'
immediately before:
ISFACT ST TOKEN('token.jidx') PARM(NP ?) (PREFIX J_
Regards,
Thomas Berg
__
Thomas Berg Specialist IT-U SWEDBANK
-Ursprungligt meddelande-
Från: IBM Mainframe Discussion List
[mailto:ibm-m...@bama.ua.edu] För Visser, Hans (PinkRoccade
Infrastructure Services Technisch Specialist)
Skickat: den 16 april 2009 15:24
Till: IBM-MAIN@bama.ua.edu
Ämne: Re: SDSF info in Rexx
Thomas,
I know, but how to GET that info.
See REXX below:
/ REXX
/
/*
*/
/*TRACE R
*/
/*
*/
rc = ISFCALLS('ON')
/*
*/
isfprefix = 'TC49*'
/*
*/
ADDRESS SDSF
/*
*/
ISFEXEC ST (VERBOSE DELAYED)
/*
*/
DO jidx=1 TO jname.0
IF jname.jidx = 'TC49VISF' THEN
DO
ISFACT ST TOKEN('token.jidx') PARM(NP ?) (PREFIX
J_
/*
*/
DO didx=1 TO j_ddname.0
IF j_ddname.didx 'SYSUT2' THEN
ITERATE
/*
*/
SAY j_ddname.didx pagedef pagedef.didx j_pagedef
j_pagedef.didx
END
END
END
/*
*/
rc = ISFCALLS('OFF')
/*
*/
RETURN
/*
*/
Regards, Hans
-Original Message-
From: IBM Mainframe Discussion List
[mailto:ibm-m...@bama.ua.edu] On Behalf Of Thomas Berg
Sent: Thursday, April 16, 2009 2:14 PM
To: IBM-MAIN@bama.ua.edu
Subject: SV: SDSF info in Rexx
They are found in the JDS (Job Data Set) panel, with column
names PAGEDEF and FORMDEF.
(And OD panel.)
Regards,
Thomas Berg
__
Thomas Berg Specialist IT-U SWEDBANK
-Ursprungligt meddelande-
Från: IBM Mainframe Discussion List
[mailto:ibm-m...@bama.ua.edu] För Hans Visser
Skickat: den 16 april 2009 13:58
Till: IBM-MAIN@bama.ua.edu
Ämne: SDSF info in Rexx
Hi listers,
I want to extract column information from SDSF in a
REXX.
F.i. pagedef and formdef.
I can get and see a lot of data and columns but NOT
pagedef and formdef.
How can this be done?
Regards, Hans
--
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
Re: can the ENTER key be simulated in an ISPF panel
Is CONTROL NONDISPL ENTER maybe what you are looking for? Mvg, Hans Visser Technisch Specialist Getronics PinkRoccade Fauststraat 1, 7323 BA Apeldoorn Postbus 9105, 7300 HN Apeldoorn -- 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
DASD or VIO
How can i determine in an assembler program whether a dataset is allocated on dasd or vio? kind regards, Hans Visser -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: DASD or VIO
William (and Bill), many thanks for your answer. ridicules that i did not found this info by myself. :-( Mvg, Hans Visser Technisch Specialist Getronics PinkRoccade Fauststraat 1, 7323 BA Apeldoorn Postbus 9105, 7300 HN Apeldoorn T: +31 646091151 F: M: +31 646091151 E: [EMAIL PROTECTED] I: www.getronicspinkroccade.nl -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] Behalf Of William H. Blair Sent: woensdag 4 juni 2008 13:24 To: IBM-MAIN@BAMA.UA.EDU Subject: Re: DASD or VIO Hans Visser asked: How can i determine in an assembler program whether a dataset is allocated on dasd or vio? There are many ways to skin this cat. We'll start with the simple way. If that's not appropriate, we can get into the more esoteric ways later. I'll first assume that the data set in question is already allocated to a DDNAME which is NOT part of a concatenation. (If it is, then you will have to look at the DEB associated with an OPEN DCB and then find and examine the UCB address for the specific data set/concatenation number in question. Alternatively, you can make this same, or a different, type of determination in the standard OPEN DCB EXIT.) But the most straightforward way is to just read the JFCB for the DDNAME (which can be done without having to OPEN a DCB for the data set) and examine a flag bit in the JFCB. Here's some sample code that does this; it illustrates how to read the JFCB for a DDNAME, just in case you or someone else needs it. Note that this code is an AMODE 24 program and is not elegant, but it does work. MVC SMFLIB,MSMFLIB COPY SMFLIB DCB TO WORK AREA LAR7,SMFJFCB - SMFLIB JFCB USING JFCB,R7 INFORM THE ASSEMBLER LAR8,SMFLIB - SMFLIB DCB USING IHADCB,R8 INFORM THE ASSEMBLER STR7,SMFXLST SET JFCB ADDRESS IN EXIT LIST MVI SMFXLST,X'87' SET JFCB EXIT ID LAR0,SMFXLST - EXIT LIST STR0,DCBEXLST SET EXIT LIST PTR IN DCB MVC RDJFCBL,MRDJFCB COPY PARM LIST TO WORK AREA RDJFCB SMFLIB,READ SMFLIB JFCB X MF=(E,RDJFCBL) LTR R15,R15 SMFLIB FILE ALLOCATED ? BNZ NOSMFLIBBRANCH IF NOT TMJFCFLGS1,JFCVRDSALLOCATED TO VIO PSEUDO-DASD? BOTYPEVIO BRANCH IF YES ... DROP R7 DROP SMFLIB JFCB DROP R8 DROP SMFLIB DCB ... MRDJFCB RDJFCB *-*, X MF=L MRDJFCBZ EQU *-MRDJFCB MSMFLIB DCB DDNAME=SMFLIB, X DSORG=PS, X MACRF=GM SMFDCBZ EQU *-MSMFLIB MOPENOPEN (*-*,(INPUT)), X MF=L MOPENZ EQU *-MOPEN ... DSA DSECT , DS18F SAVE AREA RDJFCBL DSXL(MRDJFCBZ)RDJFCB PARM LIST OPENLDSXL(MOPENZ) OPEN PARM LIST SMFXLST DSA SMFLIB RDJFCB EXIT LIST DS0D SMFLIB DSXL(SMFDCBZ) SMFLIB (QSAM) DCB DS0D SMFJFCB DSXL176 SMFLIB JFCB * IEFZB4D0 , IEFZB4D2 , IKJEFFDF DFDSECT=YES JFCB DSECT , IEFJFCBN , DCBD DEVD=DA,X DSORG=PS IECEQU , -- WB -- For IBM-MAIN subscribe /
Re: Long running Batch programs keep IMS databases offline
you can keep the databases online. Either you can run the batch jobs as a BMP or you can run them as DLI with PROCOPT=GO(T). Mvg, Hans Visser -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: IRREVX01 strangeness
Paul, Could you give us the output of the WTO? Mvg, Hans Visser -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] Behalf Of Paul Whelan Sent: woensdag 16 april 2008 16:47 To: IBM-MAIN@BAMA.UA.EDU Subject: IRREVX01 strangeness Hello, I'm trying to use the RACF command exit IRREVX01 to limit the types of searches submitted through a z/OS LDAP server and am seeing some very strange behaviour that I can't understand. If I tell the exit to reject any search command containing FILTER(*) the exit works perfectly and if I tell the exit to reject any search containing FILTER(SI1*) it also works perfectly. However, as we need to reject certain FILTER values I need to be a bit more selective and first of all find FILTER( in the command then process the FILTER argument(s) to decide whether to reject the command or not which is where I am coming unstuck. If I tell the exit to reject FILTER( (as a first pass before further refining the exit to check the arguments) it does not work, that is to say, it does not find FILTER(. It is also incapable of finding just FILTER. I'm sure I'm doing something stupid but just can't see it so any help with this would be greatly appreciated. The code is based on the samples in SYS1.SAMPLIB(RACEXITS) and is attached. Best regards Paul Whelan -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: IRREVX01 strangeness
Walt,
i don't think you're right.
he is looping from the end of the buffer to the beginning.
SRCHLOOP CRR7,R8start of buffer reached?
BEFINALyes, exit
CLC 0(R9,R8),FILTER 'filter('found?
BEBADRCyes,
S R8,ONE subtract 1 from pointer
B SRCHLOOP try from previous position
Mvg,
Hans Visser
Technisch Specialist
Getronics PinkRoccade
E: [EMAIL PROTECTED]
I: www.getronicspinkroccade.nl
-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED]
Behalf Of Walt Farrell
Sent: woensdag 16 april 2008 21:16
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: IRREVX01 strangeness
On Wed, 16 Apr 2008 09:46:49 -0500, Paul Whelan [EMAIL PROTECTED] wrote:
I'm trying to use the RACF command exit IRREVX01 to limit the types of
searches submitted through a z/OS LDAP server and am seeing some very
strange behaviour that I can't understand. If I tell the exit to reject any
search command containing FILTER(*) the exit works perfectly and if I tell
the exit to reject any search containing FILTER(SI1*) it also works perfectly.
However, as we need to reject certain FILTER values I need to be a bit more
selective and first of all find FILTER( in the command then process the
FILTER argument(s) to decide whether to reject the command or not which is
where I am coming unstuck. If I tell the exit to reject FILTER( (as a first
pass before further refining the exit to check the arguments) it does not
work, that is to say, it does not find FILTER(. It is also incapable of
finding just FILTER.
Your exit seems to expect FILTER( exactly at the end of the command
buffer. It won't be there.
While the FILTER keyword may be last in the buffer, the string FILTER(
would not be last, as the operand (e.g., *) ) will follow it.
Assuming your earlier versions looked for FILTER(*) at the end, that would
have worked. Or looking for FILTER(SI1*) at the end would have worked. But
not looking for FILTER( at the end.
--
Walt Farrell, CISSP
IBM STSM, z/OS Security Design
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: CA-Endevor
Can't you do that with option 4.6 and then U to update a processor group? -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] Behalf Of gsg Sent: woensdag 19 maart 2008 1:00 To: IBM-MAIN@bama.ua.edu Subject: CA-Endevor Does anyone know if there is a way to restrict running compiles in foreground via Endevor? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: IMS DLI Option
Either, you use IMS dynamic allocation, or you do not read the database.
Hi;
Am using IMS(V9) and am a little confused. From what I
read in the manual when using th DLI option you have
to specify include DD statements for the Databases in
th JCL stream. We use the DLI option and do NOT
include the DD statements, yet we appear to be working
ok.
//STEP0060 EXEC
PGM=DFSRRC00,PARM=('DLI,BFBPOLR,PSBB32C,,0100,,0,')
Am I missing something?
Thanks in advance
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
problem substituting variables
List, I have the following TRACE ?R output: 4 *-* /* */ 5 *-* vqual2a = 'QUAL' QUAL IRX0100I +++ Interactive trace. TRACE OFF to end debug, ENTER to continue. +++ 6 *-* vqual2b = '2' 2 7 *-* /* */ 8 *-* varvalue = QUAL1.vqual2a'.'vqual2b.QUAL3 QUAL1.vqual2a'.'vqual2b.QUAL3 9 *-* /* */ 10 *-* INTERPRET varvalue = varvalue varvalue = QUAL1.vqual2a'.'vqual2b.QUAL3 *-* varvalue = QUAL1.vqual2a'.'vqual2b.QUAL3 QUAL1.QUAL.VQUAL2B.QUAL3 SAY VQUAL2B 2 Why is the variable vqual2a substituted by QUAL, but vqual2b not by the 2??? I like to have following result QUAL1.QUAL2.QUAL3. How could that be reached??? Regards, Hans Visser -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: problem substituting variables
I've done as i should have done it in a CLIST.
LIB SDSNCLST DSN810.GPRCLIENT.GPRSMS..SDSNCLST
PARSE VAR parms.ssindex . varname varvalue .
/**/
DO WHILE POS('',varvalue) 0
PARSE VAR varvalue varvalue1 '' varvalue2 '.' varvalue3
/**/
varvalue = varvalue1||VALUE(varvalue2)||varvalue3
END
END
/**/
Thank you all for your time.
Especially Paul Gilmartin for his brilliant contribution. :-)
regards,
Hans Visser
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Call for XEDIT freaks, submit ISPF requirements
test. Sorry if it succeeds. ;-) -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] Behalf Of Pinnacle Sent: woensdag 28 maart 2007 18:50 To: IBM-MAIN@BAMA.UA.EDU Subject: Call for XEDIT freaks, submit ISPF requirements This is a call to all the XEDIT freaks that have been punking ISPF the last few days to put your money where your mouth is and submit some SHARE requirements for the ISPF editor. I get sick and tired of all the XEDIT freaks saying how XEDIT is way better than ISPF, but they never back it up with specifics. If XEDIT was so great, submit requirements for ISPF so we can get the features you want into the ISPF editor. Maybe XEDIT was better because it used and for Repeat and RRepeat block, or maybe it was because copy and move targets used F for Following instead of A for After or P for Preceding instead of B for Before. Real productive. So quit BM'ing about how ISPF sucks compared to XEDIT, and submit some requirements. If not, STF up. Regards, Tom Conley -- 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
