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
 

 

Executing ISPF application - Lets dive

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

Global Moderator


Joined: 28 Aug 2007
Posts: 1445
Location: Azeroth

PostPosted: Tue Dec 02, 2008 4:05 pm    Post subject: Executing ISPF application - Lets dive
Reply with quote

Hi,

I came across an ISPF application in,
http://planetmvs.com/freeware/diver.html

I uploaded the ISPF application to a PDS member.
But I am unable to execute this program.
Could you please let me know how to execute this.

I tried through REXX exec statement but it did not work.

The purpose is to know how to execute ISPF applications and not to see a stick figure dive icon_biggrin.gif

Thanks in advance.
Back to top
View user's profile Send private message

enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10202
Location: italy

PostPosted: Tue Dec 02, 2008 5:05 pm    Post subject: Reply to: Executing ISPF application - Lets dive
Reply with quote

Quote:
I tried through REXX exec statement but it did not work.


how bad... I sincerely hope You can fix it icon_cool.gif
Back to top
View user's profile Send private message
vasanthz

Global Moderator


Joined: 28 Aug 2007
Posts: 1445
Location: Azeroth

PostPosted: Tue Dec 02, 2008 5:12 pm    Post subject:
Reply with quote

The problem seems to be in the transfer I guess, I am unable to view the REXX code.
All I see is something like,

