|
View previous topic :: View next topic
|
| Author |
Message |
theone1987
New User
Joined: 14 Sep 2009
Posts: 60
Location: Milan
|
|
|
|
Hi everyone,
i'm trying to use "EB" command for browse or edit datasets.
but it doesen't work.
Do i have to change any settings?
thank you |
|
| Back to top |
|
 |
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10889
Location: italy
|
|
|
|
looks like a local command/addon to me, ask one of Your peers
edited to change the wording  |
|
| Back to top |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006
Posts: 2596
Location: Silicon Valley
|
|
|
|
| Quote: |
| but it doesen't work. |
or possibly not a local mod. Also, not part of z/OS.
Where did you hear of it? |
|
| Back to top |
|
|
theone1987
New User
Joined: 14 Sep 2009
Posts: 60
Location: Milan
|
|
|
|
| Pedro wrote: |
| Quote: |
| but it doesen't work. |
or possibly not a local mod. Also, not part of z/OS.
Where did you hear of it? |
I'm sorry but i don't understand what do you mean.
however, this command is used to browse or edit dataset without go in 3.4! |
|
| Back to top |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008
Posts: 8700
Location: Dubuque, Iowa, USA
|
|
|
|
| Quote: |
I'm sorry but i don't understand what do you mean.
however, this command is used to browse or edit dataset without go in 3.4! |
This is not a standard TSO command that anybody outside of your shop would have any idea about. You need to contact your site support group, team leader, or coworkers to find out how to use this command. Since it is not part of the standard system, it must be a locally installed and supported facility -- so we have no idea about it. |
|
| Back to top |
|
|
theone1987
New User
Joined: 14 Sep 2009
Posts: 60
Location: Milan
|
|
|
|
[quote="so we have no idea about it.[/quote]
no one knows how do that!
forget about "eb", does exits a command for brows a dataset in a JCL without go in 3.4? |
|
| Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19243
Location: Inside the Matrix
|
|
|
|
Hello,
Option 1. . .? |
|
| Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10889
Location: italy
|
|
|
|
the thread is shifting towards silliness...
it started with the TS asking about an EB <command> to edit/browse datsets
we replied that no such thing exists in a plain/vanilla ISPF environment
to ask his peers or his support for additional info
he replied that ...
| Quote: |
| however, this command is used to browse or edit dataset without go in 3.4! |
so somebody should know about it
but the last post implied that nobody knows about EB
just curious... where did the EB thing come out ??
| Quote: |
| browse a dataset in a JCL |
what do You mean....
/crystal sphere/ball on
while You are editing a JCL stream position the cursor on a dataset name
and hitting some PF key browse the dataset under the cursor?
if this is the case ask Your support to google for something called zoom command
or search these forums for the same thing
or look at the cbt tape |
|
| Back to top |
|
|
MBabu
Active User
Joined: 03 Aug 2008
Posts: 400
Location: Mumbai
|
|
|
|
| try the command EPDF dsname. That is a standard part of ISPF (supplied by IBM) and should be available in all shops unless it was explicitly removed (or the shop is still using 20 year old command tables, which some do) |
|
| Back to top |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006
Posts: 2596
Location: Silicon Valley
|
|
|
|
| Quote: |
| or possibly not a local mod. Also, not part of z/OS. |
Sorry if I was confusing. EB is not standard part of ISPF. Enrico had suggested it was a local command. But OP had already said it did not work there; the logical conclusion is that you had seen it as a local command somewhere else, but it is not installed on your current system. |
|
| Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10889
Location: italy
|
|
|
|
| Quote: |
| the logical conclusion |
ok the language barrier, but I see very little logic around here  |
|
| Back to top |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006
Posts: 2596
Location: Silicon Valley
|
|
|
|
| Quote: |
| the logical conclusion |
it took until November, but I had one logical conclusion so far this year. Sorry if it sounded like I was bragging. </humor> |
|
| Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 8796
Location: Welsh Wales
|
|
|
|
| Pedro wrote: |
| Quote: |
| the logical conclusion |
it took until November, but I had one logical conclusion so far this year. Sorry if it sounded like I was bragging. </humor> |
You are. I'm still waiting for mine to come along 
I have used numerous "in house" utilities that browses / views / edits a dataset from the cursor or line position, all of them different, all of them doing as expected.
[GRIN] - Maybe the OP should write his own[/GRIN] |
|
| Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 8796
Location: Welsh Wales
|
|
|
|
GOOD MOOD ON
Here's one I picked up quite a few years ago and have carried around with me since.
It works well enough on JCL and control statements. The only addition I have made to the code is to include the processing for GDS datasets which always caused an error. It will always return the zero generation.
The default operation is browse, but you can invoke with a parameter to VIEW or EDIT.
e.g. Name E to edit
Type the command name on the command line, put the cursor on the line containing the dataset and hit enter
| Code: |
/* REXX *** B/E/V DATASET LOCATED ON THE CURSOR LINE */
SCANVAL = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789().+-'
"ISPEXEC CONTROL ERRORS RETURN"
"ISREDIT MACRO (TYP)"
UPPER TYP
SELECT
WHEN TYP = 'B' THEN ACT = 'BROWSE'
WHEN TYP = 'V' THEN ACT = 'VIEW'
WHEN TYP = 'E' THEN ACT = 'EDIT'
OTHERWISE ACT = 'BROWSE'
END
"ISREDIT (CRSLINE,CRSCOL) = "CURSOR
IF CRSLINE = 0 | CRSCOL = 0 THEN DO
SAY "INVALID CURSOR POSITION"
EXIT
END
"ISREDIT (INDATA) = LINE " CRSLINE
INDAT2 = TRANSLATE(INDATA,' ',',=')
PX = WORDPOS('DSN',INDAT2)
IF WORDPOS('DSN',INDAT2) > 0 THEN DO
DSN = WORD(INDAT2,WORDPOS('DSN',INDAT2)+1)
END
ELSE IF POS('NAME',INDATA) > 0 THEN DO
INDAT2 = TRANSLATE(INDATA,' ',",=()'")
DSN = WORD(INDAT2,WORDPOS('NAME',INDAT2)+1)
END
ELSE DO
POSX = POS('.',INDATA)
IF POSX > 0
THEN NCOL = POSX
ELSE DO
SAY "NO VALID DATASET NAME FOUND ON SELECTED CURSOR LINE"
EXIT
END
STAIT = 0
ENDIT = 0
DO WHILE ENDIT = 0
IF VERIFY(SUBSTR(INDATA,NCOL,1),SCANVAL) = 0
THEN NCOL = NCOL + 1
ELSE ENDIT = NCOL - 1
END
NCOL = POSX - 1
DO WHILE STAIT = 0
IF VERIFY(SUBSTR(INDATA,NCOL,1),SCANVAL) = 0
THEN NCOL = NCOL - 1
ELSE STAIT = NCOL + 1
IF NCOL = 0
THEN STAIT = 1
END
DSN = SUBSTR(INDATA,STAIT,ENDIT-STAIT+1)
END
IF POS('-',DSN) > 0 | POS('+',DSN) > 0 | POS('(0',DSN) > 0
THEN DSN = GETDSN(DSN)
A = "'"STRIP(DSN)"'"
X = LISTDSI(A NORECALL)
IF X = 16 & SYSREASON = 5
THEN DSN = GETDSN(DSN)
IF X = 16 & SYSREASON = 9 THEN DO
SAY "DATASET IS MIGRATED "
SAY " - ENTER Y TO RECALL "
SAY " - OR PRESS ENTER TO QUIT"
PULL ANS
IF ANS <> 'Y'
THEN EXIT
END
IF SYSDSORG = "VS" THEN DO
SAY "DATASET IS VSAM - "ACT DSN "TERMINATED"
EXIT
END
IF SYSDSN("'"STRIP(DSN)"'") = "OK"
THEN "ISPEXEC" ACT "DATASET('"DSN"')"
ELSE SAY SYSDSN("'"STRIP(DSN)"'") ">>> "DSN
IF RC = 12 & ACT = "BROWSE" THEN DO
SAY "DATASET IS EMPTY - VIEW SUBSTITUTED"
"ISPEXEC VIEW DATASET('"DSN"')"
END
/* ----------------------------------------------------------------- */
EXIT
/* ----------------------------------------------------------------- */
GETDSN:
ARG DSN .
IF POS('(',DSN) > 0
THEN DSN = SUBSTR(DSN,1,POS('(',DSN)-1)
X=OUTTRAP(LST.)
" LISTC ENT('"DSN"')"
X=OUTTRAP(OFF)
DO A = LST.0 TO 1 BY -1
IF POS('NONVSAM',LST.A) > 0 THEN DO
DSN = SUBSTR(LST.A,POS('NONVSAM',LST.A)+13,44)
DSN = STRIP(DSN)
A = 0
END
END
RETURN(DSN) |
GOOD MOOD OFF |
|
| Back to top |
|
|
theone1987
New User
Joined: 14 Sep 2009
Posts: 60
Location: Milan
|
|
|
|
| expat wrote: |
GOOD MOOD ON
Here's one I picked up quite a few years ago and have carried around with me since.
|
Thank you....but i can't use rexx!!!i don't even know where i have to put that commands!!
i've been working from a few month, so i'm not so prepared!!!
thank you again! |
|
| Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 8796
Location: Welsh Wales
|
|
|
|
Two ways .........
Put the code into a library which is concatenated into either SYSEXEC or SYSPROC
or put the code into your own library and before you want to run the code
TSO EXEC 'My Own Library(Member name)' which contains the code below which will concatenate your REXX library for you within the ISPF session that it was executed from.
| Code: |
/* REXX *** ACTIVATE ALTLIB FOR TESTING PROGRAM */
"ALTLIB ACTIVATE APPL(EXEC) DA('My Own Library')" |
Then you can just type the member name of the code to browse / view / edit the dataset on the command line. |
|
| Back to top |
|
|
theone1987
New User
Joined: 14 Sep 2009
Posts: 60
Location: Milan
|
|
|
|
| expat wrote: |
Two ways .........
Put the code into a library which is concatenated into either SYSEXEC or SYSPROC
or put the code into your own library and before you want to run the code
TSO EXEC 'My Own Library(Member name)' which contains the code below which will concatenate your REXX library for you within the ISPF session that it was executed from.
| Code: |
/* REXX *** ACTIVATE ALTLIB FOR TESTING PROGRAM */
"ALTLIB ACTIVATE APPL(EXEC) DA('My Own Library')" |
Then you can just type the member name of the code to browse / view / edit the dataset on the command line. |
thank you a lot....it works!!! |
|
| Back to top |
|
|
|
|
