The following program runs your callable interface application using the REXX CALL interface.
You might have to modify this program to suit your installation.
/**************************************************************** */ /* 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 ..... */