View previous topic :: View next topic
|
Author |
Message |
vasanthz
Global Moderator
Joined: 28 Aug 2007 Posts: 1744 Location: Tirupur, India
|
|
|
|
Hi,
I came across an ISPF application in,
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
Thanks in advance. |
|
Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10888 Location: italy
|
|
|
|
Quote: |
I tried through REXX exec statement but it did not work. |
how bad... I sincerely hope You can fix it |
|
Back to top |
|
|
vasanthz
Global Moderator
Joined: 28 Aug 2007 Posts: 1744 Location: Tirupur, India
|
|
|
|
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 |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10888 Location: italy
|
|
|
|
did You follow the instructions in the readme.txt contained in the .zip file ?? |
|
Back to top |
|
|
vasanthz
Global Moderator
Joined: 28 Aug 2007 Posts: 1744 Location: Tirupur, India
|
|
|
|
I did not transfer the file in binary format. I did it in Text, now
Im able to see REXX code now...
I will try to dive now... |
|
Back to top |
|
|
vasanthz
Global Moderator
Joined: 28 Aug 2007 Posts: 1744 Location: Tirupur, India
|
|
|
|
Many Thanks for diving into this issue Enrico. |
|
Back to top |
|
|
vasanthz
Global Moderator
Joined: 28 Aug 2007 Posts: 1744 Location: Tirupur, India
|
|
|
|
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 |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10888 Location: italy
|
|
|
|
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 |
|
|
vasanthz
Global Moderator
Joined: 28 Aug 2007 Posts: 1744 Location: Tirupur, India
|
|
|
|
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??? |
|
Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10888 Location: italy
|
|
|
|
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 |
|
|
superk
Global Moderator
Joined: 26 Apr 2004 Posts: 4652 Location: Raleigh, NC, USA
|
|
|
|
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 |
|
|
vasanthz
Global Moderator
Joined: 28 Aug 2007 Posts: 1744 Location: Tirupur, India
|
|
|
|
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.
[/img] |
|
Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10888 Location: italy
|
|
|
|
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 |
|
|
vasanthz
Global Moderator
Joined: 28 Aug 2007 Posts: 1744 Location: Tirupur, India
|
|
|
|
Code: |
You are trying to drown Yourself in half inch of water |
I liked this quote rofl..!!
I will try now. |
|
Back to top |
|
|
vasanthz
Global Moderator
Joined: 28 Aug 2007 Posts: 1744 Location: Tirupur, India
|
|
|
|
Many thanks to Enrico and Superk.....
This is superb
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 |
|
|
superk
Global Moderator
Joined: 26 Apr 2004 Posts: 4652 Location: Raleigh, NC, USA
|
|
|
|
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 |
|
|
vasanthz
Global Moderator
Joined: 28 Aug 2007 Posts: 1744 Location: Tirupur, India
|
|
|
|
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..
Thanks.. |
|
Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10888 Location: italy
|
|
|
|
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 |
|
|
|