PGM=ICET00L

Rexx调用Skeleton JCL提交job的例子

这个例子一共包含3个部分

Rexx主程序：IBMUSER.REXX.EXEC(MYSKELE)
带参数的sekleton JCL：IBMUSER.REXX.SKELL(JCLSKEL)
最终生成的Dynamic JCL：IBMUSER.DYNAM.JCL(SUBJCL) 

 File  Edit  Edit_Settings  Menu  Utilities  Compilers  Test  Help            

VIEW       IBMUSER.REXX.SKELL(JCLSKEL) - 01.06             Columns 00001 00072 
Command ===>                                                  Scroll ===> CSR  
****** ***************************** Top of Data ******************************
000001 //&JOBNAME JOB '000000000000000000CMP',                                 
000002 // CLASS=3,NOTIFY ...
more ...

ISPF Dialog 开发知识点

需要用ISPF来开发带界面的自动化工具，从0开始。记下些很有用的知识点：

  • 执行命令Panelid可以得到当前ISPF panel的名字
  • 执行7.2这个命令输入panel名字，可以用来刷新你新写的panel，使改 动动态生效，这样就不需要重启TN3270 terminal达到测试panel改动的目的
  • ISPF中用option 7.3可以查看Z开头ISPF系统预留的变量
  • 执行命令3.9查看ISPF所有可用的command
  • 知道任意一个panel的名字，如何得到其定义的路径？这里是很好的方法
  • To assign a null value or blank value to a dialog variable, use the system variable &Z.
    )SET D = &Z ...
more ...