/* COMPILE - THIS EXEC SUBMITS AN COBOL COMPILE JOBSTREAM TO A VSE guest machine By: Bill Blasingim On: Nov. 4, 1993 */ TO_SYS="*" TO_SYS="SYSTEM1T" "VMFCLEAR" SAY "******** C o m p i l e ********" SAY "" DO FOREVER SAY 'Enter Input File (fn )' PULL FLN FLT FLM IF FLT='' THEN FLT="COBOL" IF FLM='' THEN FLM='A' LEAVE END IN_FILE=FLN||' 'FLT||' 'FLM /* MAKE SURE FILE EXISTS */ "SET CMSTYPE HT" "STATE "IN_FILE RC_SAVE=RC "SET CMSTYPE RT" IF RC_SAVE = 28 THEN DO SAY "** File Does Not Exist **" EXIT END "SPOOL PUN "TO_SYS "DROPBUF" "MAKEBUF" /* PUT THE JOBSTREAM IN THE PROGRAM STACK */ QUEUE "* $$ JOB JNM=COMPILE,CLASS=0,DISP=D,USER='RC2604 WHB'" QUEUE "* $$ LST CLASS=O,DISP=D,JSEP=0,DEST=(*,"USERID()")" QUEUE "// JOB COMPILE" QUEUE "// OPTION CATAL,SYM,NOLOG" QUEUE "// ASSGN SYS004,DISK,VOL=POOL10,SHR" QUEUE "// LIBDEF SOURCE,SEARCH=(TESTLIB.WHB,TESTLIB.USER)" QUEUE " PHASE "FLN QUEUE "// EXEC FCOBOL" QUEUE " CBL BUF=4000,LIB,SXREF,CLIST,DECK,APOST,NOSEQ,NOADV" /* `INCLUDE' THE SOURCE */ "EXECIO * DISKR "IN_FILE QUEUE "/*" QUEUE "// IF $RC > 5 THEN" QUEUE "// GOTO $EOJ" QUEUE "/* LIBDEF OBJ,SEARCH=(TESTLIB.WHB,TESTLIB.USER)" QUEUE "// LIBDEF PHASE,CATALOG=TESTLIB.WHB" QUEUE "// EXEC LNKEDT" QUEUE "/*" QUEUE "/&" QUEUE "* $$ EOJ" "EXECIO "QUEUED()" PUNCH" "CLOSE PUN" SAY "" SAY "*** JCL Submitted to "TO_SYS" ***" "DROPBUF" EXIT