Thanks, George. I'll take a good look at it when I get a chance, but you have definitely provided me with enough information as to the "how" going on behind the scenes.
Bob -----Original Message----- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of George Rodriguez Sent: Wednesday, December 15, 2010 7:52 AM To: IBM-MAIN@bama.ua.edu Subject: Re: Edit Macro for PDSHELP and MVS/Quickref Richard, That's going to be hard...Let me show you what I mean. Here's the initial panel from my Main Menu panel: Q1,'CMD(%...@cobhelp)' Q2,'CMD(%...@hsmcmd )' Q3,'CMD(%...@editcmd)' Q4,'CMD(%...@ftpcmd )' Q5,'CMD(%ISPTUTOR)' Q6,'CMD(%...@jclstmt)' Q7,'CMD(%...@jes2cmd)' Q8,'CMD(%...@mvscmd )' Q9,'CMD(%...@mvsvar )' Q10,'CMD(%...@racfcmd)' Q11,'CMD(%...@rexxcmd)' Q12,'CMD(%...@sampjcl)' Q13,'CMD(%...@sdpbc )' Q14,'CMD(%...@sqlcmd )' Q15,'CMD(%...@sqlcode)' Q16,'CMD(%...@sysvars)' Q17,'CMD(%...@tsocmd )' Q18,'CMD(%...@vtamcmd)' Q19,'CMD(%...@unixcmd)' Then each command looks something like this: /* Rexx */ /* trace i */ PARSE ARG cmdline . IF cmdline = "" THEN ADDRESS ISREDIT "MACRO (CMDLINE) PROCESS" cmdline = TRANSLATE(cmdline) IF cmdline = "" THEN item = *".TBL-OF-CONTENTS"* /* "I='.TBL-OF-CONTENTS'" */ ELSE item = 'I='cmdline parms = "V=IBM P='COBOL Z/OS SYNTAX' R=V3R4 " item /* "D=M" */ ADDRESS TSO "@QWIKREF" parms EXIT The value item above (.TBL-OF-CONTENTS) varies depending which command you're performing. There's something else you need to know. I'm using Dynamic allocation in TSO/ISPF, so '@QKIKREF' looks like this: /* Rexx */ /* trace i */ PARSE ARG cmdline /*-----------------------------------------------------------------*/ /*********************************************************************/ /* This exec invokes ChicagoSoft's QuickRef dialog. cmdline is used */ /* to pass a search argument to QuickRef, not the initial menu */ /* option (e.g. if the QuickRef option is "Z.Q", then "Z.Q.IEF452I" */ /* will bring up QuickRef for IEF452I). */ /*********************************************************************/ IF FIND("PRM( PRM()",cmdline) ¬= 0 THEN cmdline = "" PARSE VAR cmdline 'PRM(' x ')' IF x ¬= "" THEN cmdline = x address ispexec "LIBDEF ISPLLIB DATASET ID('OEM#P.CSL.QUICKREF.R700.LINKLIB')" "LIBDEF ISPMLIB DATASET ID('OEM#P.CSL.QUICKREF.R700.MESSAGES')" "LIBDEF ISPPLIB DATASET ID('OEM#P.CSL.QUICKREF.R700.PANELS')" "LIBDEF ISPTLIB DATASET ID('OEM#P.CSL.QUICKREF.R700.TABLES')" logproc = SYSVAR(SYSPROC) /* name of logon proc*/ uprocs = 'TSOPROC TSOPROC2 BATCH' x = OUTTRAP(var.) /* hide message */ address tso "ALLOC F(QWHELP) DA('OEM#P.CSL.QUICKREF.PBSB.HELP') SHR REUSE" "ALLOC F(QWREFDD) DA('OEM#P.CSL.QUICKREF.SDPBC.DATABASE') SHR REUSE" "ALLOC F(QWPARMS) DA('OEM#P.CSL.QUICKREF.R720.JCL') SHR REUSE" "CONCATDD QWHELP SYS1.HELP (FRONT" IF WORDPOS(logproc,uprocs) ¬= 0 THEN "ALLOC F(QWREFDDU) DA('OEM#P.CSL.QUICKREF.PBSB.SDPBCDB') SHR REUSE" x = OUTTRAP(OFF) /* turn msgs on */ ddress ispexec "SELECT PGM(QWIKREF1) PARM("cmdline") NEWAPPL(QWIK) PASSLIB SCRNAME(QUICKREF)" x = OUTTRAP(var.) /* hide message */ ddress tso "FREE F(QWREFDD QWREFDDU QWPARMS QWHELP)" x = OUTTRAP(OFF) /* turn msgs on */ ddress ispexec "LIBDEF ISPLLIB" "LIBDEF ISPMLIB" "LIBDEF ISPPLIB" "LIBDEF ISPTLIB" Here's another example @HSMCMD: /* Rexx */ /* trace i */ PARSE ARG cmdline . IF cmdline = "" THEN ADDRESS ISREDIT "MACRO (CMDLINE) PROCESS" cmdline = TRANSLATE(cmdline) IF cmdline = "" THEN item = "*I=-INDEX*" /* "I='.TBL-OF-CONTENTS'" */ ELSE item = 'I='cmdline parms = "V=IBM P='DFSMSHSM CMD SYNTAX' R='V2R7 & PRIOR'" item ADDRESS TSO "@QWIKREF" parms EXIT In this one item is set to "I=-INDEX". Like I said complicated and there's about 17 of these commands, but if you get the idea behind what I'm doing, then you can develop your own. * * *George Rodriguez* *Specialist II - IT Solutions* *Application Support / Quality Assurance* *PX - 47652* *(561) 357-7652 (office)* *(561) 707-3496 (mobile)* *School District of Palm Beach County* *3348 Forest Hill Blvd.* *Room B-332* *West Palm Beach, FL. 33406-5869* *Florida's Only A-Rated Urban District For Six Consecutive Years* On Wed, Dec 15, 2010 at 6:04 AM, Richards, Robert B. < robert.richa...@opm.gov> wrote: > George, > > Any chance you'd be willing to post the backing code for this menu? :-) > > Bob > > > -----Original Message----- > From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On > Behalf Of George Rodriguez > Sent: Tuesday, December 14, 2010 11:39 AM > To: IBM-MAIN@bama.ua.edu > Subject: Re: Edit Macro for PDSHELP and MVS/Quickref > > I have MVS/QuickRef and what I did was create a menu system with topics > commonly used...Here's what the menu system looks like... > > School District of Palm Beach County > FastPath to QuickRef Subjects > Option ===> _____ > > Q1 COBHELP Reference information on Cobol for MVS, Options, I/O, & JCL > Q2 DFSMSHSM Reference information on DFSMShsm commands > Q3 EDITCMDS Edit line commands, sample macros, testing, using, & creating > Q4 FTPCMDS Reference information on FTP commands > Q5 ISPTUTOR List of general ISPF commands > Q6 JCLSTMTS JCL syntax statements for; DD, EXEC, JOB, OTHER, and OUTPUT > Q7 JES2CMDS Describes the commands that operate the JES2 element of z/OS > Q8 MVSCMDS Describes the operator (MVS) system commands > Q9 MVSVARS Returns information about MVS, TSO/E, & the current session > Q10 RACFCMDS Reference information about individual Racf commands > Q11 REXXCMDS Rexx general concepts and statements > Q12 SAMPJCL Sample JCL for common utilities ADRDSSU, ICKDSF, IDCAMS, etc. > Q13 SDPBC School District of Palm Beach County Help > <--<< internal > Q14 SQLCMDS Reference information about SQL commands or statements > Q15 SQLCODES Display information concerning SQL return codes > Q16 SYSVARS Returns information about MVS, TSO/E, & the current session > Q17 TSOCMDS Describes individual TSO commands > Q18 VTAMCMDS Describes individual VTAM commands > Q19 UNIXCMDS Reference information about UNIX commands > > Is that what you're talking about, or something different? > * > * > *George Rodriguez* > *Specialist II - IT Solutions* > *Application Support / Quality Assurance* > *PX - 47652* > *(561) 357-7652 (office)* > *(561) 707-3496 (mobile)* > *School District of Palm Beach County* > *3348 Forest Hill Blvd.* > *Room B-332* > *West Palm Beach, FL. 33406-5869* > *Florida's Only A-Rated Urban District For Six Consecutive Years* > > > > On Tue, Dec 14, 2010 at 11:26 AM, Sergio Lima <sergio...@hotmail.com> > wrote: > > > Hello Dana, > > > > Times ago, We downloaded a program, that show the MVS HELP like HELP from > > VM/CMS. > > Is the same? > > > > Sergio Lima Costa > > Sao Paulo - Brazil > > > > > Date: Fri, 10 Dec 2010 08:49:06 -0600 > > > From: mitchd...@gmail.com > > > Subject: Edit Macro for PDSHELP and MVS/Quickref > > > To: IBM-MAIN@bama.ua.edu > > > > > > Do you use the PDS command and have MVS/Quickref? I created a small > edit > > > macro that will update the PDSHELP member from the PDS command and > > > insert Key Indicator records for loading into an MVS/Quickref user > > database. > > > This will make all PDS command operands and messages available from > > > MVS/Quickref. Let me know if anyone is interested in testing this out > to > > see > > > if it's useful and works as advertised before I send it to Sam for the > > CBTTAPE. > > > > > > thanks > > > Dana > > > > > > ---------------------------------------------------------------------- > > > 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 > > > > Home of Florida's first LEED Gold Certified School > > Under Florida law, e-mail addresses are public records. If you do not want > your e-mail address > released in response to a public records request, do not send electronic > mail to this entity. > Instead, contact this office by phone or in writing. > > ---------------------------------------------------------------------- > 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 > Home of Florida's first LEED Gold Certified School Under Florida law, e-mail addresses are public records. If you do not want your e-mail address released in response to a public records request, do not send electronic mail to this entity. Instead, contact this office by phone or in writing. ---------------------------------------------------------------------- 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
