z/OS中使用REXX编写的应用程序示例

本示例展示了在z/OS中使用REXX编写的应用程序，实现了读取和写入数据集以及条件判断等功能。通过简单易懂的语法，方便地实现数据处理流程的自动化。

/* 读取数据集 */
ADDRESS TSO "ALLOC DA('MY.DATASET.QUALIFIER') FI(MYFILE) SHR REUSE" 
myfile="MYFILE"
/* 判断数据集是否已存在 */
IF RC > 0 THEN DO     
  SAY "Allocation failed"
  EXIT RC
END 
/* 写入数据集 */
ADDRESS MVS "EXECIO 1 DISKW "||MYFILE||" (STEM MYDATA. FINIS" 
IF RC > 0 THEN DO         
  SAY "Write failed"
  FREE FI(MYFILE)
  EXIT RC
END
FREE FI(MYFILE)
/* 条件判断 */
IF RC <> 0 THEN DO
  SAY "Program failed!"
  EXIT
END 
SAY "Program completed successfully!"
/* 以上是完整的REXX程序 */

免责申明：文章和图片全部来源于公开网络，如有侵权，请通知删除 server@dude6.com