Re: REXX and Panels
Well ok ;
Here there is a LOT more to this but here is a Piece to Push you in the
right direction, Now some of us old school folks will remember the IBM
LASTEDIT example on the old REXX primer manual which is what this FULL
SCREEN REXX EXEC is based on. The number escapes me as I approach
retirement age,, sorry.
I wrote this EXEC to wrap JCL around COBOL PROGRAMS and send them to a VM
for compile. (among other things it does) it is too big to post here this is
just the MENU portion.
It would be invoked as follows just like the IBM LASTEDIT EXAMPLE:
You can replace the X's with your heading
/* TRACE I */
SUBCOM XEDIT
IF RC = 0 THEN
DO
ADDRESS XEDIT
EMSG COMPILE MENU NOT ALLOWED FROM FILELIST OR XEDIT
ADDRESS
END
ELSE
'XEDIT JUNK JUNK A1 (PROF CARMENU'
EXIT
SET RESERVED 1 NOH ,
'% xx xx xx xxx
%{'LEFT(RL,7)'%{'
SET RESERVED 2 NOH
SET RESERVED 3 NOH ,
% PLEASE KEY IN AN X FOR TYPE OF SERVICE
SET RESERVED 4 NOH '%@ FLIST: %$'LEFT(F,1)'%@'
SET RESERVED 5 NOH '%@ FILEL: %$'LEFT(Z,1)'%@'
SET RESERVED 6 NOH '% SUBMIT A JOB TO A VSE VIRTUAL MACHINE:
%$'LEFT(S,1)'%@ '
SET RESERVED 7 NOH
SET RESERVED 8 NOH ,
%...@filename:%$LEFT(A,8)%...@filetype:%$LEFT(B,7)
%...@filemode:%$LEFT(C,2)%...@destination:%$LEFT(Y,8)%@
SET RESERVED 9 NOH % SUBMIT A COMPILE:%$LEFT(W,1)%
SET RESERVED 10 NOH ,
%...@filename:%$LEFT(M,8)%...@filetype:%$LEFT(N,7)
%...@filemode:%$LEFT(O,2)%...@type:%$LEFT(T,2)%...@intertest:%$LEFT(V,1)%@
SET RESERVED 11 NOH ,
%...@target LIBRARY:%$LEFT(E,17)%...@search LIBRARY:%$LEFT(H,17)%@
SET RESERVED 12 NOH ,
%...@destination VIRTUAL MACHINE:%$LEFT(J,8)%...@sql PASSWORD:%$LEFT(G,8)
%...@faqs:%$LEFT(!,1)%@
SET RESERVED 13 NOH %! VALID TYPES ARE:
SET RESERVED 14 NOH %@ 1.%^LEFT(V1,21)%@ 2.%^LEFT(V2,21)%@
3.%^LEFT(V3,21)
SET RESERVED 15 NOH %@ 4.%^LEFT(V4,21)%@ 5.%^LEFT(V5,21)%@
6.%^LEFT(V6,21)
SET RESERVED 16 NOH %@ 7.%^LEFT(V7,21)%@ 8.%^LEFT(V8,21)%@
9.%^LEFT(V9,21)
SET RESERVED 17 NOH
%...@10.%^LEFT(VA,21)%...@11.%^LEFT(VB,21)%...@12.%^LEFT(VC,21)
SET RESERVED 18 NOH
%...@13.%^LEFT(VZ,21)%...@14.%^LEFT(VD,21)%...@15.%^LEFT(VZ,21)
SET RESERVED 19 NOH
%...@16.%^LEFT(VZ,21)%...@17.%^LEFT(VZ,21)%...@18.%^LEFT(VZ,21)
SET RESERVED 20 NOH % INVOKE A UTILIITY:%$LEFT(I,2)%
SET RESERVED 21 NOH,
%...@spoolman:%$LEFT(P,1)%...@delrdr:%$LEFT(D,1)%...@prtit:%$LEFT(R,1)%@
READER LIST:%$LEFT(I,1)%...@invoke DITTO:%$LEFT(K,1)%...@%@EMAIL:%$
LEFT(U,1)%@
SET RESERVED 22 NOH % CALENDAR:%$LEFT(X,1)%...@% LIBRARIAN SERVICE:
%$LEFT(?,1)%CALCULATOR:%$LEFT($,1)%RSCS:%$LEFT(ZZ,1)%@
SET RESERVED 23 NOH
IF MESSAGE ^= '' THEN DO; EMSG MESSAGE; MESSAGE=''; END;
CURSOR SCREEN 9 21
RETURN
From: The IBM z/VM Operating System [mailto:ib...@listserv.uark.edu] On
Behalf Of peter.w...@ttc.ca
Sent: Tuesday, July 14, 2009 9:09 AM
To: IBMVM@LISTSERV.UARK.EDU
Subject: Re: REXX and Panels
I have used Winmaker from the VM downloads page and found it quite easy to
use.
-Original Message-
From: The IBM z/VM Operating System [mailto:ib...@listserv.uark.edu] On
Behalf Of Veilleux, Jon L
Sent: July 13, 2009 07:35
To: IBMVM@LISTSERV.UARK.EDU
Subject: REXX and Panels
I am just getting back to VM after many years and am trying to remember how
to do the things that I can easily do in TSO REXX. Does anyone know how to
simulate panels in REXX on CMS without using DMS/CMS or ISPF? I know that
some of the basic CMS execs (Filelist, etc) use XEDIT macros, but I can't
find any documentation for this.
Thanks,
Jon
Jon L. Veilleux
veilleu...@aetna.com
(860) 636-2683
_
The information transmitted is intended only for the person or entity to
which it is addressed and may contain confidential and/or privileged
material. Any review retransmission dissemination or other use of or taking
any action in reliance upon this information by persons or entities other
than the intended recipient or delegate is strictly prohibited. If you
received this in error please contact the sender and delete the material
from any computer. The integrity and security of this message cannot be
guaranteed on the Internet. The sender accepts no liability for the content
of this e-mail or for the consequences of any actions taken on the basis of
information provided. The recipient should check this e-mail and any
attachments for the presence of viruses. The sender accepts no liability for
any damage caused by any virus transmitted by this e-mail. This disclaimer
is property of the TTC and must not be altered or circumvented in any
manner.
This e-mail may contain confidential or privileged information. If you think
you have received this e-mail in error, please advise the sender by reply
e-mail and then delete this e-mail immediately. Thank you. Aetna
Re: REXX and Panels
Thanks to all! I have a fair idea of how to do this now.
Jon
Jon L. Veilleux
veilleu...@aetna.com
(860) 636-2683
From: The IBM z/VM Operating System [mailto:ib...@listserv.uark.edu] On
Behalf Of Carlos Martinez
Sent: Thursday, July 16, 2009 12:19 PM
To: IBMVM@LISTSERV.UARK.EDU
Subject: Re: REXX and Panels
Well ok ;
Here there is a LOT more to this but here is a Piece to Push you in the
right direction, Now some of us old school folks will remember the IBM
LASTEDIT example on the old REXX primer manual which is what this FULL
SCREEN REXX EXEC is based on. The number escapes me as I approach
retirement age,, sorry.
I wrote this EXEC to wrap JCL around COBOL PROGRAMS and send them to
a VM for compile. (among other things it does) it is too big to post
here this is just the MENU portion.
It would be invoked as follows just like the IBM LASTEDIT EXAMPLE:
You can replace the X's with your heading
/* TRACE I */
SUBCOM XEDIT
IF RC = 0 THEN
DO
ADDRESS XEDIT
EMSG COMPILE MENU NOT ALLOWED FROM FILELIST OR XEDIT
ADDRESS
END
ELSE
'XEDIT JUNK JUNK A1 (PROF CARMENU'
EXIT
SET RESERVED 1 NOH ,
'% xx xx xx xxx
%{'LEFT(RL,7)'%{'
SET RESERVED 2 NOH
SET RESERVED 3 NOH ,
% PLEASE KEY IN AN X FOR TYPE OF SERVICE
SET RESERVED 4 NOH '%@ FLIST: %$'LEFT(F,1)'%@'
SET RESERVED 5 NOH '%@ FILEL: %$'LEFT(Z,1)'%@'
SET RESERVED 6 NOH '% SUBMIT A JOB TO A VSE VIRTUAL MACHINE:
%$'LEFT(S,1)'%@ '
SET RESERVED 7 NOH
SET RESERVED 8 NOH ,
%...@filename:%$LEFT(A,8)%...@filetype:%$LEFT(B,7)
%...@filemode:%$LEFT(C,2)%...@destination:%$LEFT(Y,8)%@
SET RESERVED 9 NOH % SUBMIT A COMPILE:%$LEFT(W,1)%
SET RESERVED 10 NOH ,
%...@filename:%$LEFT(M,8)%...@filetype:%$LEFT(N,7)
%...@filemode:%$LEFT(O,2)%...@type:%$LEFT(T,2)%...@intertest:%$LEFT(V,1)%@
SET RESERVED 11 NOH ,
%...@target LIBRARY:%$LEFT(E,17)%...@search LIBRARY:%$LEFT(H,17)%@
SET RESERVED 12 NOH ,
%...@destination VIRTUAL MACHINE:%$LEFT(J,8)%...@sql PASSWORD:%$LEFT(G,8)
%...@faqs:%$LEFT(!,1)%@
SET RESERVED 13 NOH %! VALID TYPES ARE:
SET RESERVED 14 NOH %@ 1.%^LEFT(V1,21)%@ 2.%^LEFT(V2,21)%@
3.%^LEFT(V3,21)
SET RESERVED 15 NOH %@ 4.%^LEFT(V4,21)%@ 5.%^LEFT(V5,21)%@
6.%^LEFT(V6,21)
SET RESERVED 16 NOH %@ 7.%^LEFT(V7,21)%@ 8.%^LEFT(V8,21)%@
9.%^LEFT(V9,21)
SET RESERVED 17 NOH
%...@10.%^LEFT(VA,21)%...@11.%^LEFT(VB,21)%...@12.%^LEFT(VC,21)
SET RESERVED 18 NOH
%...@13.%^LEFT(VZ,21)%...@14.%^LEFT(VD,21)%...@15.%^LEFT(VZ,21)
SET RESERVED 19 NOH
%...@16.%^LEFT(VZ,21)%...@17.%^LEFT(VZ,21)%...@18.%^LEFT(VZ,21)
SET RESERVED 20 NOH % INVOKE A UTILIITY:%$LEFT(I,2)%
SET RESERVED 21 NOH,
%...@spoolman:%$LEFT(P,1)%...@delrdr:%$LEFT(D,1)%...@prtit:%$LEFT(R,1)%@
READER LIST:%$LEFT(I,1)%...@invoke DITTO:%$LEFT(K,1)%...@%@EMAIL:%$
LEFT(U,1)%@
SET RESERVED 22 NOH % CALENDAR:%$LEFT(X,1)%...@% LIBRARIAN SERVICE:
%$LEFT(?,1)%CALCULATOR:%$LEFT($,1)%RSCS:%$LEFT(ZZ,1)%@
SET RESERVED 23 NOH
IF MESSAGE ^= '' THEN DO; EMSG MESSAGE; MESSAGE=''; END;
CURSOR SCREEN 9 21
RETURN
From: The IBM z/VM Operating System [mailto:ib...@listserv.uark.edu] On
Behalf Of peter.w...@ttc.ca
Sent: Tuesday, July 14, 2009 9:09 AM
To: IBMVM@LISTSERV.UARK.EDU
Subject: Re: REXX and Panels
I have used Winmaker from the VM downloads page and found it quite easy
to use.
-Original Message-
From: The IBM z/VM Operating System [mailto:ib...@listserv.uark.edu] On
Behalf Of Veilleux, Jon L
Sent: July 13, 2009 07:35
To: IBMVM@LISTSERV.UARK.EDU
Subject: REXX and Panels
I am just getting back to VM after many years and am trying to remember
how to do the things that I can easily do in TSO REXX. Does anyone know
how to simulate panels in REXX on CMS without using DMS/CMS or ISPF? I
know that some of the basic CMS execs (Filelist, etc) use XEDIT macros,
but I can't find any documentation for this.
Thanks,
Jon
Jon L. Veilleux
veilleu...@aetna.com
(860) 636-2683
The information transmitted is intended only for the person or entity to
which it is addressed and may contain confidential and/or privileged
material. Any review retransmission dissemination or other use of or
taking any action in reliance upon this information by persons or
entities other than the intended recipient or delegate is strictly
prohibited. If you received this in error please contact the sender and
delete the material from any computer. The integrity and security of
this message cannot be guaranteed on the Internet. The sender accepts no
liability for the content of this e-mail or for the consequences of any
actions taken on the basis of information provided. The recipient should
check this e-mail and any attachments for the presence of viruses. The
sender accepts no liability for any damage caused by any virus
transmitted
Re: REXX and Panels
There is always Fullscreen CMS, aka CMS Windows... Seb
Re: REXX and Panels
I have used Winmaker from the VM downloads page and found it quite easy to use. -Original Message- From: The IBM z/VM Operating System [mailto:ib...@listserv.uark.edu] On Behalf Of Veilleux, Jon L Sent: July 13, 2009 07:35 To: IBMVM@LISTSERV.UARK.EDU Subject: REXX and Panels I am just getting back to VM after many years and am trying to remember how to do the things that I can easily do in TSO REXX. Does anyone know how to simulate panels in REXX on CMS without using DMS/CMS or ISPF? I know that some of the basic CMS execs (Filelist, etc) use XEDIT macros, but I can't find any documentation for this. Thanks, Jon Jon L. Veilleux veilleu...@aetna.com (860) 636-2683 This e-mail may contain confidential or privileged information. If you think you have received this e-mail in error, please advise the sender by reply e-mail and then delete this e-mail immediately. Thank you. Aetna The information transmitted is intended only for the person or entity to which it is addressed and may contain confidential and/or privileged material. Any review retransmission dissemination or other use of or taking any action in reliance upon this information by persons or entities other than the intended recipient or delegate is strictly prohibited. If you received this in error please contact the sender and delete the material from any computer. The integrity and security of this message cannot be guaranteed on the Internet. The sender accepts no liability for the content of this e-mail or for the consequences of any actions taken on the basis of information provided. The recipient should check this e-mail and any attachments for the presence of viruses. The sender accepts no liability for any damage caused by any virus transmitted by this e-mail. This disclaimer is property of the TTC and must not be altered or circumvented in any manner.
Re: REXX and Panels
Wow! XMENU/E - I haven't used that (excellent!) product in probably 20 years! The ability for it to wakeup was one of the major features I preferred over DMS/CMS at the time (but there were many others, I recall it being an excellent product - glad to hear it is still around!). I've been using IOS3270 since probably the mid 1990's. I wrote a front end to it to make it a LOT friendlier (who wants to remember all of the cryptic commands and syntax, and of course using characters that can be entered via the keyboard as escape codes is a BIG no-no!). It also has the ability to wakeup, and equally nice you can bind panels on top of panels (perfect for doing pop-ups that overlay a main panel). -Mike -Original Message- From: The IBM z/VM Operating System [mailto:ib...@listserv.uark.edu] On Behalf Of Schuh, Richard Sent: Monday, July 13, 2009 6:51 PM To: IBMVM@LISTSERV.UARK.EDU Subject: Re: REXX and Panels We use XMENU/E that was originally a Kolinar product. It can still be found at CA. I do not know its price, but it works great and includes KWAKEUP as part of the package. Regards, Richard Schuh -Original Message- From: The IBM z/VM Operating System [mailto:ib...@listserv.uark.edu] On Behalf Of Bruce Hayden Sent: Monday, July 13, 2009 7:32 AM To: IBMVM@LISTSERV.UARK.EDU Subject: Re: REXX and Panels REXX/CUA became CUA2001 before it was discontinued as a product. It is now available as is on the VM downloads page: http://www.vm.ibm.com/download/packages/descript.cgi?CUA2001 On Mon, Jul 13, 2009 at 7:46 AM, Thomas Kerntlk_sysp...@yahoo.com wrote: Many years ago, IBM had a package, I think it was called REXX/CUA. I am not in the office today or I could give you the product number. We wrote several menued execs using it. I don't remember the price, if there was a price. It was ALL in REXX and XEDIT. There is also the IOS3270 module in the IBM Downloads page. I use that today for some of my execs where I want a full-screen refresh of status information. /Tom Kern -- Bruce Hayden Linux on System z Advanced Technical Support IBM, Endicott, NY
Re: REXX and Panels
Many years ago, IBM had a package, I think it was called REXX/CUA. I am not in the office today or I could give you the product number. We wrote several menued execs using it. I don't remember the price, if there was a price. It was ALL in REXX and XEDIT. There is also the IOS3270 module in the IBM Downloads page. I use that today for some of my execs where I want a full-screen refresh of status information. /Tom Kern Veilleux, Jon L wrote: I am just getting back to VM after many years and am trying to remember how to do the things that I can easily do in TSO REXX. Does anyone know how to simulate panels in REXX on CMS without using DMS/CMS or ISPF? I know that some of the basic CMS execs (Filelist, etc) use XEDIT macros, but I can't find any documentation for this. Thanks, Jon Jon L. Veilleux veilleu...@aetna.com (860) 636-2683
Re: REXX and Panels
On Jul 13, 2009, at 6:46 AM, Thomas Kern wrote: Many years ago, IBM had a package, I think it was called REXX/CUA. I am not in the office today or I could give you the product number. We wrote several menued execs using it. I don't remember the price, if there was a price. It was ALL in REXX and XEDIT. Good news: you're describing CUA2001: http://www.vm.ibm.com/download/packages/cua2001.vmarc On the VM Downloads Page now. I wrote a lot of stuff in it at Rice when it was still a paid product; I've messed with it a bit more since then. It's a pretty easy way to do an XEDIT interface for a Rexx ap. Adam
Re: REXX and Panels
Hi, Jon. There are a couple of good (and free!) packages you can try: 1) CUA2001 from the IBM VM Download page (http://www.vm.ibm.com/download/packages/) Very nice form building CUA complaint 3270 panels, and well documented too. I think it actually uses Xedit under the covers to drive the screen. 2) RDM (Rexx Display Manager), developed by the University of Victoria. It can be used from other languages besides Rexx and it comes with a replacement DMS API interface. It can be found here: http://uvvm.uvic.ca/~freeware/ Good luck. Veilleux, Jon L wrote: I am just getting back to VM after many years and am trying to remember how to do the things that I can easily do in TSO REXX. Does anyone know how to simulate panels in REXX on CMS without using DMS/CMS or ISPF? I know that some of the basic CMS execs (Filelist, etc) use XEDIT macros, but I can't find any documentation for this. Thanks, Jon Jon L. Veilleux veilleu...@aetna.com (860) 636-2683 This e-mail may contain confidential or privileged information. If you think you have received this e-mail in error, please advise the sender by reply e-mail and then delete this e-mail immediately. Thank you. Aetna -- Dave Jones V/Soft www.vsoft-software.com Houston, TX 281.578.7544
Re: REXX and Panels
REXX/CUA became CUA2001 before it was discontinued as a product. It is now available as is on the VM downloads page: http://www.vm.ibm.com/download/packages/descript.cgi?CUA2001 On Mon, Jul 13, 2009 at 7:46 AM, Thomas Kerntlk_sysp...@yahoo.com wrote: Many years ago, IBM had a package, I think it was called REXX/CUA. I am not in the office today or I could give you the product number. We wrote several menued execs using it. I don't remember the price, if there was a price. It was ALL in REXX and XEDIT. There is also the IOS3270 module in the IBM Downloads page. I use that today for some of my execs where I want a full-screen refresh of status information. /Tom Kern -- Bruce Hayden Linux on System z Advanced Technical Support IBM, Endicott, NY
Re: REXX and Panels
Many years ago, IBM had a package, I think it was called REXX/CUA. I am not in the office today or I could give you the product number. We wrote several menued execs using it. I don't remember the price, if there was a price. It was ALL in REXX and XEDIT. CUA2001. I think it's in the IBM downloads library. www.vm.ibm.com/download Also the FULLSCREEN pipe stage.
Re: REXX and Panels
We use XMENU/E that was originally a Kolinar product. It can still be found at CA. I do not know its price, but it works great and includes KWAKEUP as part of the package. Regards, Richard Schuh -Original Message- From: The IBM z/VM Operating System [mailto:ib...@listserv.uark.edu] On Behalf Of Bruce Hayden Sent: Monday, July 13, 2009 7:32 AM To: IBMVM@LISTSERV.UARK.EDU Subject: Re: REXX and Panels REXX/CUA became CUA2001 before it was discontinued as a product. It is now available as is on the VM downloads page: http://www.vm.ibm.com/download/packages/descript.cgi?CUA2001 On Mon, Jul 13, 2009 at 7:46 AM, Thomas Kerntlk_sysp...@yahoo.com wrote: Many years ago, IBM had a package, I think it was called REXX/CUA. I am not in the office today or I could give you the product number. We wrote several menued execs using it. I don't remember the price, if there was a price. It was ALL in REXX and XEDIT. There is also the IOS3270 module in the IBM Downloads page. I use that today for some of my execs where I want a full-screen refresh of status information. /Tom Kern -- Bruce Hayden Linux on System z Advanced Technical Support IBM, Endicott, NY
