REXX EXEC

[Claudio Marcio]

Hi,

I need make one REXX exec to enter with one year the return the day 
christmas of  week.

ex:  year  1978
 day of th week - monday

 year 2000
 day of the week - saturday

 how meke in REXX language?

regards


- Original Message - 
From: "Paul Gilmartin" <[EMAIL PROTECTED]>

Newsgroups: bit.listserv.ibm-main
To: 
Sent: Monday, September 22, 2008 7:00 PM
Subject: Re: Calling Assembler module from REXX



On Mon, 22 Sep 2008 16:38:38 -0500, Dave Day wrote:


Suggestions:

1)make the assembler routine re-entrant.  Successive LOADS will up the use
count, but not actually bring in a new module.

2)pass the called routine a parm that says this is a successive call, not
the 1st.

3)if you can't do #2 above, take a look at NAME/TOKEN services.

4)if you can't do #3 above, create another load module that is not
re-entrant.  Just a csect that is all 0's.  Have the 1st routine search 
the
CDE chain for the non re-entrant one.  Set indicators in the non 
re-entrant

dummy 0's load module that tells the other one what the status of things
are.


All good ideas.  For a variant of #2 with some influence from #4,
let the Rexx routine supply the working storage for the called
routine, initialized before the first call.  See the use of
"ChainingVector" in SYS1.SAMPLIB(CSFTEST) for an example of the
Rexx side of this technique.

But none of these deal with the deficiency that Rexx LINKPGM/ATTCHPGM
will LOAD and DELETE even a REFReshable load module for each
invocation.  This causes unwelcome overhead for large numbers
of invocations.  So, perhaps:

5) Put the routine in LPA if permitted.

Would there perhaps be Rexx interfaces to LOAD and DELETE
on CBTTAPE (or similar) so the routine could be LOADed and
DELETed only once?

Would TSO-REXX supply better advice?

-- gil

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



--
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: REXX EXEC

[Dave Salt]

> From: [EMAIL PROTECTED]
> I need make one REXX exec to enter with one year the return the day
> christmas of week.
> ex: year 1978 day of the week - monday

Try this:

