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 , '%& 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: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 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
