Common COMSSSJ

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.comsssj +++|          CTEXT  COMSSSJ - SPECIAL SYSTEM JOB PARAMETERS.
00002  M00S00002.comsssj +++|          SPACE  4

Line S00003 Modification History
`M01` (Removed by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00003  M01S00003.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1973.

Line S00001 Modification History
`M01` (Added by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00004  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00005  M00S00004.comsssj +++|          SPACE  4
00006  M00S00005.comsssj +++|***       COMSSSJ - SPECIAL SYSTEM JOB PARAMETERS.
00007  M00S00006.comsssj +++|*         W.T. SACKETT. 73/01/27.
00008  M00S00007.comsssj +++|          SPACE  4
00009  M00S00008.comsssj +++|          BASE   M
00010  M00S00009.comsssj +++|**        THRU THE USE OF THE *ROUTE* CONTROL STATEMENT OR MACRO,
00011  M00S00010.comsssj +++|*         THE USER CAN SPECIFY A BATCH ID CODE.  THESE CODES
00012  M00S00011.comsssj +++|*         CAN HAVE A VALUE OF 0 THRU 67B.
00013  M00S00012.comsssj +++|
00014  M00S00013.comsssj +++|
00015  M00S00014.comsssj +++| IDLM     EQU    70          MAXIMUM BATCH ID CODE + 1
00016  M00S00015.comsssj +++|          SPACE  4,10
00017  M00S00016.comsssj +++|*         *SOID* IS DEFINED FOR THOSE PROGRAMS WHICH ROUTE A JOB
00018  M00S00017.comsssj +++|*         TO THE INPUT QUEUE.  IF *DSP* IS CALLED WITH *SOID* SPECIFIED
00019  M00S00018.comsssj +++|*         AS AN ID CODE, THE OUTPUT FOR THE JOB WILL BE DISCARDED.
00020  M00S00019.comsssj +++|
00021  M00S00020.comsssj +++|
00022  M00S00021.comsssj +++| SOID     EQU    77B         SPECIAL ID FOR *DSP* CALL
00023  M00S00022.comsssj +++|          SPACE  4,10
00024  M00S00023.comsssj +++|**        SPECIAL SYSTEM JOBS ARE IDENTIFIED BY AN SSJ= ENTRY POINT.
00025  M00S00024.comsssj +++|*         A NON-ZERO VALUE (IN THE LOWER 17 BITS) FOR AN SSJ= ENTRY
00026  M00S00025.comsssj +++|*         POINT INDICATES THE PRESENCE OF A 5-WORD SSJ= PARAMETER
00027  M00S00026.comsssj +++|*         BLOCK STARTING AT THE ADDRESS OF THE ENTRY POINT.
00028  M00S00027.comsssj +++|*         THE 5-WORD PARAMETER BLOCK IS DEFINED AS FOLLOWS-
00029  M00S00028.comsssj +++|*
00030  M00S00029.comsssj +++|*

Line S00030 Modification History
`M01` (Removed by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00031  M01S00030.ns22000 ---|*T SPPS   12/0,24/TL,12/CPR,12/SID

Figure SPPS

Line S00001 Modification History
`M01` (Added by)	`ns22000`
`M02` (Removed by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
00032  M02S00001.v23l617 ---|*T SPPS   9/0,1/C,1/U,1/0,24/TL,12/CPR,12/SID

Figure SPPS

Line S00001 Modification History
`M01` (Added by)	`v23l617`
`M02` (Removed by)	`ns2323`

Seq #  *Modification Id* Act 
----------------------------+
00033  M02S00001.ns2323  ---|*T SPPS   9/0,1/P,1/U,1/0,24/TL,12/CPR,12/SID

Figure SPPS

Line S00001 Modification History
`M01` (Added by)	`ns2323`

Seq #  *Modification Id* Act 
----------------------------+
00034  M01S00001.ns2323  +++|*T SPPS   12/0,24/TL,12/CPR,12/SID

Figure SPPS

00035  M00S00031.comsssj +++|*T,UIDS   60/UIDW

Figure UIDS

00036  M00S00032.comsssj +++|*T,ALMS   60/ALMW

Figure ALMS

00037  M00S00033.comsssj +++|*T,ACLS   60/ACLW

Figure ACLS

00038  M00S00034.comsssj +++|*T,AACS   60/AACW

Figure AACS

00039  M00S00035.comsssj +++|*

Line S00002 Modification History
`M01` (Added by)	`ns22000`
`M02` (Removed by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
00040  M02S00002.v23l617 ---|*         C      PRIMARY *CHARGE* COMMAND PROCESSED.

Line S00002 Modification History
`M01` (Added by)	`v23l617`
`M02` (Removed by)	`ns2323`

Seq #  *Modification Id* Act 
----------------------------+
00041  M02S00002.ns2323  ---|*         P      SYSTEM/USER PROLOGUES PROCESSED.

Line S00003 Modification History
`M01` (Added by)	`ns22000`
`M02` (Removed by)	`ns2323`

Seq #  *Modification Id* Act 
----------------------------+
00042  M02S00003.ns2323  ---|*         U      PRIMARY *USER* COMMAND PROCESSED.
00043  M00S00036.comsssj ---|*         TL     TIME LIMIT FOR SSJ= JOB
00044  M00S00037.comsssj ---|*         CPR    CPU PRIORITY FOR SSJ= JOB
00045  M00S00038.comsssj ---|*         SID    SUBSYSTEM IDENTIFICATION FOR SSJ= JOB

Line S00039 Modification History
`M01` (Removed by)	`ns2323`

Seq #  *Modification Id* Act 
----------------------------+
00046  M01S00039.ns2323  ---|*         UIDW   USER IDENTIFICATION FROM CPA
00047  M01S00040.ns2323  ---|*         ALMW   ACCOUNT LIMIT INDEX WORD FROM CPA
00048  M01S00041.ns2323  ---|*         ACLW   ACCOUNT COUNTING LIMIT WORD FROM CPA
00049  M01S00042.ns2323  ---|*         AACW   ACCOUNT ACCESS CONTROL WORD FROM CPA

Line S00002 Modification History
`M01` (Added by)	`ns2323`

Seq #  *Modification Id* Act 
----------------------------+
00050  M01S00002.ns2323  +++|*         UIDW   CONTROL POINT AREA WORD *UIDW*
00051  M01S00003.ns2323  +++|*         ALMW   CONTROL POINT AREA WORD *ALMW*
00052  M01S00004.ns2323  +++|*         ACLW   CONTROL POINT AREA WORD *ACLW*
00053  M01S00005.ns2323  +++|*         AACW   CONTROL POINT AREA WORD *AACW*
00054  M00S00043.comsssj +++|*
00055  M00S00044.comsssj +++|*
00056  M00S00045.comsssj +++|*         WHEN THE SSJ= PROGRAM IS LOADED, EACH NON-ZERO FIELD IN
00057  M00S00046.comsssj +++|*         *SPPS* REPLACES THE CORRESPONDING FIELD IN THE CONTROL POINT

Line S00047 Modification History
`M01` (Removed by)	`ns2323`

Seq #  *Modification Id* Act 
----------------------------+
00058  M01S00047.ns2323  ---|*         AREA.   THE USER NUMBER AND USER INDEX FIELDS OF *UIDW* ARE

Line S00006 Modification History
`M01` (Added by)	`ns2323`

Seq #  *Modification Id* Act 
----------------------------+
00059  M01S00006.ns2323  +++|*         AREA.  THE USER NAME AND USER INDEX FIELDS OF *UIDW* ARE
00060  M00S00048.comsssj +++|*         SET TO *SYSTEMX* AND 377777B RESPECTIVELY.  THE ACCOUNTING

Line S00049 Modification History
`M01` (Removed by)	`ns2323`

Seq #  *Modification Id* Act 
----------------------------+
00061  M01S00049.ns2323  ---|*         WORDS (ALMW, ACLW, AND AACW) ARE SET TO -0.  THE ORIGINAL
00062  M01S00050.ns2323  ---|*         FIELDS IN THE CONTROL POINT AREAS ARE COPIED INTO THE
00063  M01S00051.ns2323  ---|*         SSJ= BLOCK.  WHEN THE SSJ= PROGRAM COMPLETES, THE FIELDS

Line S00052 Modification History
`M01` (Removed by)	`sssj1`
`M02` (Removed by)	`ns2323`

Seq #  *Modification Id* Act 
----------------------------+
00064  M02S00052.ns2323  ---|*         ARE RESTORED TO THE CONTROL POINT AREA FROM THE PARAMETER
00065  M02S00053.ns2323  ---|*         BLOCK.

Line S00001 Modification History
`M01` (Added by)	`sssj1`
`M02` (Removed by)	`ns2323`

Seq #  *Modification Id* Act 
----------------------------+
00066  M02S00001.ns2323  ---|*         ARE RESTORED FROM THE PARAMETER BLOCK IF THE PROGRAM ALSO
00067  M02S00002.ns2323  ---|*         HAS A VAL= ENTRY POINT.  IF THE PROGRAM DOES NOT HAVE A
00068  M02S00003.ns2323  ---|*         VAL= ENTRY POINT THE ORIGINAL VALUES ARE RESTORED.

Line S00054 Modification History
`M01` (Removed by)	`ns2323`

Seq #  *Modification Id* Act 
----------------------------+
00069  M01S00054.ns2323  ---|*
00070  M01S00055.ns2323  ---|*         IF A JOB IS BOTH SSJ= AND DMP=, THE CONTROL POINT AREA
00071  M01S00056.ns2323  ---|*         WILL BE RESTORED WITH THE CONTENTS OF THE DM* FILE,
00072  M01S00057.ns2323  ---|*         RATHER THAN THE SSJ= BLOCK.

Line S00007 Modification History
`M01` (Added by)	`ns2323`

Seq #  *Modification Id* Act 
----------------------------+
00073  M01S00007.ns2323  +++|*         WORDS (*ALMW*, *ACLW*, AND *AACW*) ARE SET TO -0.  THE
00074  M01S00008.ns2323  +++|*         ORIGINAL VALUES OF *ALMW*, ACLW*, AND *AACW* ARE SAVED IN
00075  M01S00009.ns2323  +++|*         THE JOB-S NEGATIVE FIELD LENGTH AT EITHER LOCATION *SSJN*
00076  M01S00010.ns2323  +++|*         OR *SSDN* (DEPENDING ON WHETHER THE JOB ALSO HAS A DMP=
00077  M01S00011.ns2323  +++|*         ENTRY POINT AND WAS CALLED BY ANOTHER SSJ= PROGRAM) AND ARE
00078  M01S00012.ns2323  +++|*         ALSO COPIED TO THE PARAMETER BLOCK FOR ACCESS BY THE PROGRAM.
00079  M01S00013.ns2323  +++|*         WHEN THE PROGRAM TERMINATES, THE VALUES ARE RESTORED TO THE
00080  M01S00014.ns2323  +++|*         CONTROL POINT AREA FROM THE NFL BLOCK.  PP PROGRAMS
00081  M01S00015.ns2323  +++|*         REQUIRING ACCESS TO THE ORIGINAL USER ID OR VALIDATION
00082  M01S00016.ns2323  +++|*         PARAMETERS WHILE THE SSJ= PROGRAM IS EXECUTING SHOULD OBTAIN
00083  M01S00017.ns2323  +++|*         THE INFORMATION FROM THE *SSJN* NFL BLOCK SINCE THE DATA
00084  M01S00018.ns2323  +++|*         COPIED TO THE PARAMETER BLOCK MAY BE OVERWRITTEN AND CANNOT
00085  M01S00019.ns2323  +++|*         BE ASSUMED VALID.
00086  M00S00058.comsssj +++|
00087  M00S00059.comsssj +++|
00088  M00S00060.comsssj +++| SSJL     EQU    5           PARAMETER AREA LENGTH
00089  M00S00061.comsssj +++|
00090  M00S00062.comsssj +++| SPPS     EQU    0           SPECIAL SYSTEM PARAMETER VALUES
00091  M00S00063.comsssj +++| UIDS     EQU    1           USER IDENTIFICATION (UIDW)
00092  M00S00064.comsssj +++| ALMS     EQU    2           ACCOUNT LIMIT INDEX WORD (ALMW)
00093  M00S00065.comsssj +++| ACLS     EQU    3           ACCOUNT COUNTING LIMIT WORD (ACLW)
00094  M00S00066.comsssj +++| AACS     EQU    4           ACCOUNT ACCESS CONTROL (AACW)
00095  M00S00067.comsssj +++|          SPACE  4,20
00096  M00S00068.comsssj +++|**        THE FOLLOWING TABLE IS A SUMMARY OF THE OPTIONS WHICH
00097  M00S00069.comsssj +++|*         THE 3 POSSIBLE VALUES OF SSJ= WILL YIELD.  SSJ=, AS AN
00098  M00S00070.comsssj +++|*         ENTRY POINT, MAY BE SET EQUAL TO 0, 400000B, OR AN ADDRESS.
00099  M00S00071.comsssj +++|*
00100  M00S00072.comsssj +++|*                   SSJ= VALUE
00101  M00S00073.comsssj +++|*                   400000      4NNNNN      NNNNNN      000000
00102  M00S00074.comsssj +++|* FUNCTION
00103  M00S00075.comsssj +++|*
00104  M00S00076.comsssj +++|* DROP SSID FILES     YES         YES         YES         NO
00105  M00S00077.comsssj +++|* SSJ BLOCK PRESENT   NO          YES         YES         NO
00106  M00S00078.comsssj +++|* SSJ PRIVILEGES      YES         YES         YES         YES
00107  M00S00079.comsssj +++|* CREATE SSID FILES   NO          YES         YES         NO
00108  M00S00080.comsssj +++|*
00109  M00S00081.comsssj +++|*         THE ONE EXCEPTION TO THE ABOVE TABLE IS IN *LFM*.  THE FST
00110  M00S00082.comsssj +++|*         CREATED FOR THE CONTROL STATEMENT FILE WHEN THE *ACCSF* MACRO
00111  M00S00083.comsssj +++|*         IS PROCESSED WILL BE CREATED AS AN *SSID* FILE IF THE

Line S00084 Modification History
`M01` (Removed by)	`sssj1`

Seq #  *Modification Id* Act 
----------------------------+
00112  M01S00084.sssj1   ---|*         SSJ= VALUE IS 400000B.  THIS IS DONE BECAUSE *CONTROL*
00113  M01S00085.sssj1   ---|*         HAS AN SSJ= VALUE OF 400000B SO THAT THE CONTROL STATEMENT
00114  M01S00086.sssj1   ---|*         FILE (SCR) AND SCRATCH FILES USED BY *CONTROL* IN *KCL*
00115  M01S00087.sssj1   ---|*         PROCESSING WILL BE DROPPED AFTER THE *KCL* EXECUTION.

Line S00004 Modification History
`M01` (Added by)	`sssj1`

Seq #  *Modification Id* Act 
----------------------------+
00116  M01S00004.sssj1   +++|*         SSJ= VALUE IS 400000B.
00117  M00S00088.comsssj +++|
00118  M00S00089.comsssj +++|
00119  M00S00090.comsssj +++| SSJP     EQU    0           SSJ= PRIVILEGES ONLY
00120  M00S00091.comsssj +++| SSJD     EQU    400000B     SSJ= PRIVILEGES PLUS DROP FILES OPTION
00121  M00S00092.comsssj +++|
00122  M00S00093.comsssj +++|
00123  M00S00094.comsssj +++|**        TIMED/EVENT ROLLOUT EQUIVALENCES.
00124  M00S00095.comsssj +++|*         SYSTEM DEFAULT TIMES FOR EVENT ROLLOUTS.
00125  M00S00096.comsssj +++|
00126  M00S00097.comsssj +++|
00127  M00S00098.comsssj +++| CRT      EQU    5*60D       *ROLLOUT* MACRO DEFAULT TIME
00128  M00S00099.comsssj +++| MRT      EQU    10*60D      *REQUEST* MACRO DEFAULT TIME
00129  M00S00100.comsssj +++| ART      EQU    4*60D       *ATTACH* MACRO DEFAULT TIME
00130  M00S00101.comsssj +++| FRT      EQU    15D         FAST ATTACH FILE *ATTACH* DEFAULT TIME

Line S00001 Modification History
`M01` (Added by)	`ns2285`

Seq #  *Modification Id* Act 
----------------------------+
00131  M01S00001.ns2285  +++| SCRT     EQU    5*60D       SERVICE CLASS FULL DEFAULT TIME
00132  M00S00102.comsssj +++|          BASE   *
00133  M00S00103.comsssj +++|          ENDX