Question

我的桌面上有一个COBOL文件， .cbl 作为其文件类型。

我想通过使用一些REXX代码将此 .cbl 文件传输到大型机上的顺序文件（文件格式= PS）。

有人可以建议我怎么做吗？任何示例代码都将非常感激。

Answer 1

也许你想考虑使用 ISPF工作站代理（WSA），就像几周前的great presentation中所解释的那样。

以下是第2页的引用：

ISPF的“保守秘密”之一是工作站代理（WSA）

它是免费的，附带z / OS操作系统

WSA是ISPF的客户端/服务器组件

无需大型机设置或安装



在PC上执行ISPF并保持与大型机的连接

WSA提供的能力

在GUI显示中显示ISPF

允许分布式编辑

在PC上编辑大型机文件并从大型机编辑PC文件



传输文件的能力

前景和批处理

以下是一些REXX代码摘录，用于将大型机（DSN = MfFile ）中的某些文件下载到您的工作站（存储在 wds 中）。

显然这里的问题是关于上传，我尚未使用过，但可能类似。

步骤1：建立从MF到WS的WSA连接（在IP地址＆＃39; waddr＆＃39;）：

 "ispexec wscon IP(waddr) CODEPAGE("wscp") CHARSET("wsch") NOGUIDSP"

第2步：将文件从MF（file = MfFile）传输到WS（file = wds）

 if substr(reverse(wpath),1,1)='\' then wds=wpath||wfile 
 else wds=wpath||"\"||wfile               
 "ispexec filexfer host(MfFile) ws(wds) to(WS) TEXT"

步骤3：在WS上打开文件（WS上的文件扩展名确定哪个默认应用程序...）

 select
   when wOpenYN='Y' then xcmd=wds
   when wOpenYN='N' then xcmd=' '
   otherwise xcmd=' '
   end
 if xcmd<>' ' then "ispexec select wscmd("xcmd")"

第4步：关闭WSA连接

 "ispexec wsdiscon"

如何使用REXX将带有.cbl文件类型的cobol文件从桌面传输到大型机？

1 个答案: