# To unbundle, sh this file echo f1 1>&2 cat >f1 <<'End of f1' From unmvax!gatech!rutgers!harvard!linus!alliant!howell@anl-mcs.ARPA Wed May 20 02:49:11 1987 Return-Path: Received: from anl-mcs.ARPA by dasher.mcs.anl (3.2/SMI-3.2) id AA04632; Wed, 20 May 87 02:49:07 CDT Received: by anl-mcs.ARPA (4.12/4.9) id AA17262; Wed, 20 May 87 02:48:13 cdt Received: by unmvax.UNM.EDU (smail2.3) id AA08432; 19 May 87 17:50:48 MDT (Tue) Received: from rutgers.UUCP by gatech.edu with UUCP (5.54/7.2.GT) id AA17751; Tue, 19 May 87 17:47:56 EDT Received: by RUTGERS.EDU (5.54/1.14) with UUCP id AA29862; Tue, 19 May 87 17:44:48 EDT Received: by EDDIE.MIT.EDU with UUCP with smail2.3 with sendmail-5.31/4.7 id ; Tue, 19 May 87 17:00:59 EDT Received: from market.Alliant.COM (market.ARPA) by alliant.Alliant.COM (4.12/smail2.2/02-19-87) id AA02703; Tue, 19 May 87 16:21:16 edt Received: by market.Alliant.COM (4.12/UUCP-Project/rel-1.0/10-30-86) id AA04198; Tue, 19 May 87 16:19:27 edt Date: Tue, 19 May 87 16:19:27 edt From: gatech!rutgers!alliant.COM!howell@anl-mcs.ARPA (Bob Howell) Message-Id: <8705192019.AA04198@market.Alliant.COM> To: ut-sally!rice!unmvax!anl-mcs!dongarra@alliant.rutgers.edu Subject: ibss file fx1submit.com Cc: neray@market.rutgers.edu Status: RO To: Jack Dongarra >From: Phil Neray at Alliant Contents: IBSS file fx1submit.com $!******************************************************************************* $! $! TITLE: FX1SUBMIT Command Procedure $! AUTHOR: Glen D. West $! DATE: July, 1986 $! LANG: VAX DCL $! $! PURPOSE: $! This command procedure submits the command procedure $! SYS$SYSROOT:[SYSMGR.ALLIANT]ALLIANT.COM to the ALLIANT $! queue sending the name of the user's BEWSS command file $! as an input parameter to ALLIANT.COM. ALLIANT.COM will $! then do everything necessary to run the user's VAX DCL file $! on the ALLIANT FX/1 including VMS to UNIX command $! translation, file transfers using the FTP utility and $! so forth. Note that the job name will take the form of $! the user's command file name preceded by "FX1_" to let $! the user know his job is running on the FX/1. Also note $! the job is submitted with the /NOLOG_FILE parameter $! because the log file is created on the FX/1 and $! transferred back to the user's home directory. The $! log file created by ALLIANT.COM records the procedure for $! file transfers, command translation etc. and is therefore $! unimportant to the user. Additionally, some error checking $! is performed such as whether the specified command $! procedure does, in fact, exist and whether the user has $! specified the ".COM" file type as input to the FX1SUB $! command. $! $! INPUTS: $! P1 --> Command File Name of the VAX DCL command procedure $! to be run on the ALLIANT FX/1 $! $! OUTPUTS: $! NONE $! $! INVOKING PROCEDURE: $! $! User Invoked through system logical "FX1SUB" $! $! FORM: $! $! FX1SUB "command filename" $! $! INVOKED PROCEDURES: $! $! ALLIANT.COM submitted to ALLIANT queue $! $!******************************************************************************* $! $ SET NOVERIFY $ SET NOON $ FILESPEC = F$DIRECTORY() $ COMFILENAME := 'P1' $! $ REENTER: $! $ IF (COMFILENAME .EQS. "") - THEN GOTO PROMPT $! $ GOTO CHECK_FILE $ PROMPT: $! $ INQUIRE COMFILENAME "ENTER FILENAME" $ GOTO REENTER $! $ CHECK_FILE: $! $ IF (F$LOCATE(".COM",COMFILENAME) .NE. F$LENGTH(COMFILENAME)) - THEN COMFILENAME = F$EXTRACT(0,F$LOCATE(".",COMFILENAME),COMFILENAME) $! $ THECOMFILE := 'FILESPEC''COMFILENAME'".COM" $ IF (F$SEARCH(THECOMFILE) .NES. "") - THEN GOTO FILE_FOUND $ WRITE SYS$OUTPUT "FILE NOT FOUND: ",THECOMFILE $ GOTO PROMPT $! $ FILE_FOUND: $ JOBNAME := "FX1_"'COMFILENAME' $ SUBMIT/QUE=ALLIANT/PAR=('FILESPEC','COMFILENAME')/NAME='JOBNAME' - /NOLOG_FILE SYS$SYSROOT:[SYSMGR.ALLIANT]ALLIANT.COM $ EXIT End of f1 echo f2 1>&2 cat >f2 <<'End of f2' From unmvax!gatech!rutgers!harvard!linus!alliant!howell@anl-mcs.ARPA Wed May 20 02:49:32 1987 Return-Path: Received: from anl-mcs.ARPA by dasher.mcs.anl (3.2/SMI-3.2) id AA04636; Wed, 20 May 87 02:49:27 CDT Received: by anl-mcs.ARPA (4.12/4.9) id AA17268; Wed, 20 May 87 02:48:30 cdt Received: by unmvax.UNM.EDU (smail2.3) id AA08437; 19 May 87 17:50:52 MDT (Tue) Received: from rutgers.UUCP by gatech.edu with UUCP (5.54/7.2.GT) id AA17756; Tue, 19 May 87 17:48:07 EDT Received: by RUTGERS.EDU (5.54/1.14) with UUCP id AA29880; Tue, 19 May 87 17:45:06 EDT Received: by EDDIE.MIT.EDU with UUCP with smail2.3 with sendmail-5.31/4.7 id ; Tue, 19 May 87 17:01:18 EDT Received: from market.Alliant.COM (party.ARPA) by alliant.Alliant.COM (4.12/smail2.2/02-19-87) id AA02626; Tue, 19 May 87 16:18:45 edt Received: by market.Alliant.COM (4.12/UUCP-Project/rel-1.0/10-30-86) id AA04095; Tue, 19 May 87 16:16:59 edt Date: Tue, 19 May 87 16:16:59 edt From: gatech!rutgers!alliant.Alliant.COM!howell@anl-mcs.ARPA (Bob Howell) Message-Id: <8705192016.AA04095@market.Alliant.COM> To: ut-sally!rice!unmvax!anl-mcs!dongarra@alliant.rutgers.edu Subject: ibss file alliant.com Cc: neray@market.rutgers.edu Status: R To: Jack Dongarra >From: Phil Neray at Alliant Contents: IBSS file alliant.com $!******************************************************************************* $! $! TITLE: ALLIANT Job Controller Command Procedure $! AUTHOR: Glen D. West $! DATE: July, 1986 $! LANG: VAX DCL $! $! PURPOSE: $! This command procedure determines the job number from the $! previous job number stored in JOBNUM.DAT, determines the $! directory that the job was submitted from and sets the $! default to that directory, invokes the VTU translation $! program to convert the VAX DCL procedure to a C Shell $! Script that will run under the ALLIANT FX/1 CONCENTRIX $! operating system, and invokes the FTP utility to transfer $! the necessary files to the FX/1. It then goes into a loop $! waiting for the FX/1 to transfer a specified file into a $! specified directory. When the file arrives, it then invokes $! the FTP utility again and retrieves the necessary output $! files and the log file from the FX1. Finally, file cleanup $! is performed to remove job specific created files. $! INPUTS: $! P1 --> Directory Specification of the VAX command file $! that is to be translated and run on the ALLIANT FX/1 $! P2 --> Filename of the VAX command file that is to be $! translated and run on the ALLIANT FX/1 $! $! OUTPUTS: $! NONE $! $! INVOKING PROCEDURE: $! FX1SUBMIT.COM $! FORM: $! $! TURNIN/QUE=ALLIANT/PAR="file specification"/NAME=FX1_"filename" - $! /NOLOG_FILE ALLIANT.COM $! $! INVOKED PROGRAMS: $! VTU - VMS to Unix translator $! $!******************************************************************************* $! $ SET VERIFY $ SET NOON $ SET PROC/PRIO=2 $ ASSIGN NOQUE SYS$PRINT $! $ REOPEN: $! $ OPEN/READ/WRITE/ERROR=CHECK_STAT JOBNUMFILE - SYS$SYSROOT:[SYSMGR.ALLIANT]JOBNUM.DAT $ GOTO DO_READ $! $ CHECK_STAT: $! $ IF ('$STATUS' .NE. %X1001828A) THEN EXIT $! $ WAIT 00:00:10.00 $ GOTO REOPEN $! $ DO_READ: $! $ READ/END_OF_FILE=END_JOBNUM JOBNUMFILE JOBNUM $! $ NEXT_JOB_NUM: $! $ JOBNUM = JOBNUM + 1 $! $ IF (JOBNUM .EQ. 6) THEN JOBNUM = 1 $! $ RUNFLAG:="USERDISK$1:[FTPDONE]RUNFLAG"'JOBNUM'".;1 $! $ IF ( F$SEARCH (RUNFLAG) .NES. "") - THEN $GOTO NEXT_JOB_NUM $! $ WRITE/UPDATE JOBNUMFILE JOBNUM $ CLOSE JOBNUMFILE $! $ OPEN/WRITE RUNFLAGFILE 'RUNFLAG' $ FILENAME := 'P1''P2'.COM $ WRITE RUNFLAGFILE FILENAME $ WRITE RUNFLAGFILE JOBNUM $ CLOSE RUNFLAGFILE $! $ DONEFLAG:="USERDISK$1:[FTPDONE]BATCH_DONE"'JOBNUM'".;2" $! $ OPEN/READ VAXDCLFILE 'P1''P2'.COM $! $ READ_LOOP: $ READ/END_OF_FILE=END_READ_LOOP VAXDCLFILE DCLRECORD $! $ IF (F$LOCATE("SET DEF",DCLRECORD) .EQ. F$LENGTH(DCLRECORD)) - THEN $GOTO READ_LOOP $! $ LEFT_BRACK = F$LOCATE("[",DCLRECORD) $ RIGHT_BRACK = F$LOCATE("]",DCLRECORD) $ USER_DIR = F$EXTRACT(LEFT_BRACK,RIGHT_BRACK-LEFT_BRACK+1,DCLRECORD) $ SET DEF 'USER_DIR' $ END_READ_LOOP: $ CLOSE VAXDCLFILE $! $ ASSIGN 'RUNFLAG' FOR099 $ RUN SYS$SYSROOT:[SYSMGR.ALLIANT]VTU.EXE $! $ SET NOON $! $ DEFINE/USER_MODE SYS$INPUT FTPSEND'JOBNUM'.COM $ FTP -n -d -i alliant $! $ SET NOON $ WAITING: $! $ IF ( F$SEARCH (DONEFLAG) .NES. "") THEN $GOTO GETOUTPUT $! $ WAIT 00:01:00.00 $ SET NOVERIFY $! $ GOTO WAITING $! $ GETOUTPUT: $ SET VERIFY $! $ SET DEF USERDISK$1:'USER_DIR' $ DEFINE/USER_MODE SYS$INPUT FTPGET'JOBNUM'.COM $ FTP -n -i -d alliant $ SET NOON $ DEL 'RUNFLAG' $ DEL 'DONEFLAG' $ DEL *.F'JOBNUM';* $ DEL FTPGET'JOBNUM'.COM; $ DEL FTPSEND'JOBNUM'.COM; $ DEL BATSCRIPT'JOBNUM'.COM; $ REN VAX_BATCH'JOBNUM'.LOG FX1_'P2'.LOG $ COPY 'P2'.LOG SYS$LOGIN $ DEL 'P2'.LOG; $ EXIT End of f2 echo f3 1>&2 cat >f3 <<'End of f3' From unmvax!gatech!rutgers!harvard!linus!alliant!howell@anl-mcs.ARPA Wed May 20 02:49:50 1987 Return-Path: Received: from anl-mcs.ARPA by dasher.mcs.anl (3.2/SMI-3.2) id AA04640; Wed, 20 May 87 02:49:46 CDT Received: by anl-mcs.ARPA (4.12/4.9) id AA17282; Wed, 20 May 87 02:48:49 cdt Received: by unmvax.UNM.EDU (smail2.3) id AA08440; 19 May 87 17:50:55 MDT (Tue) Received: from rutgers.UUCP by gatech.edu with UUCP (5.54/7.2.GT) id AA17781; Tue, 19 May 87 17:49:10 EDT Received: by RUTGERS.EDU (5.54/1.14) with UUCP id AA29854; Tue, 19 May 87 17:44:33 EDT Received: by EDDIE.MIT.EDU with UUCP with smail2.3 with sendmail-5.31/4.7 id ; Tue, 19 May 87 17:00:47 EDT Received: from market.Alliant.COM (market.ARPA) by alliant.Alliant.COM (4.12/smail2.2/02-19-87) id AA02675; Tue, 19 May 87 16:20:22 edt Received: by market.Alliant.COM (4.12/UUCP-Project/rel-1.0/10-30-86) id AA04131; Tue, 19 May 87 16:18:31 edt Date: Tue, 19 May 87 16:18:31 edt From: gatech!rutgers!alliant.Alliant.COM!howell@anl-mcs.ARPA (Bob Howell) Message-Id: <8705192018.AA04131@market.Alliant.COM> To: ut-sally!rice!unmvax!anl-mcs!dongarra@alliant.rutgers.edu Subject: ibss file batdaemon.com Cc: neray@market.rutgers.edu Status: R To: Jack Dongarra >From: Phil Neray at Alliant Contents: IBSS file batdaemon.com # #******************************************************************************* # # TITLE: BATch processor DAEMON # AUTHOR: Glen D. West # DATE: July, 1986 # LANG: BSD Unix 4.2 C Shell Script # # PURPOSE: # This script procedure is a DAEMON that runs VAX FORTRAN # jobs on the ALLIANT FX/1 that have been transferred over # from the VAX 11/750. It has the capability of running five # batch jobs simultaneously. Since it is a daemon, it runs # infinitely, but does not eat CPU as it is asleep most of # the time. It checks for the existence of a batch script # file named batscript'x'.com in the batch'x' subdirectory # where 'x' is one of 1,2,...5 and invokes that script file # upon finding it. If the batscript'x'.com file is not found, # it checks for the batch_done'x' file, again 'x' is one of # 1,2,...5 which is the file created by the batch script # procedure to signal that the procedure has completed. Upon # finding the done file, the FTP utility is invoked to send # this done file back to the VAX to signal the executing batch # job on the VAX that the batch run on the FX/1 has completed. # The daemon then waits 60 seconds for the VAX batch job to # retrieve any files it needs, and then deletes the files in # the batch directory in case the job crashed. When neither # the script file or done file is found for each of 1,2,..5, # the daemon sleeps for 60 seconds before repeating. Note that # as soon as the daemon finds the script file, it must rename # the file before invoking it so that it will not find the # file on the next repetition. The done file is also deleted to # prevent it from being found on the next repetition. Also this # script runs at priority 19 on the FX/1 so that the jobs it # invokes also run at priority 19 and thus do not inhibit the # interactive users. # # INPUTS: # NONE # # OUTPUTS: # NONE # # INVOKING PROCEDURE: # User invoked at the terminal in the background # at priority 19 with nice command # FORM: # # nice +19 batdaemon.com & # # INVOKED PROCEDURES: # NONE # #******************************************************************************* # # Wait for the file "batscript{$i}.com" to appear in the batch{$i} # directory where "i" is one of 1,2,...5. # while ( 1 ) foreach i ( 1 2 3 4 5 ) cd batch{$i} if ( -e batscript{$i}.com ) then # # When the command file appears, execute it !!!! # mv batscript{$i}.com vax_batch{$i}_com chmod 777 vax_batch{$i}_com (vax_batch{$i}_com >>& vax_batch{$i}.log)& # # # Wait for the file "ftpdone{$i}" to appear in the batch{$i} # directory where "i" is one of 1,2,...5. # else if ( -e batch_done{$i} ) then rm vax_batch{$i}_com >>& /dev/null # # Remotely log in the the Vax 11/750 and transfer the file # "ftpdone{$i}." to signal the Vax that the job is finished. # echo "open vax" > ftpsend.com echo "user invent invent" >> ftpsend.com echo "cd dua1:[ftpdone]" >> ftpsend.com echo "send batch_done"{$i} >> ftpsend.com echo "bye" >> ftpsend.com ftp -n < ftpsend.com # # Delay 60 seconds for the transfer to finish and the VAX job # to get it's output files. # sleep 60 # # Clean up files just in case the job crashed and did not # clean up itself. # rm *.CMN >>& /dev/null rm *.DAT >>& /dev/null rm *.o >>& /dev/null rm *.f >>& /dev/null rm ftpsend.com # # Clean up BEWSS job specific files # rm bewss*.dat >>& /dev/null rm BEWSS >>& /dev/null rm bewss{$i} >>& /dev/null rm batch_done{$i} # endif cd .. end # # Sleep for 60 seconds and loop back. # sleep 60 end End of f3 echo f4 1>&2 cat >f4 <<'End of f4' From unmvax!gatech!rutgers!harvard!linus!alliant!howell@anl-mcs.ARPA Wed May 20 02:50:02 1987 Return-Path: Received: from anl-mcs.ARPA by dasher.mcs.anl (3.2/SMI-3.2) id AA04644; Wed, 20 May 87 02:49:59 CDT Received: by anl-mcs.ARPA (4.12/4.9) id AA17288; Wed, 20 May 87 02:49:07 cdt Received: by unmvax.UNM.EDU (smail2.3) id AA08443; 19 May 87 17:50:57 MDT (Tue) Received: from rutgers.UUCP by gatech.edu with UUCP (5.54/7.2.GT) id AA18688; Tue, 19 May 87 18:35:51 EDT Received: by RUTGERS.EDU (5.54/1.14) with UUCP id AA01107; Tue, 19 May 87 18:28:46 EDT Received: by EDDIE.MIT.EDU with UUCP with smail2.3 with sendmail-5.31/4.7 id ; Tue, 19 May 87 18:15:19 EDT Received: from market.Alliant.COM (market.ARPA) by alliant.Alliant.COM (4.12/smail2.2/02-19-87) id AA02769; Tue, 19 May 87 16:24:09 edt Received: by market.Alliant.COM (4.12/UUCP-Project/rel-1.0/10-30-86) id AA04307; Tue, 19 May 87 16:22:23 edt Date: Tue, 19 May 87 16:22:23 edt From: gatech!rutgers!alliant.Alliant.COM!howell@anl-mcs.ARPA (Bob Howell) Message-Id: <8705192022.AA04307@market.Alliant.COM> To: ut-sally!rice!unmvax!anl-mcs!dongarra@alliant.rutgers.edu Subject: ibss file jobnum.dat Cc: neray@market.rutgers.edu Status: R To: Jack Dongarra >From: Phil Neray at Alliant Contents: IBSS file jobnum.dat 2 End of f4 echo f5 1>&2 cat >f5 <<'End of f5' From unmvax!gatech!rutgers!harvard!linus!alliant!howell@anl-mcs.ARPA Wed May 20 02:50:16 1987 Return-Path: Received: from anl-mcs.ARPA by dasher.mcs.anl (3.2/SMI-3.2) id AA04648; Wed, 20 May 87 02:50:13 CDT Received: by anl-mcs.ARPA (4.12/4.9) id AA17294; Wed, 20 May 87 02:49:20 cdt Received: by unmvax.UNM.EDU (smail2.3) id AA08446; 19 May 87 17:51:00 MDT (Tue) Received: from rutgers.UUCP by gatech.edu with UUCP (5.54/7.2.GT) id AA18685; Tue, 19 May 87 18:35:42 EDT Received: by RUTGERS.EDU (5.54/1.14) with UUCP id AA01111; Tue, 19 May 87 18:28:51 EDT Received: by EDDIE.MIT.EDU with UUCP with smail2.3 with sendmail-5.31/4.7 id ; Tue, 19 May 87 18:15:41 EDT Received: from market.Alliant.COM (market.ARPA) by alliant.Alliant.COM (4.12/smail2.2/02-19-87) id AA02797; Tue, 19 May 87 16:26:07 edt Received: by market.Alliant.COM (4.12/UUCP-Project/rel-1.0/10-30-86) id AA04340; Tue, 19 May 87 16:24:21 edt Date: Tue, 19 May 87 16:24:21 edt From: gatech!rutgers!alliant.Alliant.COM!howell@anl-mcs.ARPA (Bob Howell) Message-Id: <8705192024.AA04340@market.Alliant.COM> To: ut-sally!rice!unmvax!anl-mcs!dongarra@alliant.rutgers.edu Subject: ibss file vtubuild.com Cc: neray@market.rutgers.edu Status: R To: Jack Dongarra >From: Phil Neray at Alliant Contents: IBSS file vtubuild.com $SET VERIFY $SET NOON $SET DEF SYS$SYSROOT:[SYSMGR.ALLIANT.VTU] $ASSIGN NOQUE SYS$PRINT $! $DEL *.OBJ;* $DEL *.EXE;* $FORT/NOLIST VTU $FORT/NOLIST VTUINIT $FORT/NOLIST VTUPARSE $FORT/NOLIST VTUCOMPRESS $FORT/NOLIST VTUEOF $FORT/NOLIST VTUAPPEND $FORT/NOLIST VTUASSIGN $FORT/NOLIST VTUCREATE $FORT/NOLIST VTUCOPY $FORT/NOLIST VTUDELETE $FORT/NOLIST VTUINSTRING $FORT/NOLIST VTULINK $FORT/NOLIST VTURUN $FORT/NOLIST VTUTYPE $FORT/NOLIST VTUCHCASE $FORT/NOLIST VTUFSCON $FORT/NOLIST VTUVAREXP $FORT/NOLIST VTUVARINS $FORT/NOLIST VTUVARASS $FORT/NOLIST VTUGETFILE $FORT/NOLIST VTUCONSC $FORT/NOLIST VTUVMSFSB $! $LINK/EXE=VTU/NOMAP VTUMAIN+VTUINIT+VTUPARSE+VTUCOMPRESS+VTUEOF+- VTUAPPEND+VTUASSIGN+VTUCREATE+VTUCOPY+VTUDELETE+- VTULINK+VTURUN+VTUTYPE+VTUCHCASE+VTUFSCON+- VTUVAREXP+VTUVARINS+VTUVARASS+VTUGETFILE+VTUCONSC+- VTUVMSFSB+VTUINSTRING End of f5 .