Google
 

Trailing-Edge - PDP-10 Archives - cuspmar86binsrc_2of2_bb-fp63a-sb - 10,7/galaxy/batcon/batusr.mac
There are 3 other files named batusr.mac in the archive. Click here to see a list.
TITLE	BATUSR	- GALAXY-10 Batch controller user interface
SUBTTL	C.D.O'Toole, D.P.Mastrovito /CDO/DPM 12-SEP-85


;
;
;	      COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION
;     1974,1975,1976,1977,1978,1979,1980,1981,1982,1983,1984,1986.
;			ALL RIGHTS RESERVED.
;			  
;                    
;
;     THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY  BE  USED
;     AND COPIED ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE
;     AND WITH THE INCLUSION OF THE ABOVE COPYRIGHT NOTICE.   THIS
;     SOFTWARE  OR ANY OTHER COPIES THEREOF MAY NOT BE PROVIDED OR
;     OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON.  NO  TITLE  TO
;     AND OWNERSHIP OF THE SOFTWARE IS HEREBY TRANSFERRED.
;
;     THE INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE
;     WITHOUT  NOTICE  AND SHOULD NOT BE CONSTRUED AS A COMMITMENT
;     BY DIGITAL EQUIPMENT CORPORATION.
;
;     DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY
;     OF  ITS  SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT SUPPLIED BY
;     DIGITAL.


	SEARCH	BATMAC			;BATCON SYMBOLS
	SEARCH	GLXMAC			;GALAXY SYMBOLS
	SEARCH	QSRMAC			;QUASAR SYMBOLS
	SEARCH	ORNMAC			;ORION SYMBOLS

	PROLOG	(BATUSR)		;SET UP

	%%.BAT==:%%.BAT			;FORCE VERSION INTO SYMBOL TABLE

TOPS10	<IF1,<PRINTX [Assembling GALAXY-10 BATUSR]>>
TOPS20	<IF1,<PRINTX [Assembling GALAXY-20 BATUSR]>>
SUBTTL	Table of contents


;               TABLE OF CONTENTS FOR BATUSR
;
;
;                        SECTION                                   PAGE
;    1. Table of contents.........................................   2
;    2. Introduction..............................................   3
;    3. Initialization............................................   4
;    4. Job scheduler.............................................   5
;    5. IPCF message processing...................................   6
;    6. Start of job..............................................   7
;    7. Log file header...........................................   8
;    8. LOGIN a job...............................................   9
;    9. Post LOGIN processing.....................................  10
;   10. Honor a job's input request...............................  11
;   11. KJOB processing...........................................  12
;   12. End of job processing.....................................  13
;   13. End.......................................................  14
SUBTTL	Introduction


; This module contains user (customer) exit code.  By putting  all
; customer  modifications  in  this  module,  changes to supported
; BATCON  modules  will  be  minimized.   Each   routine   has   a
; description of the calling sequences, the ACs available and when
; they are called.  In addition, many routines  show  examples  of
; how to use BATCON facilities to make log file entries, send text
; to PTYs, etc.  Only the BATCON hooks are supported.  An  attempt
; was  made to provide calls to BATUSR from places in BATCON where
; the customer would be most likely to make  local  modifications.
; Please do not take this as a commitment on DEC's part to provide
; subroutine calls in every major BATCON routine.  This module  is
; completely   unsupported.    Any  suggestions  to  improve  it's
; usefulness will be accepted, but do not expect  all  suggestions
; to be implemented.
SUBTTL	Initialization


; Initialization code called at BATCON startup.  This routine will
; be  called  after  all  normal  BATCON  initialization  has been
; performed.  All comunication with QUASAR has  been  set  up  and
; BATCON is ready to enter its toplevel job scheduler loop.
;
; Context:	BATCON
; ACs setup:	None
; AC usage:	None need to be preserved
; Return:	CPOPJ
;
U$INIT::POPJ	P,			;RETURN
SUBTTL	Job scheduler


