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

Question

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

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

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

Answer 1

也许您想考虑使用ISPF 工作站代理 (WSA)，正如几周前的精彩演示中所解释的那样。

这是它第2页的引述：

• ISPF 的“最好的秘密”之一是工作站代理 (WSA)
• 它是免费的，并带有 z/OS 操作系统
  • WSA 是 ISPF 的客户端/服务器组件
  • 无需大型机设置或安装
• 在 PC 上执行 ISPF 并保持与主机的连接
• WSA 提供了以下能力
  • 在 GUI 显示中显示 ISPF
  • 允许分布式编辑
    • 在 PC 上编辑大型机文件并从大型机编辑 PC 文件
  • 传输文件的能力
    • 在前台和批处理中

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

显然这里的问题是关于上传的，我还没有使用过，但可能是相似的。

第 1 步：建立从 MF 到 WS 的 WSA 连接（IP 地址为“waddr”）：

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