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
 

 

FILEXFER - code abending

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF
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    Post subject: FILEXFER - code abending
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

Senior Member


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

PostPosted: Sat Jan 03, 2009 10:05 pm    Post subject: Reply to: FILEXFER - REXX code abending
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    Post subject:
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

Moderator Team Head


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

PostPosted: Sat Jan 03, 2009 11:08 pm    Post subject: Reply to: FILEXFER - REXX code abending
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

Senior Member


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

PostPosted: Sun Jan 04, 2009 9:54 pm    Post subject: Reply to: FILEXFER - code abending
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    Post subject: FILEXFER - code abending
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

Moderator Team Head


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

PostPosted: Sat Jan 31, 2009 7:07 pm    Post subject: Reply to: FILEXFER - code abending
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    Post subject: FILEXFER - code abending
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

Site Director


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

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

Hello,

Try here:
http://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    Post subject: FILEXFER - code abending
Reply with quote

thanks alot dick

its useful
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 Feb 02, 2009 12:51 pm    Post subject: Reply to: FILEXFER - code abending
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    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 How to Capture the Max return code of... anilkumar922 All Other Mainframe Topics 0 Thu Jan 12, 2017 12:02 pm
This topic is locked: you cannot edit posts or make replies. Calling REXX code from ISPF panel sanchita dey TSO/ISPF 4 Mon Jan 02, 2017 5:13 pm
No new posts PL/I code tuning/Performance improvement Virendra Shambharkar PL/I & Assembler 4 Mon Dec 05, 2016 11:57 am
No new posts What is the code in CLIST to enable t... jackzhang75 CLIST & REXX 1 Fri Dec 02, 2016 3:02 am
No new posts IDEAL - Code Retrieval yugendran CA Products 0 Fri Nov 25, 2016 3:27 pm


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