SPL,L,O 
!     NAME:   RU..
!     SOURCE: 92064-18233 
!     RELOC:  92064-16087 
!     PGMR:   G.L.M.
! 
!  ***************************************************************
!  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1977.  ALL RIGHTS     *
!  * RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED,      *
!  * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT*
!  * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.       *
!  ***************************************************************
! 
! 
      NAME RU..(7) " 92064-16087  REV.1805  771103" 
! 
! 
      LET EXEC BE SUBROUTINE,EXTERNAL      !ERROR PRINTING
! 
! 
! 
! 
!    THIS ROUTINE MAKES AN EXEC SCHEDULE WITH WAIT AND QUEUE
!    (ICODE=23) FOR THE PROGRAM NAME SPECIFIED. 
! 
!    IF THE PROG CANNOT BE FOUND, RETURNS AN ERROR 61 
!    IF THE SCHEDULE OPTION WAS NOT IN THE SYSTEM, RETURNS ERROR 62 
! 
      LET A BE CONSTANT(0)
! 
! 
RU..:  SUBROUTINE (NO,LIS,ER)  GLOBAL 
! 
      LIS6_[LIS5_[LIS4_[LIS3_[LIS2_[LIS1_ \   ! SETUP PARAMETER ADDRESSES 
               @LIS+1]+4]+4]+4]+4]+4
! 
      IF LIS#3 THEN [ER_10;RETURN]          !PROGRAM NAME MUST BE ASCII 
! 
      ER_0                                 !PRESET ERROR RETURN 
      EXEC(100000K+23,$LIS1,$LIS2,$LIS3,\  !ATTEMPT THE SCHEDULE WITH 
           $LIS4,$LIS5,$LIS6)              !THE NO-ABORT OPTION.
! 
      GOTO EEREX                           !EXEC ABORTED OUR REQUEST
                                           !EITHER M1 WITHOUT %MMP OR 
                                           !PROG NOT FOUND
! 
      RETURN
! 
! 
EEREX:              AREG_$A 
      ER_[IF AREG="SC" THEN 61, ELSE 62]
      RETURN
      END 
      END 
      END$
                                              