Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

ED Facility (command eb)

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF
View previous topic :: :: View next topic  
Author Message
theone1987

New User


Joined: 14 Sep 2009
Posts: 60
Location: Milan

PostPosted: Mon Nov 16, 2009 10:03 pm    Post subject: ED Facility (command eb)
Reply with quote

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
View user's profile Send private message

enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10203
Location: italy

PostPosted: Mon Nov 16, 2009 10:08 pm    Post subject: Reply to: ED Facility (command eb)
Reply with quote

looks like a local command/addon to me, ask one of Your peers

edited to change the wording icon_smile.gif
Back to top
View user's profile Send private message
Pedro

Senior Member


Joined: 01 Sep 2006
Posts: 2019
Location: Silicon Valley

PostPosted: Mon Nov 16, 2009 10:13 pm    Post subject: Reply to: ED Facility (command eb)
Reply with quote

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
View user's profile Send private message
theone1987

New User


Joined: 14 Sep 2009
Posts: 60
Location: Milan

PostPosted: Mon Nov 16, 2009 10:22 pm    Post subject: Re: Reply to: ED Facility (command eb)
Reply with quote

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
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 7913
Location: Bellevue, IA

PostPosted: Mon Nov 16, 2009 10:26 pm    Post subject:
Reply with quote

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
View user's profile Send private message
theone1987

New User


Joined: 14 Sep 2009
Posts: 60
Location: Milan

PostPosted: Mon Nov 16, 2009 10:33 pm    Post subject:
Reply with quote

[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
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Mon Nov 16, 2009 10:43 pm    Post subject:
Reply with quote

Hello,

Option 1. . .?
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10203
Location: italy

PostPosted: Mon Nov 16, 2009 10:43 pm    Post subject: Reply to: ED Facility (command eb)
Reply with quote

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
View user's profile Send private message
MBabu

Active User


Joined: 03 Aug 2008
Posts: 401
Location: Mumbai

PostPosted: Tue Nov 17, 2009 2:13 am    Post subject: Reply to: ED Facility (command eb)
Reply with quote

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
View user's profile Send private message
Pedro

Senior Member


Joined: 01 Sep 2006
Posts: 2019
Location: Silicon Valley

PostPosted: Tue Nov 17, 2009 2:39 am    Post subject: Reply to: ED Facility (command eb)
Reply with quote

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
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10203
Location: italy

PostPosted: Tue Nov 17, 2009 2:45 am    Post subject: Reply to: ED Facility (command eb)
Reply with quote

Quote:
the logical conclusion


ok the language barrier, but I see very little logic around here icon_biggrin.gif
Back to top
View user's profile Send private message
Pedro

Senior Member


Joined: 01 Sep 2006
Posts: 2019
Location: Silicon Valley

PostPosted: Tue Nov 17, 2009 5:31 am    Post subject: Reply to: ED Facility (command eb)
Reply with quote

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
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Tue Nov 17, 2009 12:54 pm    Post subject: Re: Reply to: ED Facility (command eb)
Reply with quote

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 icon_lol.gif

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
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Tue Nov 17, 2009 3:39 pm    Post subject:
Reply with quote

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
View user's profile Send private message
theone1987

New User


Joined: 14 Sep 2009
Posts: 60
Location: Milan

PostPosted: Tue Nov 17, 2009 4:01 pm    Post subject:
Reply with quote

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
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Tue Nov 17, 2009 4:09 pm    Post subject:
Reply with quote

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
View user's profile Send private message
theone1987

New User


Joined: 14 Sep 2009
Posts: 60
Location: Milan

PostPosted: Tue Nov 17, 2009 5:03 pm    Post subject:
Reply with quote

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
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts What is the command to check MODE of ... rohanthengal CLIST & REXX 6 Fri Nov 18, 2016 1:48 pm
No new posts COOLGEN - TSO TEST FACILITY indianrajput CA Products 4 Wed Nov 02, 2016 9:28 pm
No new posts SDSF Command Avtrix CLIST & REXX 4 Fri Sep 30, 2016 11:13 am
No new posts How to find a CICS resource used in C... Arunkumar Chandrasekaran CICS 8 Thu Sep 29, 2016 1:45 pm
No new posts COMPARE command sivatechdrive TSO/ISPF 7 Fri Sep 16, 2016 4:31 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us