示例 :QINSTAPP 程序

在线编辑

此示例程序可以保存到磁带或光学介质，然后使用 Load and Run Media Program (LODRUN) 命令在系统上装入。

LODRUN 命令将系统的控制权传递给程序，然后程序将执行写入程序的任务。

此示例程序可设计为完成许多不同的任务。 例如，该程序可以：

  • 恢复并运行其他程序或应用程序
  • 恢复库
  • 删除另一个程序或应用程序
  • 创建特定环境
  • 更正现有应用程序中的问题
注: 通过使用代码示例，您同意 代码许可证和免责声明信息的条款。
图 1。 使用 LODRUN 命令的应用程序示例

PGM         PARM(&DEV)  /* "Device" is only Parm allowed           */
DCL         VAR(&DEV)   TYPE(*CHAR) LEN(10)
DCL         VAR(&MODEL) TYPE(*CHAR) LEN(4)
 
/* Can check for appropriate model number, release level, and so on */
RTVSYSVAL   SYSVAL(QMODEL) RTNVAR(&MODEL)
IF          (&MODEL *EQ 'xxxxx') THEN...
 
/* Install a library for new application (programs, data):         */
RSTLIB      SAVLIB(NEWAPP) DEV(&DEV) ENDOPT(*LEAVE) +
              MBROPT(*ALL)
/* Install a command to start new application:                     */
            RSTOBJ OBJ(NEWAPP) SAVLIB(QGPL) DEV(&DEV) +
              MBROPT(*ALL)
 
END:        ENDPGM