IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

FILEXFER - code abending


IBM Mainframe Forums -> TSO/ISPF
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
seshagiri.N
Warnings : 1

New User


Joined: 05 Aug 2008
Posts: 16
Location: India

PostPosted: Sat Jan 03, 2009 7:52 pm
Reply with quote

My requirement is to download a file from HOST. I tried using the "FILEXFER" Service. But when I execute the code, it is abending. Please have a look at code and abend message, and suggest me the way. Please tell me is there any other way to achieve my requirement.

CODE:

Code:

/*REXX*/                                                               
VAR1 = 'NBDKYGS.ER0T.TEST.FILE'                                         
VAR2 = 'D:\download\text1.txt'                                         
ADDRESS ISPEXEC "VPUT (VAR1,VAR2)"                                     
/*ADDRESS ISPEXEC "FILEXFER HOST(VAR1) WS(VAR2) TO(WS) TEXT"*/         
CALL ISPLINK 'FILEXFER' VAR1 VAR2 'WS' TEXT                             
SAY 'RETURN CODE:' RC


ERROR:

Code:
 Command ===>                                                                 
                                                                               
 ******************************************************************************
 * ISPS101                                                                    *
 *                                                                            *
 * Service name missing                                                       *
 * No dialog service request name found.                                      *
 *                                                                            *
 *                                                                            *
 *                                                                            *
 *                                                                            *
 *                                                                            *
 *                                                                            *
 *                                                                            *
 *                                                                            *
 *                                                                            *
 * Enter HELP command for further information regarding this error.           *
 * Press ENTER key to terminate the dialog.                                   *
 *                                                                            *
 *                                                                            *
 *                                                                            *
 *                                                                            *
 ******************************************************************************
Back to top
View user's profile Send private message
Pedro

Global Moderator


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

PostPosted: Sat Jan 03, 2009 10:05 pm
Reply with quote

When you read the ISPF Services manual, it mentions 'command invocation' and 'Call invocation'. From rexx, you should use the 'command invocation'.

The call invocation is a call from an assembler program. The parameter list used by a rexx call is different than a z/OS call. It might work if you use a TSO call:
Code:
Address TSO "CALL '*(ISPLINK)' 'your parms'"

Though the recommendation is still through ISPEXEC.
Back to top
View user's profile Send private message
seshagiri.N
Warnings : 1

New User


Joined: 05 Aug 2008
Posts: 16
Location: India

PostPosted: Sat Jan 03, 2009 10:08 pm
Reply with quote

I tried even with
Code:
ADDRESS ISPEXEC "FILEXFER HOST(VAR1) WS(VAR2) TO(WS) TEXT"


but the result is same
Back to top
View user's profile Send private message
superk

Global Moderator


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

PostPosted: Sat Jan 03, 2009 11:08 pm
Reply with quote

Part of your problem is that you've left out some steps. Before you can call the FILEXFER service, you need to make a connection to the workstation agent. The flow goes something like this:

Code:

/* REXX */
ADDRESS ISPEXEC
IP = "IP ADDRESS OF YOUR WORKSTATION i.e. XX.XX.XX.XX"
HOSTFILE = "'NBDKYGS.ER0T.TEST.FILE'"
WSFILE = "D:\download\text1.txt"
"VPUT (IP HOSTFILE WSFILE)"
"WSCON IP(IP) NOGUIDSP PANEL(ONERROR)"
"FILEXFER HOST(HOSTFILE) WS(WSFILE) TO(WS) TEXT"
SAY "FILEXFER:"RC
"WSDISCON"
EXIT 0
Back to top
View user's profile Send private message
Pedro

Global Moderator


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

PostPosted: Sun Jan 04, 2009 9:54 pm
Reply with quote

Quote:
but the result is same


Many errors will cause the 'dialog error box' to be displayed. But the text will be different. I doubt that the error messages were the same. When you get a dialog error, pay special attention to the text displayed within it. The first line is a message number that you can look up.
Back to top
View user's profile Send private message
nkothako

Active User


Joined: 26 Nov 2008
Posts: 125
Location: chennai

PostPosted: Sat Jan 31, 2009 12:57 pm
Reply with quote

Tried the above the following screen displayed

can someone tell me what are all the options i need to select and the

what i need to specify in ip address (whether host or ws ip)
what is appac address where we will get it


Code:
                  Initiate Workstation Connection                     
Command ===>                                                         
                                                         More:     + 
/  Save values in system profile?  (/=Yes)                           
                                                                     
Workstation Connection                    GUI Network Protocol       
2  1. With GUI display                    2  1. TCP/IP               
   2. Without GUI display                    2. APPC                 
                                             3. Use ISPDTPRF file     
                                                                     
GUI Title                                                             
                                                                     
TCP/IP Address                                                       
11.123.17.137                                                         
APPC Address                                                         
142.172.120.1                                                         
                                                                     
                                                                     
Host Codepage  . . .          Host Character Set . . .               
                   .------------------------------------------------.
GUI Window Frame   | Invalid codepage and character set values were |
1  1. Standard (ST | specified.                                     |
------------------ '------------------------------------------------'
Back to top
View user's profile Send private message
superk

Global Moderator


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

PostPosted: Sat Jan 31, 2009 7:07 pm
Reply with quote

The TCP/IP address is the address of the workstation where the Workstation Agent (the WSA.EXE program) is running.
Back to top
View user's profile Send private message
nkothako

Active User


Joined: 26 Nov 2008
Posts: 125
Location: chennai

PostPosted: Mon Feb 02, 2009 11:28 am
Reply with quote

What is APPC address, how and where i will get it
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


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

PostPosted: Mon Feb 02, 2009 11:31 am
Reply with quote

Hello,

Try here:
publib.boulder.ibm.com/infocenter/zos/v1r9/index.jsp?topic=/com.ibm.zos.r9.f54u200/guiinit.htm
and scroll down for info about appc address. . .
Back to top
View user's profile Send private message
nkothako

Active User


Joined: 26 Nov 2008
Posts: 125
Location: chennai

PostPosted: Mon Feb 02, 2009 12:10 pm
Reply with quote

thanks alot dick

its useful
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


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

PostPosted: Mon Feb 02, 2009 12:51 pm
Reply with quote

You're welcome - good luck icon_smile.gif

Someone should be here if thee are questions. . .

d
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> TSO/ISPF

 


Similar Topics
Topic Forum Replies
No new posts run rexx code with jcl CLIST & REXX 15
No new posts Compile rexx code with jcl CLIST & REXX 6
No new posts REXX code to expand copybook in a cob... CLIST & REXX 2
No new posts VSAM return code 23 - for a Random read COBOL Programming 4
No new posts Monitoring production job progress. N... JCL & VSAM 4
Search our Forums:

Back to Top