************ File GNETICS3:[000000.LOCAL.REPAIR]CLSUBMIT_AFRC.FOR;8 21 !* AFRC modifications insist on a Queue name for the batch job. 22 !* The quename can be given on the command line with /Queue='quename'. 23 !* If absent it is prompted for. 24 !* The submit command has /Queue='quename' appended. 25 !* 26 !* This routine uses the VMS command Lib$Do_command to submit ****** File GENSOURCEDISK:[GCGSOURCE.LIBRARY.GENLIB]CLSUBMIT_BAK.FOR;1 21 !* This routine uses the VMS command Lib$Do_command to submit ************ ************ File GNETICS3:[000000.LOCAL.REPAIR]CLSUBMIT_AFRC.FOR;8 53 ! AFRC modification get the batch queue name 54 Logical CLGetParam, CLNoInteract 55 Character QueName(100) 56 Integer Getstring, StrToUpper 57 58 Call ProgramName(ProgName) 59 60 ! AFRC modification to create names based on the output filename 61 If ( CLGetParam('OUTfile1', 1, FileName) ) Then 62 Call AlphaNumFilter(FileName) ! remove '.' from the file name 63 !* Need to restrict Filename to 32 characters ? 64 Else 65 Call Time(TimeBuf) 66 Call AlphaNumFilter(TimeBuf) ! remove ':' from the time string 67 Call SWriteF(FileName, '%s_%s', ProgName, TimeBuf) 68 69 End if 70 ****** File GENSOURCEDISK:[GCGSOURCE.LIBRARY.GENLIB]CLSUBMIT_BAK.FOR;1 48 ! The name of the command file will be ProgramName_Time.Com, and 49 ! the name of the Init file will be ProgramName_Time.Init 50 51 Call ProgramName(ProgName) 52 Call Time(TimeBuf) 53 Call AlphaNumFilter(TimeBuf) ! remove ':' from the time string 54 55 Call SWriteF(FileName, '%s_%s', ProgName, TimeBuf) 56 ************ ************ File GNETICS3:[000000.LOCAL.REPAIR]CLSUBMIT_AFRC.FOR;8 77 !********************************************************** 78 ! AFRC modification get the batch queue name 79 80 Call StrCopy(QueName, 'OFFPEAK') 81 If ( .not.CLGetParam('Queue', 2, QueName) ) Then 82 If ( .not.CLNoInteract() ) then 83 Call WriteF('\n Submit %s job to which batch queue '// 84 & '(* %s *) ? ', Progname ,QueName) 85 If ( GetString(QueName).eq.0 ) Continue 86 87 End If 88 End If 89 90 Str_len = StrToUpper(QueName) 91 92 !********************************************************** 93 94 ! Create an Init file with a unique name, and put all the ****** File GENSOURCEDISK:[GCGSOURCE.LIBRARY.GENLIB]CLSUBMIT_BAK.FOR;1 63 ! Create an Init file with a unique name, and put all the ************ ************ File GNETICS3:[000000.LOCAL.REPAIR]CLSUBMIT_AFRC.FOR;8 105 ! AFRC addition 106 Call CLRemQual('Queue') ! make sure this is removed 107 Call CLAddQual('Default') ! disable prompts in batch mode ****** File GENSOURCEDISK:[GCGSOURCE.LIBRARY.GENLIB]CLSUBMIT_BAK.FOR;1 74 Call CLAddQual('Default') ! disable prompts in batch mode ************ ************ File GNETICS3:[000000.LOCAL.REPAIR]CLSUBMIT_AFRC.FOR;8 218 !* AFRC - Append the Queue name and COM file name as PARAMETERS to 219 !* GCGSUBMITCOMMAND 220 !* The GCGSUBMITCOMMAND symbol must be defined in the startup of GCG as: 221 !* $ GCGSubmitCommand:==@gensitecom:gcgsubmit.com 222 !* And the GENSITECOM:GCGSUBMIT.COM file's active line is: 223 !* $ submit/notify/noprint/que='P1'/cpu=infinite/- 224 !* log='f$environ("default")' 'P2' 225 !* This gets a log file in the default directory. 226 !* NB: f$environment with lib$do_command does not work. 227 228 Call StrConcat(Trans, ' ') 229 Call StrConcat(Trans, Quename) 230 231 !* AFRC - recalculate the SubmitSymbol 232 Call StrCopy(SubmitSymbol,Trans) 233 234 Call SWriteF(SubmitCommand, '$ %s %s', SubmitSymbol, ComFileName) 235 Call WriteF('\n\b ** %s was submitted to the %s queue.\n\n', 236 & ProgName, Quename) 237 Call Lib$Do_Command(SubmitCommand) ****** File GENSOURCEDISK:[GCGSOURCE.LIBRARY.GENLIB]CLSUBMIT_BAK.FOR;1 185 Call SWriteF(SubmitCommand, '$ %s %s', SubmitSymbol, ComFileName) 186 Call WriteF('\n\b ** %s was submitted to the batch queue '// 187 & 'using the VMS command:\n'// 188 & ' " %s "\n\n', ProgName, Trans) 189 Call Lib$Do_Command(SubmitCommand) ************ Number of difference sections found: 5 Number of difference records found: 60 DIFFERENCES /IGNORE=()/MERGED=1/OUTPUT=GNETICS3:[000000.LOCAL.REPAIR]CLSUBMIT.DIFF;8- GNETICS3:[000000.LOCAL.REPAIR]CLSUBMIT_AFRC.FOR;8- GENSOURCEDISK:[GCGSOURCE.LIBRARY.GENLIB]CLSUBMIT_BAK.FOR;1