COMSSSJ 
COMMON
          CTEXT  COMSSSJ - SPECIAL SYSTEM JOB PARAMETERS. 
          SPACE  4
*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
          SPACE  4
***       COMSSSJ - SPECIAL SYSTEM JOB PARAMETERS.
*         W.T. SACKETT. 73/01/27. 
          SPACE  4
          BASE   M
**        THRU THE USE OF THE *ROUTE* CONTROL STATEMENT OR MACRO, 
*         THE USER CAN SPECIFY A BATCH ID CODE.  THESE CODES
*         CAN HAVE A VALUE OF 0 THRU 67B. 
  
  
 IDLM     EQU    70          MAXIMUM BATCH ID CODE + 1
          SPACE  4,10 
*         *SOID* IS DEFINED FOR THOSE PROGRAMS WHICH ROUTE A JOB
*         TO THE INPUT QUEUE.  IF *DSP* IS CALLED WITH *SOID* SPECIFIED 
*         AS AN ID CODE, THE OUTPUT FOR THE JOB WILL BE DISCARDED.
  
  
 SOID     EQU    77B         SPECIAL ID FOR *DSP* CALL
          SPACE  4,10 
**        SPECIAL SYSTEM JOBS ARE IDENTIFIED BY AN SSJ= ENTRY POINT.
*         A NON-ZERO VALUE (IN THE LOWER 17 BITS) FOR AN SSJ= ENTRY 
*         POINT INDICATES THE PRESENCE OF A 5-WORD SSJ= PARAMETER 
*         BLOCK STARTING AT THE ADDRESS OF THE ENTRY POINT. 
*         THE 5-WORD PARAMETER BLOCK IS DEFINED AS FOLLOWS- 
* 
* 
*T SPPS   12/0,24/TL,12/CPR,12/SID
*T,UIDS   60/UIDW 
*T,ALMS   60/ALMW 
*T,ACLS   60/ACLW 
*T,AACS   60/AACW 
* 
*         TL     TIME LIMIT FOR SSJ= JOB
*         CPR    CPU PRIORITY FOR SSJ= JOB
*         SID    SUBSYSTEM IDENTIFICATION FOR SSJ= JOB
*         UIDW   CONTROL POINT AREA WORD *UIDW* 
*         ALMW   CONTROL POINT AREA WORD *ALMW* 
*         ACLW   CONTROL POINT AREA WORD *ACLW* 
*         AACW   CONTROL POINT AREA WORD *AACW* 
* 
* 
*         WHEN THE SSJ= PROGRAM IS LOADED, EACH NON-ZERO FIELD IN 
*         *SPPS* REPLACES THE CORRESPONDING FIELD IN THE CONTROL POINT
*         AREA.  THE USER NAME AND USER INDEX FIELDS OF *UIDW* ARE
*         SET TO *SYSTEMX* AND 377777B RESPECTIVELY.  THE ACCOUNTING
*         WORDS (*ALMW*, *ACLW*, AND *AACW*) ARE SET TO -0.  THE
*         ORIGINAL VALUES OF *ALMW*, ACLW*, AND *AACW* ARE SAVED IN 
*         THE JOB-S NEGATIVE FIELD LENGTH AT EITHER LOCATION *SSJN* 
*         OR *SSDN* (DEPENDING ON WHETHER THE JOB ALSO HAS A DMP= 
*         ENTRY POINT AND WAS CALLED BY ANOTHER SSJ= PROGRAM) AND ARE 
*         ALSO COPIED TO THE PARAMETER BLOCK FOR ACCESS BY THE PROGRAM. 
*         WHEN THE PROGRAM TERMINATES, THE VALUES ARE RESTORED TO THE 
*         CONTROL POINT AREA FROM THE NFL BLOCK.  PP PROGRAMS 
*         REQUIRING ACCESS TO THE ORIGINAL USER ID OR VALIDATION
*         PARAMETERS WHILE THE SSJ= PROGRAM IS EXECUTING SHOULD OBTAIN
*         THE INFORMATION FROM THE *SSJN* NFL BLOCK SINCE THE DATA
*         COPIED TO THE PARAMETER BLOCK MAY BE OVERWRITTEN AND CANNOT 
*         BE ASSUMED VALID. 
  
  
 SSJL     EQU    5           PARAMETER AREA LENGTH
  
 SPPS     EQU    0           SPECIAL SYSTEM PARAMETER VALUES
 UIDS     EQU    1           USER IDENTIFICATION (UIDW) 
 ALMS     EQU    2           ACCOUNT LIMIT INDEX WORD (ALMW)
 ACLS     EQU    3           ACCOUNT COUNTING LIMIT WORD (ACLW) 
 AACS     EQU    4           ACCOUNT ACCESS CONTROL (AACW)
          SPACE  4,20 
**        THE FOLLOWING TABLE IS A SUMMARY OF THE OPTIONS WHICH 
*         THE 3 POSSIBLE VALUES OF SSJ= WILL YIELD.  SSJ=, AS AN
*         ENTRY POINT, MAY BE SET EQUAL TO 0, 400000B, OR AN ADDRESS. 
* 
*                   SSJ= VALUE
*                   400000      4NNNNN      NNNNNN      000000
* FUNCTION
* 
* DROP SSID FILES     YES         YES         YES         NO
* SSJ BLOCK PRESENT   NO          YES         YES         NO
* SSJ PRIVILEGES      YES         YES         YES         YES 
* CREATE SSID FILES   NO          YES         YES         NO
* 
*         THE ONE EXCEPTION TO THE ABOVE TABLE IS IN *LFM*.  THE FST
*         CREATED FOR THE CONTROL STATEMENT FILE WHEN THE *ACCSF* MACRO 
*         IS PROCESSED WILL BE CREATED AS AN *SSID* FILE IF THE 
*         SSJ= VALUE IS 400000B.
  
  
 SSJP     EQU    0           SSJ= PRIVILEGES ONLY 
 SSJD     EQU    400000B     SSJ= PRIVILEGES PLUS DROP FILES OPTION 
  
  
**        TIMED/EVENT ROLLOUT EQUIVALENCES. 
*         SYSTEM DEFAULT TIMES FOR EVENT ROLLOUTS.
  
  
 CRT      EQU    5*60D       *ROLLOUT* MACRO DEFAULT TIME 
 MRT      EQU    10*60D      *REQUEST* MACRO DEFAULT TIME 
 ART      EQU    4*60D       *ATTACH* MACRO DEFAULT TIME
 FRT      EQU    15D         FAST ATTACH FILE *ATTACH* DEFAULT TIME 
 SCRT     EQU    5*60D       SERVICE CLASS FULL DEFAULT TIME
          BASE   *
          ENDX