/* REXX to display day of the week Christmas falls on. */
/*/
arg year   
if year = "" then year = right(date(),4)   
   
dec25 = date("B",year"1225","S")//7
select 
   when dec25 = 0 then day = "Monday"  
   when dec25 = 1 then day = "Tuesday" 
   when dec25 = 2 then day = "Wednesday"   
   when dec25 = 3 then day = "Thursday"
   when dec25 = 4 then day = "Friday"  
   when dec25 = 5 then day = "Saturday"
   otherwise day = "Sunday"  
end
say "In the year "year", Christmas day falls on "day   
EXIT


Hope that helps,

Dave Salt

SimpList(tm) - try it; you'll get it!
http://www.mackinney.com/products/SIM/simplist.htm



_

--
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: REXX EXEC

[Bri P]

 Christmas = 20081225   
 Weekday = DATE('W',Christmas,'S')  

Brian

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of 
Claudio Marcio
Sent: 24 September 2008 05:21
To: IBM-MAIN@BAMA.UA.EDU
Subject: REXX EXEC

Hi,

I need make one REXX exec to enter with one year the return the day 
christmas of  week.
ex:  year  1978
  day of th week - monday

  year 2000
  day of the week - saturday

  how meke in REXX language?

regards


-
Email sent from www.virginmedia.com/email
Virus-checked using McAfee(R) Software and scanned for spam

--
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: REXX EXEC

[Lindy Mayfield]

Yes, but there is always a simpler solution:

/* Rexx */ 
year=2010  
y=year//100
c=(year-year//100)/100 
mons = 'Sat Sun Mon Tue Wed Thu Fri'   
say word(mons,((y+trunc(y/4)+31+substr(6420,(c//4)+1,1))//7)+1)
exit 0 


-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Bri P
Sent: 24. syyskuuta 2008 11:37
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: REXX EXEC

 Christmas = 20081225   
 Weekday = DATE('W',Christmas,'S')  

Brian

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Claudio Marcio
Sent: 24 September 2008 05:21
To: IBM-MAIN@BAMA.UA.EDU
Subject: REXX EXEC

Hi,

I need make one REXX exec to enter with one year the return the day 
christmas of  week.
ex:  year  1978
  day of th week - monday

  year 2000
  day of the week - saturday

  how meke in REXX language?

regards

--
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: REXX EXEC

[P S]

This is simpler? Three lines to replace one?

I'd hate to see your definition of "cheaper" ... :-)

On Wed, Sep 24, 2008 at 7:13 AM, Lindy Mayfield
<[EMAIL PROTECTED]> wrote:
> Yes, but there is always a simpler solution:
>
> /* Rexx */
> year=2010
> y=year//100
> c=(year-year//100)/100
> mons = 'Sat Sun Mon Tue Wed Thu Fri'
> say word(mons,((y+trunc(y/4)+31+substr(6420,(c//4)+1,1))//7)+1)
> exit 0
>
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
> Behalf Of Bri P
> Sent: 24. syyskuuta 2008 11:37
> To: IBM-MAIN@BAMA.UA.EDU
> Subject: Re: REXX EXEC
>
>  Christmas = 20081225
>  Weekday = DATE('W',Christmas,'S')

--
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: REXX EXEC

[Shmuel Metz (Seymour J.)]

In <[EMAIL PROTECTED]>, on
09/24/2008
   at 01:13 PM, Lindy Mayfield <[EMAIL PROTECTED]> said:

>Yes, but there is always a simpler solution:

"things should always be as simple as possible, but no simpler."

Yes, I know that we'll all be dead by the time that it breaks, but it's
actually easier to do it in a more robust form.
 
-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 ISO position; see  
We don't care. We don't have to care, we're Congress.
(S877: The Shut up and Eat Your spam act of 2003)

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

Res: REXX EXEC

[Mic Jones]

You can use DATE() to do that.

Ex.:
xmdate = x

Hi Claudio.

You can use DATE() to do that.

Ex.:
xmdate = xmyear'1225' /*where xmyear is year in four digit format*/
xmwday = DATE('W', xmdate, 'S')

 
 
Regards
 
Alexandre




- Mensagem original 
De: Claudio Marcio <[EMAIL PROTECTED]>
Para: IBM-MAIN@BAMA.UA.EDU
Enviadas: Quarta-feira, 24 de Setembro de 2008 1:21:21
Assunto: REXX EXEC

Hi,

I need make one REXX exec to enter with one year the return the day 
christmas of  week.
ex:  year  1978
  day of th week - monday

  year 2000
  day of the week - saturday

  how meke in REXX language?

regards


- Original Message - 
From: "Paul Gilmartin" <[EMAIL PROTECTED]>
Newsgroups: bit.listserv.ibm-main
To: 
Sent: Monday, September 22, 2008 7:00 PM
Subject: Re: Calling Assembler module from REXX


> On Mon, 22 Sep 2008 16:38:38 -0500, Dave Day wrote:
>
>>Suggestions:
>>
>>1)make the assembler routine re-entrant.  Successive LOADS will up the use
>>count, but not actually bring in a new module.
>>
>>2)pass the called routine a parm that says this is a successive call, not
>>the 1st.
>>
>>3)if you can't do #2 above, take a look at NAME/TOKEN services.
>>
>>4)if you can't do #3 above, create another load module that is not
>>re-entrant.  Just a csect that is all 0's.  Have the 1st routine search 
>>the
>>CDE chain for the non re-entrant one.  Set indicators in the non 
>>re-entrant
>>dummy 0's load module that tells the other one what the status of things
>>are.
>>
> All good ideas.  For a variant of #2 with some influence from #4,
> let the Rexx routine supply the working storage for the called
> routine, initialized before the first call.  See the use of
> "ChainingVector" in SYS1.SAMPLIB(CSFTEST) for an example of the
> Rexx side of this technique.
>
> But none of these deal with the deficiency that Rexx LINKPGM/ATTCHPGM
> will LOAD and DELETE even a REFReshable load module for each
> invocation.  This causes unwelcome overhead for large numbers
> of invocations.  So, perhaps:
>
> 5) Put the routine in LPA if permitted.
>
> Would there perhaps be Rexx interfaces to LOAD and DELETE
> on CBTTAPE (or similar) so the routine could be LOADed and
> DELETed only once?
>
> Would TSO-REXX supply better advice?
>
> -- gil
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
> Search the archives at http://bama.ua.edu/archives/ibm-main.html
> 

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


  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

--
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: REXX EXEC

[Mansell, George R.]

A mod 400 year is also a leap year. 

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Lindy Mayfield
Sent: Wednesday, September 24, 2008 6:13 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: REXX EXEC

Yes, but there is always a simpler solution:

/* Rexx */ 
year=2010  
y=year//100
c=(year-year//100)/100 
mons = 'Sat Sun Mon Tue Wed Thu Fri'   
say word(mons,((y+trunc(y/4)+31+substr(6420,(c//4)+1,1))//7)+1)
exit 0 


-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Bri P
Sent: 24. syyskuuta 2008 11:37
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: REXX EXEC

 Christmas = 20081225   
 Weekday = DATE('W',Christmas,'S')  

Brian

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Claudio Marcio
Sent: 24 September 2008 05:21
To: IBM-MAIN@BAMA.UA.EDU
Subject: REXX EXEC

Hi,

I need make one REXX exec to enter with one year the return the day 
christmas of  week.
ex:  year  1978
  day of th week - monday

  year 2000
  day of the week - saturday

  how meke in REXX language?

regards

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


--
NOTICE:  This electronic mail message and any attached files are confidential.  
The information is exclusively for the use of the individual or entity intended 
as the recipient.  If you are not the intended recipient, any use, copying, 
printing, reviewing, retention, disclosure, distribution or forwarding of the 
message or any attached file is not authorized and is strictly prohibited.  If 
you have received this electronic mail message in error, please advise the 
sender by reply electronic mail immediately and permanently delete the original 
transmission, any attachments and any copies of this message from your computer 
system. Thank you.

==

--
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: REXX EXEC

[Lindy Mayfield]

But it doesn't matter if it is a leap year for the month of December, is
that right?

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Mansell, George R.
Sent: 24. syyskuuta 2008 21:07
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: REXX EXEC

A mod 400 year is also a leap year. 

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Lindy Mayfield
Sent: Wednesday, September 24, 2008 6:13 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: REXX EXEC

Yes, but there is always a simpler solution:

/* Rexx */ 
year=2010  
y=year//100
c=(year-year//100)/100 
mons = 'Sat Sun Mon Tue Wed Thu Fri'   
say word(mons,((y+trunc(y/4)+31+substr(6420,(c//4)+1,1))//7)+1)
exit 0 


-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Bri P
Sent: 24. syyskuuta 2008 11:37
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: REXX EXEC

 Christmas = 20081225   
 Weekday = DATE('W',Christmas,'S')  

Brian

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Claudio Marcio
Sent: 24 September 2008 05:21
To: IBM-MAIN@BAMA.UA.EDU
Subject: REXX EXEC

Hi,

I need make one REXX exec to enter with one year the return the day 
christmas of  week.
ex:  year  1978
  day of th week - monday

  year 2000
  day of the week - saturday

  how meke in REXX language?

regards

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



--
NOTICE:  This electronic mail message and any attached files are
confidential.  The information is exclusively for the use of the
individual or entity intended as the recipient.  If you are not the
intended recipient, any use, copying, printing, reviewing, retention,
disclosure, distribution or forwarding of the message or any attached
file is not authorized and is strictly prohibited.  If you have received
this electronic mail message in error, please advise the sender by reply
electronic mail immediately and permanently delete the original
transmission, any attachments and any copies of this message from your
computer system. Thank you.


==

--
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: REXX EXEC

[Chase, John]

> -Original Message-
> From: IBM Mainframe Discussion List On Behalf Of Lindy Mayfield
> 
> But it doesn't matter if it is a leap year for the month of 
> December, is that right?

The day of week calculation would be off by one if the leap year is
ignored.

-jc-

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

Re: REXX EXEC

[Lindy Mayfield]

Hmmm. I checked it with quite a number of years going back to 1200
against calendars and didn't find any errors yet.  Anyway, it was just a
mental exercise.  Why should the C and Perl people get all the fun? 

The Rexx date function is of course the far superior solution.

lindy

#!/usr/local/bin/perl -s do
r=1;$_=substr($_."\0"x$w,$c=0,$w);s/.|\n/$c=&badd(&bmul
($c,256),ord$&)/ge;$_=$k;s/./$r=&bmod(&bmul($r,$r),$x),$&?$r=&bmod(&bmul
($r,$c ),$x):0,""/ge;($r,$t)=&bdiv($r,256),$_=pack(C,$t).$_
while$w--+1-2*$d;print}

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Chase, John
Sent: 24. syyskuuta 2008 21:20
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: REXX EXEC

> -Original Message-
> From: IBM Mainframe Discussion List On Behalf Of Lindy Mayfield
> 
> But it doesn't matter if it is a leap year for the month of 
> December, is that right?

The day of week calculation would be off by one if the leap year is
ignored.

-jc-

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

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

Re: REXX EXEC

[Mark Zelden]

I used my rdate exec / rdatef function prior to OS/390 2.4 (when the
REXX built in DATE function was enhanced to convert between date
formats).  I still do use it at times because the built in function doesn't
support some to / from formats.   

  http://home.flash.net/~mzelden/mvsfiles/rdate.txt
  http://home.flash.net/~mzelden/mvsfiles/rdatef.txt

But this exercise didn't take any conversion.  

Speaking of simple, how about this one:

/* rexx */  
/* The following was provided by Mark Barnett, Stanford   */
/* Linear Accelerator Center: */

/* DAY EXEC -- Given a Gregorian date, returns its weekday*/
/*  (U.S:  Gregorian 9/14/1752 followed 9/2/1752 O.S.--Old Style) */
/*  (CACM, 10/72, p. 918; Computerworld, 2/11/80, p. 30)  */
/* Accepts m d y with blank, /, or - as separators.  Two-digit*/
/*  years are prefixed with 19 (leading 0's are permitted).   */
/* May be appended to another REXX exec, for use as an internal   */
/*  routine, by "uncommenting" the "Procedure" statement. */

DAY: /* Procedure; */ Signal on SYNTAX; ret=0; n="ARG"()
Arg a1, a2, a3, a4, a5, bad; s=a1 a2 a3 a4 a5; args=s bad   
If n>5 | a1='?' Then Signal "SYNTAX"; If a1='' Then s="DATE"('USA') 
s="TRANSLATE"(s,'  ','/-'); Parse var s m d y bad   
If bad^='' Then Signal 'SYNTAX'; If "LENGTH"(y)=2 Then y='19'y  
/* m=month d=day y=year (m and y are adjusted during computation) */

y=y+(m-14)%12   /* Adjust month, year; March = month 1 of its */
m=(m+9)//12+1   /*   year, February = month 12 of previous.)  */
m="TRUNC"(2.6*m-.1) /* Month residue, using Zeller's Congruence   */
c=y%100; y=y//100   /* century, year-within-century temporaries   */

i=(d+m+y+y%4+5*c+c%4-c%40)//7+1 
/* | | |  |   |   |   ||  > magic from the sky (initial day)  */
/* | | |  |   |   |   |> modulo 7 days/week   */
/* | | |  |   |   |   > century years div. by 4000 are not leap   */
/* | | |  |   |   > most century years div. by 400 are leap years */
/* | | |  |   > days/century adjustment: (100+24)*c = 5*c (mod 7) */
/* | | |  > one day for each (non-00) leap-year-within-century*/
/* | | > one day for each year-within-century:  365 (mod 7) = 1   */
/* | > residual days (mod 28) in previous months (+2) -- Zeller   */
/* > day of the month */

w.1='Sunday';   w.2='Monday'; w.3='Tuesday'; w.4='Wednesday'
w.5='Thursday'; w.6='Friday'; w.7='Saturday'; result=w.i

RETURN:  Parse SOURCE . s2 s3 . 
 If s2='COMMAND' & s3='DAY' Then Do 
  If result^='' Then Say result; Return ret; End
/*  Return result  */   
 say result 
 Return 

SYNTAX: Say 'From DAY, called with following argument(s):' args 
 Say ' '
 Say 'DAY returns the day of the week for an input date.'   
 Say ' '; Say '  DAY   '; Say ' ' 
 Say 'where:'; Say ' '  
 Say '  is the number of the month (January is 1, etc.), and'
 Say 'is the day of the month

Re: REXX EXEC

[Ted MacNEIL]

>A mod 400 year is also a leap year. 

More to the point, century year that is not a mod 400 year is not a leap year.
-
Too busy driving to stop for gas!

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

Re: REXX EXEC

[Shmuel Metz (Seymour J.)]

In
<[EMAIL PROTECTED]>,
on 09/24/2008
   at 11:22 PM, Ted MacNEIL <[EMAIL PROTECTED]> said:

>More to the point, century year that is not a mod 400 year is not a leap
>year.

Not quite, but the adjustment won't be in my lifetime.
 
-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 ISO position; see  
We don't care. We don't have to care, we're Congress.
(S877: The Shut up and Eat Your spam act of 2003)

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

Re: REXX EXEC

[Joel C. Ewing]

Shmuel Metz , Seymour J. wrote:

In
<[EMAIL PROTECTED]>,
on 09/24/2008
   at 11:22 PM, Ted MacNEIL <[EMAIL PROTECTED]> said:


More to the point, century year that is not a mod 400 year is not a leap
year.


Not quite, but the adjustment won't be in my lifetime.
 


Well, actually, quite.  The 4/100/400 year rule started by Pope Gregory 
is the only rule adopted by any country using the Gregorian calendar, so 
that is the current definition of "leap year".  That at the current 
movement of the Earth an additional correction may be needed by around 
3200 can be demonstrated, but no attempt to revise existing standards 
has been taken (and probably won't be until 3195 :) ).  Heck, by then we 
may have either managed to wipe out civilization, altered the speed of 
the Earth, or changed to some other system of measuring time, so no hurry.


--
Joel C. Ewing, Fort Smith, AR[EMAIL PROTECTED]

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

Compiled SYSTEM Rexx exec

[Ed Mackmahon]

Hi List.

We are zOS 1.12 shop.
I compiled and linked a Rexx exec which is supposed to run under AXR (system 
Rexx), 
compile and link finished OK. After System Rexx server restated with the load 
dataset
concatenated, I got:

AXR0113I DATA SET S00.RCGAURD.SAXRLOAD ACCESSED THROUGH VOLSER(VPMVSE) 
HAS INCORRECT RECORD FORMAT 

How can I compile a Rexx exec that will run under the system Rexx server ?

Thanks in advanced.

Ed.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN

Re: Compiled SYSTEM Rexx exec

[Lizette Koehler]

>
>Hi List.
>
>We are zOS 1.12 shop.
>I compiled and linked a Rexx exec which is supposed to run under AXR (system 
>Rexx), 
>compile and link finished OK. After System Rexx server restated with the load 
>dataset
>concatenated, I got:
>
>AXR0113I DATA SET S00.RCGAURD.SAXRLOAD ACCESSED THROUGH VOLSER(VPMVSE) 
>HAS INCORRECT RECORD FORMAT     
>
>How can I compile a Rexx exec that will run under the system Rexx server ?
>
>Thanks in advanced.
>
>Ed.
>

Does the dataset you create S00.RCGAURD.SAXRLOAD match the dataset attributes 
of SYS1.SAXREXEC?

Lizette

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN

Re: Compiled SYSTEM Rexx exec

[Ed Mackmahon]

yes

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN

Re: Compiled SYSTEM Rexx exec

[Scott Ford]

Ed,

What's the load library lrecl, blksize ? Just curious

Scott ford
www.identityforge.com

On May 15, 2012, at 4:21 PM, Ed Mackmahon  wrote:

> yes
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN

Re: Compiled SYSTEM Rexx exec

[Ray Mullins]

On 2012-05-15 12:35, Ed Mackmahon wrote:

Hi List.

We are zOS 1.12 shop.
I compiled and linked a Rexx exec which is supposed to run under AXR (system 
Rexx),
compile and link finished OK. After System Rexx server restated with the load 
dataset
concatenated, I got:

AXR0113I DATA SET S00.RCGAURD.SAXRLOAD ACCESSED THROUGH VOLSER(VPMVSE)
HAS INCORRECT RECORD FORMAT

How can I compile a Rexx exec that will run under the system Rexx server ?

Make absolutely sure you are creating a load module, not a CEXEC. The REXX 
compiler has all sorts of options governing the output of the compiler, and 
I can vouch that it's sometimes easy to slip up.


Cheers,
Ray

--
M. Ray Mullins
Roseville, CA, USA
http://www.catherdersoftware.com/

German is essentially a form of assembly language consisting entirely of far 
calls heavily accented with throaty guttural sounds. ---ilvi
French is essentially German with messed-up pronunciation and spelling.  
--Robert B Wilson
English is essentially French converted to 7-bit ASCII.  ---Christophe Pierret 
[for Alain LaBonté]

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN

Re: Compiled SYSTEM Rexx exec

[Scott Ford]

Ray,

Very true, also you may gain speed in computations but not I/O that was very 
clear in a Share presentation..

Scott ford
www.identityforge.com

On May 16, 2012, at 2:47 PM, Ray Mullins  wrote:

> On 2012-05-15 12:35, Ed Mackmahon wrote:
>> Hi List.
>> 
>> We are zOS 1.12 shop.
>> I compiled and linked a Rexx exec which is supposed to run under AXR (system 
>> Rexx),
>> compile and link finished OK. After System Rexx server restated with the 
>> load dataset
>> concatenated, I got:
>> 
>> AXR0113I DATA SET S00.RCGAURD.SAXRLOAD ACCESSED THROUGH VOLSER(VPMVSE)
>> HAS INCORRECT RECORD FORMAT
>> 
>> How can I compile a Rexx exec that will run under the system Rexx server ?
>> 
> Make absolutely sure you are creating a load module, not a CEXEC. The REXX 
> compiler has all sorts of options governing the output of the compiler, and I 
> can vouch that it's sometimes easy to slip up.
> 
> Cheers,
> Ray
> 
> -- 
> M. Ray Mullins
> Roseville, CA, USA
> http://www.catherdersoftware.com/
> 
> German is essentially a form of assembly language consisting entirely of far 
> calls heavily accented with throaty guttural sounds. ---ilvi
> French is essentially German with messed-up pronunciation and spelling.  
> --Robert B Wilson
> English is essentially French converted to 7-bit ASCII.  ---Christophe 
> Pierret [for Alain LaBonté]
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN

Re: Compiled SYSTEM Rexx exec

[John Gilmore]

Still better, make absolutely sure that you are creating a program
object stored in a PDSE.

On 5/16/12, Scott Ford  wrote:
>> Make absolutely sure you are creating a load module, not a CEXEC. The REXX
>> compiler has all sorts of options governing the output of the compiler,
>> and I can vouch that it's sometimes easy to slip up.
>>
>> Cheers,
>> Ray
>>

John Gilmore, Ashland, MA 01721 - USA

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN

NETSTAT STACK and Rexx exec

[David G. Schlecht]

By the book, this simple Rexx syntax should work, but I am unable to manipulate 
the external stack in Rexx. The following simple program says "Queued: 0" and 
the NETSTAT output gets executed at TSO logout (numerous IKJ56500I COMMAND 
EZZ2587I NOT FOUND messages). The program:
  "Netstat STACK"
  say "Queued: " queued()

This is executed by: TSO EXEC 'MYLIB(ZNETSTAT)'

This seems to mean that queued() is not referencing the same stack that NETSTAT 
is writing to. From what I read in the book, this should work. If it should 
work and doesn't then I suspect there's a problem with the way Rexx is dealing 
with TSO.

Any thoughts? Does this work for you?


- David

 + David G. Schlecht
 + Information Technology Professional
 + State of Nevada
 + Department of Information Technology
 + 775.684.4328
 This communication, including any attachments, may contain
 confidential information and is intended only for the individual or
 entity to whom it is addressed. Any review, dissemination or copying
 of this communication by anyone other than the intended recipient is
 strictly prohibited. If you are not the intended recipient, please
 contact the sender by reply e-Mail and delete all copies of the
 original message.



--
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: NETSTAT STACK and Rexx exec

[Tony Harminc]

On 28 October 2010 17:18, David G. Schlecht  wrote:
> By the book, this simple Rexx syntax should work, but I am unable to 
> manipulate the external stack in Rexx. The following simple program says 
> "Queued: 0" and the NETSTAT output gets executed at TSO logout (numerous 
> IKJ56500I COMMAND EZZ2587I NOT FOUND messages). The program:
>  "Netstat STACK"
>  say "Queued: " queued()
>
> This is executed by: TSO EXEC 'MYLIB(ZNETSTAT)'
>
> This seems to mean that queued() is not referencing the same stack that 
> NETSTAT is writing to. From what I read in the book, this should work. If it 
> should work and doesn't then I suspect there's a problem with the way Rexx is 
> dealing with TSO.
>
> Any thoughts? Does this work for you?

It works fine for me, so I'm not sure what's wrong at your end. I ran
exactly this:

/* Rexx */
Arg option
Address TSO "NETSTAT" option "STACK"
Say "Queued:"queued()
Do Queued()
  Parse Pull line
  Say line
end
Say "Done"
Exit

You can invoke it without an argument, or with one like HOME or GATE,
which typically produce much less output than just plain NETSTAT.
Results were the same both at a READY prompt and under ISPF, so it's
not a matter of ISPF mucking things up as it so likes to do. And it
also worked the same without the "Address TSO".

Sorry I have no better ideas...

Tony H.

--
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: NETSTAT STACK and Rexx exec

[David G. Schlecht]

David G. Schlecht says
> Subject: NETSTAT STACK and Rexx exec
> 
> By the book, this simple Rexx syntax should work, but I am unable to 
> manipulate the external stack in Rexx. The 
> following simple program says "Queued: 0" and the NETSTAT output gets 
> executed at TSO logout (numerous IKJ56500I
> COMMAND EZZ2587I NOT FOUND messages). The program:
>   "Netstat STACK"
>   say "Queued: " queued()
> 
> This is executed by: TSO EXEC 'MYLIB(ZNETSTAT)'
> 
> This seems to mean that queued() is not referencing the same stack that 
> NETSTAT is writing to. 
> From what I read in the book, this should work. If it should work and doesn't 
> then I suspect 
> there's a problem with the way Rexx is dealing with TSO.
> 
> Any thoughts? Does this work for you?

Funny but it works as expected when run in batch. Any thoughts on where I can 
start looking to find the problem? 

--
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: NETSTAT STACK and Rexx exec

[Gonzalo Cengotita]

On Thu, Nov 4, 2010 at 3:16 PM, David G. Schlecht wrote:

> David G. Schlecht says
> > Subject: NETSTAT STACK and Rexx exec
> >
> > By the book, this simple Rexx syntax should work, but I am unable to
> manipulate the external stack in Rexx. The
> > following simple program says "Queued: 0" and the NETSTAT output gets
> executed at TSO logout (numerous IKJ56500I
> > COMMAND EZZ2587I NOT FOUND messages). The program:
> >   "Netstat STACK"
> >   say "Queued: " queued()
> >
> > This is executed by: TSO EXEC 'MYLIB(ZNETSTAT)'
> >
> > This seems to mean that queued() is not referencing the same stack that
> NETSTAT is writing to.
> > From what I read in the book, this should work. If it should work and
> doesn't then I suspect
> > there's a problem with the way Rexx is dealing with TSO.
> >
> > Any thoughts? Does this work for you?
>
> Funny but it works as expected when run in batch. Any thoughts on where I
> can start looking to find the problem?
>
> --
> 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
>



It works ok for me, too, 58 lines queued

-- 

  Gonzalo Cengotita Quirce

--
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: NETSTAT STACK and Rexx exec

[Staller, Allan]

Is TCPIP.SEZALOAD available via LINKLIST or LPA? 

NETSTAT appears to be an alias for EZACDTNE which resides in that
dataset.

HTH,

-Original Message-
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On
Behalf Of Gonzalo Cengotita
Sent: Thursday, November 04, 2010 10:43 AM
To: IBM-MAIN@bama.ua.edu
Subject: Re: NETSTAT STACK and Rexx exec

On Thu, Nov 4, 2010 at 3:16 PM, David G. Schlecht
wrote:

> David G. Schlecht says
> > Subject: NETSTAT STACK and Rexx exec
> >
> > By the book, this simple Rexx syntax should work, but I am unable to
> manipulate the external stack in Rexx. The
> > following simple program says "Queued: 0" and the NETSTAT output
gets
> executed at TSO logout (numerous IKJ56500I
> > COMMAND EZZ2587I NOT FOUND messages). The program:
> >   "Netstat STACK"
> >   say "Queued: " queued()
> >
> > This is executed by: TSO EXEC 'MYLIB(ZNETSTAT)'
> >
> > This seems to mean that queued() is not referencing the same stack
that
> NETSTAT is writing to.
> > From what I read in the book, this should work. If it should work
and
> doesn't then I suspect
> > there's a problem with the way Rexx is dealing with TSO.
> >
> > Any thoughts? Does this work for you?
>
> Funny but it works as expected when run in batch. Any thoughts on
where I
> can start looking to find the problem?
>
> --
> 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
>



It works ok for me, too, 58 lines queued

-- 

  Gonzalo Cengotita Quirce

--
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: NETSTAT STACK and Rexx exec

[Jakubek, Jan]

You may want to check APAR PQ23072 for SYS1.PARMLIB(IKJTSO00) changes.
Hth..

> David G. Schlecht says
> > Subject: NETSTAT STACK and Rexx exec
> >
> > By the book, this simple Rexx syntax should work, but I am unable to
> manipulate the external stack in Rexx. The
> > following simple program says "Queued: 0" and the NETSTAT output
gets
> executed at TSO logout (numerous IKJ56500I
> > COMMAND EZZ2587I NOT FOUND messages). The program:
> >   "Netstat STACK"
> >   say "Queued: " queued()
> >
> > This is executed by: TSO EXEC 'MYLIB(ZNETSTAT)'

--
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: NETSTAT STACK and Rexx exec

[David G. Schlecht]

Thanks for all the feedback.

The NETSTAT command executes so I must believe it is being found in the 
linklist. I'll check out the APAR and see if that is related.


-Original Message-
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of 
David G. Schlecht
Sent: Thursday, October 28, 2010 2:19 PM
To: IBM-MAIN@bama.ua.edu
Subject: NETSTAT STACK and Rexx exec

By the book, this simple Rexx syntax should work, but I am unable to manipulate 
the external stack in Rexx. The following simple program says "Queued: 0" and 
the NETSTAT output gets executed at TSO logout (numerous IKJ56500I COMMAND 
EZZ2587I NOT FOUND messages). The program:
  "Netstat STACK"
  say "Queued: " queued()

This is executed by: TSO EXEC 'MYLIB(ZNETSTAT)'

This seems to mean that queued() is not referencing the same stack that NETSTAT 
is writing to. From what I read in the book, this should work. If it should 
work and doesn't then I suspect there's a problem with the way Rexx is dealing 
with TSO.

Any thoughts? Does this work for you?


- David

 + David G. Schlecht
 + Information Technology Professional
 + State of Nevada
 + Department of Information Technology
 + 775.684.4328
 This communication, including any attachments, may contain
 confidential information and is intended only for the individual or
 entity to whom it is addressed. Any review, dissemination or copying
 of this communication by anyone other than the intended recipient is
 strictly prohibited. If you are not the intended recipient, please
 contact the sender by reply e-Mail and delete all copies of the
 original message.



--
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: NETSTAT STACK and Rexx exec

[Jakubek, Jan]

In my earlier suggestion I forgot to add:

In my IKJTSO00, AUTHCMD part I have a comment:

/*NETSTAT   REMOVED DUE TO PQ23072 JJ*/ +

Hth...

-Original Message-
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On
Behalf Of David G. Schlecht
Sent: Thursday, November 04, 2010 5:55 PM
To: IBM-MAIN@bama.ua.edu
Subject: Re: NETSTAT STACK and Rexx exec
.
The NETSTAT command executes so I must believe it is being found in the
linklist. I'll check out the APAR and see if that is related.
.

--
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: NETSTAT STACK and Rexx exec

[David G. Schlecht]

--SOLVED --

NETSTAT should be removed from the SYS1.PARMLIB(IJKTSOxx) AUTH section. This 
allows REXX to read the stack produced by NETSTST.

Thanks for all the ideas.



-Original Message-
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of 
David G. Schlecht
Sent: Thursday, October 28, 2010 2:19 PM
To: IBM-MAIN@bama.ua.edu
Subject: NETSTAT STACK and Rexx exec

By the book, this simple Rexx syntax should work, but I am unable to manipulate 
the external stack in Rexx. The following simple program says "Queued: 0" and 
the NETSTAT output gets executed at TSO logout (numerous IKJ56500I COMMAND 
EZZ2587I NOT FOUND messages). The program:
  "Netstat STACK"
  say "Queued: " queued()

This is executed by: TSO EXEC 'MYLIB(ZNETSTAT)'

This seems to mean that queued() is not referencing the same stack that NETSTAT 
is writing to. From what I read in the book, this should work. If it should 
work and doesn't then I suspect there's a problem with the way Rexx is dealing 
with TSO.

Any thoughts? Does this work for you?


- David

 + David G. Schlecht
 + Information Technology Professional
 + State of Nevada
 + Department of Information Technology
 + 775.684.4328
 This communication, including any attachments, may contain
 confidential information and is intended only for the individual or
 entity to whom it is addressed. Any review, dissemination or copying
 of this communication by anyone other than the intended recipient is
 strictly prohibited. If you are not the intended recipient, please
 contact the sender by reply e-Mail and delete all copies of the
 original message.



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

SDSF REXX exec to read the actual job

[Miklos Szigetvari]

 Hi

SDSF REXX try to read the actual , running job and got JCT NOT AVAILABLE 
, but it can read the active from anybody else.

(sorry, I'm hyperactive today)

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

REXX exec: 'only' - was = RE: JCT Not Available

[Klein, Kenneth]

Well, I found it! Had it all along. Just needed to allocate my rexx lib.
Weird thing, tho, is that mine is exactly like yours BUT it has an IBM
copyright:


/* Sample Edit Macro */
/*/
/*   */
/* 5647-A01 (C) COPYRIGHT IBM CORP 1995, 1999*/
/*   */

Now if it could only eliminate the 

-  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -   21 Line(s) not
Displayed 

lines. I usually 'del all x" and then cancel the edit session. Scary. 

Ken Klein
Sr. Systems Programmer
Kentucky Farm Bureau Insurance - Louisville

-Original Message-
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On
Behalf Of Barbara Nitz
Sent: Thursday, June 25, 2009 8:19 AM
To: IBM-MAIN@bama.ua.edu
Subject: Re: JCT Not Available

Incidentally, what George just showed is exactly what we're using.

Barbara

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

IPCS Rexx Exec w/ISPF TBDISPL Services Options

[Todd Burch]

(I posted this directly to the Google Groups version of the list, but
apparently that doesn’t spit it out to all the subscribers.)

 

I'm hitting a wall with my IPCS Rexx exec.   Here's the set up. 

 

My IPCS Rexx exec is called from the IPCS command line.  It gets a bunch of
data from a dump, builds an ISPF Table and then puts up a panel with
TBDISPL.   I then have a "do while" loop in Rexx to handle the TBDISPL and
hold that until PF3 is hit on the panel. 

 

Inside the "do while" loop, I look for row selections. 

 

When the user does select a line, (to drill into raw storage), I detect the
table row selection and successfully call Address IPCS "LIST ..." from
within the TBDISPL "do while" loop.  Here's where the trouble starts. 

 

If there is more than 1 screen of data to display (because I use a LIST …
LENGTH(4096) for example), the IPCS print output from the LIST command
displays as expected and I can scroll up and down in the LIST output.
However, when I hit PF3 to get out of the LIST output, the "signal on halt"
routine in my Rexx exec gets control and my Rexx exec goes away.  I don't
want this to happen - I want my panel to continue to be displayed.

 

If there is < 1 screen of data to display (like with LIST ... LENGTH(128)),
the LIST command output does not show up all at until I finally hit PF3 from
my Rexx exec's TBDISPL panel to go back to native IPCS.  It is then when I
see the LIST command output.  (A bit too late) 

 

Perhaps I should not be issuing the IPCS LIST command and should be using
something else?  I looked for an option on the LIST command to turn off
signal processing, but didn't see it. 

 

Thanks, Todd 

 

 

 

 


No virus found in this outgoing message.
Checked by AVG. 
Version: 7.5.524 / Virus Database: 270.6.6/1627 - Release Date: 8/22/2008
6:48 AM
 

--
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: SDSF REXX exec to read the actual job

[Miklos Szigetvari]

 Hi

Yes, it is a normal batch job

On 9/7/2010 6:42 PM, Itschak Mugzach wrote:

Are you sure this is a job and not an STC? An STC might run under the master
address space and does not need Jes2 to start.

On Tue, Sep 7, 2010 at 4:21 PM, Miklos Szigetvari<
miklos.szigetv...@isis-papyrus.com>  wrote:


 Hi

SDSF REXX try to read the actual , running job and got JCT NOT AVAILABLE ,
but it can read the active from anybody else.
(sorry, I'm hyperactive today)

--
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 REXX exec to read the actual job

[Itschak Mugzach]

Are you sure this is a job and not an STC? An STC might run under the master
address space and does not need Jes2 to start.

On Tue, Sep 7, 2010 at 4:21 PM, Miklos Szigetvari <
miklos.szigetv...@isis-papyrus.com> wrote:

> Hi
>
> SDSF REXX try to read the actual , running job and got JCT NOT AVAILABLE ,
> but it can read the active from anybody else.
> (sorry, I'm hyperactive today)
>
> --
> 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: REXX exec: 'only' - was = RE: JCT Not Available

[Erik Janssen]

>Now if it could only eliminate the
>
>-  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -   21 Line(s) not
>Displayed
>
>lines. I usually 'del all x" and then cancel the edit session. Scary.

Isn't 'hide excluded' what you are looking for here? Hiding the excluded lines 
without deleting them.

Regards,

Erik Janssen.

--
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: REXX exec: 'only' - was = RE: JCT Not Available

[Klein, Kenneth]

Lovely. That's why I love this list.
 


Ken Klein
Sr. Systems Programmer
Kentucky Farm Bureau Insurance - Louisville
kenneth.kl...@kyfb.com
502-495-5000 x7011

-Original Message-
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On
Behalf Of Erik Janssen
Sent: Thursday, June 25, 2009 9:03 AM
To: IBM-MAIN@bama.ua.edu
Subject: Re: REXX exec: 'only' - was = RE: JCT Not Available

>Now if it could only eliminate the
>
>-  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -   21 Line(s) not
>Displayed
>
>lines. I usually 'del all x" and then cancel the edit session. Scary.

Isn't 'hide excluded' what you are looking for here? Hiding the excluded
lines without deleting them.

Regards,

Erik Janssen.

--
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: REXX exec: 'only' - was = RE: JCT Not Available

[Howard Brazee]

On 25 Jun 2009 06:14:31 -0700, erik.jans...@ing.nl (Erik Janssen)
wrote:

>>Now if it could only eliminate the
>>
>>-  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -   21 Line(s) not

Sometimes I cut and paste that in, when I want to print a copy of SDSF
output that I want to exclude most output.

>>Displayed
>>
>>lines. I usually 'del all x" and then cancel the edit session. Scary.

I've done that, but more often than not, I would have preferred
knowing about the hide command that I just learned about below.

>Isn't 'hide excluded' what you are looking for here? Hiding the excluded lines 
>without deleting them.

--
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: REXX exec: 'only' - was = RE: JCT Not Available

[Paul Gilmartin]

On Thu, 25 Jun 2009 08:49:35 -0400, Klein, Kenneth wrote:
>
>lines. I usually 'del all x" and then cancel the edit session. Scary.
>
Starting with "View" rather than "Edit" makes it somewhat less scary.

-- 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: REXX exec: 'only' - was = RE: JCT Not Available

[Chase, John]

> -Original Message-
> From: IBM Mainframe Discussion List On Behalf Of Klein, Kenneth
> 
> Well, I found it! Had it all along. Just needed to allocate my rexx
lib.
> Weird thing, tho, is that mine is exactly like yours BUT it has an IBM
> copyright:
> 
> 
> /* Sample Edit Macro
*/
>
/*/
> /*
*/
> /* 5647-A01 (C) COPYRIGHT IBM CORP 1995, 1999
*/
> /*
*/
> 
> Now if it could only eliminate the
> 
> -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -   21 Line(s) not
> Displayed
> 
> lines. I usually 'del all x" and then cancel the edit session. Scary.

If you don't contemplate saving any changes, why not use VIEW instead of
EDIT?

-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: IPCS Rexx Exec w/ISPF TBDISPL Services Options

[Robert Wright]

Todd Burch wrote:



When the user does select a line, (to drill into raw storage), I detect the
table row selection and successfully call Address IPCS "LIST ..." from
within the TBDISPL "do while" loop.  Here's where the trouble starts. 


 

  
If you want each LIST subcommand treated as a distinct ISPF transaction, 
use dialog program BLSGSCMD.  The API is documented in /z/OS MVS IPCS 
Customization./  Short output from LIST will be handled on the way back 
from the subcommand to your exec, allowing it to be reviewed until no 
longer wanted.  Long output can be partially viewed if that gives the 
user enough information without bothering to generate the entire report 
requested from LIST.  My recollection is that your "signal on halt" exit 
should not be entered.


--
Bob Wright - [EMAIL PROTECTED]

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

Re: IPCS Rexx Exec w/ISPF TBDISPL Services Options

[Todd Burch]

Thanks Bob. 

I have changed my exec to use BLSGSCMD.  I have good news and bad news. 

The good news is that for LIST displays, when no scrolling is involved
because I specify a short length, like 256, BLSGSCMD works perfectly for my
needs. 

The bad news is that for long displays, like LENGTH(4096), *AND* I do not
scroll to the bottom, the SIGNAL ON HALT trap is still hitting and it blows
my exec out.If I purposely scroll to the bottom, all is well and the
signal is not occurring.

What I have working now is good enough for my needs at the moment. It would
be nice to know how to overcome this though.  I could, of course, create
another ISPF panel and format the raw storage myself, but that’s a pain.

Another question.  I feel I have sort of hacked my way through this.  IPCS
Customization states the PARM to BLSGSCMD is a command.  Therefore, I am
dynamically writing a short rexx exec within my exec, writing to a member of
a PDS and then calling it from BLSGSCMD, like this: 

.
.
.
modaddr = some_variable_determined_above ; 
pgm.1 = "/* rexx */" ; 
pgm.2 = "Address IPCS ""LIST" modaddr". LENGTH(256)""" ; 
pgm.0 = 2 ; 
Address TSO "ALLOC F(TEMP) DA(CLIST.CLIST(TEMP)) SHR REUSE" ; 
Address MVS "EXECIO * DISKW TEMP (FINIS STEM pgm." ; 
Address ISPEXEC "SELECT PGM(BLSGSCMD) PARM('%TEMP') NEWAPPL(BLSG) PASSLIB" ;

.
.
.

(the above typed from memory - not copy/pasted from my working exec) 

So it's clunky.  Plus, if running the first time, if member TEMP does not
exist in CLIST.CLIST, it blows up, so for production use, I would have to
add logic to determine if it already exists, if not, blah blah blah.  

I tried to do this, but it didn't work: 

text = "IPCS LIST" modaddr". LENGTH(256)" ;
Address ISPEXEC "SELECT PGM(BLSGSCMD) PARM('"text"') NEWAPPL(BLSG) PASSLIB" 

or some flavor thereof, and that did not work.  Thus the clunk.  

Any suggestions for a better approach?  

Todd


> -Original Message-
> >
> >
> If you want each LIST subcommand treated as a distinct ISPF transaction,
> use dialog program BLSGSCMD.  The API is documented in /z/OS MVS IPCS
> Customization./  Short output from LIST will be handled on the way back
> from the subcommand to your exec, allowing it to be reviewed until no
> longer wanted.  Long output can be partially viewed if that gives the
> user enough information without bothering to generate the entire report
> requested from LIST.  My recollection is that your "signal on halt" exit
> should not be entered.
> 
> --
> Bob Wright  

No virus found in this outgoing message.
Checked by AVG. 
Version: 7.5.524 / Virus Database: 270.6.7/1628 - Release Date: 8/22/2008
6:32 PM
 

--
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: IPCS Rexx Exec w/ISPF TBDISPL Services Options

[Robert Wright]

Todd Burch wrote:


modaddr = some_variable_determined_above ; 
pgm.1 = "/* rexx */" ; 
pgm.2 = "Address IPCS ""LIST" modaddr". LENGTH(256)""" ; 
pgm.0 = 2 ; 
Address TSO "ALLOC F(TEMP) DA(CLIST.CLIST(TEMP)) SHR REUSE" ; 
Address MVS "EXECIO * DISKW TEMP (FINIS STEM pgm." ; 
Address ISPEXEC "SELECT PGM(BLSGSCMD) PARM('%TEMP') NEWAPPL(BLSG) PASSLIB" ;


.
.
.

(the above typed from memory - not copy/pasted from my working exec) 


So it's clunky.  Plus, if running the first time, if member TEMP does not
exist in CLIST.CLIST, it blows up, so for production use, I would have to
add logic to determine if it already exists, if not, blah blah blah.  

I tried to do this, but it didn't work: 


text = "IPCS LIST" modaddr". LENGTH(256)" ;
Address ISPEXEC "SELECT PGM(BLSGSCMD) PARM('"text"') NEWAPPL(BLSG) PASSLIB" 

or some flavor thereof, and that did not work.  Thus the clunk.  
  
I don't see your rationale for getting a data set into the picture.  
Instead of passing a LIST subcommand to IPCS, you should be able to pass 
an ISPEXEC request as though it were the original subcommand that you 
had in mind.  Skipping the quotation marks and substitution concerns:


   Address IPCS ispexec PGM(BLSGSCMD) PARM(list modaddr length(256)) 
PASSLIB


BLSGSCMD takes care of breaking out the subcommand/command-procedure 
invocation using what TSO I/O service routines call an instorage list.  
IPCS/TSO code lets your pass command names and operands in mixed case, 
folding those operands that need it to upper case during parsing.  I'd 
have to double-check whether the text interpreted by ISPEXEC needs to be 
in upper case as I've shown.


--
Bob Wright - [EMAIL PROTECTED]

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

Re: IPCS Rexx Exec w/ISPF TBDISPL Services Options

[Todd Burch]

Wow.  Thanks again.   I was obviously doing something wrong earlier, because
it (the SELECT to BLSGSCMD) is working now when I pass the LIST command as a
parm.

I did a little experimenting, and it seems the "Address IPCS" in front the 
"ISPEXEC SELECT PGM(..." is apparently redundant, as it seems to work the
same and just as well as: 

Address ISPEXEC "SELECT PGM(BLSGSCMD) PARM(LIST" modaddr". LENGTH(256))..." 

So, what BLSGSCMD is doing for me is capturing the END when the user presses
PF3 when viewing the output of LIST.  When issuing LIST without the SELECT
to BLSGSCMD, the user entering END on the LIST output report causes my REXX
exec to terminate.  With BLSGSCMD, control is returned to the instruction
following the SELECT PGM...

Thanks Bob.

Todd

> >
> I don't see your rationale for getting a data set into the picture.
> Instead of passing a LIST subcommand to IPCS, you should be able to pass
> an ISPEXEC request as though it were the original subcommand that you
> had in mind.  Skipping the quotation marks and substitution concerns:
> 
> Address IPCS ispexec PGM(BLSGSCMD) PARM(list modaddr length(256))
> PASSLIB
> 
> BLSGSCMD takes care of breaking out the subcommand/command-procedure
> invocation using what TSO I/O service routines call an instorage list.
> IPCS/TSO code lets your pass command names and operands in mixed case,
> folding those operands that need it to upper case during parsing.  I'd
> have to double-check whether the text interpreted by ISPEXEC needs to be
> in upper case as I've shown.
> 
> --
> Bob Wright

No virus found in this outgoing message.
Checked by AVG. 
Version: 7.5.524 / Virus Database: 270.6.7/1628 - Release Date: 8/22/2008
6:32 PM
 

--
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: IPCS Rexx Exec w/ISPF TBDISPL Services Options

[Shmuel Metz (Seymour J.)]

In <[EMAIL PROTECTED]>, on 08/23/2008
   at 02:02 AM, Todd Burch <[EMAIL PROTECTED]> said:

>(I posted this directly to the Google Groups version of the list,

There is no google groups version of the list. The list is gated to a news
group called bit.listserv.ibm-main, but that has nothing to do with google
and is not under the control of the list administrator.

>when I hit PF3 to get out of the LIST output, the "signal on halt"

Sounds like a CONTROL issue.
 
-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 ISO position; see  
We don't care. We don't have to care, we're Congress.
(S877: The Shut up and Eat Your spam act of 2003)

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

Trying to issue an Error Message during ISPF Panel Initialization in REXX Exec

[Vinson Lee]

I'm trying to issue an error message when displaying an ISPF panel in a Rexx
exec but the panel comes up without the error message.  Here is the Rexx
code:

errfnd = 'Y' 
"DISPLAY PANEL(HLVERF)"

Here is the INIT section of the panel:

)INIT
   .ZVARS = '(REPL)' 
   &NEWDSN = &Z  
   &REPL = &Z
   VGET errfnd   
   IF (&ERRFND EQ 'Y')   
 &ZERRHM = 'ISR0'
 &ZERRSM = 'New dataset exists'  
 &ZERRLM = 'The new dataset name entered already exists.'
 &ZERRALRM = 'YES'   
 .MSG = ISRZ002  
 .RESP = ENTER   


Any ideas on what I'm doing wrong?

Thanks.

Vince

--
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: Trying to issue an Error Message during ISPF Panel Initialization in REXX Exec

[Dave Salt]

The panel is doing a VGET but the program didn't do a VPUT. Simply remove the 
VGET from the panel or add a VPUT to the program. Either one of those should 
fix it.
 
However, I'd suggest that instead of doing either of those things it would be 
much better to simply issue the message directly from the program. For example, 
change the program to look like this: 
 
ZERRHM = 'ISR0'
ZERRSM = 'New dataset exists'
ZERRLM = 'The new dataset name entered already exists.'
ZERRALRM = 'YES'
"SETMSG MSG(ISRZ002)"
"DISPLAY PANEL(HLVERF)"
 
This allows you to remove all the message logic from the panel and not worry 
about passing flags back and forth. As an alternative you could remove the 
SETMSG shown above and do it this way instead:
 
msgnum = "ISRZ002" 
"DISPLAY PANEL(HLVERF) MSG("msgnum")"
 
If you do it this second way then remember to set MSGNUM to null before you 
first display the panel, and reset it back to null after each display.
 
HTH,

Dave Salt

SimpList(tm) - try it; you'll get it!
http://www.mackinney.com/products/SIM/simplist.htm







> Date: Fri, 15 May 2009 18:36:21 -0700
> From: v...@sdccd.edu
> Subject: Trying to issue an Error Message during ISPF Panel Initialization in 
> REXX Exec
> To: IBM-MAIN@bama.ua.edu
>
> I'm trying to issue an error message when displaying an ISPF panel in a Rexx
> exec but the panel comes up without the error message. Here is the Rexx
> code:
>
> errfnd = 'Y'
> "DISPLAY PANEL(HLVERF)"
>
> Here is the INIT section of the panel:
>
> )INIT
> .ZVARS = '(REPL)'
> &NEWDSN = &Z
> &REPL = &Z
> VGET errfnd
> IF (&ERRFND EQ 'Y')
> &ZERRHM = 'ISR0'
> &ZERRSM = 'New dataset exists'
> &ZERRLM = 'The new dataset name entered already exists.'
> &ZERRALRM = 'YES'
> .MSG = ISRZ002
> .RESP = ENTER
>
>
> Any ideas on what I'm doing wrong?
>
> Thanks.
>
> Vince
>
> --
> 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
_
Create a cool, new character for your Windows Live™ Messenger. 
http://go.microsoft.com/?linkid=9656621

--
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: Trying to issue an Error Message during ISPF Panel Initialization in REXX Exec

[Vinson Lee]

That's exactly what I needed.  Thank you very much for the helpful tips and
quick response Dave!

Vince

-Original Message-
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf
Of Dave Salt
Sent: Friday, May 15, 2009 8:01 PM
To: IBM-MAIN@bama.ua.edu
Subject: Re: Trying to issue an Error Message during ISPF Panel
Initialization in REXX Exec


The panel is doing a VGET but the program didn't do a VPUT. Simply remove the
VGET from the panel or add a VPUT to the program. Either one of those should
fix it.
 
However, I'd suggest that instead of doing either of those things it would be
much better to simply issue the message directly from the program. For
example, change the program to look like this: 
 
ZERRHM = 'ISR0'
ZERRSM = 'New dataset exists'
ZERRLM = 'The new dataset name entered already exists.' 
ZERRALRM = 'YES' 
"SETMSG MSG(ISRZ002)" 
"DISPLAY PANEL(HLVERF)"
 
This allows you to remove all the message logic from the panel and not worry
about passing flags back and forth. As an alternative you could remove the
SETMSG shown above and do it this way instead:
 
msgnum = "ISRZ002" 
"DISPLAY PANEL(HLVERF) MSG("msgnum")"
 
If you do it this second way then remember to set MSGNUM to null before you
first display the panel, and reset it back to null after each display.
 
HTH,

Dave Salt

SimpList(tm) - try it; you'll get it!
http://www.mackinney.com/products/SIM/simplist.htm







> Date: Fri, 15 May 2009 18:36:21 -0700
> From: v...@sdccd.edu
> Subject: Trying to issue an Error Message during ISPF Panel 
> Initialization in REXX Exec
> To: IBM-MAIN@bama.ua.edu
>
> I'm trying to issue an error message when displaying an ISPF panel in 
> a Rexx exec but the panel comes up without the error message. Here is 
> the Rexx
> code:
>
> errfnd = 'Y'
> "DISPLAY PANEL(HLVERF)"
>
> Here is the INIT section of the panel:
>
> )INIT
> .ZVARS = '(REPL)'
> &NEWDSN = &Z
> &REPL = &Z
> VGET errfnd
> IF (&ERRFND EQ 'Y')
> &ZERRHM = 'ISR0'
> &ZERRSM = 'New dataset exists'
> &ZERRLM = 'The new dataset name entered already exists.' &ZERRALRM = 
> 'YES' .MSG = ISRZ002
> .RESP = ENTER
>
>
> Any ideas on what I'm doing wrong?
>
> Thanks.
>
> Vince
>
> --
> 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
_
Create a cool, new character for your Windows Live(tm) Messenger. 
http://go.microsoft.com/?linkid=9656621

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

Display Panel After TBDISPL Causes Next TBDISPL to Read Same Record in REXX Exec

[Vinson Lee]

I'm trying to use the HSMLIST Rexx exec that Frank Clarke created but have
found a problem when selecting multiple Backup entries for Recovery.  Here is
the logic:

TBDISPL tab PANEL(HLDETL)
DISPLAY Panel(X)
TBDISPL tab

The second TBDISPL is supposed to read the next entry in the table but does
so only if the DISPLAY Panel statement is NOT executed.

Anyone have ideas on how to fix this problem?

Thanks.

Vince

--
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: Display Panel After TBDISPL Causes Next TBDISPL to Read Same Record in REXX Exec

[David Stapleton]

I would probably code this as:

TBDISPL tab PANEL(HLDETL)
CONTROL DISPLAY SAVE
DISPLAY Panel(X)
CONTROL DISPLAY RESTORE
TBDISPL tab

Regards
 
Dave
 
Dave Stapleton
 
Mainframe Support Team
-Original Message-
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On
Behalf Of Vinson Lee
Sent: 14 May 2009 21:51
To: IBM-MAIN@bama.ua.edu
Subject: Display Panel After TBDISPL Causes Next TBDISPL to Read Same
Record in REXX Exec

I'm trying to use the HSMLIST Rexx exec that Frank Clarke created but
have
found a problem when selecting multiple Backup entries for Recovery.
Here is
the logic:

TBDISPL tab PANEL(HLDETL)
DISPLAY Panel(X)
TBDISPL tab

The second TBDISPL is supposed to read the next entry in the table but
does
so only if the DISPLAY Panel statement is NOT executed.

Anyone have ideas on how to fix this problem?

Thanks.

Vince

--
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 are intended 
solely for the use of the individual or entity to whom they are addressed. This 
communication represents the originator's personal views and opinions, which do 
not necessarily reflect those of HPI Limited. If you are not the original 
recipient or the person responsible for delivering the email to the intended 
recipient, be advised that you have received this email in error, and that any 
use, dissemination, forwarding, printing, or copying of this email is strictly 
prohibited. If you received this email in error, please immediately notify 
postmas...@hpi.co.uk. This message has been scanned by Anti-Virus. Recipients 
are advised to apply their own virus checks to this message on delivery. 
Company Name: HPI Limited, Company Number: 4068979, Registered in England - 
Registered Office: 30, St. Mary Axe. London. EC3A 8AF.

--
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: Display Panel After TBDISPL Causes Next TBDISPL to Read Same Record in REXX Exec

[Vinson Lee]

That worked.  Thanks Dave!

Vince 

-Original Message-
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf
Of David Stapleton
Sent: Friday, May 15, 2009 12:52 AM
To: IBM-MAIN@bama.ua.edu
Subject: Re: Display Panel After TBDISPL Causes Next TBDISPL to Read Same
Record in REXX Exec


I would probably code this as:

TBDISPL tab PANEL(HLDETL)
CONTROL DISPLAY SAVE
DISPLAY Panel(X)
CONTROL DISPLAY RESTORE
TBDISPL tab

Regards
 
Dave
 
Dave Stapleton
 
Mainframe Support Team
-Original Message-
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf
Of Vinson Lee
Sent: 14 May 2009 21:51
To: IBM-MAIN@bama.ua.edu
Subject: Display Panel After TBDISPL Causes Next TBDISPL to Read Same Record
in REXX Exec

I'm trying to use the HSMLIST Rexx exec that Frank Clarke created but have
found a problem when selecting multiple Backup entries for Recovery. Here is
the logic:

TBDISPL tab PANEL(HLDETL)
DISPLAY Panel(X)
TBDISPL tab

The second TBDISPL is supposed to read the next entry in the table but does
so only if the DISPLAY Panel statement is NOT executed.

Anyone have ideas on how to fix this problem?

Thanks.

Vince

--
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 are
intended solely for the use of the individual or entity to whom they are
addressed. This communication represents the originator's personal views and
opinions, which do not necessarily reflect those of HPI Limited. If you are
not the original recipient or the person responsible for delivering the email
to the intended recipient, be advised that you have received this email in
error, and that any use, dissemination, forwarding, printing, or copying of
this email is strictly prohibited. If you received this email in error,
please immediately notify postmas...@hpi.co.uk. This message has been scanned
by Anti-Virus. Recipients are advised to apply their own virus checks to this
message on delivery. Company Name: HPI Limited, Company Number: 4068979,
Registered in England - Registered Office: 30, St. Mary Axe. London. EC3A
8AF.

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