Running your programs under CMS in VM

The following program runs your callable interface application using the REXX CALL interface.

You might have to modify this program to suit your installation.

Figure 67. REXX program to run your program in CMS
/**************************************************************** */
/* Access SQL/DS and initialize database                          */
/**************************************************************** */
"EXEC PRODUCT SQLDS"                                              */
"EXEC SQLINIT DBNAME(SQLDBA)"                                     */
                                                                  */
/**************************************************************** */
/* Access GDDM product disk                                       */
/**************************************************************** */
"EXEC PRODUCT GDDM"                                               */
                                                                  */
/**************************************************************** */
/* Issue Filedefs for QMF product                                 */
/**************************************************************** */
 /* DEBUG = DDNAME FOR QMF DIAGNOSTICS OUTPUT                     */
"FILEDEF DSQDEBUG PRINTER ( LRECL 80  BLKSIZE 80  RECFM FBA PERM"
 /* PRINT = DDNAME FOR QMF PRINTED OUTPUT                         */
"FILEDEF DSQPRINT PRINTER ( LRECL 121 BLKSIZE 121 RECFM FBA PERM"
 /* EDIT  = DDNAME FOR QMF EDIT TRANSFER FILE                     */
"FILEDEF DSQEDIT DISK QMFEDIT FILE A (PERM"
 /* DSQSIDE = DDNAME FOR QMF SPILL FILE                           */
"FILEDEF DSQSPILL DISK DSQSIDE DATA A1 (PERM"
 /* DSQPNLE = DDNAME FOR PANEL FILE                               */
"FILEDEF DSQPNLE DISK DSQPNLE FILE * (PERM"
"FILEDEF ISPLLIB CLEAR"
"FILEDEF ISPLLIB DISK DSQLDLIB LOADLIB *"
 
/******************************************************************/
/* Provide access to QMF and GDDM program libraries               */
/******************************************************************/
"GLOBAL LOADLIB DSQLDLIB "
"GLOBAL TXTLIB ADMRLIB ADMPLIB ADMGLIB"
 
/* The beginning of your REXX program ..... */
.
.
.
.
/* The end of your REXX program .....       */
[ Previous Page | Next Page | Contents | Index ]