Executing ISPF application - Lets dive

vasanthz · Posted: Tue Dec 02, 2008 4:05 pm

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.

enrico-sorichetti · Posted: Tue Dec 02, 2008 5:05 pm

vasanthz · Posted: Tue Dec 02, 2008 5:12 pm

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

enrico-sorichetti · Posted: Tue Dec 02, 2008 5:17 pm

did You follow the instructions in the readme.txt contained in the .zip file ??

vasanthz · Posted: Tue Dec 02, 2008 5:30 pm

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

vasanthz · Posted: Tue Dec 02, 2008 5:31 pm

Many Thanks for diving into this issue Enrico.

vasanthz · Posted: Tue Dec 02, 2008 5:39 pm

The binary transferred file has this.

enrico-sorichetti · Posted: Tue Dec 02, 2008 5:50 pm

the format is the right one, but You have one further step, before using the appl
run the receive indataset as in the docs

vasanthz · Posted: Tue Dec 02, 2008 6:02 pm

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???

enrico-sorichetti · Posted: Tue Dec 02, 2008 6:07 pm

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

superk · Posted: Tue Dec 02, 2008 6:46 pm

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.

vasanthz · Posted: Tue Dec 02, 2008 6:49 pm

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]

enrico-sorichetti · Posted: Tue Dec 02, 2008 7:02 pm

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

vasanthz · Posted: Tue Dec 02, 2008 7:07 pm

vasanthz · Posted: Tue Dec 02, 2008 7:18 pm

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

superk · Posted: Tue Dec 02, 2008 7:22 pm

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?

vasanthz · Posted: Tue Dec 02, 2008 7:28 pm

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

enrico-sorichetti · Posted: Tue Dec 02, 2008 7:30 pm

I might have a xmas tree with the lights blinking..
I' ll look in SYS1.BASKETLIB to see if it is there