! *** PREDECLARED TYPES %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN RECORD BASIC$H_FLOATING_COMPLEX_AXP BASIC$HFLOAT_AXP REAL_PART BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF ! ! DEFINE SYMBIONT MANAGER REQUEST CODES ! ! SYMBIONT MANAGER REQUEST CODES DECLARE LONG CONSTANT SMR$K_INITIAL = 0 ! INITIALIZE A QUEUE DECLARE LONG CONSTANT SMR$K_DELETE = 1 ! DELETE THE QUEUE DECLARE LONG CONSTANT SMR$K_START = 2 ! ACTIVATE OR RESUME PRINTING DECLARE LONG CONSTANT SMR$K_PAUSE = 3 ! SUSPEND PRINTING FOR A WHILE DECLARE LONG CONSTANT SMR$K_MERGE = 4 ! MOVE FILES FORM ONE QUEUE INTO ANOTHER DECLARE LONG CONSTANT SMR$K_REDIRECT = 5 ! ASSIGNMENT OF ONE QUEUE TO ANOTHER DECLARE LONG CONSTANT SMR$K_JUSTIFY = 6 ! JUSTIFY PRINT FORMS(IE: ISSUE FF) DECLARE LONG CONSTANT SMR$K_STOP = 7 ! DISABLE FURTHER DE-QUEING DECLARE LONG CONSTANT SMR$K_ENTER = 8 ! ADD A FILE TO A QUEUE DECLARE LONG CONSTANT SMR$K_CREJOB = 9 ! CREATE A PRINT JOB DECLARE LONG CONSTANT SMR$K_ADDFIL = 10 ! ADD A FILE TO EXISTING JOB DECLARE LONG CONSTANT SMR$K_CLSJOB = 11 ! CLOSE OPEN JOB DECLARE LONG CONSTANT SMR$K_RMVJOB = 12 ! REMOVE JOB FROM QUEUE DECLARE LONG CONSTANT SMR$K_ALTER = 13 ! CHANGE A FILES CHARACTERISTICS DECLARE LONG CONSTANT SMR$K_ABORT = 14 ! ABORT CURRENT JOB, START NEXT DECLARE LONG CONSTANT SMR$K_RELEASE = 15 ! RELEASE JOB FROM HOLD LIST DECLARE LONG CONSTANT SMR$K_DETINIT = 16 ! DETACHED JOB HAS INITIATED DECLARE LONG CONSTANT SMR$K_SYNCJOB = 17 ! SYNCRONIZE WITH A BATCH JOB DECLARE LONG CONSTANT SMR$K_ASKQNAM = 18 ! GET NAME OF QUEUE FOR LOG FILE ! ! ASSIGN SYMBIONT MANAGER PRINT JOB/RECORD OPTION CODES ! ! ! JOB FILE OPTIONS DECLARE LONG CONSTANT SMO$K_DELETE = 1 ! DELETE THE FILE AFTER PRINTING DECLARE LONG CONSTANT SMO$K_BRSTPAG = 2 ! CREATE A BURST PAGE DECLARE LONG CONSTANT SMO$K_NOBRSTPAG = 3 ! INHIBIT BURST PAGE DECLARE LONG CONSTANT SMO$K_FLAGPAG = 4 ! PRINT A FLAG PAGE DECLARE LONG CONSTANT SMO$K_NOFLAGPAG = 5 ! INHIBIT A FLAG PAGE DECLARE LONG CONSTANT SMO$K_PAGHDR = 6 ! PRINT FILENAME AS PAGE HEADER DECLARE LONG CONSTANT SMO$K_DOUBLE = 7 ! DOUBLE SPACE THE LISTING DECLARE LONG CONSTANT SMO$K_NOFEED = 8 ! INHIBIT FORM FEED GENERATION DECLARE LONG CONSTANT SMO$K_PAGCNT = 9 ! SPECIFY PAGE COUNT TO PRINT DECLARE LONG CONSTANT SMO$K_COPIES = 10 ! NUMBER OF COPIES TO PRINT DECLARE LONG CONSTANT SMO$K_FILESIZ = 11 ! FILE SIZE DECLARE LONG CONSTANT SMO$K_DESTQUE = 12 ! DESTINATION QUEUE ! OPTIONS FOR CREATE JOB DECLARE LONG CONSTANT SMO$K_RLSTIM = 32 ! TIME TO HOLD UNTIL QUEUEING DECLARE LONG CONSTANT SMO$K_HOLD = 33 ! HOLD THE JOB DECLARE LONG CONSTANT SMO$K_JOBPRI = 34 ! SPECIFY PRINT JOB/DETACHED JOB PRIOITY DECLARE LONG CONSTANT SMO$K_JOBCOPY = 35 ! NUMBER OF COPIES OF ENTIRE JOB DECLARE LONG CONSTANT SMO$K_FORMTYPE = 36 ! FORM TYPE TO USED WHEN PRINTED DECLARE LONG CONSTANT SMO$K_LOWER = 37 ! UPPER/LOWER CASE PRINTER ONLY DECLARE LONG CONSTANT SMO$K_PARAMS = 38 ! SUPPLY JOB PARAMETERS DECLARE LONG CONSTANT SMO$K_JOBNAME = 39 ! SUPPLY A NAME TO THE JOB DECLARE LONG CONSTANT SMO$K_NOLOWER = 40 ! CLEAR LOWER CASE REQUIRED DECLARE LONG CONSTANT SMO$K_CPULIM = 41 ! CPU TIME LIMIT DECLARE LONG CONSTANT SMO$K_NOCPULM = 42 ! NO CPU TIME LIMIT DECLARE LONG CONSTANT SMO$K_WSQUOTA = 43 ! WORKING SET QUOTA DECLARE LONG CONSTANT SMO$K_NOWSQUO = 44 ! NO WORKING SET QUOTA DECLARE LONG CONSTANT SMO$K_WSDEFLT = 45 ! WORKING SET DEFAULT DECLARE LONG CONSTANT SMO$K_NOWSDFT = 46 ! NO WORKING SET DEFAULT DECLARE LONG CONSTANT SMO$K_DQCHAR = 47 ! CHAR. TO BE USED WHEN PRINTED DECLARE LONG CONSTANT SMO$K_LOGFNAM = 48 ! LOG FILE SPEC. DECLARE LONG CONSTANT SMO$K_LOGQNAM = 49 ! QUEUE NAME FOR LOG FILE DECLARE LONG CONSTANT SMO$K_KEEPLOG = 50 ! KEEP LOG FILE DECLARE LONG CONSTANT SMO$K_NOSPOOL = 51 ! DON'T SPOOL LOG FILE DECLARE LONG CONSTANT SMO$K_NOKEEPLOG = 52 ! DELETE LOG FILE DECLARE LONG CONSTANT SMO$K_NOLOG = 53 ! CREATE LOG ON NULL DEVICE DECLARE LONG CONSTANT SMO$K_NOTIFY = 54 ! NOTIFY WHEN JOB COMPLETES DECLARE LONG CONSTANT SMO$K_NONOTFY = 55 ! NO NOTIFY DECLARE LONG CONSTANT SMO$K_WSEXTNT = 56 ! WS EXTENT DECLARE LONG CONSTANT SMO$K_NOWSEXTNT = 57 ! NO WS EXTENT ! OPTIONS FOR INIT OR START A QUEUE DECLARE LONG CONSTANT SMO$K_CURFORM = 64 ! CURRENT FORMS MOUNTED ON DEVICE DECLARE LONG CONSTANT SMO$K_GENPRT = 65 ! ALLOW GENERIC PRINTING DECLARE LONG CONSTANT SMO$K_NOGENPRT = 66 ! DISALLOW GENERIC PRINTING DECLARE LONG CONSTANT SMO$K_DETJOB = 67 ! QUEUE IS FOR DETACHED JOB QUEUING DECLARE LONG CONSTANT SMO$K_GENDEV = 68 ! QUEUE IS GENERIC DEVICE QUEUE DECLARE LONG CONSTANT SMO$K_NOGENDEV = 69 ! NOT A GENERIC DEVICE DECLARE LONG CONSTANT SMO$K_DEFBRST = 70 ! QUEUE HAS BURST PAGE BY DEFAULT DECLARE LONG CONSTANT SMO$K_NODEFBRST = 71 ! NO DEFAULT BURST PAGE DECLARE LONG CONSTANT SMO$K_DEFFLAG = 72 ! QUEUE HAS FLAG PAGE BY DEFAULT DECLARE LONG CONSTANT SMO$K_NODEFFLAG = 73 ! NO DEFAULT FLAG DECLARE LONG CONSTANT SMO$K_TRMDEV = 74 ! DEVICE IS A TERMINAL DECLARE LONG CONSTANT SMO$K_NOTRMDEV = 75 ! DEVICE IS NOT A TERMINAL DECLARE LONG CONSTANT SMO$K_JOBLIM = 76 ! JOB LIMIT FOR BATCH JOBS DECLARE LONG CONSTANT SMO$K_INIPRI = 77 ! JOB INITIAL PRIORITY DECLARE LONG CONSTANT SMO$K_DISWAP = 78 ! DISABLE SWAPING DECLARE LONG CONSTANT SMO$K_MCPULM = 79 ! MAX CPU TIME LIMIT DECLARE LONG CONSTANT SMO$K_NOMCPULM = 80 ! NO MAX CPU TIME LIMIT DECLARE LONG CONSTANT SMO$K_DCPULM = 81 ! DEFAULT CPU TIME LIMIT DECLARE LONG CONSTANT SMO$K_NODCPULM = 82 ! NO DEFAULT CPU TIME LIMIT DECLARE LONG CONSTANT SMO$K_WSQUTA = 83 ! WORKING SET QUOTA DECLARE LONG CONSTANT SMO$K_NOWSQUTA = 84 ! NO WORKING SET QUOTA DECLARE LONG CONSTANT SMO$K_WSDFLT = 85 ! WORKING SET DEFAULT DECLARE LONG CONSTANT SMO$K_NOWSDFLT = 86 ! NO WORKING SET DEFAULT DECLARE LONG CONSTANT SMO$K_CURDQCHAR = 87 ! CURRENT CHAR. OF THE QUEUE DECLARE LONG CONSTANT SMO$K_SMBNAME = 88 ! SYMBIONT NAME FOR QUEUE DECLARE LONG CONSTANT SMO$K_WSXTANT = 89 ! WS EXTENT DECLARE LONG CONSTANT SMO$K_NOWSXTNT = 90 ! NO WS EXTENT DECLARE LONG CONSTANT SMO$K_NODISWAP = 91 ! ENABLE SWAPPING ! OPTIONS FOR RESTART DECLARE LONG CONSTANT SMO$K_NEXTJOB = 96 ! RESTART AT END BEGINNING OF NEXT JOB DECLARE LONG CONSTANT SMO$K_TOPOFILE = 97 ! RESTART JOB AT TOP-OF-FILE DECLARE LONG CONSTANT SMO$K_SPCCNT = 98 ! SPECIFY PAGES TO SPACE OVER ! OPTIONS FOR ABORT DECLARE LONG CONSTANT SMO$K_REQUEUE = 112 ! REQUEUE THE FILE DECLARE LONG CONSTANT SMO$K_REQDEST = 113 ! SPECIFY NEW QUEUE DESTINATION DECLARE LONG CONSTANT SMO$K_REQPRIO = 114 ! SPECIFY PRIORITY ON REQUEUE