Compiling and running your programs under CMS in VM

The following program compiles and runs your callable interface application using the IBM C compiler.

QMF does not ship the REXX EXEC in this example, but you can copy it from here, altering it to suit your installation.

Figure 40. REXX program to compile and run your program

/******************************************************************/
/* Compile your program and run it.                               */
/******************************************************************/
TRACE off
ADDRESS CMS
/******************************************************************/
/* Access C product disk using an exec, PRODUCT, that you write.  */
/******************************************************************/
EXEC PRODUCT ADC370
/******************************************************************/
/* Compile the program                                            */
/******************************************************************/
"GLOBAL TXTLIB IBMLIB SCEELKED"
"GLOBAL LOADLIB EDCLINK SCREERUN"
"CC" PNAME "(SOURCE SHOWINC"
/******************************************************************/
/* Create an executable "C" module file                           */
/******************************************************************/
"GLOBAL LOADLIB DSQLDLIB SCREERUN"
"GLOBAL TXTLIB EDCBASE ADMRLIB ADMPLIB ADMGLIB"
"CMOD yourname DSQCICX DSQCLOD2 DSQCMCVP"
/******************************************************************/
/* 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 133 BLKSIZE 133 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 C program libraries                  */
/******************************************************************/
"GLOBAL LOADLIB DSQLDLIB SCREERUN"
"GLOBAL TXTLIB EDCBASE ADMRLIB ADMPLIB ADMGLIB"
Say "Starting to run 'C' program"
"yourname"
 
Exit 0