Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

File Transfer to/from TSO with ancient Attachmate Extra! version 1

Status
Not open for further replies.

paradux

Programmer
Dec 12, 2013
5
US
All,

I am working with (please don't laugh) Attachmate Extra! for Windows 98/Windows NT, version 6.5. This is a project that is part of a system being phased out over the next couple of years, so I need to keep the maintenance effort minimal.

I am modifying an Attachmate macro that logs onto a mainframe session and uploads/downloads some files (to TSO) using IND$FILE (via SendFile and ReceiveFile). The current transfer process (to CMS) relies heavily on pre-defined file transfer schemes (mainly for LRECL).

I was able to find the FileTransferHostOS setting to indicate TSO (versus CMS) on this site. Thank you!!!

Two questions:
1) Is there a way to specify LRECL/etc. in SendFile without relying on there being a pre-defined file transfer scheme?
2) Is there any documentation available on this ancient version of the macro encoding language?

Thanks in advance for any help you all can provide.

--Liz
(paradux)
 
hi,

What a blast from the past! And I mean 15 years!

Check out Extra HELP
Extra_HELP said:
Applies To Objects

Session

Description

Returns or sets the host operating system used by file transfers executed through OLE Automation. Read-write.

Syntax

object.FileTransferHostOS

Element Description
object The Session object.
Comments

This property should be set prior to executing a file transfer. Valid values are as follows:
0 - CMS
1 - TSO
2 - CICS
Use this property in conjunction with the FileTransferScheme property.

Copyright 1996 - 1999, Attachmate Corporation. All rights reserved.

Example said:

FileTransferHostOS Property Example

Code:
Sub Main
	Dim Sys As Object, Sess As Object
	Set Sys = CreateObject("EXTRA.System")
' Assumes an open session
	Set Sess = Sys.ActiveSession
	Select Case Sess.FileTransferHostOS
		Case 0
		MsgBox "The current file transfer HostOS is CMS"
		Case 1
		MsgBox "The current file transfer HostOS is TSO"
		Case 2
		MsgBox "The current file transfer HostOS is CICS"
	End Select
End Sub
Copyright 1996 - 1999, Attachmate Corporation. All rights reserved.


Skip,
[sub]
[glasses]Just traded in my OLD subtlety...
for a NUance![tongue][/sub]
 
Skip,

Thanks for the response.

Re the FileTransferHostOS - found that previously, thank you.

Re the LRECL - I think I'm going to just create the specific Data Transfer Schemes for TSO as was done for CMS.

Re the Extra Help - that's where I'm having a problem. While editing a macro on this relic of a laptop, I was able to View the Functions and Objects dialog box, which gives me very limited information. Should I be able to find any more extensive help? The Excel VB editor is not an option on this laptop, as there is no MS Office installed. [sad]

Any suggestions/direction would be appreciated.

Thanks again,

--Liz

 
The Extra HELP file on my PC, Windows 7 Professional...
[tt]
"C:\Program Files (x86)\E!PC\epc_ole.hlp"
[/tt]


Skip,
[sub]
[glasses]Just traded in my OLD subtlety...
for a NUance![tongue][/sub]
 
Skip,

Sweet! Found it, thank you!!

Mine is "C:\Program Files\E!98\epc_ole.hlp" - but at least it works!

Thanks again for your help.

--Liz
 
:)

Thx! Post back anytime you need some help.

Skip,
[sub]
[glasses]Just traded in my OLD subtlety...
for a NUance![tongue][/sub]
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top