; Job scheduler code  will  be  called  at  the  begining  of  the
; scheduling  loop  prior to any other calls.  Here, global checks
; may be made similar to the check in BATCON for killing all  jobs
; due to a major Galaxy disaster.
;
; Context:	BATCON
; ACs setup:	None
; AC usage:	None need to be preserved
; Return:	CPOPJ
;
U$SCHD::POPJ	P,			;RETURN
SUBTTL	IPCF message processing


; The IPCF message processor will be called after BATCON verrifies
; that the message came from QUASAR or ORION, and  has  determined
; the message type (be it known or unknown).
;
; Context:	BATCON
; ACs setup:	None
; AC usage:	None
; Return:	CPOPJ/CPOPJ1
;
U$IPCF::JRST	.POPJ1			;RETURN
SUBTTL	Fireup processing


; This routine will be called by FIREUP near the  end  of  NEXTJOB
; processing.   Here  any  customer  defined  fields  in the EQ of
; interest to BATCON may be copied into the stream's data base.
;
; Context:	Stream
; ACs setup:	P1:= base address of NEXTJOB message
;		R:= stream relocation
;		F:= stream flags
; AC usage:	ACs P1, R and F must be preserved
; Return:	CPOPJ
;
U$FIRE::POPJ	P,			;RETURN
SUBTTL	Start of job


; This routine will be  called  at  the  begining  of  normal  job
; processing.   At  this  point all normal job data base locations
; will be setup (via a previous call to  FIREUP  by  NEXTJB).   At
; this  point,  a site may wish to change some stream defaults.  A
; popular local  modification  is  operator  character  defaulting
; (effectively  doing a .OPERATOR $) See the code under the REPEAT
; 0 for an example.
;
; Context:	Stream
; ACs setup:	R:= stream relocation
;		F:= stream flags
; AC usage:	ACs R and F must be preserved
; Return:	CPOPJ
;
U$STJB::
REPEAT	0,<				;EXAMPLE
	MOVEI	S1,"$"			;GET DEFAULT .OPERATOR CHARACTER
	MOVEM	S1,.JBOCH(R)		;STORE IT
>					;END OF REPEAT 0
	POPJ	P,			;RETURN
SUBTTL	Log file header


; This routine  will  all  the  customer  to  append  any  special
; information  to  the  end of the standard batch log file header.
; Remember, to cause a time stamped and identified line to  appear
; in the log file header, a $IDHDR macro must be used.  The normal
; $IDENT won't work.  An example of how to  put  information  into
; the log file header (spooled output limits) follows.
;
; Context:	Stream
; ACs setup:	R:= stream relocation
;		F:= stream flags
; AC usage:	ACs R and F must be preserved
; Return:	CPOPJ
;
U$LOGH::
REPEAT	0,<				;EXAMPLE
	GETLIM	T1,.JQLIM(R),SLPT	;GET SPOOLED LPT LIMIT
	GETLIM	T2,.JQLIM(R),SCDP	;GET SPOOLED CDP LIMIT
	GETLIM	T3,.JQLIM(R),SPTP	;GET SPOOLED PTP LIMIT
	GETLIM	T4,.JQLIM(R),SPLT	;GET SPOOLED PLT LIMIT
	$TEXT	(L$PHDR##,<
		Spooled output limits
	LPT:	^D6R /T1/		CDP:	^D6R /T2/
	PTP:	^D6R /T3/		PLT:	^D6R /T4/
>)
>					;END OF REPEAT 0
	POPJ	P,			;RETURN
SUBTTL	LOGIN a job