Code:
bàÉÕÔÙðñ B  P  ÕÖÄÅÕÔÅ  ÉÂÔäâÅÙ  ÉÂÔÔÁÉÓ  ÉÂÔäâÅÙ$  ñùù÷ðõòðñ÷õ÷óù/  &  yàÉÕÔÙðò   (  ÉÅÂÃÖ×è,   ËD <   €    B     P 0    "` I          ÉÂÔäâÅÙ ×ÁÃÒÁÇÅ ÄÉåÅÙ åñðGàÉÕÔÙðò   (  ÉÕÔÃÖ×è,   ËD <  @  B    ô 0    0 I  H*àÉÕÔÙðó,   ËD <  @  B   P I   :À Êm "` P    000   ø
` »`  P  a Œ   €    tÀ  ÿ€   ÿ   À —€HXóp  ù  ù                                                                                                                                                                                                                               @                       ÿ€          ÁÄÉåÅðô@ þ[[ÙÅÁÄÔÅ 

  2 — —Q   ÄÁÓÃÖÃÒ@@@[ÙÅçç@@@ 
  V — —Q u u  ÄÁÓÃÖÃÒ@@@ÁÄÉåÅðñ@ 

  @ — —Q    ÄÁÓÃÖÃÒ@@@ÁÄÉåÅðò@  
  @ — —Q    ÄÁÓÃÖÃÒ@@@ÁÄÉåÅðó@  
  @ — —Q    ÄÁÓÃÖÃÒ@@@ÁÄÉåÅðô@  
  @ — ÿ —Q    ÄÁÓÃÖÃÒ@@@            ÁÄÉåÅñð@ þÁÄÉåÅðõ@  
  @ — —Q    ÄÁÓÃÖÃÒ@@@ÁÄÉåÅðö@  
  @ — —Q    ÄÁÓÃÖÃÒ@@@ÁÄÉåÅð÷@  
  @ — —Q    ÄÁÓÃÖÃÒ@@@ÁÄÉåÅðø@  
  @ — —Q    ÄÁÓÃÖÃÒ@@@ÁÄÉåÅðù@  
  @ — —Q    ÄÁÓÃÖÃÒ@ÿ @@ÁÄÉåÅñð@  
  @ — —Q    ÄÁÓÃÖÃÒ@@@            ÁÄÉåÅñö@ þÁÄÉåÅññ@  !
  @ — —Q    ÄÁÓÃÖÃÒ@@@ÁÄÉåÅñò@ 
  @ — —Q    ÄÁÓÃÖÃÒ@@@ÁÄÉåÅñó@ 
  @ — —Q    ÄÁÓÃÖÃÒ@@@ÁÄÉåÅñô@ 
  @ — —Q    ÄÁÓÃÖÃÒ@@@ÁÄÉåÅñõ@ 
  @ ÿ — —Q    ÄÁÓÃÖÃÒ@@@ÁÄÉåÅñö@    
  @ — —Q    ÄÁÓÃÖÃÒ@@@            ÁÄÉåÅòò@ þÁÄÉåÅñ÷@  
  @ — —Q    ÄÁÓÃÖÃÒ@@@ÁÄÉåÅñø@ 

  @ — —Q    ÄÁÓÃÖÃÒ@@@ÁÄÉåÅñù@ 
  @ — —Q    ÄÁÓÃÖÃÒ@@@ÁÄÉåÅòð@ 
  @ — —Q    ÄÁÓÃÿ ÖÃÒ@@@ÁÄÉåÅòñ@ 
  @ — —Q    ÄÁÓÃÖÃÒ@@@ÁÄÉåÅòò@ 
  @ — —Q    ÄÁÓÃÖÃÒ@@@            ÁÄÉåÅòø@ þÁÄÉåÅòó@ 
  @ — —Q    ÄÁÓÃÖÃÒ@@@ÁÄÉåÅòô@ 
  @ — —Q    ÄÁÓÃÖÃÒ@@@ÁÄÉåÅòõ@ 
  @ — —Q    ÄÁÓÃÖÃÒ@@@ÁÄÉåÅòö@ 
ÿ   @ — —Q    ÄÁÓÃÖÃÒ@@@ÁÄÉåÅò÷@ 
  @ — —Q    ÄÁÓÃÖÃÒ@@@ÁÄÉåÅòø@ !
  U — —Q    ÄÁÓÃÖÃÒ@@@            ÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿ
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10202
Location: italy

PostPosted: Tue Dec 02, 2008 5:17 pm    Post subject: Reply to: Executing ISPF application - Lets dive
Reply with quote

did You follow the instructions in the readme.txt contained in the .zip file ??
Back to top
View user's profile Send private message
vasanthz

Global Moderator


Joined: 28 Aug 2007
Posts: 1445
Location: Azeroth

PostPosted: Tue Dec 02, 2008 5:30 pm    Post subject:
Reply with quote

I did not transfer the file in binary format. icon_mad.gif I did it in Text, now
Im able to see REXX icon_eek.gif code now...


I will try to dive now...
Back to top
View user's profile Send private message
vasanthz

Global Moderator


Joined: 28 Aug 2007
Posts: 1445
Location: Azeroth

PostPosted: Tue Dec 02, 2008 5:31 pm    Post subject:
Reply with quote

Many Thanks for diving into this issue Enrico. icon_biggrin.gif
Back to top
View user's profile Send private message
vasanthz

Global Moderator


Joined: 28 Aug 2007
Posts: 1445
Location: Azeroth

PostPosted: Tue Dec 02, 2008 5:39 pm    Post subject:
Reply with quote

The binary transferred file has this.


Code:
Â\INMR01.â....&......NODENME......IBMUSER......IBMMAIL......IBMUSER......1997052
0175739...........`\INMR02..........IEBCOPY........ôà........Ø.......â.......&..
.......-.ñ....°................IBMUSER..PACKAGE..DIVER..V10å\INMR02..........INM
COPY........ôà...... ..â......"4...........ñ....ç..\INMR03........ôà...... ..â..
...&.ñ.......{.­_....-.&°..........."8.-..]-...&...../.ð...Ø......È{...Ø........
±.{..pØçì3.ø...9...9............................................................
................................................................................
................................................................................
...... ........................Ø............ADIVE04 .Ú$$README.........p...p...é
......DALCOCK   $REXX   .......î.p...p...é.Í.Í..DALCOCK   ADIVE01 ....... .p...p
...é......DALCOCK   ADIVE02 ....... .p...p...é......DALCOCK   ADIVE03 ....... .p
...p...é......DALCOCK   ADIVE04 ....... .p.....p...é......DALCOCK   ............
..ADIVE10 .ÚADIVE05 ....... .p...p...é......DALCOCK   ADIVE06 ....... .p...p...é
......DALCOCK   ADIVE07 ....... .p...p...é......DALCOCK   ADIVE08 ....... .p...p
...é......DALCOCK   ADIVE09 ....... .p...p...é......DALCOCK ..  ADIVE10 .......
.p...p...é......DALCOCK   ..............ADIVE16 .ÚADIVE11 ....... .p...p...é....
..DALCOCK   ADIVE12 ....... .p...p...é......DALCOCK   ADIVE13 ....... .p...p...é
......DALCOCK   ADIVE14 ....... .p...p...é......DALCOCK   ADIVE15 ....... ...p..
.p...é......DALCOCK   ADIVE16 ....... .p...p...é......DALCOCK   ..............AD
IVE22 .ÚADIVE17 ....... .p...p...é......DALCOCK   ADIVE18 ....... .p...p...é....
..DALCOCK   ADIVE19 ....... .p...p...é......DALCOCK   ADIVE20 ....... .p...p...é
......DALC..OCK   ADIVE21 ....... .p...p...é......DALCOCK   ADIVE22 ....... .p..
.p...é......DALCOCK   ..............ADIVE28 .ÚADIVE23 ....... .p...p...é......DA
LCOCK   ADIVE24 ....... .p...p...é......DALCOCK   ADIVE25 ....... .p...p...é....
..DALCOCK   ADIVE26 ......... .p...p...é......DALCOCK   ADIVE27 ....... .p...p..
.é......DALCOCK   ADIVE28 .......í.p...p...é......DALCOCK   ....................
................................................................................
........................................q ......................................
................................................................................
.................................Ø.....9.....0)attr default(¬¢$)               
                                              )body window(45,14)               



I used standard FTP transfer. Could you please let me know if this is the actual transferred file or the format is incorrect.
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10202
Location: italy

PostPosted: Tue Dec 02, 2008 5:50 pm    Post subject: Reply to: Executing ISPF application - Lets dive
Reply with quote

the format is the right one, but You have one further step, before using the appl
run the receive indataset as in the docs
Back to top
View user's profile Send private message
vasanthz

Global Moderator


Joined: 28 Aug 2007
Posts: 1445
Location: Azeroth

PostPosted: Tue Dec 02, 2008 6:02 pm    Post subject:
Reply with quote

Hope I am not bothering u too much Enrico,


I tried with LRECL = 80 and BLKSIZE = 80.

The content does not seem to be aligned still.




Any clues please??? icon_question.gif
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10202
Location: italy

PostPosted: Tue Dec 02, 2008 6:07 pm    Post subject: Reply to: Executing ISPF application - Lets dive
Reply with quote

the thing You uploaded is an IDTF format file ( XMIT/RECEIVE format )
it is a sequential file that acts as a container for other datasets
( standard PS,PDS,PDSE, with all the allowable record formats )
and must be processed,by the RECEIVE command under TSO
Back to top
View user's profile Send private message
superk

Moderator Team Head


Joined: 26 Apr 2004
Posts: 4648
Location: Raleigh, NC, USA

PostPosted: Tue Dec 02, 2008 6:46 pm    Post subject: Reply to: Executing ISPF application - Lets dive
Reply with quote

I tried this out.

I started by unzipping the linked file to a directory on my desktop. I got two files: DIVER.XMI and README.TXT.

Following the instructions given in the README.TXT file, I then setup an FTP to the host:

>ftp hostname
>logon
>password
>binary
>quote "site recfm=fb lrecl=80"
>put DIVER.XMI
>quit

which created the dataset 'USERID.DIVER.XMI' with a RECFM of FB and a LRECL of 80.

Then, per the instructions, I issued the TSO command:

TSO RECEIVE INDATASET(DIVER.XMI)

and when prompted I just pressed <Enter>. An output PDS was created by the name 'USERID.PACKAGE.DIVER.V10'. Then, per the instructions in the member $$README, I updated the member $REXX to change the value of the "dsn" variable to this library, i.e. 'USERID.PACKAGE.DIVER.V10'. Then, I just executed the exec:

TSO EX 'USERID.PACKAGE.DIVER.V10($REXX)' and everything from there worked just fine.
Back to top
View user's profile Send private message
vasanthz

Global Moderator


Joined: 28 Aug 2007
Posts: 1445
Location: Azeroth

PostPosted: Tue Dec 02, 2008 6:49 pm    Post subject:
Reply with quote

Actually we have a transfer macro kind of Visual basic module that does the FTP.
the only option available is the SCHEME which says whether its binary file or a text file. So I believe I will not be able to get the REXX code from the XMI file. icon_confused.gif
[/img]
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10202
Location: italy

PostPosted: Tue Dec 02, 2008 7:02 pm    Post subject: Reply to: Executing ISPF application - Lets dive
Reply with quote

You are trying to drown Yourself in half inch of water
run the transfer in any way You want,
from the previous posts looked like You had already done it properly
and the XMI file was on the host

again transfer in binary and run the receive command as Kevin showed You
Back to top
View user's profile Send private message
vasanthz

Global Moderator


Joined: 28 Aug 2007
Posts: 1445
Location: Azeroth

PostPosted: Tue Dec 02, 2008 7:07 pm    Post subject:
Reply with quote

Code:
You are trying to drown Yourself in half inch of water


I liked this quote rofl..!! icon_biggrin.gif

I will try now.
Back to top
View user's profile Send private message
vasanthz

Global Moderator


Joined: 28 Aug 2007
Posts: 1445
Location: Azeroth

PostPosted: Tue Dec 02, 2008 7:18 pm    Post subject:
Reply with quote

Many thanks to Enrico and Superk.....
This is superb icon_biggrin.gif icon_biggrin.gif icon_biggrin.gif icon_biggrin.gif

Code:
 ISR#PRIM ------------ MVSC ISPF/PDF PRIMARY OPTION MENU -----------------------
 O                                                                             
                                                             02.Dec.08 - 08.337
                                                             XK89      - 13:46 
                                                    ings        0 Parms         
                                                                C Command  C.---
              ___                                               M Module   M.---
             /___\_______                           ground      P Panel    P.---
     _______/____|_                                             X EXIT         
                  |             , AWESOME!!!!!!!!!!!            T Tutorial     
                  |          o/                                 U User Extension
                  |~~~~~~~~~/|~~~~~~~~~~~~~~                                   
                            / \                     ity                         
                                                                               
      F1=HELP        F2=SPLIT       F3=END                                     
      F4=RETURN      F5=RFIND       F6=RCHANGE                                 
 E                                                                             
                                                                               
    USERID   - XK89(PDF$TSU)       T E S C O                 TERMINAL - 3278   
    TIME     - 13:46           08.337 - 02.Dec.08            PF KEYS  - 24 
Back to top
View user's profile Send private message
superk

Moderator Team Head


Joined: 26 Apr 2004
Posts: 4648
Location: Raleigh, NC, USA

PostPosted: Tue Dec 02, 2008 7:22 pm    Post subject: Reply to: Executing ISPF application - Lets dive
Reply with quote

Way, way back when, we used to have a similar application that was, shall we say, a little more "x-rated". It was fun to see someone add it to their TSO logon process, and then have it run while someone in management was looking on.

I wonder if it's out on the CBT tape somewhere?
Back to top
View user's profile Send private message
vasanthz

Global Moderator


Joined: 28 Aug 2007
Posts: 1445
Location: Azeroth

PostPosted: Tue Dec 02, 2008 7:28 pm    Post subject:
Reply with quote

U have the program now..??? (raises and lowers the eyebrows with a devilish smile)

I wish there was a smiley with champaign saying cheers.
So I can send it for u guys.. icon_wink.gif

Thanks..
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10202
Location: italy

PostPosted: Tue Dec 02, 2008 7:30 pm    Post subject: Reply to: Executing ISPF application - Lets dive
Reply with quote

I might have a xmas tree with the lights blinking..
I' ll look in SYS1.BASKETLIB to see if it is there
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 ISPF program to set SCRNAME prino TSO/ISPF 5 Fri Sep 30, 2016 2:18 pm
No new posts Easytrieve - Report writing - Only 1 ... Abhi Nature CA Products 2 Wed Sep 14, 2016 11:40 am
No new posts I am unable to use SWAPBAR ON command... mrsidhu12 TSO/ISPF 3 Thu Sep 01, 2016 1:10 pm
No new posts ISPF Tables Creation newsysprg TSO/ISPF 6 Wed Jul 13, 2016 2:21 pm
No new posts More ISPF RFE's to vote for prino TSO/ISPF 1 Tue Apr 19, 2016 12:06 am


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