SUBROUTINE SUBMT ;Author: Paul F. Flaherty, Jr. ; DP Manager ; DANIELS AND CRONIN ; Attorneys at Law ; Three Center Plaza ; Boston, MA 02108-2003 ; (617) 227-5570 ;subroutine which allows a Dibol program ;running under RSTS/E Version 9.x to submit ;a batch job to run under PBS. It is a plain, ;vanilla routine - the equivalent of a DCL ;"SUBMIT" command with no qualifiers - but is ;nevertheless useful in many applications. ;N.B. This subroutines calls other routines ; from LB:UNSUPP.OLB, Digital's ; UNSUPPORTED Dibol subroutines library. ; =========== SUBMIT ,A ;command file name passed from calling routine ERR ,D ;meaningless incoming; outgoing zero if success ;else error code RECORD FIRQB ;the following are for xcall exemt, ;ptfrq, gtfrq FRQ ,2D3 SYS ,30D3 RECORD DUMMY ,D3 UUO ,D6,104066 ;looks decimal, interpreted as octal PROC CLEAR ERR, FIRQB, DUMMY ;initializw some variables ON ERROR ERROR ;set up error trap XCALL FSS (SUBMIT,ERR) ;file string scan to load firqb OFF ERROR IF (ERR) RETURN ;let main routine handle error XCALL GTFRQ (FIRQB,FRQ) ;get the firqb SYS(1) = 6 ;sys call to FIP SYS(2) = -28 ;sub call (UU.SPL) SYS(3) = 0 ;according to Programming Manual SYS(4) = 0 ;ditto SYS(13) = 66 ;"B" SYS(14) = 65 ;"A" FOR DUMMY FROM 15 THRU 30 CLEAR SYS(DUMMY) ;initialize the rest XCALL PTFRQ (FIRQB,FRQ) ;load the FIRQB XCALL EXEMT (ERR,UUO) ;and do it (if error ERR is set) RETURN ;return ERROR, ;general error trap OFF ERROR XCALL ERROR (ERR,DUMMY) ;get the error code RETURN ;and return it END