View previous topic :: View next topic
|
Author |
Message |
wangjiyi
New User
Joined: 14 Aug 2006 Posts: 12 Location: Shanghai, China
|
|
|
|
when i use the help command such as 'help permit', the output of this command is red font, and any key I pressed will make the output paged.
When i want to see the previous output, i have to reenter the help command. Can you have some methods to print the output and save it. or any combined keys to brouse previous page?
Thank you. |
|
Back to top |
|
|
ofer71
Global Moderator
Joined: 27 Dec 2005 Posts: 2358 Location: Israel
|
|
|
|
All help screens are actually a copy of the fine manuals. Just read the fine manual.
O. |
|
Back to top |
|
|
kgumraj
Active User
Joined: 01 May 2006 Posts: 151 Location: Hyderabad
|
|
|
|
Use TSO cammand "BACK" |
|
Back to top |
|
|
cpuhawg
Active User
Joined: 14 Jun 2006 Posts: 331 Location: Jacksonville, FL
|
|
|
|
Hi Wangjiyi,
This is a great solution for your problem. This is an OUTTRAP REXX program.
Place this REXX code in an authorized REXX library under the name "O":
Code: |
***************************** Top of Data *************************
/* REXX -------------------------------------------------------*/
/* TRAP AND EDIT TSO COMMAND OUTPUT */
/* EDIT TSO -- RUN A TSO COMMAND AND PLACE THE TRAPPED */
/* OUTPUT IN ISPF-EDIT */
/* PLACE A TSO COMMAND ON THE COMMAND LINE AND PRESS THE KEY */
/*-------------------------------------------------------------*/
ARG TSOCMD /* PULL TSO COMMAND ISSUED */
IF TSOCMD = '' THEN DO /* CHECK IF NULL WAS ENTERED */
SAY;SAY /* GIVE USER INFORMATION */
SAY 'SYNTAX => TSO O TSO-COMMAND '
SAY;
CALL GITOUT RC=99
END
ADDRESS ISPEXEC "CONTROL ERRORS RETURN" /* PREP FOR ERRORS */
ADDRESS TSO
DDNM = 'DD'||RANDOM(1,99999) /* CHOOSE RANDOM DDNAME */
STUFF = MSG(OFF)
"ALLOC FILE("||DDNM||") UNIT(SYSDA) NEW TRK SPACE(35 25) DELETE",
" REUSE LRECL(140) RECFM(F B) BLKSIZE(8960)"
STUFF = MSG(ON) /* OK, SAY SOMETHING */
/* */
/* ISSUE TSO COMMND AND TRAP OUTPUT */
/* */
STUFF=OUTTRAP(LINE.) /* SET THE TRAP */
TSOCMD /* PERFORM THE COMMAND */
STUFF=OUTTRAP('OFF') /* CLOSE TRAP */
/* WRITE TO TEMP FILE */
"EXECIO" LINE.0 "DISKW" DDNM "(STEM LINE. FINIS" /* WRITE TO FILE */
ADDRESS ISPEXEC "LMINIT DATAID(TEMP) DDNAME("||DDNM||")"
ADDRESS ISPEXEC "EDIT DATAID("||TEMP||")" /* NOW EDIT THE FILE */
ADDRESS ISPEXEC "LMFREE DATAID("||TEMP||")" /* LEAVE THE FILE */
STUFF = MSG(OFF)
"FREE FI("||DDNM||")"
ADDRESS
GITOUT:
EXIT
|
When you issue your help command, enter as:
Your output should be displayed in an ispf edit session.
The "O" command will work with any RACF command, any HELP command, or any TSO prefixed command where output is scrolled through by pressing the enter key: |
|
Back to top |
|
|
wangjiyi
New User
Joined: 14 Aug 2006 Posts: 12 Location: Shanghai, China
|
|
|
|
Oh, thank you very much. |
|
Back to top |
|
|
|