Common COMSSSJ

6 Modifications

Source

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

Line S00003 Modification History
`M01` (Added by)	`comsssj`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00003  M02S00003.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1973.
00004  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00005  M01S00004.comsssj +++|          SPACE  4
00006  M01S00005.comsssj +++|***       COMSSSJ - SPECIAL SYSTEM JOB PARAMETERS.
00007  M01S00006.comsssj +++|*         W.T. SACKETT. 73/01/27.
00008  M01S00007.comsssj +++|          SPACE  4
00009  M01S00008.comsssj +++|          BASE   M
00010  M01S00009.comsssj +++|**        THRU THE USE OF THE *ROUTE* CONTROL STATEMENT OR MACRO,
00011  M01S00010.comsssj +++|*         THE USER CAN SPECIFY A BATCH ID CODE.  THESE CODES
00012  M01S00011.comsssj +++|*         CAN HAVE A VALUE OF 0 THRU 67B.
00013  M01S00012.comsssj +++|
00014  M01S00013.comsssj +++|
00015  M01S00014.comsssj +++| IDLM     EQU    70          MAXIMUM BATCH ID CODE + 1
00016  M01S00015.comsssj +++|          SPACE  4,10
00017  M01S00016.comsssj +++|*         *SOID* IS DEFINED FOR THOSE PROGRAMS WHICH ROUTE A JOB
00018  M01S00017.comsssj +++|*         TO THE INPUT QUEUE.  IF *DSP* IS CALLED WITH *SOID* SPECIFIED
00019  M01S00018.comsssj +++|*         AS AN ID CODE, THE OUTPUT FOR THE JOB WILL BE DISCARDED.
00020  M01S00019.comsssj +++|
00021  M01S00020.comsssj +++|
00022  M01S00021.comsssj +++| SOID     EQU    77B         SPECIAL ID FOR *DSP* CALL
00023  M01S00022.comsssj +++|          SPACE  4,10
00024  M01S00023.comsssj +++|**        SPECIAL SYSTEM JOBS ARE IDENTIFIED BY AN SSJ= ENTRY POINT.
00025  M01S00024.comsssj +++|*         A NON-ZERO VALUE (IN THE LOWER 17 BITS) FOR AN SSJ= ENTRY
00026  M01S00025.comsssj +++|*         POINT INDICATES THE PRESENCE OF A 5-WORD SSJ= PARAMETER
00027  M01S00026.comsssj +++|*         BLOCK STARTING AT THE ADDRESS OF THE ENTRY POINT.
00028  M01S00027.comsssj +++|*         THE 5-WORD PARAMETER BLOCK IS DEFINED AS FOLLOWS-
00029  M01S00028.comsssj +++|*
00030  M01S00029.comsssj +++|*

Line S00030 Modification History
`M01` (Added by)	`comsssj`
`M02` (Updated by)	`ns22000`

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

Figure SPPS