; This routine is called after all normal LOGIN command processing
; is  completed.  At this point, a terminating carriage-return has
; not been sent to the job, so a site may add any  LOGIN  switches
; that  are  not  normally  added by BATCON.  Two character output
; routines are available for this  purpose.   The  first  the  the
; normal  output  routine  B$CPUT,  used to send any character but
; double quotes.  Should a switch argument require  quotes  around
; the  string,  the second routine, B$CQUO must be used.  Examples
; of both are REPEAT 0'd out below.  Make sure that no terminating
; carriage-return is sent.  That will be handled by BATCON.
;
; Context:	Stream
; ACs setup:	R:= stream relocation
;		F:= stream flags
;		J:= job status word
; AC usage:	ACs R, F and J must be preserved
; Return:	CPOPJ
;
U$LOGI::
REPEAT	0,<				;EXAMPLE
	$TEXT	(B$CPUT##,</WATCH:VERSION^A>) ;APPEND /WATCH:VERSION TO LINE
>					;END OF REPEAT 0

REPEAT	0,<				;EXAMPLE
	$TEXT	(B$CPUT##,</REMARK:">)	;SEND SWITCH AND STARTING QUOTE
	$TEXT	(B$CQUO##,<THIS IS "QUOTED" TEXT^A>) ;SEND THE QUOTED TEXT
	MOVEI	S1,""""			;GET A TERMINATING QUOTE
	PUSHJ	P,B$CPUT##		;SEND IT
>					;END OF REPEAT 0
	POPJ	P,			;RETURN
SUBTTL	Post LOGIN processing


; When this routine is called, the batch job has sucessfully  been
; logged  in.   Had  the  LOGIN  failed,  the  normal  LOGIN error
; analysis would have been performed and the  stream  terminiated.
; This is a good point to cause any special programs to run or set
; special terminal parameters.  Remember, the  LOGIN  process  has
; been  completed  by  the  time  this  routine  is called, so any
; programs that are usually run as a result of LOGIN (via /RUN  in
; SWITCH.INI) has already taken place.
;
; Context:	Stream
; ACs setup:	R:= stream relocation
;		F:= stream flags
;		J:= job status word
; AC usage:	ACs R, F and J must be preserved
; Return:	CPOPJ/CPOPJ1
;
U$PLGN::JRST	.POPJ1			;RETURN
	
SUBTTL	Honor a job's input request


; This routine will be  called  (from  HONORJ)  at  the  start  of
; processing a new command line.  Prior to being called, all error
; checking has taken place and I/O completed.  A new command  line
; has not been read in yet.
;
; Context:	Stream
; ACs setup:	R:= stream relocation
;		F:= stream flags
;		J:= job status word
; AC usage:	ACs R, F and J must be preserved
; Return:	CPOPJ/CPOPJ1
;
U$HNRJ::JRST	.POPJ1			;RETURN
SUBTTL	KJOB processing


; Any pre-KJOB processing  is  performed  here.   At  this  point,
; BATCON  has determined that the job must be logged out.  The job
; has been put at monitor level.  All that remains is to send  the
; KJOB command.  This is a good place th run any programs or issue
; commands that might inform the batch  user  of  such  things  as
; charges  accumulated since LOGIN time.  The example below (under
; the REPEAT 0) does just that.
;
; Context:	Stream
; ACs setup:	R:= stream relocation
;		F:= stream flags
;		J:= job status word
; AC usage:	ACs R, F and J must be preserved
; Return:	CPOPJ
;
U$KJOB::
REPEAT	0,<				;EXAMPLE
	PUSHJ	P,B$CINI##		;INITIALIZE THE COMMAND BUFFER
	$TEXT	(B$CPUT##,<R CHARGE>)	;RUN THE "CHARGE" PROGRAM
	PUSHJ	P,B$SETB##		;RESET THE COMMAND BUFFER BYTE POINTER
	PUSHJ	P,B$XFER##		;TRANSFER THE BUFFER TO THE PTY
	PUSHJ	P,IOWAIT##		;WAIT FOR I/O COMPLETION
>					;END OF REPEAT 0
	POPJ	P,			;RETURN
SUBTTL	End of job processing


; This routine is called from B$CLOS after the job has been logged
; out.   All  that  remains  is to prepare the release message and
; sned it to QUASAR.  Only a few  thing  could  be  modified  now.
; They  include  log  file disposition (/OUTPUT:[ERROR!LOG!SPOOL])
; and spooled input file deletion (TOPS-20 only).
;
; Context:	Stream
; ACs setup:	R:= stream relocation
;		F:= stream flags
;		J:= job status word
; AC usage:	ACs R, F and J must be preserved
; Return:	CPOPJ
;
U$CLOS::POPJ	P,			;RETURN
SUBTTL	End


	End