JOBEND
.PROC,JOBEND*I, 
JOB1    ' 1 TO 6 CHARACTERS OF JOB NAME        '=(*N=,*F),
JOB2    ' SEVENTH CHARACTER OF JOB NAME        '=(*N=,*F),
*CALL COMPROC 
. 
.HELP 
  
.****   JOBEND  - UPDATES *DAYFILS* AND *JOBSTAT* 
  
.**     PARAMETERS
.*
.*      JOB1_JOB2   JOB NAME.  PROCEDURE *JOB* MUST BE ON ZZZPROC.
.*                  JOB1 IS FIRST 1 TO 6 CHARACTERS OF JOB NAME.
.*                  JOB2 IS SEVENTH CHAR OF A SEVEN LETTER NAME.
  
.ENDHELP
*CALL     PSRLEV
  
*************** J O B E N D **********************
  
NOTE(JOBZZZZ,NR)+JOB1_JOB2
DAYFILE(JOBZZZZ,FR=$*START JOB1_JOB2$)
PACK(JOBZZZZ) 
BEGIN(ACCESS,INSTALL,DAYFILS,M=W) 
NOTE(IN)+*B *,* 
LIBEDIT(P=DAYFOLD,B=JOBZZZZ,L=0,I=IN,N=DAYFTMP) 
BEGIN(ACCESS,INSTALL,DAYFILS,M=RETURN)
ENQUIRE(OP=R,O=JSTATUS) 
NOTE(IN)+L:/UP TIME/;*+END
EDIT(JOBZZZZ,I=IN,L=JSTATUS)
PACK(JSTATUS) 
BEGIN(ACCESS,INSTALL,JOBSTAT,M=W) 
SKIPEI(JOBSTAT) 
COPYBR(JSTATUS,JOBSTAT) 
RETURN(JOBSTAT,JSTATUS,JOBZZZZ) 
  
REVERT. JOBEND ***********************************
EXIT. JOBEND
REVERT(ABORT) JOBEND *****************************
*WEOR 