Line S00001 Modification History
`M01` (Added by)	`ns22000`
`M02` (Updated 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` (Updated 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

00034  M01S00001.ns2323  +++|*T SPPS   12/0,24/TL,12/CPR,12/SID

Figure SPPS

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

Figure UIDS

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

Figure ALMS

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

Figure ACLS

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

Figure AACS

00039  M01S00035.comsssj +++|*

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

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

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

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

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

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

Line S00039 Modification History
`M01` (Added by)	`comsssj`
`M02` (Updated by)	`ns2323`

Seq #  *Modification Id* Act 
----------------------------+
00046  M02S00039.ns2323  ---|*         UIDW   USER IDENTIFICATION FROM CPA

Line S00040 Modification History
`M01` (Added by)	`comsssj`
`M02` (Updated by)	`ns2323`

Seq #  *Modification Id* Act 
----------------------------+
00047  M02S00040.ns2323  ---|*         ALMW   ACCOUNT LIMIT INDEX WORD FROM CPA

Line S00041 Modification History
`M01` (Added by)	`comsssj`
`M02` (Updated by)	`ns2323`

Seq #  *Modification Id* Act 
----------------------------+
00048  M02S00041.ns2323  ---|*         ACLW   ACCOUNT COUNTING LIMIT WORD FROM CPA

Line S00042 Modification History
`M01` (Added by)	`comsssj`
`M02` (Updated by)	`ns2323`

Seq #  *Modification Id* Act 
----------------------------+
00049  M02S00042.ns2323  ---|*         AACW   ACCOUNT ACCESS CONTROL WORD FROM CPA
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  M01S00043.comsssj +++|*
00055  M01S00044.comsssj +++|*
00056  M01S00045.comsssj +++|*         WHEN THE SSJ= PROGRAM IS LOADED, EACH NON-ZERO FIELD IN
00057  M01S00046.comsssj +++|*         *SPPS* REPLACES THE CORRESPONDING FIELD IN THE CONTROL POINT

Line S00047 Modification History
`M01` (Added by)	`comsssj`
`M02` (Updated by)	`ns2323`

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

Line S00049 Modification History
`M01` (Added by)	`comsssj`
`M02` (Updated by)	`ns2323`

Seq #  *Modification Id* Act 
----------------------------+
00061  M02S00049.ns2323  ---|*         WORDS (ALMW, ACLW, AND AACW) ARE SET TO -0.  THE ORIGINAL

Line S00050 Modification History
`M01` (Added by)	`comsssj`
`M02` (Updated by)	`ns2323`

Seq #  *Modification Id* Act 
----------------------------+
00062  M02S00050.ns2323  ---|*         FIELDS IN THE CONTROL POINT AREAS ARE COPIED INTO THE

Line S00051 Modification History
`M01` (Added by)	`comsssj`
`M02` (Updated by)	`ns2323`

Seq #  *Modification Id* Act 
----------------------------+
00063  M02S00051.ns2323  ---|*         SSJ= BLOCK.  WHEN THE SSJ= PROGRAM COMPLETES, THE FIELDS

Line S00052 Modification History
`M01` (Added by)	`comsssj`
`M02` (Updated by)	`sssj1`
`M03` (Updated by)	`ns2323`

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

Line S00053 Modification History
`M01` (Added by)	`comsssj`
`M02` (Updated by)	`sssj1`
`M03` (Updated by)	`ns2323`

Seq #  *Modification Id* Act 
----------------------------+
00065  M03S00053.ns2323  ---|*         BLOCK.

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

Seq #  *Modification Id* Act 
----------------------------+
00066  M02S00001.ns2323  ---|*         ARE RESTORED FROM THE PARAMETER BLOCK IF THE PROGRAM ALSO

Line S00002 Modification History
`M01` (Added by)	`sssj1`
`M02` (Updated by)	`ns2323`

Seq #  *Modification Id* Act 
----------------------------+
00067  M02S00002.ns2323  ---|*         HAS A VAL= ENTRY POINT.  IF THE PROGRAM DOES NOT HAVE A

Line S00003 Modification History
`M01` (Added by)	`sssj1`
`M02` (Updated by)	`ns2323`

Seq #  *Modification Id* Act 
----------------------------+
00068  M02S00003.ns2323  ---|*         VAL= ENTRY POINT THE ORIGINAL VALUES ARE RESTORED.

Line S00054 Modification History
`M01` (Added by)	`comsssj`
`M02` (Updated by)	`ns2323`

Seq #  *Modification Id* Act 
----------------------------+
00069  M02S00054.ns2323  ---|*

Line S00055 Modification History
`M01` (Added by)	`comsssj`
`M02` (Updated by)	`ns2323`

Seq #  *Modification Id* Act 
----------------------------+
00070  M02S00055.ns2323  ---|*         IF A JOB IS BOTH SSJ= AND DMP=, THE CONTROL POINT AREA

Line S00056 Modification History
`M01` (Added by)	`comsssj`
`M02` (Updated by)	`ns2323`

Seq #  *Modification Id* Act 
----------------------------+
00071  M02S00056.ns2323  ---|*         WILL BE RESTORED WITH THE CONTENTS OF THE DM* FILE,

Line S00057 Modification History
`M01` (Added by)	`comsssj`
`M02` (Updated by)	`ns2323`

Seq #  *Modification Id* Act 
----------------------------+
00072  M02S00057.ns2323  ---|*         RATHER THAN THE SSJ= BLOCK.
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  M01S00058.comsssj +++|
00087  M01S00059.comsssj +++|
00088  M01S00060.comsssj +++| SSJL     EQU    5           PARAMETER AREA LENGTH
00089  M01S00061.comsssj +++|
00090  M01S00062.comsssj +++| SPPS     EQU    0           SPECIAL SYSTEM PARAMETER VALUES
00091  M01S00063.comsssj +++| UIDS     EQU    1           USER IDENTIFICATION (UIDW)
00092  M01S00064.comsssj +++| ALMS     EQU    2           ACCOUNT LIMIT INDEX WORD (ALMW)
00093  M01S00065.comsssj +++| ACLS     EQU    3           ACCOUNT COUNTING LIMIT WORD (ACLW)
00094  M01S00066.comsssj +++| AACS     EQU    4           ACCOUNT ACCESS CONTROL (AACW)
00095  M01S00067.comsssj +++|          SPACE  4,20
00096  M01S00068.comsssj +++|**        THE FOLLOWING TABLE IS A SUMMARY OF THE OPTIONS WHICH
00097  M01S00069.comsssj +++|*         THE 3 POSSIBLE VALUES OF SSJ= WILL YIELD.  SSJ=, AS AN
00098  M01S00070.comsssj +++|*         ENTRY POINT, MAY BE SET EQUAL TO 0, 400000B, OR AN ADDRESS.
00099  M01S00071.comsssj +++|*
00100  M01S00072.comsssj +++|*                   SSJ= VALUE
00101  M01S00073.comsssj +++|*                   400000      4NNNNN      NNNNNN      000000
00102  M01S00074.comsssj +++|* FUNCTION
00103  M01S00075.comsssj +++|*
00104  M01S00076.comsssj +++|* DROP SSID FILES     YES         YES         YES         NO
00105  M01S00077.comsssj +++|* SSJ BLOCK PRESENT   NO          YES         YES         NO
00106  M01S00078.comsssj +++|* SSJ PRIVILEGES      YES         YES         YES         YES
00107  M01S00079.comsssj +++|* CREATE SSID FILES   NO          YES         YES         NO
00108  M01S00080.comsssj +++|*
00109  M01S00081.comsssj +++|*         THE ONE EXCEPTION TO THE ABOVE TABLE IS IN *LFM*.  THE FST
00110  M01S00082.comsssj +++|*         CREATED FOR THE CONTROL STATEMENT FILE WHEN THE *ACCSF* MACRO
00111  M01S00083.comsssj +++|*         IS PROCESSED WILL BE CREATED AS AN *SSID* FILE IF THE

Line S00084 Modification History
`M01` (Added by)	`comsssj`
`M02` (Updated by)	`sssj1`

Seq #  *Modification Id* Act 
----------------------------+
00112  M02S00084.sssj1   ---|*         SSJ= VALUE IS 400000B.  THIS IS DONE BECAUSE *CONTROL*

Line S00085 Modification History
`M01` (Added by)	`comsssj`
`M02` (Updated by)	`sssj1`

Seq #  *Modification Id* Act 
----------------------------+
00113  M02S00085.sssj1   ---|*         HAS AN SSJ= VALUE OF 400000B SO THAT THE CONTROL STATEMENT

Line S00086 Modification History
`M01` (Added by)	`comsssj`
`M02` (Updated by)	`sssj1`

Seq #  *Modification Id* Act 
----------------------------+
00114  M02S00086.sssj1   ---|*         FILE (SCR) AND SCRATCH FILES USED BY *CONTROL* IN *KCL*

Line S00087 Modification History
`M01` (Added by)	`comsssj`
`M02` (Updated by)	`sssj1`

Seq #  *Modification Id* Act 
----------------------------+
00115  M02S00087.sssj1   ---|*         PROCESSING WILL BE DROPPED AFTER THE *KCL* EXECUTION.
00116  M01S00004.sssj1   +++|*         SSJ= VALUE IS 400000B.
00117  M01S00088.comsssj +++|
00118  M01S00089.comsssj +++|
00119  M01S00090.comsssj +++| SSJP     EQU    0           SSJ= PRIVILEGES ONLY
00120  M01S00091.comsssj +++| SSJD     EQU    400000B     SSJ= PRIVILEGES PLUS DROP FILES OPTION
00121  M01S00092.comsssj +++|
00122  M01S00093.comsssj +++|
00123  M01S00094.comsssj +++|**        TIMED/EVENT ROLLOUT EQUIVALENCES.
00124  M01S00095.comsssj +++|*         SYSTEM DEFAULT TIMES FOR EVENT ROLLOUTS.
00125  M01S00096.comsssj +++|
00126  M01S00097.comsssj +++|
00127  M01S00098.comsssj +++| CRT      EQU    5*60D       *ROLLOUT* MACRO DEFAULT TIME
00128  M01S00099.comsssj +++| MRT      EQU    10*60D      *REQUEST* MACRO DEFAULT TIME
00129  M01S00100.comsssj +++| ART      EQU    4*60D       *ATTACH* MACRO DEFAULT TIME
00130  M01S00101.comsssj +++| FRT      EQU    15D         FAST ATTACH FILE *ATTACH* DEFAULT TIME
00131  M01S00001.ns2285  +++| SCRT     EQU    5*60D       SERVICE CLASS FULL DEFAULT TIME
00132  M01S00102.comsssj +++|          BASE   *
00133  M01S00103.comsssj +++|          ENDX