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 ,
'%& xxxxxx xxxxxx xxxxxxxxxxxx xx xxx
xxxx %{'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:[email protected]] On
Behalf Of [email protected]
Sent: Tuesday, July 14, 2009 9:09 AM
To: [email protected]
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:[email protected]] On
Behalf Of Veilleux, Jon L
Sent: July 13, 2009 07:35
To: [email protected]
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
[email protected]
(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
