cdc:nos2.source:opl.opl871:common:comsssj
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
cdc/nos2.source/opl.opl871/common/comsssj.txt ยท Last modified: by 127.0.0.1