cdc:nos2.source:opl.opl871:deck:cldt
Deck CLDT
Library Member Format: MODIFY
Listing Sections
- Deck CLDT Start
- Deck CLDT Part 1 (Line 1924)
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.cldt +++| IDENT CLDT,FWA,CLDT 00002 M00S00002.cldt +++| ABS
| Line S00003 Modification History | |
|---|---|
M01 (Removed by) | ns2388 |
Seq # *Modification Id* Act ----------------------------+ 00003 M01S00003.ns2388 ---| SST CLTE,CLTF,CPET
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2388 |
Seq # *Modification Id* Act ----------------------------+ 00004 M01S00001.ns2388 +++| SST CLET,CLTE,CLTF,CPET 00005 M00S00004.cldt +++| ENTRY CLDT 00006 M00S00005.cldt +++| ENTRY RFL= 00007 M00S00006.cldt +++| ENTRY SSJ= 00008 M00S00007.cldt +++| SYSCOM B1 00009 M00S00008.cldt +++|CLDT TITLE CLDT - CREATE LID TABLE. 00010 M00S00009.cldt +++|*COMMENT CLDT - CREATE LID TABLE.
| Line S00010 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00011 M01S00010.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1983.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00012 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00013 M00S00011.cldt +++| SPACE 4,10 00014 M00S00012.cldt +++|*** CLDT - CREATE LID MANAGEMENT TABLE. 00015 M00S00013.cldt +++|* 00016 M00S00014.cldt +++|* M. M. CHEN 83/01/01. 00017 M00S00015.cldt +++| SPACE 4,10 00018 M00S00016.cldt +++|*** *CLDT* CREATES A LID TABLE (LDT) ACCORDING TO THE CONTENTS OF 00019 M00S00017.cldt +++|* A LID CONFIGURATION FILE. *CLDT* IS INITIALLY EXECUTED BY 00020 M00S00018.cldt +++|* *MSM* DURING A LEVEL ZERO DEADSTART BUT MAY ALSO BE EXECUTED 00021 M00S00019.cldt +++|* ONLINE TO REBUILD THE LDT. NON-SYSTEM ORIGIN JOBS MAY CALL 00022 M00S00020.cldt +++|* *CLDT* TO CHECK FOR FATAL ERRORS IN A LID CONFIGURATION FILE 00023 M00S00021.cldt +++|* BUT NO LDT WILL BE CREATED/UPDATED IN CENTRAL MEMORY. 00024 M00S00022.cldt +++| SPACE 4,10 00025 M00S00023.cldt +++|*** COMMAND FORMAT. 00026 M00S00024.cldt +++|* 00027 M00S00025.cldt +++|* CLDT,I=LFN. 00028 M00S00026.cldt +++|* 00029 M00S00027.cldt +++|* I=LFN SPECIFIES THE LOCAL FILE NAME WHICH CONTAINS THE 00030 M00S00028.cldt +++|* DIRECTIVES TO BUILD THE LDT. IF YOU SPECIFY ONLY 00031 M00S00029.cldt +++|* PARAMETER *I* OR *I=0* OR IF YOU OMIT THE 00032 M00S00030.cldt +++|* PARAMETER, FILE *LIDCMXX* (WHERE XX = HOST PID 00033 M00S00031.cldt +++|* MACHINE ID) BECOMES LFN. IF LFN IS NOT LOCAL TO 00034 M00S00032.cldt +++|* THE JOB, THE FILE IS OBTAINED FROM THE JOB-S USER 00035 M00S00033.cldt +++|* NAME ON THE SYSTEM DEFAULT FAMILY. THIS PARAMETER 00036 M00S00034.cldt +++|* IS OPTIONAL. 00037 M00S00035.cldt +++| SPACE 4,10 00038 M00S00036.cldt +++|*** LIDCMID FILE. 00039 M00S00037.cldt +++|* 00040 M00S00038.cldt +++|*LIDCMID 00041 M00S00039.cldt +++|*KEYWORD(1),P1,P2, ,, . 00042 M00S00040.cldt +++|* . 00043 M00S00041.cldt +++|* . 00044 M00S00042.cldt +++|* . 00045 M00S00043.cldt +++|*KEYWORD(N),P1,P2, ,, . 00046 M00S00044.cldt +++|* 00047 M00S00045.cldt +++|* WHERE 00048 M00S00046.cldt +++|* LIDCMID IS THE RECORD HEADER. ID IS THE 00049 M00S00047.cldt +++|* MACHINE ID. 00050 M00S00048.cldt +++|* 00051 M00S00049.cldt +++|* 00052 M00S00050.cldt +++|* KEYWORDS INCLUDE - 00053 M00S00051.cldt +++|* 00054 M00S00052.cldt +++|* NPID - NAME OF PID. 00055 M00S00053.cldt +++|* 00056 M00S00054.cldt +++|* NLID - NAME OF LID. 00057 M00S00055.cldt +++|* 00058 M00S00056.cldt +++|* * - COMMENT. 00059 M00S00057.cldt +++|* 00060 M00S00058.cldt +++|* COMMENT - COMMENT. 00061 M00S00059.cldt +++|* 00062 M00S00060.cldt +++|* PARAMETERS FOR THE *NPID* KEYWORD - 00063 M00S00061.cldt +++|* 00064 M00S00062.cldt +++|* PID=XXX. 00065 M00S00063.cldt +++|* WHERE XXX IS A UNIQUE 3 ALPHANUMERIC CHARACTER 00066 M00S00064.cldt +++|* PHYSICAL IDENTIFIER OF THE REMOTE MAINFRAME. 00067 M00S00065.cldt +++|* (NOS MAINFRAMES ARE REQUIRED TO HAVE PIDS IN 00068 M00S00066.cldt +++|* THE FORMAT MXX, WHERE XX IS THE MACHINE ID.) 00069 M00S00067.cldt +++|* THE FIRST CHARACTER MUST BE ALPHABETIC. 00070 M00S00068.cldt +++|* THIS PARAMETER IS REQUIRED. 00071 M00S00069.cldt +++|* 00072 M00S00070.cldt +++|* ENABLED=YES OR NO. 00073 M00S00071.cldt +++|* INDICATES WHETHER THE MAINFRAME SPECIFIED BY XXX 00074 M00S00072.cldt +++|* IS AVAILABLE OR NOT. DEFAULT IS YES IF THE ENABLED 00075 M00S00073.cldt +++|* KEYWORD IS NOT SPECIFIED. 00076 M00S00074.cldt +++|* 00077 M00S00075.cldt +++|* MFTYPE=XXXXXXX. 00078 M00S00076.cldt +++|* WHERE XXXXXXX IS A 1-7 CHARACTER STRING INDICATING 00079 M00S00077.cldt +++|* THE MAINFRAME TYPE. AN EXAMPLE OF MAINFRAME TYPE 00080 M00S00078.cldt +++|* IS NOS/BE OR NOS OR NS2 OR CY700 OR IBM. 00081 M00S00079.cldt +++|* THIS PARAMETER IS REQUIRED. 00082 M00S00080.cldt +++|* 00083 M00S00081.cldt +++|* AT=VALID/NVALID/NLIST. 00084 M00S00082.cldt +++|* INDICATES THE ATTRIBUTES ASSOCIATED WITH THE 00085 M00S00083.cldt +++|* MAINFRAME IDENTIFIED BY PID. DEFAULT IS 00086 M00S00084.cldt +++|* VALID AND LIST ENABLED. EITHER VALID OR 00087 M00S00085.cldt +++|* NVALID MAYBE SPECIFIED BUT NOT BOTH. 00088 M00S00086.cldt +++|* 00089 M00S00087.cldt +++|* NETDIS=SSF/RHF/NAM. 00090 M00S00088.cldt +++|* INDICATES WHICH NETWORK ACCESSES TO THE 00091 M00S00089.cldt +++|* MAINFRAME IDENTIFIED BY XXX ARE DISABLED. DEFAULTS IS 00092 M00S00090.cldt +++|* ALL NETWORK ACCESSES ENABLED. 00093 M00S00091.cldt +++|* NETDIS IS INCORRECT FOR A PID WITH HOST ATTRIBUTE. 00094 M00S00092.cldt +++|* ANY COMBINATION OF NETWORK ACCESSES MAY BE SPECIFIED. 00095 M00S00093.cldt +++|* 00096 M00S00094.cldt +++|* PARAMETERS FOR THE *NLID* KEYWORD - 00097 M00S00095.cldt +++|* 00098 M00S00096.cldt +++|* LID=XXX. 00099 M00S00097.cldt +++|* WHERE XXX IS A 3 CHARACTER LOGICAL IDENTIFIER 00100 M00S00098.cldt +++|* FOR THE MAINFRAME IDENTIFIED BY THE LAST PID 00101 M00S00099.cldt +++|* DEFINITION. THE LID MAY BE THE SAME AS THE LAST 00102 M00S00100.cldt +++|* PID DEFINED. THIS PARAMETER IS REQUIRED. 00103 M00S00101.cldt +++|* 00104 M00S00102.cldt +++|* ENABLED=YES OR NO. 00105 M00S00103.cldt +++|* INDICATES WHETHER OR NOT THE MAINFRAME IDENTIFIED 00106 M00S00104.cldt +++|* BY THE LID IS AVAILABLE. DEFAULT IS YES IF THE 00107 M00S00105.cldt +++|* ENABLED KEYWORD IS NOT SPECIFIED. 00108 M00S00106.cldt +++|* 00109 M00S00107.cldt +++|* AT=LOOPB/STOREF/VALID/NVALID/NLIST. 00110 M00S00108.cldt +++|* INDICATES THE ATTRIBUTES ASSOCIATED WITH THE LID. 00111 M00S00109.cldt +++|* ATTRIBUTES OF LOOPB AND VALID ARE ONLY FOR 00112 M00S00110.cldt +++|* LID-S DEFINED FOR THE HOST MAINFRAMES. DEFAULT IS 00113 M00S00111.cldt +++|* *NVALID*. 00114 M00S00112.cldt +++| SPACE 4,10 00115 M00S00113.cldt +++|*** DAYFILE MESSAGES. 00116 M00S00114.cldt +++|* 00117 M00S00115.cldt +++|* 00118 M00S00116.cldt +++|* THE FOLLOWING MESSAGES ARE ISSUED WHEN FATAL ERRORS 00119 M00S00117.cldt +++|* ARE ENCOUNTERED. 00120 M00S00118.cldt +++|* 00121 M00S00119.cldt +++|* 00122 M00S00120.cldt +++|* CLDT ABORTED. SEE -A- DISPLAY. 00123 M00S00121.cldt +++|* SIGNIFICANCE - A FLASHING INFORMATIVE MESSAGE ISSUED TO 00124 M00S00122.cldt +++|* NOTIFY THE OPERATOR THAT A FATAL ERROR WAS 00125 M00S00123.cldt +++|* DETECTED AND NO LDT CAN BE CREATED. 00126 M00S00124.cldt +++|* ACTION - CORRECT THE ERROR BASED UPON THE MESSAGE(S) IN THE 00127 M00S00125.cldt +++|* SYSTEM DAYFILE AND EITHER PERFORM A LEVEL ZERO 00128 M00S00126.cldt +++|* DEADSTART OR RERUN *CLDT*. 00129 M00S00127.cldt +++|* 00130 M00S00128.cldt +++|* CLDT - BUFFER TOO SMALL. 00131 M00S00129.cldt +++|* CLDT - UNABLE TO GENERATE LID TABLE.* 00132 M00S00130.cldt +++|* NUMBER OF WORDS AVAILABLE FOR LID - XXX.* 00133 M00S00131.cldt +++|* NUMBER OF WORDS NEEDED FOR LID - XXX.* 00134 M00S00132.cldt +++|* SIGNIFICANCE - EITHER THE LENGTH OF THE LID TABLE 00135 M00S00133.cldt +++|* SPECIFIED IN IPRDECK IS TOO SMALL OR 00136 M00S00134.cldt +++|* NUMBER OF PID-S OF LID-S EXCEEDED THE 00137 M00S00135.cldt +++|* BUFFER SET IN CLDT. 00138 M00S00136.cldt +++|* ACTION - INCREASE THE LENGTH OF LID TABLE AT DEADSTART 00139 M00S00137.cldt +++|* TIME OR INCREASE THE BUFFER SIZE IN CLDT. 00140 M00S00138.cldt +++|* 00141 M00S00139.cldt +++|* CLDT ABORT. 00142 M00S00140.cldt +++|* SIGNIFICANCE - SELF-EXPLANATORY. 00143 M00S00141.cldt +++|* ACTION - TAKE NECESSARY ACTIONS BASED ON THE PRECEDING 00144 M00S00142.cldt +++|* DAYFILE MESSAGES. 00145 M00S00143.cldt +++|* 00146 M00S00144.cldt +++|* CLDT - COMMAND ERROR. 00147 M00S00145.cldt +++|* SIGNIFICANCE - AN INCORRECT PARAMETER WAS SPECIFIED ON THE 00148 M00S00146.cldt +++|* *CLDT* STATEMENT. 00149 M00S00147.cldt +++|* ACTION - SPECIFY ONLY ACCEPTABLE PARAMETERS ON THE STATEMENT. 00150 M00S00148.cldt +++|* 00151 M00S00149.cldt +++|* CLDT - DUPLICATE PID ON NPID STATEMENT. 00152 M00S00150.cldt +++|* SIGNIFICANCE - SELF-EXPLANATORY. 00153 M00S00151.cldt +++|* ACTION - DELETE THE DUPLICATE *NPID* ENTRIES. 00154 M00S00152.cldt +++|* 00155 M00S00153.cldt +++|* CLDT - EXCEEDED MAXIMUM NUMBER OF PID-S - XXX. 00156 M00S00154.cldt +++|* SIGNIFICANCE - THE MAXIMUM NUMBER OF THE PID-S IN THE 00157 M00S00155.cldt +++|* LID TABLE IS DEFINED BY THE NAME *MAXPID-S* 00158 M00S00156.cldt +++|* IN NOSTEXT. TOO MANY PID-S ARE SPECIFIED 00159 M00S00157.cldt +++|* ON THE *LIDCMID* FILE. 00160 M00S00158.cldt +++|* ACTION - REDUCE THE NUMBER OF PID-S ON THE *LIDCMID* FILE.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2250 |
Seq # *Modification Id* Act ----------------------------+ 00161 M01S00001.ns2250 +++|* 00162 M01S00002.ns2250 +++|* CLDT - EXCEEDED MAXIMUM NUMBER OF LIDS/PID - XXX. 00163 M01S00003.ns2250 +++|* SIGNIFICANCE - THE MAXIMUM NUMBER OF THE LID-S PER PID IN THE 00164 M01S00004.ns2250 +++|* LID TABLE IS DEFINED BY THE NAME *MXLID* IN 00165 M01S00005.ns2250 +++|* NOSTEXT. TOO MANY LIDS ARE SPECIFIED FOR A PID 00166 M01S00006.ns2250 +++|* ON THE *LIDCMID* FILE. 00167 M01S00007.ns2250 +++|* ACTION - REDUCE NUMBER OF LIDS FOR THIS PID. 00168 M00S00159.cldt +++|* 00169 M00S00160.cldt +++|* CLDT - FIRST STATEMENT NOT LIDCMXX. 00170 M00S00161.cldt +++|* SIGNIFICANCE - THE FIRST STATEMENT ON THE LIDCMID FILE 00171 M00S00162.cldt +++|* MUST BE *LIDCMXX* WHERE XX IS THE MACHINE ID. 00172 M00S00163.cldt +++|* ACTION - CORRECT THE FIRST STATEMENT ON THE LIDCMID FILE. 00173 M00S00164.cldt +++|* 00174 M00S00165.cldt +++|* CLDT - NETDIS IS INCORRECT FOR HOST PID. 00175 M00S00166.cldt +++|* SIGNIFICANCE - SELF-EXPLANATORY. 00176 M00S00167.cldt +++|* ACTION - DELETE *NETDIS* KEYWORD. 00177 M00S00168.cldt +++|* NOTE - WHEN YOU ARE ON MAINFRAME A AND ARE CHECKING FOR 00178 M00S00169.cldt +++|* SYNTAX ERRORS OF A LID CONFIGURATION FILE INTENDED 00179 M00S00170.cldt +++|* FOR MAINFRAME B, THIS MESSAGE MAY NOT APPLY. 00180 M00S00171.cldt +++|* 00181 M00S00172.cldt +++|* CLDT - NO PID SPECIFIED ON NPID STATEMENT. 00182 M00S00173.cldt +++|* SIGNIFICANCE - SELF-EXPLANATORY. 00183 M00S00174.cldt +++|* ACTION - SPECIFY *PID=XXX* ON THE *NPID* STATEMENT. 00184 M00S00175.cldt +++|* XXX IS THE PHYSICAL ID. 00185 M00S00176.cldt +++|* 00186 M00S00177.cldt +++|* CLDT - SPECIFY EXACTLY 3 ALPHANUMERIC CHARACTERS IN PID. 00187 M00S00178.cldt +++|* SIGNIFICANCE - SELF-EXPLANATORY. 00188 M00S00179.cldt +++|* ACTION - MAKE SURE EXACTLY 3 ALPHANUMERIC CHARACTERS ARE 00189 M00S00180.cldt +++|* SPECIFIED FOR THE PID. 00190 M00S00181.cldt +++|* 00191 M00S00182.cldt +++|* CLDT - MAXIMUM OF 7 CHARACTERS ALLOWED ON MFTYPE. 00192 M00S00183.cldt +++|* SIGNIFICANCE - SELF-EXPLANATORY. 00193 M00S00184.cldt +++|* ACTION - MAKE SURE ONLY SEVEN CHARACTERS SPECIFIED ON 00194 M00S00185.cldt +++|* THE MFTYPE KEYWORD. 00195 M00S00186.cldt +++|* 00196 M00S00187.cldt +++|* CLDT - VALID KEYWORDS FOR NPID ARE 00197 M00S00188.cldt +++|* PID,MFTYPE,ENABLED,AT AND NETDIS. 00198 M00S00189.cldt +++|* SIGNIFICANCE - SELF-EXPLANATORY. 00199 M00S00190.cldt +++|* ACTION - TAKE NECESSARY ACTIONS BASED ON THE PRECEDING 00200 M00S00191.cldt +++|* DAYFILE MESSAGES. 00201 M00S00192.cldt +++|* 00202 M00S00193.cldt +++|* CLDT - VALID OPTIONS FOR *AT* ARE VALID OR NVALID OR NLIST. 00203 M00S00194.cldt +++|* SIGNIFICANCE - SELF-EXPLANATORY. 00204 M00S00195.cldt +++|* ACTION - TAKE NECESSARY ACTIONS BASED ON THE PRECEDING 00205 M00S00196.cldt +++|* DAYFILE MESSAGES. 00206 M00S00197.cldt +++|* 00207 M00S00198.cldt +++|* CLDT - VALID OPTIONS FOR NETDIS ARE SSF, RHF AND NAM. 00208 M00S00199.cldt +++|* SIGNIFICANCE - SELF-EXPLANATORY. 00209 M00S00200.cldt +++|* ACTION - TAKE NECESSARY ACTIONS BASED ON THE PRECEDING 00210 M00S00201.cldt +++|* DAYFILE MESSAGES. 00211 M00S00202.cldt +++|* 00212 M00S00203.cldt +++|* CLDT - FILE XXXXXXX NOT FOUND. 00213 M00S00204.cldt +++|* SIGNIFICANCE - FILE XXXXXXX IS NOT LOCAL AND CANNOT BE 00214 M00S00205.cldt +++|* LOCATED UNDER THE JOB-S USER NAME. 00215 M00S00206.cldt +++|* ACTION - CREATE FILE XXXXXXX UNDER THE JOB-S USER NAME 00216 M00S00207.cldt +++|* OR HAVE THE FILE LOCAL TO THE JOB. 00217 M00S00208.cldt +++|* 00218 M00S00209.cldt +++|* CLDT - NO LID TABLE CREATED - 00219 M00S00210.cldt +++|* SIGNIFICANCE - SELF-EXPLANATORY. 00220 M00S00211.cldt +++|* ACTION - TAKE NECESSARY ACTIONS BASED ON THE PRECEDING 00221 M00S00212.cldt +++|* DAYFILE MESSAGES. NO ACTION IS REQUIRED IF NO 00222 M00S00213.cldt +++|* LDT WAS INTENDED TO BE BUILT OR IF ONLY SYNTAX 00223 M00S00214.cldt +++|* CHECKING WAS BEING DONE ON THE LID FILE. 00224 M00S00215.cldt +++|* 00225 M00S00216.cldt +++|* CLDT - UNRECOGNIZABLE DIRECTIVE. 00226 M00S00217.cldt +++|* SIGNIFICANCE - SELF-EXPLANATORY. 00227 M00S00218.cldt +++|* ACTION - CORRECT OR DELETE THE UNRECOGNIZABLE DIRECTIVE. 00228 M00S00219.cldt +++|* 00229 M00S00220.cldt +++|* CLDT - NO MFTYPE SPECIFIED ON NPID STATEMENT. 00230 M00S00221.cldt +++|* SIGNIFICANCE - SELF-EXPLANATORY. 00231 M00S00222.cldt +++|* ACTION - SPECIFY *MFTYPE=XXXXXXX* ON THE *NPID* STATEMENT. 00232 M00S00223.cldt +++|* XXXXXXX IS A 1-7 CHARACTER STRING INDICATING THE 00233 M00S00224.cldt +++|* MAINFRAME TYPE. 00234 M00S00225.cldt +++|* 00235 M00S00226.cldt +++|* CLDT - IDLE SUBSYSTEMS, RHF, NAM, AND SSF 00236 M00S00227.cldt +++|* BEFORE ATTEMPTING CLDT. 00237 M00S00228.cldt +++|* SIGNIFICANCE - SELF-EXPLANATORY. 00238 M00S00229.cldt +++|* ACTION - IDLE ANY OF THE THREE SUBSYSTEMS THAT MAYBE 00239 M00S00230.cldt +++|* AT A CONTROL POINT. EITHER RHF OR NAM OR SSF. 00240 M00S00231.cldt +++|* 00241 M00S00232.cldt +++|* CLDT - INCORRECT CHARACTER IN DIRECTIVE. 00242 M00S00233.cldt +++|* SIGNIFICANCE - SELF-EXPLANATORY. 00243 M00S00234.cldt +++|* ACTION - CORRECT THE WRONG CHARACTER IN THE DIRECTIVE. 00244 M00S00235.cldt +++|* THE INCORRECT CHARACTER IS A COLON. 00245 M00S00236.cldt +++|* 00246 M00S00237.cldt +++|* CLDT - NPID DIRECTIVE MUST BE PROCESSED BEFORE A NLID 00247 M00S00238.cldt +++|* DIRECTIVE. 00248 M00S00239.cldt +++|* SIGNIFICANCE - SELF-EXPLANATORY. 00249 M00S00240.cldt +++|* ACTION - PUT A *NPID* DIRECTIVE BEFORE THE FIRST *NLID* 00250 M00S00241.cldt +++|* DIRECTIVE. 00251 M00S00242.cldt +++|* 00252 M00S00243.cldt +++|* CLDT - A SEPARATOR MUST FOLLOW NLID OR NPID. 00253 M00S00244.cldt +++|* SIGNIFICANCE - A DIRECTIVE WAS ENCOUNTERED THAT DID NOT 00254 M00S00245.cldt +++|* HAVE A SEPARATOR. 00255 M00S00246.cldt +++|* EXAMPLE ( NPID PID=XXX,MFTYPE=XXXXXXX.) 00256 M00S00247.cldt +++|* ACTION - PUT A SEPARATOR IN THE NPID OR NLID DIRECTIVE. 00257 M00S00248.cldt +++|* EXAMPLE( NPID,PID=XXX,MFTYPE=XXXXXXX.) 00258 M00S00249.cldt +++|* 00259 M00S00250.cldt +++|* 00260 M00S00251.cldt +++|* THE FOLLOWING MESSAGES ARE INFORMATIVE MESSAGES AND ARE 00261 M00S00252.cldt +++|* NOT FATAL. 00262 M00S00253.cldt +++|* 00263 M00S00254.cldt +++|* CLDT COMPLETE. 00264 M00S00255.cldt +++|* SIGNIFICANCE - SELF-EXPLANATORY. 00265 M00S00256.cldt +++|* ACTION - NONE. 00266 M00S00257.cldt +++|* 00267 M00S00258.cldt +++|* CLDT - DUPLICATE LID ON NLID STATEMENT. 00268 M00S00259.cldt +++|* SIGNIFICANCE - SELF-EXPLANATORY. 00269 M00S00260.cldt +++|* ACTION - DELETE THE DUPLICATE *NPID* ENTRIES. 00270 M00S00261.cldt +++|* 00271 M00S00262.cldt +++|* CLDT - ERROR IN THE FOLLOWING STATEMENT. 00272 M00S00263.cldt +++|* SIGNIFICANCE - SELF-EXPLANATORY. 00273 M00S00264.cldt +++|* ACTION - TAKE NECESSARY ACTIONS BASED ON THE PRECEDING 00274 M00S00265.cldt +++|* DAYFILE MESSAGES. 00275 M00S00266.cldt +++|* 00276 M00S00267.cldt +++|* CLDT - LID KEYWORD NOT SPECIFIED. 00277 M00S00268.cldt +++|* SIGNIFICANCE - SELF-EXPLANATORY. 00278 M00S00269.cldt +++|* ACTION - SPECIFY *LID=XXX* ON THE *NLID* STATEMENT. 00279 M00S00270.cldt +++|* 00280 M00S00271.cldt +++|* CLDT - SPECIFY EXACTLY 3 ALPHANUMERIC CHARACTERS IN LID. 00281 M00S00272.cldt +++|* SIGNIFICANCE - SELF-EXPLANATORY. 00282 M00S00273.cldt +++|* ACTION - MAKE SURE EXACTLY THREE CHARACTERS ARE SPECIFIED 00283 M00S00274.cldt +++|* FOR THE LID. THE THREE CHARACTERS MUST BE 00284 M00S00275.cldt +++|* ALPHANUMERIC. 00285 M00S00276.cldt +++|* 00286 M00S00277.cldt +++|* CLDT - VALID OPTIONS FOR *AT* ARE LOOPB/STOREF/VALID 00287 M00S00278.cldt +++|* NVALID/NLIST. 00288 M00S00279.cldt +++|* SIGNIFICANCE - SELF-EXPLANATORY. 00289 M00S00280.cldt +++|* ACTION - MAKE SURE ONLY LOOPB OR STOREF OR VALID OR 00290 M00S00281.cldt +++|* NVALID OR NLIST ARE SPECIFIED FOR THE 00291 M00S00282.cldt +++|* *AT* KEYWORD. 00292 M00S00283.cldt +++|* 00293 M00S00284.cldt +++|* CLDT - ONLY YES OR NO ALLOWED ON ENABLED KEYWORD. 00294 M00S00285.cldt +++|* SIGNIFICANCE - SELF-EXPLANATORY. 00295 M00S00286.cldt +++|* ACTION - MAKE SURE EITHER YES OR NO ARE SPECIFIED ON 00296 M00S00287.cldt +++|* THE ENABLED KEYWORD. 00297 M00S00288.cldt +++|* QUALIFICATION - THIS MESSAGE IS A FATAL MESSAGE 00298 M00S00289.cldt +++|* IF ISSUED IN REFERENCE TO A NPID 00299 M00S00290.cldt +++|* STATEMENT. 00300 M00S00291.cldt +++|* 00301 M00S00292.cldt +++|* CLDT - VALID KEYWORDS FOR NLID ARE LID, ENABLED AND AT. 00302 M00S00293.cldt +++|* SIGNIFICANCE - SELF-EXPLANATORY. 00303 M00S00294.cldt +++|* ACTION - TAKE NECESSARY ACTIONS BASED ON THE PRECEDING 00304 M00S00295.cldt +++|* DAYFILE MESSAGES. 00305 M00S00296.cldt +++|* 00306 M00S00297.cldt +++|* CLDT - STATEMENT IGNORED. 00307 M00S00298.cldt +++|* SIGNIFICANCE - SELF-EXPLANATORY. 00308 M00S00299.cldt +++|* ACTION - TAKE NECESSARY ACTIONS BASED ON THE PRECEDING 00309 M00S00300.cldt +++|* DAYFILE MESSAGES. 00310 M00S00301.cldt +++|* 00311 M00S00302.cldt +++|* CLDT - INCORRECT HOST LID ATTRIBUTE. 00312 M00S00303.cldt +++|* SIGNIFICANCE - LID ATTRIBUTES OF STOREF AND LOOPB WERE BOTH 00313 M00S00304.cldt +++|* SPECIFIED FOR A LID UNDER A HOST PID. 00314 M00S00305.cldt +++|* ACTION - DELETE AT LEAST ONE OF THESE ATTRIBUTES FROM THE 00315 M00S00306.cldt +++|* NLID STATEMENT. 00316 M00S00307.cldt +++|* NOTE - WHEN YOU ARE ON MAINFRAME A AND ARE CHECKING FOR 00317 M00S00308.cldt +++|* SYNTAX ERRORS OF A LID CONFIGURATION FILE INTENDED FOR 00318 M00S00309.cldt +++|* MAINFRAME B, THIS MESSAGE MAY NOT APPLY. 00319 M00S00310.cldt +++|* 00320 M00S00311.cldt +++|* CLDT - INCORRECT LINKED LID ATTRIBUTE. 00321 M00S00312.cldt +++|* SIGNIFICANCE - A LID ATTRIBUTE OF LOOPB WAS SPECIFIED 00322 M00S00313.cldt +++|* FOR A LID UNDER A LINKED PID. 00323 M00S00314.cldt +++|* ACTION - DELETE THE LOOPB ATTRIBUTE FROM THE NLID 00324 M00S00315.cldt +++|* STATEMENT. 00325 M00S00316.cldt +++|* NOTE - WHEN YOU ARE ON MAINFRAME A AND ARE CHECKING FOR 00326 M00S00317.cldt +++|* SYNTAX ERRORS OF A LID CONFIGURATION FILE INTENDED 00327 M00S00318.cldt +++|* FOR MAINFRAME B, THIS MESSAGE MAY NOT APPLY. 00328 M00S00319.cldt +++|* 00329 M00S00320.cldt +++|* CLDT - = MUST FOLLOW KEYWORD. 00330 M00S00321.cldt +++|* SIGNIFICANCE - SELF-EXPLANATORY. 00331 M00S00322.cldt +++|* ACTION - CORRECT THE ERROR AND RETRY. 00332 M00S00323.cldt +++|* QUALIFICATION - THIS MESSAGE IS A FATAL MESSAGE 00333 M00S00324.cldt +++|* IF ISSUED IN REFERENCE TO A NPID 00334 M00S00325.cldt +++|* STATEMENT. 00335 M00S00326.cldt +++|* 00336 M00S00327.cldt +++|* CLDT - VALID OPTION CAN ONLY BE SPECIFIED IF THE STOREF 00337 M00S00328.cldt +++|* OPTION IS SPECIFIED. 00338 M00S00329.cldt +++|* SIGNIFICANCE - SELF-EXPLANATORY. 00339 M00S00330.cldt +++|* ACTION - CORRECT THE NLID STATEMENT TO INCLUDE ATTRIBUTES 00340 M00S00331.cldt +++|* VALID AND STOREF. 00341 M00S00332.cldt +++|* 00342 M00S00333.cldt +++| 00343 M00S00334.cldt +++| 00344 M00S00335.cldt +++|*CASC DATA C* CLDT - IDLE SUBSYSTEMS RHF, NAM, AND SSF* 00345 M00S00336.cldt +++|*CASD DATA C* BEFORE ATTEMPTING CLDT.* 00346 M00S00337.cldt +++|*CLDA DATA C* CLDT COMPLETE.* 00347 M00S00338.cldt +++|*CLDB DATA C* CLDT ABORT.* 00348 M00S00339.cldt +++|*CLDC DATA C* CLDT ABORTED. SEE -A- DISPLAY.* 00349 M00S00340.cldt +++|*CLDD DATA C* CLDT - NO LID TABLE CREATED.* 00350 M00S00341.cldt +++|*CLEC DATA C* CLDT - SPECIFY EXACTLY 3 ALPHANUMERIC CHARACTERS* 00351 M00S00342.cldt +++|*CLED DATA C* IN LID.* 00352 M00S00343.cldt +++|*CLEE DATA C* CLDT - VALID KEYWORDS FOR NLID ARE * 00353 M00S00344.cldt +++|*CLEF DATA C* LID, ENABLED AND AT.* 00354 M00S00345.cldt +++|*CLEG DATA C* CLDT - VALID OPTIONS FOR *AT* ARE LOOPB/STOREF/* 00355 M00S00346.cldt +++|*CLEH DATA C* VALID/NVALID/NLIST.* 00356 M00S00347.cldt +++|*CLEI DATA C* CLDT - INCORRECT HOST LID ATTRIBUTE.* 00357 M00S00348.cldt +++|*CLEJ DATA C* CLDT - INCORRECT LINKED LID ATTRIBUTE.* 00358 M00S00349.cldt +++|*CLEK DATA C* CLDT - STATEMENT IGNORED.* 00359 M00S00350.cldt +++|*CLEL DATA C* CLDT - LID KEYWORD NOT SPECIFIED.* 00360 M00S00351.cldt +++|*CLEM DATA C* CLDT - DUPLICATE LID ON NLID STATEMENT.* 00361 M00S00352.cldt +++|*CLEN DATA C* CLDT - VALID OPTION CAN ONLY BE SPECIFIED* 00362 M00S00353.cldt +++|*CLEO DATA C* IF THE STOREF OPTION IS SPECIFIED.*
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | ns2250 |
Seq # *Modification Id* Act ----------------------------+ 00363 M01S00008.ns2250 +++|*CLEU DATA C* CLDT - EXCEEDED MAXIMUM NUMBER OF LIDS/PID - XXX.* 00364 M00S00354.cldt +++|*CLTL DATA C* CLDT - NPID DIRECTIVE MUST BE PROCESSED BEFORE* 00365 M00S00355.cldt +++|*CLTM DATA C* A NLID DIRECTIVE.* 00366 M00S00356.cldt +++|*CFSF DATA C* CLDT - UNABLE TO GENERATE LID TABLE * 00367 M00S00357.cldt +++|*CFSG DATA C* NUMBER OF WORDS AVAILABLE FOR LID - XXX.* 00368 M00S00358.cldt +++|*CFSH DATA C* NUMBER OF WORDS NEEDED FOR LID - XXX.* 00369 M00S00359.cldt +++|*CFSI DATA C* CLDT - EXCEEDED MAXIMUM NUMBER OF PID-S - XXX.* 00370 M00S00360.cldt +++|*CFSJ DATA C* CLDT - UNRECOGNIZABLE DIRECTIVE.* 00371 M00S00361.cldt +++|*CPEE DATA C* CLDT - VALID KEYWORDS FOR NPID ARE * 00372 M00S00362.cldt +++|*CPEF DATA C* PID,MFTYPE,ENABLED,AT AND NETDIS.* 00373 M00S00363.cldt +++|*CPEG DATA C* CLDT - ERROR IN THE FOLLOWING STATEMENT.* 00374 M00S00364.cldt +++|*CPEH DATA C* CLDT - SPECIFY EXACTLY 3 ALPHANUMERIC CHARACTERS * 00375 M00S00365.cldt +++|* IN PID.* 00376 M00S00366.cldt +++|*CPEJ DATA C+ CLDT - VALID OPTIONS FOR *AT* ARE VALID/NVALID/+ 00377 M00S00367.cldt +++|*CPEK DATA C* NLIST.* 00378 M00S00368.cldt +++|*CPEL DATA C* CLDT - NETDIS IS INCORRECT FOR HOST PID.* 00379 M00S00369.cldt +++|*CPEM DATA C* CLDT - VALID OPTIONS FOR NETDIS ARE * 00380 M00S00370.cldt +++|*CPEN DATA C* SSF, RHF AND NAM.* 00381 M00S00371.cldt +++|*CPEO DATA C* CLDT - = MUST FOLLOW KEYWORD.* 00382 M00S00372.cldt +++|*CPEP DATA C* CLDT - NO PID SPECIFIED ON NPID STATEMENT.* 00383 M00S00373.cldt +++|*CPEQ DATA C* CLDT - DUPLICATE PID ON NPID STATEMENT.* 00384 M00S00374.cldt +++|*CPER DATA C* CLDT - MAXIMUM OF 7 CHARACTERS ALLOWED ON MFTYPE.* 00385 M00S00375.cldt +++|*CPES DATA C* CLDT - NO MFTYPE SPECIFIED ON NPID STATEMENT.* 00386 M00S00376.cldt +++|*CPEZ DATA C* CLDT - ONLY YES OR NO ALLOWED ON ENABLED KEYWORD.* 00387 M00S00377.cldt +++|*PRSA DATA C* CLDT - FIRST STATEMENT NOT LIDCMXX.* 00388 M00S00378.cldt +++|*PRSB DATA C* CLDT - COMMAND ERROR.* 00389 M00S00379.cldt +++|*PRSC DATA C* CLDT - BUFFER TOO SMALL.* 00390 M00S00380.cldt +++|*PRSD DATA C* CLDT - FILE XXXXXXX NOT FOUND.* 00391 M00S00381.cldt +++|*PTLD DATA C* CLDT - INCORRECT CHARACTER IN DIRECTIVE.* 00392 M00S00382.cldt +++|*PTLE DATA C* CLDT - A SEPARATOR MUST FOLLOW NLID OR NPID.* 00393 M00S00383.cldt +++| SPACE 4,10 00394 M00S00384.cldt +++|** LID TABLE. 00395 M00S00385.cldt +++|* 00396 M00S00386.cldt +++|*T, LTW0 12/LENH,36/RFU,12/NO-PID
Figure
Bitfield Rendering Failure ======== ========= ======= The field description [ { "name": "NO-PID", "bits": 12, "type": 3 }, { "name": "RFU", "bits": 36, "type": 2 }, { "name": "LENH", "bits": LTW0 12, "type": 1 } ] is invalid. Please check your syntax and try again.
00397 M00S00387.cldt +++|*T,1 LTW1 18/PID,1/H,1/E,1/V,1/N,4/RFU,10/RFI,12/RFU,4/SF,
Figure 1
Bitfield Rendering Failure ======== ========= ======= The field description [ { "name": "", "bits": , "type": 3 }, { "name": "SF", "bits": 4, "type": 2 }, { "name": "RFU", "bits": 12, "type": 1 }, { "name": "RFI", "bits": 10, "type": 0 }, { "name": "RFU", "bits": 4, "type": 6 }, { "name": "N", "bits": 1, "type": 5 }, { "name": "V", "bits": 1, "type": 4 }, { "name": "E", "bits": 1, "type": 3 }, { "name": "H", "bits": 1, "type": 2 }, { "name": "PID", "bits": LTW1 18, "type": 1 } ] is invalid. Please check your syntax and try again.
00398 M00S00388.cldt +++|* 4/RH,4/NP 00399 M00S00389.cldt +++|*T,2 LTW2 42/MF,6/RFU,12/NEXT-PID
Figure 2
Bitfield Rendering Failure ======== ========= ======= The field description [ { "name": "NEXT-PID", "bits": 12, "type": 3 }, { "name": "RFU", "bits": 6, "type": 2 }, { "name": "MF", "bits": LTW2 42, "type": 1 } ] is invalid. Please check your syntax and try again.
00400 M00S00390.cldt +++|*T,3 LTW3 12/RFI,36/RFU,12/NO-LID
Figure 3
Bitfield Rendering Failure ======== ========= ======= The field description [ { "name": "NO-LID", "bits": 12, "type": 3 }, { "name": "RFU", "bits": 36, "type": 2 }, { "name": "RFI", "bits": LTW3 12, "type": 1 } ] is invalid. Please check your syntax and try again.
00401 M00S00391.cldt +++|*T,4 LTW4 18/LID,6/0,1/E,1/S,1/V,1/B,1/N,7/RFU,6/RFI,18/RFU
Figure 4
Bitfield Rendering Failure ======== ========= ======= The field description [ { "name": "RFU", "bits": 18, "type": 3 }, { "name": "RFI", "bits": 6, "type": 2 }, { "name": "RFU", "bits": 7, "type": 1 }, { "name": "N", "bits": 1, "type": 0 }, { "name": "B", "bits": 1, "type": 6 }, { "name": "V", "bits": 1, "type": 5 }, { "name": "S", "bits": 1, "type": 4 }, { "name": "E", "bits": 1, "type": 3 }, { "name": "0", "bits": 6, "type": 2 }, { "name": "LID", "bits": LTW4 18, "type": 1 } ] is invalid. Please check your syntax and try again.
00402 M00S00392.cldt +++|* . 00403 M00S00393.cldt +++|* . 00404 M00S00394.cldt +++|* . 00405 M00S00395.cldt +++|*T,I LTWI REPEAT LTW4 FOR ADDITIONAL LID-S.
Figure I
Bitfield Rendering Failure ======== ========= ======= The field description [ { "name": "", "bits": LTWI REPEAT LTW4 FOR ADDITIONAL LID-S., "type": 1 } ] is invalid. Please check your syntax and try again.
00406 M00S00396.cldt +++|* 00407 M00S00397.cldt +++|*T,N+1 LTWN+1 REPEAT LTW1 - LTWI FOR NEXT PID
Figure N+1
Bitfield Rendering Failure ======== ========= ======= The field description [ { "name": "", "bits": LTWN+1 REPEAT LTW1 - LTWI FOR NEXT PID, "type": 1 } ] is invalid. Please check your syntax and try again.
00408 M00S00398.cldt +++|* . 00409 M00S00399.cldt +++|* . 00410 M00S00400.cldt +++|* . 00411 M00S00401.cldt +++|* 00412 M00S00402.cldt +++|* 00413 M00S00403.cldt +++|* WORD 0. 00414 M00S00404.cldt +++|* 00415 M00S00405.cldt +++|* LENH 59-48 LENGTH OF LID TABLE IN CM WORDS. 00416 M00S00406.cldt +++|* RFU 47-12 RESERVED FOR CDC. 00417 M00S00407.cldt +++|* NO-PID 11-0 NUMBER OF PID-S. 00418 M00S00408.cldt +++|* 00419 M00S00409.cldt +++|* WORD 1. 00420 M00S00410.cldt +++|* 00421 M00S00411.cldt +++|* PID 59-42 PHYSICAL ID. 00422 M00S00412.cldt +++|* H 41 HOST = 1, LINK = 0. 00423 M00S00413.cldt +++|* E 40 ENABLED. 00424 M00S00414.cldt +++|* V 39 PRE-VALIDATION. 00425 M00S00415.cldt +++|* N 38 NO-LIST. 00426 M00S00416.cldt +++|* RFU 37-34 RESERVED FOR CDC. 00427 M00S00417.cldt +++|* RFI 33-24 RESERVED FOR INSTALLATION. 00428 M00S00418.cldt +++|* RFU 23-12 RESERVED FOR CDC. 00429 M00S00419.cldt +++|* SF 11-8 SSF - SCOPE 2 STATION FACILITY. 00430 M00S00420.cldt +++|* RH 7-4 RHF - REMOTE HOST STATUS. 00431 M00S00421.cldt +++|* NP 3-0 NHP - NETWORK HOST PRODUCTS STATUS. 00432 M00S00422.cldt +++|* 00433 M00S00423.cldt +++|* (1) NETWORK STATUS CODES. 00434 M00S00424.cldt +++|* 0 - NETWORK NOT AVAILABLE. 00435 M00S00425.cldt +++|* 1 - PATHS TO PID IN SERVICE. 00436 M00S00426.cldt +++|* 2 - ALL PATHS TO PID OUT OF SERVICE. 00437 M00S00427.cldt +++|* 3-7 - RESERVED FOR CDC. 00438 M00S00428.cldt +++|* 10 - PATHS TO PID DISABLED BY OPERATOR. 00439 M00S00429.cldt +++|* NETWORK NOT AVAILABLE. 00440 M00S00430.cldt +++|* 11 - PATHS TO PID DISABLED BY OPERATOR. 00441 M00S00431.cldt +++|* PATHS TO PID IN SERVICE 00442 M00S00432.cldt +++|* 12 - PATHS TO PID DISABLED BY OPERATOR. 00443 M00S00433.cldt +++|* ALL PATHS TO PID OUT OF SERVICE. 00444 M00S00434.cldt +++|* 00445 M00S00435.cldt +++|* WORD 2. 00446 M00S00436.cldt +++|* 00447 M00S00437.cldt +++|* MF 59-18 MAINFRAME DESCRIPTION. 00448 M00S00438.cldt +++|* RFU 17-12 RESERVED OF CDC. 00449 M00S00439.cldt +++|* NEXT-PID 11-0 NEXT PID OFFSET ADDRESS. 00450 M00S00440.cldt +++|* 00451 M00S00441.cldt +++|* WORD 3. 00452 M00S00442.cldt +++|* 00453 M00S00443.cldt +++|* RFI 59-48 RESERVED FOR INSTALLATION. 00454 M00S00444.cldt +++|* RFU 47-12 RESERVED FOR CDC. 00455 M00S00445.cldt +++|* NO-LID 11-0 NUMBER OF LID SLOTS FOR THIS PID. 00456 M00S00446.cldt +++|* 00457 M00S00447.cldt +++|* WORD 4. 00458 M00S00448.cldt +++|* 00459 M00S00449.cldt +++|* LID 59-42 FIRST - LID. 00460 M00S00450.cldt +++|* ZERO 41-36 RESERVED FOR CDC. 00461 M00S00451.cldt +++|* E 35 ENABLED FLAG FOR LID. 00462 M00S00452.cldt +++|* S 34 STORE AND FORWARD MAINFRAME FOR LID. 00463 M00S00453.cldt +++|* V 33 LID VALIDATION ATTRIBUTE. 00464 M00S00454.cldt +++|* B 32 LOOP BACK FLAG FOR LID. 00465 M00S00455.cldt +++|* N 31 LID NOLIST ATTRIBUTE. 00466 M00S00456.cldt +++|* RFU 30-24 RESERVED FOR CDC. 00467 M00S00457.cldt +++|* RFI 23-18 RESERVED FOR INSTALLATION. 00468 M00S00458.cldt +++|* RFU 17-0 RESERVED FOR CDC. 00469 M00S00459.cldt +++| SPACE 4,10 00470 M00S00460.cldt +++|* COMMON DECKS. 00471 M00S00461.cldt +++| 00472 M00S00462.cldt +++| 00473 M00S00463.cldt +++|*CALL COMCMAC 00474 M00S00464.cldt +++|*CALL COMCCMD 00475 M00S00465.cldt +++|*CALL COMSPFM 00476 M00S00466.cldt +++|*CALL COMSSCD 00477 M00S00467.cldt +++|*CALL COMSSFM 00478 M00S00468.cldt +++|*CALL COMSSSD 00479 M00S00469.cldt +++|*CALL COMSSSJ 00480 M00S00470.cldt +++| BASE D 00481 M00S00471.cldt +++| SPACE 4,10 00482 M00S00472.cldt +++|* MACRO DEFINITIONS. 00483 M00S00473.cldt +++| 00484 M00S00474.cldt +++|** FIELD - DEFINE FIELDS. 00485 M00S00475.cldt +++|* TAGS ARE GENERATED TO GIVE THE WORD LOCATION, BIT 00486 M00S00476.cldt +++|* LOCATION, AND NUMBER OF BITS IN FIELD. 00487 M00S00477.cldt +++|* 00488 M00S00478.cldt +++|* ENTRY TAG FIELD WP,LB,RB 00489 M00S00479.cldt +++|* TAG = NAME OF FIELD (1-6 LEGAL COMPASS CHARACTERS) 00490 M00S00480.cldt +++|* = *, USE CURRENT VALUE OF PSEUDO ORG COUNTER ORLOC1$ 00491 M00S00481.cldt +++|* WP = RELATIVE WORD POSITION IN A TABLE. 00492 M00S00482.cldt +++|* LB = LEFT-MOST BIT POSITION WITHIN A WORD (BIT 59 BEING 00493 M00S00483.cldt +++|* SIGN BIT). 00494 M00S00484.cldt +++|* RB = RIGHT-MOST BIT POSITION WITHIN A WORD. 00495 M00S00485.cldt +++|* 00496 M00S00486.cldt +++|* EXIT TAGW = WORD LOCATION OF FIELD. 00497 M00S00487.cldt +++|* TAGS = LEFT BIT POSITION OF FIELD. 00498 M00S00488.cldt +++|* TAGN = NUMBER OF BITS IN FIELD. 00499 M00S00489.cldt +++| 00500 M00S00490.cldt +++| 00501 M00S00491.cldt +++| PURGMAC FIELD 00502 M00S00492.cldt +++| 00503 M00S00493.cldt +++| MACRO FIELD,TAG,WP,LB,RB 00504 M00S00494.cldt +++| IFC NE,/WP//,4 00505 M00S00495.cldt +++| IFC EQ,/WP/*/,2 00506 M00S00496.cldt +++| _TAG_W EQU ORLOC1$ 00507 M00S00497.cldt +++| SKIP 1 00508 M00S00498.cldt +++| _TAG_W EQU WP 00509 M00S00499.cldt +++| _TAG_S EQU LB 00510 M00S00500.cldt +++| _TAG_N EQU LB-RB+1 00511 M00S00501.cldt +++| ENDM 00512 M00S00502.cldt +++| SPACE 4,10 00513 M00S00503.cldt +++|* LID TABLE (LDT) FIELD DEFINITIONS. 00514 M00S00504.cldt +++| 00515 M00S00505.cldt +++| 00516 M00S00506.cldt +++| LNTH FIELD 0,59,48 LID TABLE LENGTH 00517 M00S00507.cldt +++| LRF0 FIELD 0,47,12 RESERVED FOR CDC 00518 M00S00508.cldt +++| LILK FIELD 0,11,0 NUMBER OF PID-S 00519 M00S00509.cldt +++| 00520 M00S00510.cldt +++| LPID FIELD 1,59,42 PID 00521 M00S00511.cldt +++| LHST FIELD 1,41,41 1 IF HOST, 0 IF LINK 00522 M00S00512.cldt +++| LENA FIELD 1,40,40 1 IF ENABLED 00523 M00S00513.cldt +++| LVAD FIELD 1,39,39 1 IF PRE-VALIDATION REQUIRED 00524 M00S00514.cldt +++| LNST FIELD 1,38,38 1 IF NOT TO LIST PID 00525 M00S00515.cldt +++| LRF1 FIELD 1,37,34 RESERVED FOR CDC 00526 M00S00516.cldt +++| LRFI FIELD 1,33,24 RESERVED FOR INSTALLATION 00527 M00S00517.cldt +++| LRF2 FIELD 1,23,12 RESERVED FOR CDC 00528 M00S00518.cldt +++| LSFS FIELD 1,11,8 SSF - SCOPE 2 STATION FACILITY STATUS 00529 M00S00519.cldt +++| LRHS FIELD 1,7,4 RHF - REMOTE HOST FACILITY STATUS 00530 M00S00520.cldt +++| LNPS FIELD 1,3,0 NHP - NETWORK HOST PRODUCTS STATUS 00531 M00S00521.cldt +++| 00532 M00S00522.cldt +++| LMFD FIELD 2,59,18 MAINFRAME DESCRIPTION 00533 M00S00523.cldt +++| LRF3 FIELD 2,17,12 RESERVED FOR CDC 00534 M00S00524.cldt +++| LNPD FIELD 2,11,0 NEXT PID OFFSET ADDRESS 00535 M00S00525.cldt +++| 00536 M00S00526.cldt +++| LRI3 FIELD 3,59,48 RESERVED FOR INSTALLATION 00537 M00S00527.cldt +++| LRF4 FIELD 3,47,12 RESERVED FOR CDC 00538 M00S00528.cldt +++| LNLD FIELD 3,11,0 NUMBER OF LID SLOTS FOR THIS PID 00539 M00S00529.cldt +++| 00540 M00S00530.cldt +++| LLD1 FIELD 4,59,42 FIRST LID 00541 M00S00531.cldt +++| LRF5 FIELD 4,41,36 RESERVED FOR CDC 00542 M00S00532.cldt +++| LLEN FIELD 4,35,35 1 IF ENABLED LID 00543 M00S00533.cldt +++| LSTF FIELD 4,34,34 1 IF STORE AND FORWARD 00544 M00S00534.cldt +++| LLVA FIELD 4,33,33 1 IF PRE-VALIDATION REQUIRED 00545 M00S00535.cldt +++| LLBK FIELD 4,32,32 1 IF LOOP BACK 00546 M00S00536.cldt +++| LNLS FIELD 4,31,31 1 IF NOLIST ATTRIBUTE 00547 M00S00537.cldt +++| LRF6 FIELD 4,30,24 RESERVED FOR CDC 00548 M00S00538.cldt +++| LRI4 FIELD 4,23,18 RESERVED FOR INSTALLATION 00549 M00S00539.cldt +++| LRF7 FIELD 4,17,0 RESERVED FOR CDC 00550 M00S00540.cldt +++| SPACE 4 00551 M00S00541.cldt +++| QUAL$ EQU 0 00552 M00S00542.cldt +++| BASE D 00553 M00S00543.cldt +++| TITLE DEFINITIONS. 00554 M00S00544.cldt +++|**** ASSEMBLY CONSTANTS. 00555 M00S00545.cldt +++| 00556 M00S00546.cldt +++| IBUFL EQU 400 BUFFER LENGTH 00557 M00S00547.cldt +++| SSJ= EQU 400000B SSJ= ENTRY POINT 00558 M00S00548.cldt +++| UBUFL EQU 220 UNPACK BUFFER LENGTH 00559 M00S00549.cldt +++| WBUFL EQU 22 WORKING BUFFER LENGTH 00560 M00S00550.cldt +++|**** 00561 M00S00551.cldt +++| SPACE 4,10 00562 M00S00552.cldt +++| ORG 200B 00563 M00S00553.cldt +++| FWA BSS 0 00564 M00S00554.cldt +++| SPACE 4,10 00565 M00S00555.cldt +++|* FET DEFINITIONS. 00566 M00S00556.cldt +++| 00567 M00S00557.cldt +++| I BSS 0 LID CONFIGURATION FILE 00568 M00S00558.cldt +++| LIDCM FILEC IBUF,IBUFL,(FET=13D) 00569 M00S00559.cldt +++| SPACE 4 00570 M00S00560.cldt +++|* GLOBAL VARIABLES. 00571 M00S00561.cldt +++| 00572 M00S00562.cldt +++| DSSQ CON 0 DEADSTART SEQUENCE FLAG (0 IF DEADSTART) 00573 M00S00563.cldt +++| FERF CON 0 FATAL ERROR FLAG 00574 M00S00564.cldt +++| FS CON 0 FREE SPACE FOR EACH PID 00575 M00S00565.cldt +++| FSR CON 0 REMAINDER OF FREE SPACE 00576 M00S00566.cldt +++| HOST CON 0 ZERO IF NO HOST PID SPECIFIED 00577 M00S00567.cldt +++| HOSTFLG VFD 60/1 ZERO IF HOST MAINFRAME 00578 M00S00568.cldt +++| HOSTPID VFD 60/0LM HOST MAINFRAME PID 00579 M00S00569.cldt +++| JORG CON 0 JOB ORIGIN FLAG (0 IF SYSTEM ORIGIN) 00580 M00S00570.cldt +++| LIDD VFD 24/0,1/1,35/0 LID DEFAULT VALUE (ENABLED) 00581 M00S00571.cldt +++| LIDL CON 0 LID TABLE LENGTH 00582 M00S00572.cldt +++| PIDD VFD 18/0,1/0,1/1,28/0,4/0,4/0,4/0 00583 M00S00573.cldt +++|* (ENABLED AND NOT VALIDATE) 00584 M00S00574.cldt +++| TITLE MAIN PROGRAM. 00585 M00S00575.cldt +++|** CLDT - CREATE LID TABLE. 00586 M00S00576.cldt +++|* 00587 M00S00577.cldt +++|* EXIT LID TABLE GENERATED IF NO FATAL ERRORS ENCOUNTERED 00588 M00S00578.cldt +++|* IN THE FILE AND CALLED BY A SYSTEM ORIGIN JOB. 00589 M00S00579.cldt +++|* IF CALLED BY A NON-SYSTEM ORIGIN JOB, THE LID 00590 M00S00580.cldt +++|* CONFIGURATION FILE IS VERIFIED AND NO LID TABLE 00591 M00S00581.cldt +++|* IS CREATED. 00592 M00S00582.cldt +++|* 00593 M00S00583.cldt +++|* USES X - 2. 00594 M00S00584.cldt +++|* A - 2. 00595 M00S00585.cldt +++|* 00596 M00S00586.cldt +++|* CALLS CAS, CFS, CLT, PRS, PSE. 00597 M00S00587.cldt +++|* 00598 M00S00588.cldt +++|* MACROS ABORT, ENDRUN, FLASH, MESSAGE, RETURN, SETPIDI. 00599 M00S00589.cldt +++|* 00600 M00S00590.cldt +++|* NOTE FATAL *CLDT* ERRORS ENCOUNTERED DURING A LEVEL ZERO 00601 M00S00591.cldt +++|* DEADSTART WILL NOT CAUSE *CLDT* TO ABORT. THIS ERROR 00602 M00S00592.cldt +++|* EXIT PROCESSING IS TO ENSURE THAT SUBSEQUENT *ISF* 00603 M00S00593.cldt +++|* PROCESSING (INITIATED BY *MSM*) WILL OCCUR REGARDLESS 00604 M00S00594.cldt +++|* *CLDT* ERRORS. NO LID TABLE IS CREATED IF FATAL 00605 M00S00595.cldt +++|* ERRORS ARE ENCOUNTERED. 00606 M00S00596.cldt +++| 00607 M00S00597.cldt +++| CLDT BSS 0 ENTRY 00608 M00S00598.cldt +++| RJ PRS PRESET 00609 M00S00599.cldt +++| RJ CFS CALCULATE FREE SPACE 00610 M00S00600.cldt +++| RJ CLT CREATE LID TABLE 00611 M00S00601.cldt +++| SA2 FERF 00612 M00S00602.cldt +++| NZ X2,CLD3 IF FATAL ERROR ENCOUNTERED 00613 M00S00603.cldt +++| SA2 JORG 00614 M00S00604.cldt +++| NZ X2,CLD1 IF NON-SYSTEM ORIGIN USER 00615 M00S00605.cldt +++| RJ CAS CHECK ACTIVE SUBSYSTEMS 00616 M00S00606.cldt +++| SETPIDI LIDT GENERATE LID TABLE 00617 M00S00607.cldt +++| EQ CLD2 * CLDT COMPLETE.* 00618 M00S00608.cldt +++| 00619 M00S00609.cldt +++| CLD1 MESSAGE CLDD * CLDT - NO LID TABLE CREATED.* 00620 M00S00610.cldt +++| CLD2 MESSAGE CLDA * CLDT COMPLETE.* 00621 M00S00611.cldt +++| EQ CLD5 EXIT 00622 M00S00612.cldt +++| 00623 M00S00613.cldt +++| CLD3 MESSAGE CLDB * CLDT ABORT.* 00624 M00S00614.cldt +++| SA2 DSSQ 00625 M00S00615.cldt +++| ZR X2,CLD4 IF DEADSTART SEQUENCE 00626 M00S00616.cldt +++| RETURN I,R RETURN LID CONFIGURATION FILE 00627 M00S00617.cldt +++| ABORT 00628 M00S00618.cldt +++| 00629 M00S00619.cldt +++| CLD4 MESSAGE CLDC,1 * CLDT ABORTED. SEE -A- DISPLAY.* 00630 M00S00620.cldt +++| FLASH INTENSIFY MESSAGE ON CONSOLE 00631 M00S00621.cldt +++| RJ PSE PAUSE FOR OPERATOR GO/DROP 00632 M00S00622.cldt +++| CLD5 RETURN I,R RETURN LID CONFIGURATION FILE 00633 M00S00623.cldt +++| ENDRUN CLDT 00634 M00S00624.cldt +++| 00635 M00S00625.cldt +++| 00636 M00S00626.cldt +++| CLDA DATA C* CLDT COMPLETE.* 00637 M00S00627.cldt +++| CLDB DATA C* CLDT ABORT.* 00638 M00S00628.cldt +++| CLDC DATA C* CLDT ABORTED. SEE -A- DISPLAY.* 00639 M00S00629.cldt +++| CLDD DATA C* CLDT - NO LID TABLE CREATED.* 00640 M00S00630.cldt +++| CAS TITLE SUBROUTINES. 00641 M00S00631.cldt +++|** CAS - CHECK ACTIVE SUBSYSTEMS. 00642 M00S00632.cldt +++|* 00643 M00S00633.cldt +++|* EXIT AN ERROR MESSAGE IS ISSUED IF ANY OF THREE SUBSYSTEMS 00644 M00S00634.cldt +++|* ARE ACTIVE AT A CONTROL POINT (RHF, NAM, OR SSF). 00645 M00S00635.cldt +++|* TO *CLD3* IF ANY OR ALL OF THE ABOVE SUBSYSTEMS ARE 00646 M00S00636.cldt +++|* CURRENTLY ACTIVE. 00647 M00S00637.cldt +++|* 00648 M00S00638.cldt +++|* USES X - 0, 1, 2, 6. 00649 M00S00639.cldt +++|* A - 1, 2, 6. 00650 M00S00640.cldt +++|* B - 2, 3, 4. 00651 M00S00641.cldt +++|* 00652 M00S00642.cldt +++|* MACROS MESSAGE, SYSTEM. 00653 M00S00643.cldt +++| 00654 M00S00644.cldt +++| 00655 M00S00645.cldt +++| CAS SUBR ENTRY/EXIT 00656 M00S00646.cldt +++| 00657 M00S00647.cldt +++|* GET *SSCP* TABLE POINTER. 00658 M00S00648.cldt +++| 00659 M00S00649.cldt +++| SYSTEM RSB,R,CASA GET *SSCP* 00660 M00S00650.cldt +++| 00661 M00S00651.cldt +++| SA1 CASA+1 *SSC* POINTER 00662 M00S00652.cldt +++| MX0 24 00663 M00S00653.cldt +++| LX0 -24 00664 M00S00654.cldt +++| BX1 X0*X1 *SSC* 00665 M00S00655.cldt +++| LX1 6 00666 M00S00656.cldt +++| SX2 SSCTL 00667 M00S00657.cldt +++| LX2 18 00668 M00S00658.cldt +++| IX1 X2+X1 TO GET WORD FOR RHF SSC 00669 M00S00659.cldt +++| SA2 CASB 00670 M00S00660.cldt +++| BX6 X2+X1 ADD ADDRESS OF SSC FOR RSB CALL 00671 M00S00661.cldt +++| SA6 CASB 00672 M00S00662.cldt +++| 00673 M00S00663.cldt +++|* GET *SSC* SUBSYSTEM CONTROL POINT TABLE. 00674 M00S00664.cldt +++| 00675 M00S00665.cldt +++| SYSTEM RSB,R,CASB GET *SSC* 00676 M00S00666.cldt +++| 00677 M00S00667.cldt +++| SB4 3-1 SET NUMBER OF SUBSYSTEMS TO CHECK -1 00678 M00S00668.cldt +++| SB2 MXSI-RFSI SET RHF ID 00679 M00S00669.cldt +++| CAS1 MX0 12 00680 M00S00670.cldt +++| SX2 CASB+1 00681 M00S00671.cldt +++| SB3 5 SET NUMBER OF BYTES IN WORD 00682 M00S00672.cldt +++| CAS2 ZR B2,CAS3 IF SUBSYSTEM ASSIGNMENT FOUND 00683 M00S00673.cldt +++| SB2 B2-B1 00684 M00S00674.cldt +++| LX0 -12 00685 M00S00675.cldt +++| SB3 B3-B1 00686 M00S00676.cldt +++| NZ B3,CAS2 IF MORE BYTES IN WORD TO CHECK 00687 M00S00677.cldt +++| SX2 X2+B1 CHECK NEXT WORD 00688 M00S00678.cldt +++| SB3 5 SET NUMBER OF BYTES IN WORD 00689 M00S00679.cldt +++| EQ CAS2 CONTINUE SUBSYSTEM SEARCH 00690 M00S00680.cldt +++| 00691 M00S00681.cldt +++| CAS3 SA1 X2 00692 M00S00682.cldt +++| BX1 X0*X1 GET EJT ORDINAL ASSIGNED TO SUBSYSTEM 00693 M00S00683.cldt +++| NZ X1,CAS4 IF SUBSYSTEM IS ASSIGNED 00694 M00S00684.cldt +++| ZR B4,CASX IF DONE CHECKING SUBSYSTEMS 00695 M00S00685.cldt +++| SB4 B4-B1 00696 M00S00686.cldt +++| SB2 MXSI-NMSI SET NAM ID 00697 M00S00687.cldt +++| EQ B4,B1,CAS1 IF CHECKING NAM ACTIVITY 00698 M00S00688.cldt +++| SB2 MXSI-SSSI 00699 M00S00689.cldt +++| EQ CAS1 CHECK FOR SSF ACTIVITY 00700 M00S00690.cldt +++| 00701 M00S00691.cldt +++| 00702 M00S00692.cldt +++| CAS4 MESSAGE CASC * CLDT - IDLE SUBSYSTEMS RHF, NAM AND SSF* 00703 M00S00693.cldt +++| MESSAGE CASD * BEFORE ATTEMPTING CLDT.* 00704 M00S00694.cldt +++| EQ CLD3 * CLDT ABORT.* 00705 M00S00695.cldt +++| 00706 M00S00696.cldt +++| CASA VFD 12/0,12/1,18/SSCP,18/CASA+1 00707 M00S00697.cldt +++| CON -1 00708 M00S00698.cldt +++| CASB VFD 12/0,12/SSCTL,18/0,18/CASB+1 00709 M00S00699.cldt +++| CON -1 00710 M00S00700.cldt +++| BSSZ SSCTL-1 00711 M00S00701.cldt +++| CASC DATA C* CLDT - IDLE SUBSYSTEMS RHF, NAM, AND SSF* 00712 M00S00702.cldt +++| CASD DATA C* BEFORE ATTEMPTING CLDT.* 00713 M00S00703.cldt +++| CLE SPACE 4,15 00714 M00S00704.cldt +++|** CLE - CREATE LID ENTRY. 00715 M00S00705.cldt +++|* 00716 M00S00706.cldt +++|* ENTRY (CLTB) = CURRENT LID POINTER. 00717 M00S00707.cldt +++|* (CLTD) = CURRENT FWA OF PID. 00718 M00S00708.cldt +++|* 00719 M00S00709.cldt +++|* EXIT (CLTB) = CURRENT LID POINTER. 00720 M00S00710.cldt +++|* (CLTE) = NUMBER OF LID FOR PID. 00721 M00S00711.cldt +++|* 00722 M00S00712.cldt +++|* USES X - 0, 1, 2, 3, 4, 5, 6, 7. 00723 M00S00713.cldt +++|* A - 1, 2, 6, 7. 00724 M00S00714.cldt +++|* B - 1, 2, 3. 00725 M00S00715.cldt +++|* 00726 M00S00716.cldt +++|* MACRO MESSAGE. 00727 M00S00717.cldt +++| 00728 M00S00718.cldt +++| 00729 M00S00719.cldt +++| CLE SUBR ENTRY/EXIT 00730 M00S00720.cldt +++| SA1 UBUF GET UNPACK BUFFER 00731 M00S00721.cldt +++| BX7 X7-X7 INITIAL LID ENTRY 00732 M00S00722.cldt +++| SA2 LIDD LID DEFAULT VALUE, ENABLED 00733 M00S00723.cldt +++| BX6 X2 00734 M00S00724.cldt +++| SA7 CLEQ CLEAR *LID* SPECIFIED FLAG 00735 M00S00725.cldt +++| SA7 CLER CLEAR LOOPB SPECIFIED FLAG 00736 M00S00726.cldt +++| SA7 CLES CLEAR STOREF SPECIFIED FLAG 00737 M00S00727.cldt +++| SA7 CLEP CLEAR VALID SPECIFIED FLAG 00738 M00S00728.cldt +++| CLE1 MX0 42 00739 M00S00729.cldt +++| SA1 A1+B1 GET KEYWORD 00740 M00S00730.cldt +++| SA2 CLEA GET KEYWORD TABLE 00741 M00S00731.cldt +++| ZR X1,CLE18 IF DONE PROCESSING 00742 M00S00732.cldt +++| CLE2 ZR X2,CLE23 IF NO MATCH FOUND 00743 M00S00733.cldt +++| BX3 X1-X2 00744 M00S00734.cldt +++| BX4 X0*X3 00745 M00S00735.cldt +++| ZR X4,CLE3 IF KEYWORD MATCH 00746 M00S00736.cldt +++| SA2 A2+1 00747 M00S00737.cldt +++| EQ CLE2 TRY NEXT WORD 00748 M00S00738.cldt +++| 00749 M00S00739.cldt +++| CLE3 SB3 X2 GET ADDRESS OF PROCESSOR 00750 M00S00740.cldt +++| SX3 1R= 00751 M00S00741.cldt +++| BX2 X1-X3 00752 M00S00742.cldt +++| BX4 -X0*X2 00753 M00S00743.cldt +++| NZ X4,CLE21 IF SEPARATOR NOT *=* 00754 M00S00744.cldt +++| SA1 A1+B1 00755 M00S00745.cldt +++| JP B3 PROCESS RESPECTIVE KEYWORD 00756 M00S00746.cldt +++| 00757 M00S00747.cldt +++|* PROCESS *LID* KEYWORD. 00758 M00S00748.cldt +++| 00759 M00S00749.cldt +++| CLE4 MX0 18 00760 M00S00750.cldt +++| SA2 CLEQ GET *LID* KEYWORD FLAG 00761 M00S00751.cldt +++| BX3 X0*X1 00762 M00S00752.cldt +++| ZR X3,CLE22 IF NO *LID* SPECIFIED 00763 M00S00753.cldt +++| NZ X2,CLE20 IF *LID* ALREADY SPECIFIED 00764 M00S00754.cldt +++| LX0 -18 00765 M00S00755.cldt +++| BX7 X0*X1 00766 M00S00756.cldt +++| NZ X7,CLE22 IF LID HAS MORE THAN 3 CHARACTERS 00767 M00S00757.cldt +++| LX0 6 00768 M00S00758.cldt +++| BX7 X0*X1 00769 M00S00759.cldt +++| ZR X7,CLE22 IF LID HAS LESS THAN 3 CHARACTERS 00770 M00S00760.cldt +++| BX7 X3 00771 M00S00761.cldt +++| MX0 6 00772 M00S00762.cldt +++| SB2 3 00773 M00S00763.cldt +++| CLE5 BX2 X7*X0 00774 M00S00764.cldt +++| LX2 6 00775 M00S00765.cldt +++| ZR X2,CLE22 IF CHARACTER EQUALS A COLON 00776 M00S00766.cldt +++| NG X2,CLE22 IF CHARACTER IS NOT ALPHANUMERIC 00777 M00S00767.cldt +++| SX2 X2-1R9-1 00778 M00S00768.cldt +++| PL X2,CLE22 IF CHARACTER IS NOT ALPHANUMERIC 00779 M00S00769.cldt +++| LX7 6 00780 M00S00770.cldt +++| SB2 B2-B1 00781 M00S00771.cldt +++| NZ B2,CLE5 IF THERE ARE MORE CHARACTERS TO CHECK 00782 M00S00772.cldt +++| SA2 CLTE GET NUMBER OF LID-S 00783 M00S00773.cldt +++| SB3 X2+ 00784 M00S00774.cldt +++| CLE6 SA4 B3+CLET-1 CHECK FOR DUPLICATE LID-S 00785 M00S00775.cldt +++| BX7 X3-X4 00786 M00S00776.cldt +++| SB3 B3-B1 00787 M00S00777.cldt +++| ZR X7,CLE20 IF DUPLICATE LID 00788 M00S00778.cldt +++| GT B3,CLE6 IF MORE LID-S TO CHECK 00789 M00S00779.cldt +++| BX7 X3 00790 M00S00780.cldt +++| BX6 X3+X6 00791 M00S00781.cldt +++| SA7 X2+CLET ADD NEW LID 00792 M00S00782.cldt +++| SA6 CLEQ INDICATE *LID* SPECIFIED 00793 M00S00783.cldt +++| EQ CLE1 PROCESS NEXT KEYWORD 00794 M00S00784.cldt +++| 00795 M00S00785.cldt +++|* PROCESS *ENABLED* KEYWORD. 00796 M00S00786.cldt +++| 00797 M00S00787.cldt +++| CLE7 SX3 3RYES 00798 M00S00788.cldt +++| LX3 -18 00799 M00S00789.cldt +++| BX7 X1-X3 00800 M00S00790.cldt +++| BX7 X0*X7 00801 M00S00791.cldt +++| ZR X7,CLE1 IF *YES* 00802 M00S00792.cldt +++| SX3 2RNO 00803 M00S00793.cldt +++| LX3 -12 00804 M00S00794.cldt +++| BX7 X1-X3 00805 M00S00795.cldt +++| BX7 X0*X7 00806 M00S00796.cldt +++| NZ X7,CLE24 IF INCORRECT KEYWORD 00807 M00S00797.cldt +++| SX3 B1 00808 M00S00798.cldt +++| LX3 LLENS-0 00809 M00S00799.cldt +++| BX6 -X3*X6 00810 M00S00800.cldt +++| EQ CLE1 PROCESS NEXT KEYWORD 00811 M00S00801.cldt +++| 00812 M00S00802.cldt +++|* PROCESS *AT* KEYWORD. 00813 M00S00803.cldt +++| 00814 M00S00804.cldt +++| CLE8 SA2 CLEB GET *AT* KEYWORD TABLE 00815 M00S00805.cldt +++| CLE9 BX3 X1-X2 00816 M00S00806.cldt +++| BX4 X0*X3 00817 M00S00807.cldt +++| ZR X4,CLE10 IF AT KEYWORD MATCH 00818 M00S00808.cldt +++| SA2 A2+1 00819 M00S00809.cldt +++| NZ X2,CLE9 IF NOT END OF TABLE 00820 M00S00810.cldt +++| EQ CLE25 UNRECOGNIZED KEYWORD 00821 M00S00811.cldt +++| 00822 M00S00812.cldt +++| CLE10 SX7 B1 00823 M00S00813.cldt +++| SB3 X2 00824 M00S00814.cldt +++| JP B3 PROCESS RESPECTIVE KEYWORD 00825 M00S00815.cldt +++| 00826 M00S00816.cldt +++|* PROCESS *LOOPB* KEYWORD. 00827 M00S00817.cldt +++| 00828 M00S00818.cldt +++| CLE11 SA2 HOSTFLG CHECK FOR HOST 00829 M00S00819.cldt +++| NZ X2,CLE28 IF LINKED, ISSUE ERROR MESSAGE 00830 M00S00820.cldt +++| SA2 CLES CHECK FOR STOREF 00831 M00S00821.cldt +++| NZ X2,CLE29 IF STOREF ALREADY SET 00832 M00S00822.cldt +++| BX5 X6 SAVE X6 VALUE 00833 M00S00823.cldt +++| SX6 B1 00834 M00S00824.cldt +++| SA6 CLER SET LOOPB 00835 M00S00825.cldt +++| LX7 LLBKS-0 ADD LOOP BACK FLAG 00836 M00S00826.cldt +++| BX6 X5 RESTORE X6 VALUE 00837 M00S00827.cldt +++| BX6 X6+X7 00838 M00S00828.cldt +++| EQ CLE17 CONTINUE WITH NEXT KEYWORD 00839 M00S00829.cldt +++| 00840 M00S00830.cldt +++|* PROCESS *STOREF* KEYWORD. 00841 M00S00831.cldt +++| 00842 M00S00832.cldt +++| CLE12 SA2 HOSTFLG CHECK FOR HOST 00843 M00S00833.cldt +++| NZ X2,CLE13 IF LINKED CONTINUE 00844 M00S00834.cldt +++| SA2 CLER CHECK FOR LOOPB 00845 M00S00835.cldt +++| NZ X2,CLE29 IF LOOPB ALREADY SET 00846 M00S00836.cldt +++| CLE13 BX5 X6 SAVE X6 VALUE 00847 M00S00837.cldt +++| SX6 B1 00848 M00S00838.cldt +++| SA6 CLES SET STOREF OPTION 00849 M00S00839.cldt +++| LX7 LSTFS-0 ADD STORE FORWARD FLAG 00850 M00S00840.cldt +++| BX6 X5 RESTORE X6 VALUE 00851 M00S00841.cldt +++| BX6 X6+X7 00852 M00S00842.cldt +++| EQ CLE17 CONTINUE WITH NEXT KEYWORD 00853 M00S00843.cldt +++| 00854 M00S00844.cldt +++|* PROCESS *VALID* KEYWORD. 00855 M00S00845.cldt +++| 00856 M00S00846.cldt +++| CLE14 LX7 LLVAS-0 ADD VALIDATION FLAG 00857 M00S00847.cldt +++| BX6 X6+X7 00858 M00S00848.cldt +++| SA6 CLEP SET VALID OPTION SPECIFIED 00859 M00S00849.cldt +++| EQ CLE17 CONTINUE WITH NEXT KEYWORD 00860 M00S00850.cldt +++| 00861 M00S00851.cldt +++|* PROCESS *NVALID* KEYWORD. 00862 M00S00852.cldt +++| 00863 M00S00853.cldt +++| CLE15 LX7 LLVAS-0 DELETE VALIDATION FLAG 00864 M00S00854.cldt +++| BX6 -X7*X6 00865 M00S00855.cldt +++| BX7 X7-X7 00866 M00S00856.cldt +++| SA7 CLEP CLEAR VALID OPTION SPECIFIED 00867 M00S00857.cldt +++| EQ CLE17 CONTINUE WITH NEXT KEYWORD 00868 M00S00858.cldt +++| 00869 M00S00859.cldt +++|* PROCESS *NLIST* KEYWORD. 00870 M00S00860.cldt +++| 00871 M00S00861.cldt +++| CLE16 LX7 LNLSS-0 ADD NO LIST FLAG 00872 M00S00862.cldt +++| BX6 X6+X7 00873 M00S00863.cldt +++| EQ CLE17 CONTINUE WITH NEXT KEYWORD 00874 M00S00864.cldt +++| 00875 M00S00865.cldt +++|* *AT* KEYWORD POST-PROCESSOR. 00876 M00S00866.cldt +++| 00877 M00S00867.cldt +++| CLE17 SX5 1R/ 00878 M00S00868.cldt +++| SX4 X1 00879 M00S00869.cldt +++| BX7 X5-X4 00880 M00S00870.cldt +++| NZ X7,CLE1 IF NOT */* 00881 M00S00871.cldt +++| SA1 A1+B1 00882 M00S00872.cldt +++| MX0 42 00883 M00S00873.cldt +++| EQ CLE8 PROCESS NEXT *AT* KEYWORD 00884 M00S00874.cldt +++| 00885 M00S00875.cldt +++|* DONE PROCESSING KEYWORDS. 00886 M00S00876.cldt +++| 00887 M00S00877.cldt +++| CLE18 SA2 CLEQ *LID* KEYWORD SPECIFIED FLAG 00888 M00S00878.cldt +++| SA3 CLTB 00889 M00S00879.cldt +++| ZR X2,CLE27 IF *LID* KEYWORD NOT SPECIFIED 00890 M00S00880.cldt +++| SA2 CLEP *VALID* OPTION SPECIFIED 00891 M00S00881.cldt +++| ZR X2,CLE19 IF *VALID* OPTION NOT SPECIFIED 00892 M00S00882.cldt +++| SA2 CLES *STOREF* OPTION SPECIFIED 00893 M00S00883.cldt +++| ZR X2,CLE30 IF *STOREF* OPTION NOT SPECIFIED 00894 M00S00884.cldt +++| CLE19 SX7 X3+B1 INCREMENT LID POINTER BY 1
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | ns2250 |
Seq # *Modification Id* Act ----------------------------+ 00895 M01S00009.ns2250 +++| SA2 CLTE CHECK NUMBER OF LID-S IN THIS PID SO FAR 00896 M01S00010.ns2250 +++| SB3 X2-MXLID 00897 M01S00011.ns2250 +++| ZR B3,CLE31 IF TOO MANY LIDS FOR THIS PID 00898 M00S00885.cldt +++| SA7 A3 00899 M00S00886.cldt +++| SA6 X3 ADD NEW LID
| Line S00887 Modification History | |
|---|---|
M01 (Removed by) | ns2250 |
Seq # *Modification Id* Act ----------------------------+ 00900 M01S00887.ns2250 ---| SA2 CLTE GET NUMBER OF LID-S 00901 M00S00888.cldt +++| SX7 X2+B1 INCREMENT NUMBER OF LID-S 00902 M00S00889.cldt +++| SA7 A2 00903 M00S00890.cldt +++| EQ CLEX RETURN 00904 M00S00891.cldt +++| 00905 M00S00892.cldt +++|* DUPLICATE LID-S. 00906 M00S00893.cldt +++| 00907 M00S00894.cldt +++| CLE20 MESSAGE CLEM *DUPLICATE LID ON THE NLID STATEMENT.* 00908 M00S00895.cldt +++| EQ CLE26 ISSUE ERROR MESSAGE 00909 M00S00896.cldt +++| 00910 M00S00897.cldt +++|* SEPARATOR NOT *=*. 00911 M00S00898.cldt +++| 00912 M00S00899.cldt +++| CLE21 MESSAGE CPEO *CLDT = MUST FOLLOW KEYWORD* 00913 M00S00900.cldt +++| EQ CLE26 ISSUE ERROR MESSAGE 00914 M00S00901.cldt +++| 00915 M00S00902.cldt +++|* INCORRECT LID. 00916 M00S00903.cldt +++| 00917 M00S00904.cldt +++| CLE22 MESSAGE CLEC *SPECIFY EXACTLY 3 CHARACTERS* 00918 M00S00905.cldt +++| MESSAGE CLED *IN LID.* 00919 M00S00906.cldt +++| EQ CLE26 ISSUE ERROR MESSAGE 00920 M00S00907.cldt +++| 00921 M00S00908.cldt +++|* INCORRECT KEYWORD. 00922 M00S00909.cldt +++| 00923 M00S00910.cldt +++| CLE23 MESSAGE CLEE * CLDT - VALID KEYWORDS FOR NLID ARE* 00924 M00S00911.cldt +++| MESSAGE CLEF * LID, ENABLED AND AT* 00925 M00S00912.cldt +++| EQ CLE26 ISSUE ERROR MESSAGE 00926 M00S00913.cldt +++| 00927 M00S00914.cldt +++|* INCORRECT *ENABLED* PARAMETER. 00928 M00S00915.cldt +++| 00929 M00S00916.cldt +++| CLE24 MESSAGE CPEZ *ONLY YES/NO ALLOWED ON ENABLED KEYWORD* 00930 M00S00917.cldt +++| EQ CLE26 ISSUE ERROR MESSAGE 00931 M00S00918.cldt +++| 00932 M00S00919.cldt +++|* INCORRECT *AT* PARAMETER. 00933 M00S00920.cldt +++| 00934 M00S00921.cldt +++| CLE25 MESSAGE CLEG *CLDT - VALID OPTIONS FOR *AT* ARE LOOPB/ 00935 M00S00922.cldt +++| MESSAGE CLEH STOREF/VALID/NVALID/NLIST.* 00936 M00S00923.cldt +++| 00937 M00S00924.cldt +++| CLE26 MESSAGE CPEG *ERROR IN THE FOLLOWING STATEMENT* 00938 M00S00925.cldt +++| MESSAGE WBUF 00939 M00S00926.cldt +++| MESSAGE CLEK *STATEMENT IGNORED.* 00940 M00S00927.cldt +++| EQ CLEX RETURN 00941 M00S00928.cldt +++| 00942 M00S00929.cldt +++|* *LID* KEYWORD NOT SPECIFIED. 00943 M00S00930.cldt +++| 00944 M00S00931.cldt +++| CLE27 MESSAGE CLEL *NO LID SPECIFIED ON NLID STATEMENT.* 00945 M00S00932.cldt +++| EQ CLE26 ISSUE ERROR MESSAGE 00946 M00S00933.cldt +++| 00947 M00S00934.cldt +++|* INCORRECT LINKED *LID* ATTRIBUTE. 00948 M00S00935.cldt +++| 00949 M00S00936.cldt +++| CLE28 MESSAGE CLEJ * CLDT - INCORRECT LINKED LID ATTRIBUTE.* 00950 M00S00937.cldt +++| EQ CLE26 ISSUE ERROR MESSAGE 00951 M00S00938.cldt +++| 00952 M00S00939.cldt +++|* INCORRECT HOST *LID* ATTRIBUTE. 00953 M00S00940.cldt +++| 00954 M00S00941.cldt +++| CLE29 MESSAGE CLEI * CLDT - INCORRECT HOST LID ATTRIBUTE.* 00955 M00S00942.cldt +++| EQ CLE26 ISSUE ERROR MESSAGE 00956 M00S00943.cldt +++| 00957 M00S00944.cldt +++|* *VALID* OPTION SPECIFIED BUT NOT *STOREF* OPTION. 00958 M00S00945.cldt +++| 00959 M00S00946.cldt +++| CLE30 MESSAGE CLEN * VALID OPTION CAN ONLY BE SPECIFIED* 00960 M00S00947.cldt +++| MESSAGE CLEO * IF THE STOREF OPTION IS SPECIFIED.* 00961 M00S00948.cldt +++| EQ CLE26 ISSUE ERROR MESSAGE
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | ns2250 |
Seq # *Modification Id* Act ----------------------------+ 00962 M01S00012.ns2250 +++| 00963 M01S00013.ns2250 +++| CLE31 MESSAGE CLEU * EXCEEDED MAXIMUM NUMBER OF LIDS/PID... * 00964 M01S00014.ns2250 +++| EQ CLE26 ISSUE ERROR MESSAGE 00965 M00S00949.cldt +++| 00966 M00S00950.cldt +++|* *NLID* KEYWORD TABLE. 00967 M00S00951.cldt +++| 00968 M00S00952.cldt +++| CLEA VFD 42/3LLID,18/CLE4 *LID* 00969 M00S00953.cldt +++| VFD 42/7LENABLED,18/CLE7 *ENABLED* 00970 M00S00954.cldt +++| VFD 42/2LAT,18/CLE8 *AT* 00971 M00S00955.cldt +++| VFD 60/0 00972 M00S00956.cldt +++| 00973 M00S00957.cldt +++|* *AT* KEYWORD TABLE. 00974 M00S00958.cldt +++| 00975 M00S00959.cldt +++| CLEB VFD 42/5LLOOPB,18/CLE11 *LOOPB* 00976 M00S00960.cldt +++| VFD 42/6LSTOREF,18/CLE12 *STOREF* 00977 M00S00961.cldt +++| VFD 42/0LVALID,18/CLE14 *VALID* 00978 M00S00962.cldt +++| VFD 42/0LNVALID,18/CLE15 *NVALID* 00979 M00S00963.cldt +++| VFD 42/0LNLIST,18/CLE16 *NLIST* 00980 M00S00964.cldt +++| VFD 60/0 00981 M00S00965.cldt +++| 00982 M00S00966.cldt +++| CLEC DATA C* CLDT - SPECIFY EXACTLY 3 ALPHANUMERIC CHARACTERS* 00983 M00S00967.cldt +++| CLED DATA C* IN LID.* 00984 M00S00968.cldt +++| CLEE DATA C* CLDT - VALID KEYWORDS FOR NLID ARE * 00985 M00S00969.cldt +++| CLEF DATA C* LID, ENABLED AND AT.* 00986 M00S00970.cldt +++| CLEG DATA C+ CLDT - VALID OPTIONS FOR *AT* ARE LOOPB/STOREF/+ 00987 M00S00971.cldt +++| CLEH DATA C* VALID/NVALID/NLIST.* 00988 M00S00972.cldt +++| CLEI DATA C* CLDT - INCORRECT HOST LID ATTRIBUTE.* 00989 M00S00973.cldt +++| CLEJ DATA C* CLDT - INCORRECT LINKED LID ATTRIBUTE.* 00990 M00S00974.cldt +++| CLEK DATA C* CLDT - STATEMENT IGNORED.* 00991 M00S00975.cldt +++| CLEL DATA C* CLDT - LID KEYWORD NOT SPECIFIED.* 00992 M00S00976.cldt +++| CLEM DATA C* CLDT - DUPLICATE LID ON NLID STATEMENT.* 00993 M00S00977.cldt +++| CLEN DATA C* CLDT - VALID OPTION CAN ONLY BE SPECIFIED*
| Line S00015 Modification History | |
|---|---|
M01 (Added by) | ns2250 |
Seq # *Modification Id* Act ----------------------------+ 00994 M01S00015.ns2250 +++| MXLD DECMIC MXLID 00995 M01S00016.ns2250 +++| CLEU DATA C* CLDT - EXCEEDED MAXIMUM NUMBER OF LIDS/PID - "MXLD" 00996 M01S00017.ns2250 +++|,.* 00997 M00S00978.cldt +++| CLEO DATA C* IF THE STOREF OPTION IS SPECIFIED.* 00998 M00S00979.cldt +++| CLEP BSSZ 1 NOT ZERO IF VALID OPTION SPECIFIED 00999 M00S00980.cldt +++| CLEQ BSSZ 1 ONE IF LID KEYWORD SPECIFIED 01000 M00S00981.cldt +++| CLER BSSZ 1 ONE IF LOOPB OPTION SPECIFIED 01001 M00S00982.cldt +++| CLES BSSZ 1 ONE IF STOREF OPTION SPECIFIED
| Line S00983 Modification History | |
|---|---|
M01 (Removed by) | ns2250 |
Seq # *Modification Id* Act ----------------------------+ 01002 M01S00983.ns2250 ---| CLET BSSZ MXLID LID TABLE
| Line S00018 Modification History | |
|---|---|
M01 (Added by) | ns2250 |
Seq # *Modification Id* Act ----------------------------+ 01003 M01S00018.ns2250 +++| CLET BSSZ MXLID+1 LID TABLE 01004 M00S00984.cldt +++| CLT SPACE 4,15 01005 M00S00985.cldt +++|** CLT - CREATE LID TABLE. 01006 M00S00986.cldt +++|* 01007 M00S00987.cldt +++|* ENTRY (FS) = FREE SPACE FOR EACH PID. 01008 M00S00988.cldt +++|* 01009 M00S00989.cldt +++|* EXIT LID TABLE CREATED. 01010 M00S00990.cldt +++|* 01011 M00S00991.cldt +++|* USES X - 0, 1, 2, 3, 4, 6, 7. 01012 M00S00992.cldt +++|* A - 1, 2, 6, 7. 01013 M00S00993.cldt +++|* B - 1, 3. 01014 M00S00994.cldt +++|* 01015 M00S00995.cldt +++|* CALLS CLE, CPE, PTL. 01016 M00S00996.cldt +++|* 01017 M00S00997.cldt +++|* MACROS READ, READC, REWIND. 01018 M00S00998.cldt +++|* 01019 M00S00999.cldt +++|* NOTE THE LID TABLE IS WRITTEN OVER THE OVERLAYABLE CODE. 01020 M00S01000.cldt +++| 01021 M00S01001.cldt +++| 01022 M00S01002.cldt +++| CLT SUBR ENTRY/EXIT 01023 M00S01003.cldt +++| 01024 M00S01004.cldt +++|* CLEAR THE OVERLAYABLE CODE FOR THE LDT. 01025 M00S01005.cldt +++| 01026 M00S01006.cldt +++| SB3 LENGTH LENGTH OF AREA TO BE CLEARED 01027 M00S01007.cldt +++| SX7 B0+ 01028 M00S01008.cldt +++| CLT0 SA7 LIDT+B3 01029 M00S01009.cldt +++| SB3 B3-B1 01030 M00S01010.cldt +++| GT B3,CLT0 IF MORE WORDS TO CLEAR 01031 M00S01011.cldt +++| REWIND I REWIND LID CONFIGURATION FILE 01032 M00S01012.cldt +++| READ X2 INITIAL READ 01033 M00S01013.cldt +++| READC X2,WBUF,WBUFL SKIP ONE LINE 01034 M00S01014.cldt +++| SX6 LIDT+2 FWA OF LID TABLE (EXCLUDING HEADER) 01035 M00S01015.cldt +++| SA6 CLTB 01036 M00S01016.cldt +++| CLT1 RJ PTL PROCESS NEXT LINE 01037 M00S01017.cldt +++| NZ X6,CLT7 IF ERROR IN *PTL* 01038 M00S01018.cldt +++| NZ X1,CLT8 IF EOR/EOF 01039 M00S01019.cldt +++| SA1 UBUF GET FIRST WORD 01040 M00S01020.cldt +++| SA2 CLTH FWA OF KEYWORD TABLE 01041 M00S01021.cldt +++| MX0 42 01042 M00S01022.cldt +++| CLT2 BX3 X1-X2 01043 M00S01023.cldt +++| BX4 X0*X3 01044 M00S01024.cldt +++| ZR X4,CLT3 IF KEYWORD MATCH 01045 M00S01025.cldt +++| SA2 A2+1 01046 M00S01026.cldt +++| ZR X2,CLT1 IF UNRECOGNIZED KEYWORD 01047 M00S01027.cldt +++| EQ CLT2 TRY NEXT WORD 01048 M00S01028.cldt +++| 01049 M00S01029.cldt +++| CLT3 SB3 X2+ GET KEYWORD PROCESSOR 01050 M00S01030.cldt +++| JP B3 PROCESS KEYWORD 01051 M00S01031.cldt +++| 01052 M00S01032.cldt +++|* PROCESS *COMMENT* STATEMENT. 01053 M00S01033.cldt +++| 01054 M00S01034.cldt +++| CLT4 EQ CLT1 IGNORE COMMENT STATEMENT 01055 M00S01035.cldt +++| 01056 M00S01036.cldt +++|* PROCESS *NPID* STATEMENT. 01057 M00S01037.cldt +++| 01058 M00S01038.cldt +++| CLT5 RJ CPE CREATE PID ENTRY 01059 M00S01039.cldt +++| SX6 B1 01060 M00S01040.cldt +++| SA6 CLTK SET PID PROCESSED 01061 M00S01041.cldt +++| EQ CLT1 READ NEXT STATEMENT 01062 M00S01042.cldt +++| 01063 M00S01043.cldt +++|* PROCESS *NLID* STATEMENT. 01064 M00S01044.cldt +++| 01065 M00S01045.cldt +++| CLT6 RJ CLE CREATE LID ENTRY 01066 M00S01046.cldt +++| SA2 CLTK 01067 M00S01047.cldt +++| NZ X2,CLT1 IF A PID HAS BEEN PROCESSED 01068 M00S01048.cldt +++| MESSAGE CLTL * CLDT - NPID DIRECTIVE MUST BE PROCESSED* 01069 M00S01049.cldt +++| MESSAGE CLTM * BEFORE A NLID DIRECTIVE.* 01070 M00S01050.cldt +++| MESSAGE CPEG * ERROR IN THE FOLLOWING STATEMENT* 01071 M00S01051.cldt +++| MESSAGE WBUF THE NLID STATEMENT 01072 M00S01052.cldt +++| SX6 B1 01073 M00S01053.cldt +++| SA6 FERF SET FATAL ERROR FLAG 01074 M00S01054.cldt +++| EQ CLT1 READ NEXT STATEMENT 01075 M00S01055.cldt +++| 01076 M00S01056.cldt +++|* PROCESS *PTL* ERROR. 01077 M00S01057.cldt +++| 01078 M00S01058.cldt +++| CLT7 BX6 X6-X6 01079 M00S01059.cldt +++| SA6 CFSK 01080 M00S01060.cldt +++| ZR X1,CLT1 IF AN ERROR READ NEXT STATEMENT 01081 M00S01061.cldt +++| 01082 M00S01062.cldt +++|* UPDATE NUMBER OF LID-S FOR THE LAST PID. 01083 M00S01063.cldt +++| 01084 M00S01064.cldt +++| CLT8 SA2 HOST 01085 M00S01065.cldt +++| NZ X2,CLT11 IF HOST PID IS SPECIFIED 01086 M00S01066.cldt +++| SA2 HOSTPID 01087 M00S01067.cldt +++| BX7 X2 01088 M00S01068.cldt +++| SA7 CLTI+2 SET HOST PID IN DEFAULTS 01089 M00S01069.cldt +++| SA2 CLTJ+2 01090 M00S01070.cldt +++| BX7 X7-X2 01091 M00S01071.cldt +++| SA7 CLTJ+2 SET HOST LID IN DEFAULTS 01092 M00S01072.cldt +++| SB2 7 01093 M00S01073.cldt +++| CLT9 SA2 CLTI+B2 GET HOST PID DEFAULTS 01094 M00S01074.cldt +++| BX7 X2 01095 M00S01075.cldt +++| SA7 UBUF+B2 FILL UBUF FOR *CPE* CALL 01096 M00S01076.cldt +++| SB2 B2-B1 01097 M00S01077.cldt +++| NZ B2,CLT9 IF NOT DONE FILLING UBUF 01098 M00S01078.cldt +++| RJ CPE CREATE HOST PID 01099 M00S01079.cldt +++| SB2 3 01100 M00S01080.cldt +++| CLT10 SA2 CLTJ+B2 GET HOST LID DEFAULTS 01101 M00S01081.cldt +++| BX7 X2 01102 M00S01082.cldt +++| SA7 UBUF+B2 FILL UBUF FOR *CLE* CALL 01103 M00S01083.cldt +++| SB2 B2-B1 01104 M00S01084.cldt +++| NZ B2,CLT10 IF NOT DONE FILLING UBUF 01105 M00S01085.cldt +++| RJ CLE CREATE HOST LID 01106 M00S01086.cldt +++| CLT11 SX7 B1+ SET EOF 01107 M00S01087.cldt +++| SA7 CLTG 01108 M00S01088.cldt +++| SA1 CLTB GET CURRENT POINTER 01109 M00S01089.cldt +++| SA2 LIDL GET LID TABLE LENGTH 01110 M00S01090.cldt +++| SX2 X2+LIDT+1 LWA OF LID TABLE 01111 M00S01091.cldt +++| IX7 X2-X1 01112 M00S01092.cldt +++| SA7 FS 01113 M00S01093.cldt +++| RJ CPE UPDATE LAST PID ENTRY 01114 M00S01094.cldt +++| SA1 CLTD CLEAR *N-PID* OF THE LAST PID 01115 M00S01095.cldt +++| SA2 X1+B1 01116 M00S01096.cldt +++| MX0 60-LNPDN 01117 M00S01097.cldt +++| BX7 X0*X2 01118 M00S01098.cldt +++| SA7 A2 01119 M00S01099.cldt +++| 01120 M00S01100.cldt +++|* GENERATE HEADER WORD OF LDT AND PARAMETER BLOCK. 01121 M00S01101.cldt +++| 01122 M00S01102.cldt +++| SA1 CLTF GET NUMBER OF PID-S 01123 M00S01103.cldt +++| SA2 LIDL GET LENGTH OF LID TABLE 01124 M00S01104.cldt +++| SX6 X2 SET PARAMETER BLOCK LENGTH 01125 M00S01105.cldt +++| LX2 LNTHS-LNTHN+1 01126 M00S01106.cldt +++| BX7 X1+X2 01127 M00S01107.cldt +++| SX2 B1 SET FET NOT BUSY 01128 M00S01108.cldt +++| LX6 59-11 01129 M00S01109.cldt +++| BX6 X6+X2 MERGE BLOCK LENGTH WITH FET FLAG 01130 M00S01110.cldt +++| SA6 LIDT UPDATE LENGTH OF PARAMETER BLOCK 01131 M00S01111.cldt +++| SA7 A6+B1 UPDATE FWA OF LID TABLE 01132 M00S01112.cldt +++| EQ CLTX RETURN 01133 M00S01113.cldt +++| 01134 M00S01114.cldt +++| 01135 M00S01115.cldt +++| CLTA BSSZ 1 01136 M00S01116.cldt +++| CLTB BSSZ 1 NEXT AVAILABLE LID TABLE ENTRY 01137 M00S01117.cldt +++| CLTD BSSZ 1 FWA OF CURRENT PID ENTRY 01138 M00S01118.cldt +++| CLTE BSSZ 1 NUMBER OF LID-S FOR PID 01139 M00S01119.cldt +++| CLTF BSSZ 1 NUMBER OF PID-S 01140 M00S01120.cldt +++| CLTG BSSZ 1 1 IF EOF 01141 M00S01121.cldt +++| 01142 M00S01122.cldt +++|* *LIDCM* KEYWORD TABLE. 01143 M00S01123.cldt +++| 01144 M00S01124.cldt +++| CLTH VFD 42/4LNLID,18/CLT6 01145 M00S01125.cldt +++| VFD 42/4LNPID,18/CLT5 01146 M00S01126.cldt +++| VFD 42/7LCOMMENT,18/CLT4 01147 M00S01127.cldt +++| BSSZ 1 01148 M00S01128.cldt +++| 01149 M00S01129.cldt +++|* DEFAULTS FOR HOST PID AND HOST LID IF NOT SPECIFIED. 01150 M00S01130.cldt +++| 01151 M00S01131.cldt +++| CLTI VFD 60/4LNPID NPID STATEMENT 01152 M00S01132.cldt +++| VFD 18/3LPID,36/0,6/1R= PID= STATEMENT 01153 M00S01133.cldt +++| VFD 60/0 HOST+MACHID PID 01154 M00S01134.cldt +++| VFD 36/6LMFTYPE,18/0,6/1R= MFTYPE STATEMENT 01155 M00S01135.cldt +++| VFD 60/7LNOSHOST NOSHOST DEFAULT 01156 M00S01136.cldt +++| VFD 12/2LAT,42/0,6/1R= 01157 M00S01137.cldt +++| VFD 60/5LVALID 01158 M00S01138.cldt +++| BSSZ 1 ZERO WORD 01159 M00S01139.cldt +++| CLTJ VFD 60/4LNLID NLID STATEMENT 01160 M00S01140.cldt +++| VFD 18/3LLID,36/0,6/1R= LID= STATEMENT 01161 M00S01141.cldt +++| VFD 60/1LA LID+MACHID LID 01162 M00S01142.cldt +++| BSSZ 1 ZERO WORD 01163 M00S01143.cldt +++| CLTK 1 IF PID PROCESSED 01164 M00S01144.cldt +++| CLTL DATA C* CLDT - NPID DIRECTIVE MUST BE PROCESSED BEFORE* 01165 M00S01145.cldt +++| CLTM DATA C* A NLID DIRECTIVE.* 01166 M00S01146.cldt +++| CPE SPACE 4,20 01167 M00S01147.cldt +++|** CPE - CREATE PID ENTRY. 01168 M00S01148.cldt +++|* 01169 M00S01149.cldt +++|* ENTRY (CLTB) = LID TABLE POINTER (NEXT AVAILABLE WORD). 01170 M00S01150.cldt +++|* (CLTD) = LAST PID ENTRY. 01171 M00S01151.cldt +++|* (CLTE) = NUMBER OF LID-S FOR LAST PID. 01172 M00S01152.cldt +++|* (CLTF) = NUMBER OF PID-S. 01173 M00S01153.cldt +++|* (CLTG) = 1 IF EOF. 01174 M00S01154.cldt +++|* (FS) = FREE SPACE FOR EACH PID. 01175 M00S01155.cldt +++|* 01176 M00S01156.cldt +++|* EXIT (CLTB) = NEXT AVAILABLE WORD. 01177 M00S01157.cldt +++|* (CLTD) = FWA OF CURRENT PID. 01178 M00S01158.cldt +++|* (CLTE) = 0. 01179 M00S01159.cldt +++|* (CLTF) = NUMBER OF PID-S UPDATED. 01180 M00S01160.cldt +++|* (CLET) = 0. 01181 M00S01161.cldt +++|* 01182 M00S01162.cldt +++|* USES X - 0, 1, 2, 3, 4, 6, 7. 01183 M00S01163.cldt +++|* A - 1, 2, 3, 4, 6, 7. 01184 M00S01164.cldt +++|* B - 3, 4, 7. 01185 M00S01165.cldt +++|* 01186 M00S01166.cldt +++|* CALLS SFN. 01187 M00S01167.cldt +++|* 01188 M00S01168.cldt +++|* MACROS MESSAGE. 01189 M00S01169.cldt +++| 01190 M00S01170.cldt +++| 01191 M00S01171.cldt +++| CPE SUBR ENTRY/EXIT 01192 M00S01172.cldt +++| SA1 CLTD GET FWA OF LAST PID ENTRY 01193 M00S01173.cldt +++| ZR X1,CPE3 IF FIRST CALL 01194 M00S01174.cldt +++| SA3 A1+B1 GET NUMBER OF LID-S FOR LAST PID 01195 M00S01175.cldt +++| ERRNZ CLTE-CLTD-1 ADJUST IF WORDS NOT CONTIGUOUS 01196 M00S01176.cldt +++| SA2 X1+B1 UPDATE NPID ENTRY 01197 M00S01177.cldt +++| BX6 X3 01198 M00S01178.cldt +++| BX7 X7-X7 01199 M00S01179.cldt +++| SA4 FSR GET REMAINDER OF FREE SPACE 01200 M00S01180.cldt +++| ZR X4,CPE1 IF NO REMAINDER OF FREE SPACE 01201 M00S01181.cldt +++| SX7 X4-1 01202 M00S01182.cldt +++| SA7 A4 01203 M00S01183.cldt +++| SX7 B1 01204 M00S01184.cldt +++| CPE1 SA4 CLTB UPDATE NEXT AVAILABLE LID TABLE ENTRY 01205 M00S01185.cldt +++| SA3 FS 01206 M00S01186.cldt +++| IX6 X6+X3 ADD FREE SPACE TO NUMBER OF LID-S 01207 M00S01187.cldt +++| IX6 X6+X7 ADD REMAINDER FREE SPACE 01208 M00S01188.cldt +++| SA6 A2+B1 SET NUMBER OF LID-S FOR THIS PID ENTRY 01209 M00S01189.cldt +++| IX3 X3+X7 01210 M00S01190.cldt +++| IX6 X4+X3 01211 M00S01191.cldt +++| SA6 A4 01212 M00S01192.cldt +++| SA6 CPEC 01213 M00S01193.cldt +++| IX7 X6-X1 CALCULATE NEXT PID OFFSET 01214 M00S01194.cldt +++| BX7 X2+X7 01215 M00S01195.cldt +++| SA7 A2 ADD NPID 01216 M00S01196.cldt +++| CPE3 SA3 CLTG CHECK EOF 01217 M00S01197.cldt +++| SA1 CLTB GET NEXT AVAILABLE ENTRY 01218 M00S01198.cldt +++| NZ X3,CPEX IF EOF 01219 M00S01199.cldt +++| SX6 X1 01220 M00S01200.cldt +++| SB7 X1 01221 M00S01201.cldt +++| SA6 CLTD UPDATE FWA OF CURRENT PID ENTRY 01222 M00S01202.cldt +++| SA3 PIDD DEFAULT VALUE FOR PID 01223 M00S01203.cldt +++| SA1 UBUF GET FIRST PARAMETER 01224 M00S01204.cldt +++| BX6 X3 01225 M00S01205.cldt +++| BX7 X7-X7 01226 M00S01206.cldt +++| SA7 CLTE CLEAR NUMBER OF LID-S 01227 M00S01207.cldt +++| SA6 B7+ SET DEFAULT VALUE FOR PID 01228 M00S01208.cldt +++| SA7 CLET CLEAR LID TABLE 01229 M00S01209.cldt +++| SA7 CPET CLEAR *PID* EXISTENCE 01230 M00S01210.cldt +++| SA7 CPEU CLEAR *MFTYPE* EXISTENCE 01231 M00S01211.cldt +++| SA7 CPEV CLEAR *NETDIS* EXISTENCE 01232 M00S01212.cldt +++| SA7 CPEW CLEAR *HOST* EXISTENCE 01233 M00S01213.cldt +++| CPE4 MX0 42 01234 M00S01214.cldt +++| SA1 A1+B1 GET KEYWORD 01235 M00S01215.cldt +++| SA2 CPEA GET KEYWORD TABLE 01236 M00S01216.cldt +++| ZR X1,CPE30 IF NO MORE KEYWORDS 01237 M00S01217.cldt +++| CPE5 ZR X2,CPE31 IF NO MATCH FOUND 01238 M00S01218.cldt +++| BX3 X1-X2 01239 M00S01219.cldt +++| BX4 X0*X3 01240 M00S01220.cldt +++| ZR X4,CPE6 IF KEYWORDS MATCH 01241 M00S01221.cldt +++| SA2 A2+1 01242 M00S01222.cldt +++| EQ CPE5 TRY NEXT ENTRY 01243 M00S01223.cldt +++| 01244 M00S01224.cldt +++| CPE6 SB3 X2 01245 M00S01225.cldt +++| SX3 1R= 01246 M00S01226.cldt +++| BX2 X1-X3 01247 M00S01227.cldt +++| BX4 -X0*X2 01248 M00S01228.cldt +++| NZ X4,CPE37 IF SEPARATOR NOT *=* 01249 M00S01229.cldt +++| SA1 A1+B1 01250 M00S01230.cldt +++| JP B3 PROCESS RESPECTIVE KEYWORD 01251 M00S01231.cldt +++| 01252 M00S01232.cldt +++|* PROCESS *PID* KEYWORD. 01253 M00S01233.cldt +++| 01254 M00S01234.cldt +++| CPE7 MX0 18 01255 M00S01235.cldt +++| SA2 CPET CHECK IF *PID* ALREADY SPECIFIED 01256 M00S01236.cldt +++| BX6 X0*X1 01257 M00S01237.cldt +++| ZR X6,CPE32 IF NO *PID* SPECIFIED 01258 M00S01238.cldt +++| NZ X2,CPE39 IF *PID* ALREADY SPECIFIED 01259 M00S01239.cldt +++| LX0 -18 01260 M00S01240.cldt +++| BX7 X0*X1 01261 M00S01241.cldt +++| NZ X7,CPE32 IF PID HAS MORE THAN THREE CHARACTERS 01262 M00S01242.cldt +++| LX0 6 01263 M00S01243.cldt +++| BX7 X0*X1 01264 M00S01244.cldt +++| ZR X7,CPE32 IF PID HAS LESS THAN THREE CHARACTERS 01265 M00S01245.cldt +++| BX7 X6 01266 M00S01246.cldt +++| MX0 6 01267 M00S01247.cldt +++| SB2 3 01268 M00S01248.cldt +++| CPE8 BX2 X7*X0 01269 M00S01249.cldt +++| LX2 6 01270 M00S01250.cldt +++| ZR X2,CPE32 IF THE CHARACTER IS A COLON 01271 M00S01251.cldt +++| NG X2,CPE32 IF THE CHARACTER IS NOT ALPHANUMERIC 01272 M00S01252.cldt +++| SX2 X2-1R9-1 01273 M00S01253.cldt +++| PL X2,CPE32 IF THE CHARACTER IS NOT ALPHANUMERIC 01274 M00S01254.cldt +++| LX7 6 01275 M00S01255.cldt +++| SB2 B2-B1 01276 M00S01256.cldt +++| NZ B2,CPE8 IF THERE ARE MORE CHARACTERS TO CHECK 01277 M00S01257.cldt +++| SA2 CLTF UPDATE NUMBER OF PID-S 01278 M00S01258.cldt +++| ZR X2,CPE10 IF NUMBER OF PID-S EQUALS ZERO 01279 M00S01259.cldt +++| SB3 X2 01280 M00S01260.cldt +++| CPE9 SA3 B3+CPEY-1 CHECK FOR DUPLICATE PID-S 01281 M00S01261.cldt +++| BX7 X3-X6 01282 M00S01262.cldt +++| SB3 B3-B1 01283 M00S01263.cldt +++| ZR X7,CPE39 IF DUPLICATE PID 01284 M00S01264.cldt +++| GT B3,CPE9 IF MORE PID-S TO CHECK 01285 M00S01265.cldt +++| CPE10 SA6 CPEY+X2 ADD NEW PID 01286 M00S01266.cldt +++| SX7 X2+1 01287 M00S01267.cldt +++| SA7 A2+ 01288 M00S01268.cldt +++| SA7 CPET SET FLAG TO INDICATE *PID* EXIST 01289 M00S01269.cldt +++| SA2 HOSTPID CHECK FOR CURRENT HOST MAINFRAME 01290 M00S01270.cldt +++| BX7 X2-X6 01291 M00S01271.cldt +++| SA2 B7 CURRENT FWA OF PID ENTRY 01292 M00S01272.cldt +++| SA7 HOSTFLG SET HOST PID FLAG (0 IF HOST MAINFRAME) 01293 M00S01273.cldt +++| NZ X7,CPE11 IF NOT HOST 01294 M00S01274.cldt +++| SX7 B1 01295 M00S01275.cldt +++| SA7 HOST SET HOST PID SPECIFIED 01296 M00S01276.cldt +++| SA7 CPEW SET HOST SPECIFIED 01297 M00S01277.cldt +++| LX7 LHSTS-0 SET HOST FLAG IN PID ENTRY 01298 M00S01278.cldt +++| BX6 X6+X7 01299 M00S01279.cldt +++| LX7 LVADS-0-LHSTS+0 ADD VALIDATION FLAG 01300 M00S01280.cldt +++| BX6 X6+X7 01301 M00S01281.cldt +++| BX7 X7-X7 INDICATE HOST PID 01302 M00S01282.cldt +++| SA3 CPEV 01303 M00S01283.cldt +++| NZ X3,CPE35 IF HOST AND *NETDIS* SPECIFIED 01304 M00S01284.cldt +++| CPE11 BX6 X6+X2 01305 M00S01285.cldt +++| SA6 A2 ADD PID 01306 M00S01286.cldt +++| SA2 CPEC CHECK IF *NETDIS* SPECIFIED 01307 M00S01287.cldt +++| IX2 X2+X7 01308 M00S01288.cldt +++| SA7 A2 HOST FLAG (0 IF HOST) 01309 M00S01289.cldt +++| EQ CPE4 PROCESS NEXT KEYWORD 01310 M00S01290.cldt +++| 01311 M00S01291.cldt +++|* PROCESS *ENABLED* KEYWORD. 01312 M00S01292.cldt +++| 01313 M00S01293.cldt +++| CPE12 SX3 3RYES 01314 M00S01294.cldt +++| LX3 -18 01315 M00S01295.cldt +++| BX6 X1-X3 01316 M00S01296.cldt +++| BX7 X0*X6 01317 M00S01297.cldt +++| ZR X7,CPE4 IF *YES* PROCESS NEXT KEYWORD 01318 M00S01298.cldt +++| SX3 2RNO 01319 M00S01299.cldt +++| LX3 -12 01320 M00S01300.cldt +++| BX6 X1-X3 01321 M00S01301.cldt +++| BX7 X0*X6 01322 M00S01302.cldt +++| NZ X7,CPE33 IF INCORRECT KEYWORD 01323 M00S01303.cldt +++| SX6 B1 01324 M00S01304.cldt +++| LX6 LENAS-0 01325 M00S01305.cldt +++| SA2 B7 GET CURRENT FIRST WORD OF PID 01326 M00S01306.cldt +++| BX6 -X6*X2 CLEAR ENABLED FLAG 01327 M00S01307.cldt +++| SA6 A2 01328 M00S01308.cldt +++| EQ CPE4 PROCESS NEXT KEYWORD 01329 M00S01309.cldt +++| 01330 M00S01310.cldt +++|* PROCESS *MFTYPE*. 01331 M00S01311.cldt +++| 01332 M00S01312.cldt +++| CPE13 BX6 X0*X1 GET MFTYPE 01333 M00S01313.cldt +++| BX3 -X0*X1 CHECK EXCESS CHARACTERS 01334 M00S01314.cldt +++| ZR X6,CPE40 IF NO MFTYPE SPECIFIED 01335 M00S01315.cldt +++| AX3 6 ELIMINATE LAST CHARACTER 01336 M00S01316.cldt +++| NZ X3,CPE40 IF MORE THAN 7 CHARACTERS 01337 M00S01317.cldt +++| SX3 1R/ 01338 M00S01318.cldt +++| BX2 X1-X3 01339 M00S01319.cldt +++| BX4 -X0*X2 01340 M00S01320.cldt +++| BX1 X6 01341 M00S01321.cldt +++| RJ SFN SPACE FILL MAINFRAME DESCRIPTION 01342 M00S01322.cldt +++| BX6 X6*X0 CLEAR N-PID AREA 01343 M00S01323.cldt +++| SA6 B7+LMFDW-1 PUT MFTYPE IN LDT 01344 M00S01324.cldt +++| SX6 B1 01345 M00S01325.cldt +++| SA6 CPEU SET FLAG TO INDICATE *MFTYPE* EXISTS 01346 M00S01326.cldt +++| NZ X4,CPE4 IF SEPARATOR NOT */* 01347 M00S01327.cldt +++| 01348 M00S01328.cldt +++|* PROCESS POSSIBLE *NOS/BE* TYPE MAINFRAME. 01349 M00S01329.cldt +++| 01350 M00S01330.cldt +++| SX3 1R/ 01351 M00S01331.cldt +++| BX6 X1 RESET X6 TO *MFTYPE* ZERO FILLED 01352 M00S01332.cldt +++| SB3 60-6 01353 M00S01333.cldt +++| SB4 6 01354 M00S01334.cldt +++| MX7 6 01355 M00S01335.cldt +++| CPE14 BX4 X7*X6 01356 M00S01336.cldt +++| ZR X4,CPE15 IF END OF CHARACTERS 01357 M00S01337.cldt +++| LX6 X6,B4 01358 M00S01338.cldt +++| SB3 B3-B4 01359 M00S01339.cldt +++| EQ CPE14 CHECK NEXT CHARACTER 01360 M00S01340.cldt +++| 01361 M00S01341.cldt +++| CPE15 LX6 X6,B4 01362 M00S01342.cldt +++| BX6 X6+X3 ADD */* 01363 M00S01343.cldt +++| SA1 A1+B1 GET NEXT WORD 01364 M00S01344.cldt +++| SB4 B3-B1 01365 M00S01345.cldt +++| MX0 1 01366 M00S01346.cldt +++| AX0 X0,B4 01367 M00S01347.cldt +++| BX0 X0*X1 01368 M00S01348.cldt +++| BX6 X6+X1 ADD REMAINING CHARACTERS 01369 M00S01349.cldt +++| LX6 X6,B3 SHIFT BACK 01370 M00S01350.cldt +++| SA6 B7+B1 01371 M00S01351.cldt +++| EQ CPE4 PROCESS NEXT KEYWORD 01372 M00S01352.cldt +++| 01373 M00S01353.cldt +++|* PROCESS *AT* KEYWORD. 01374 M00S01354.cldt +++| 01375 M00S01355.cldt +++| CPE16 SA2 CPEB GET *AT* KEYWORD TABLE 01376 M00S01356.cldt +++| CPE17 BX3 X1-X2 01377 M00S01357.cldt +++| BX4 X0*X3 01378 M00S01358.cldt +++| ZR X4,CPE18 IF *AT* KEYWORD MATCH 01379 M00S01359.cldt +++| SA2 A2+B1 01380 M00S01360.cldt +++| NZ X2,CPE17 IF NOT END OF TABLE 01381 M00S01361.cldt +++| EQ CPE34 UNRECOGNIZED KEYWORD 01382 M00S01362.cldt +++| 01383 M00S01363.cldt +++| CPE18 SX5 1R/ 01384 M00S01364.cldt +++| SX6 X1 01385 M00S01365.cldt +++| SA3 B7 01386 M00S01366.cldt +++| SX7 B1 01387 M00S01367.cldt +++| SB3 X2 01388 M00S01368.cldt +++| JP B3 PROCESS RESPECTIVE *AT* KEYWORD 01389 M00S01369.cldt +++| 01390 M00S01370.cldt +++|* PROCESS *NVALID* KEYWORD. 01391 M00S01371.cldt +++| 01392 M00S01372.cldt +++| CPE19 LX7 LVADS-0 01393 M00S01373.cldt +++| BX7 -X7*X3 CLEAR VALIDATE FLAG 01394 M00S01374.cldt +++| SA7 B7+ 01395 M00S01375.cldt +++| EQ CPE22 CONTINUE WITH NEXT KEYWORD 01396 M00S01376.cldt +++| 01397 M00S01377.cldt +++|* PROCESS *VALID* KEYWORD. 01398 M00S01378.cldt +++| 01399 M00S01379.cldt +++| CPE20 LX7 LVADS-0 01400 M00S01380.cldt +++| BX7 X3+X7 ADD VALIDATE FLAG 01401 M00S01381.cldt +++| SA7 B7+ 01402 M00S01382.cldt +++| EQ CPE22 CONTINUE WITH NEXT KEYWORD 01403 M00S01383.cldt +++| 01404 M00S01384.cldt +++|* PROCESS *NLIST* KEYWORD. 01405 M00S01385.cldt +++| 01406 M00S01386.cldt +++| CPE21 LX7 LNSTS-0 01407 M00S01387.cldt +++| BX7 X3+X7 ADD NO-LIST FLAG 01408 M00S01388.cldt +++| SA7 B7+ 01409 M00S01389.cldt +++| 01410 M00S01390.cldt +++|* *AT* POST-PROCESSOR. 01411 M00S01391.cldt +++| 01412 M00S01392.cldt +++| CPE22 BX7 X5-X6 01413 M00S01393.cldt +++| NZ X7,CPE4 IF NOT */* 01414 M00S01394.cldt +++| MX0 42 01415 M00S01395.cldt +++| SA1 A1+1 01416 M00S01396.cldt +++| EQ CPE16 PROCESS NEXT *AT* KEYWORD 01417 M00S01397.cldt +++| 01418 M00S01398.cldt +++|* PROCESS *NETDIS* KEYWORD. 01419 M00S01399.cldt +++| 01420 M00S01400.cldt +++| CPE23 SA3 CPEC GET HOST TYPE 01421 M00S01401.cldt +++| SA2 CPEW 01422 M00S01402.cldt +++| NZ X2,CPE35 IF HOST AND *NETDIS* 01423 M00S01403.cldt +++| BX7 X7-X7 INDICATE *NETDIS* SPECIFIED 01424 M00S01404.cldt +++| SA7 A3 01425 M00S01405.cldt +++| MX0 -12 01426 M00S01406.cldt +++| SA3 B7 01427 M00S01407.cldt +++| BX7 X0*X3 CLEAR *NETDIS* AREA 01428 M00S01408.cldt +++| SA7 B7 01429 M00S01409.cldt +++| SA2 CPED *NETDIS* TABLE 01430 M00S01410.cldt +++| CPE24 BX3 X1-X2 01431 M00S01411.cldt +++| SX7 B1 01432 M00S01412.cldt +++| SA7 CPEV SET *NETDIS* SPECIFIED 01433 M00S01413.cldt +++| MX0 42 01434 M00S01414.cldt +++| BX4 X0*X3 01435 M00S01415.cldt +++| ZR X4,CPE25 IF KEYWORD MATCH 01436 M00S01416.cldt +++| SA2 A2+1 01437 M00S01417.cldt +++| NZ X2,CPE24 IF NOT END OF TABLE 01438 M00S01418.cldt +++| EQ CPE36 UNRECOGNIZED KEYWORD 01439 M00S01419.cldt +++| 01440 M00S01420.cldt +++| CPE25 SX5 1R/ 01441 M00S01421.cldt +++| SX6 X1 01442 M00S01422.cldt +++| SA3 B7 01443 M00S01423.cldt +++| SX7 /NTS/DAB+/NTS/NAV 01444 M00S01424.cldt +++| SB3 X2+ 01445 M00S01425.cldt +++| JP B3 PROCESS RESPECTIVE KEYWORD 01446 M00S01426.cldt +++| 01447 M00S01427.cldt +++|* PROCESS *SSF* KEYWORD. 01448 M00S01428.cldt +++| 01449 M00S01429.cldt +++| CPE26 LX7 LSFSS-LNPSS 01450 M00S01430.cldt +++| BX7 X7+X3 01451 M00S01431.cldt +++| SA7 B7+ SET SSF ACCESS TO 0 01452 M00S01432.cldt +++| EQ CPE29 PROCESS NEXT KEYWORD 01453 M00S01433.cldt +++| 01454 M00S01434.cldt +++|* PROCESS *RHF* KEYWORD. 01455 M00S01435.cldt +++| 01456 M00S01436.cldt +++| CPE27 LX7 LRHSS-LNPSS 01457 M00S01437.cldt +++| BX7 X7+X3 01458 M00S01438.cldt +++| SA7 B7+ SET RHF ACCESS TO 0 01459 M00S01439.cldt +++| EQ CPE29 PROCESS NEXT KEYWORD 01460 M00S01440.cldt +++| 01461 M00S01441.cldt +++|* PROCESS *NAM* KEYWORD. 01462 M00S01442.cldt +++| 01463 M00S01443.cldt +++| CPE28 LX7 LNPSS-LNPSS 01464 M00S01444.cldt +++| BX7 X7+X3 01465 M00S01445.cldt +++| SA7 B7+ SET NAM ACCESS TO 0 01466 M00S01446.cldt +++|* EQ CPE29 PROCESS NEXT KEYWORD 01467 M00S01447.cldt +++| 01468 M00S01448.cldt +++|* *NETDIS* KEYWORD POST-PROCESSOR. 01469 M00S01449.cldt +++| 01470 M00S01450.cldt +++| CPE29 BX7 X5-X6 01471 M00S01451.cldt +++| NZ X7,CPE4 IF NOT */* 01472 M00S01452.cldt +++| SA1 A1+B1 01473 M00S01453.cldt +++| SA2 CPED FWA OF *NETDIS* KEYWORD TABLE 01474 M00S01454.cldt +++| EQ CPE24 CONTINUE WITH NEXT KEYWORD 01475 M00S01455.cldt +++| 01476 M00S01456.cldt +++|* COMPLETE *NPID* STATEMENT. 01477 M00S01457.cldt +++| 01478 M00S01458.cldt +++| CPE30 SA1 CPET CHECK IF *PID* KEYWORD EXISTS 01479 M00S01459.cldt +++| ZR X1,CPE38 IF NO *PID* SPECIFIED 01480 M00S01460.cldt +++| SA1 CPEU CHECK IF *MFTYPE* KEYWORD EXISTS 01481 M00S01461.cldt +++| ZR X1,CPE41 IF NO *MFTYPE* SPECIFIED 01482 M00S01462.cldt +++| SX7 B7+LRI3W-LNTHW SET NEXT AVAILABLE WORD IN LID TABLE 01483 M00S01463.cldt +++| SA7 CLTB 01484 M00S01464.cldt +++| EQ CPEX RETURN 01485 M00S01465.cldt +++| 01486 M00S01466.cldt +++|* INCORRECT *NPID* STATEMENT. 01487 M00S01467.cldt +++| 01488 M00S01468.cldt +++| CPE31 MESSAGE CPEE *VALID KEYWORDS FOR NPID ARE* 01489 M00S01469.cldt +++| MESSAGE CPEF *PID,MFTYPE,ENABLED, AT AND NETDIS.* 01490 M00S01470.cldt +++| EQ CPE42 ISSUE ERROR MESSAGES 01491 M00S01471.cldt +++| 01492 M00S01472.cldt +++|* INCORRECT *PID* PARAMETER. 01493 M00S01473.cldt +++| 01494 M00S01474.cldt +++| CPE32 MESSAGE CPEH *SPECIFY EXACTLY 3 ALPHANUMERIC CHARS.* 01495 M00S01475.cldt +++| EQ CPE42 ISSUE ERROR MESSAGES 01496 M00S01476.cldt +++| 01497 M00S01477.cldt +++|* INCORRECT *ENABLED* PARAMETER. 01498 M00S01478.cldt +++| 01499 M00S01479.cldt +++| CPE33 MESSAGE CPEZ *YES OR NO ALLOWED ON ENABLED KEYWORD* 01500 M00S01480.cldt +++| EQ CPE42 ISSUE ERROR MESSAGES 01501 M00S01481.cldt +++| 01502 M00S01482.cldt +++|* INCORRECT *AT* KEYWORD. 01503 M00S01483.cldt +++| 01504 M00S01484.cldt +++| CPE34 MESSAGE CPEJ *OPTIONS FOR *AT* ARE VALID/NVALID/* 01505 M00S01485.cldt +++| MESSAGE CPEK *NLIST.* 01506 M00S01486.cldt +++| EQ CPE42 ISSUE ERROR MESSAGES 01507 M00S01487.cldt +++| 01508 M00S01488.cldt +++|* INCORRECT HOST AND NETDIS. 01509 M00S01489.cldt +++| 01510 M00S01490.cldt +++| CPE35 MESSAGE CPEL *NETDIS IS INCORRECT FOR HOST PID* 01511 M00S01491.cldt +++| EQ CPE42 ISSUE ERROR MESSAGES 01512 M00S01492.cldt +++| 01513 M00S01493.cldt +++|* INCORRECT *NETDIS* KEYWORD. 01514 M00S01494.cldt +++| 01515 M00S01495.cldt +++| CPE36 MESSAGE CPEM *VALID KEYWORD FOR NETDIS ARE* 01516 M00S01496.cldt +++| MESSAGE CPEN *SSF, RHF AND NAM* 01517 M00S01497.cldt +++| EQ CPE42 ISSUE ERROR MESSAGES 01518 M00S01498.cldt +++| 01519 M00S01499.cldt +++| CPE37 MESSAGE CPEO *CLDT - = MUST FOLLOW KEYWORD.* 01520 M00S01500.cldt +++| EQ CPE42 ISSUE ERROR MESSAGES 01521 M00S01501.cldt +++| 01522 M00S01502.cldt +++|* NO *PID* KEYWORD ON *NPID* STATEMENT. 01523 M00S01503.cldt +++| 01524 M00S01504.cldt +++| CPE38 MESSAGE CPEP *NO PID SPECIFIED.* 01525 M00S01505.cldt +++| EQ CPE42 ISSUE ERROR MESSAGES 01526 M00S01506.cldt +++| 01527 M00S01507.cldt +++|* DUPLICATE PID FOUND. 01528 M00S01508.cldt +++| 01529 M00S01509.cldt +++| CPE39 MESSAGE CPEQ *DUPLICATE PID ON NPID STATEMENT.* 01530 M00S01510.cldt +++| EQ CPE42 ISSUE ERROR MESSAGES 01531 M00S01511.cldt +++| 01532 M00S01512.cldt +++|* INCORRECT MFTYPE. 01533 M00S01513.cldt +++| 01534 M00S01514.cldt +++| CPE40 MESSAGE CPER *MAXIMUM 7 CHARACTERS ALLOWED ON MFTYPE.* 01535 M00S01515.cldt +++| EQ CPE42 ISSUE ERROR MESSAGES 01536 M00S01516.cldt +++| 01537 M00S01517.cldt +++|* NO *MFTYPE* KEYWORD ON *NPID* STATEMENT. 01538 M00S01518.cldt +++| 01539 M00S01519.cldt +++| CPE41 MESSAGE CPES *NO MFTYPE SPECIFIED.* 01540 M00S01520.cldt +++| 01541 M00S01521.cldt +++| CPE42 MESSAGE CPEG *ERROR IN THE FOLLOWING STATEMENT 01542 M00S01522.cldt +++| MESSAGE WBUF *NPID STATEMENT* 01543 M00S01523.cldt +++| SX6 B1 01544 M00S01524.cldt +++| SA6 FERF SET FATAL ERROR FLAG 01545 M00S01525.cldt +++| EQ CPEX RETURN 01546 M00S01526.cldt +++| 01547 M00S01527.cldt +++| 01548 M00S01528.cldt +++|* *PID* KEYWORD TABLE. 01549 M00S01529.cldt +++| 01550 M00S01530.cldt +++| CPEA VFD 42/3LPID,18/CPE7 *PID* 01551 M00S01531.cldt +++| VFD 42/7LENABLED,18/CPE12 *ENABLED* 01552 M00S01532.cldt +++| VFD 42/6LMFTYPE,18/CPE13 *MFTYPE* 01553 M00S01533.cldt +++| VFD 42/2LAT,18/CPE16 *AT* 01554 M00S01534.cldt +++| VFD 42/6LNETDIS,18/CPE23 *NETDIS* 01555 M00S01535.cldt +++| VFD 60/0 01556 M00S01536.cldt +++| 01557 M00S01537.cldt +++|* *AT* KEYWORD TABLE. 01558 M00S01538.cldt +++| 01559 M00S01539.cldt +++| CPEB VFD 42/6LNVALID,18/CPE19 *NVALID* 01560 M00S01540.cldt +++| VFD 42/5LVALID,18/CPE20 *VALID* 01561 M00S01541.cldt +++| VFD 42/5LNLIST,18/CPE21 *NLIST* 01562 M00S01542.cldt +++| VFD 60/0 01563 M00S01543.cldt +++| 01564 M00S01544.cldt +++| CPEC CON 1 NOT *HOST* NOR *NETDIS* SPECIFIED 01565 M00S01545.cldt +++| 01566 M00S01546.cldt +++|* SUBSYSTEM KEYWORD TABLE. 01567 M00S01547.cldt +++| 01568 M00S01548.cldt +++| CPED VFD 42/3LSSF,18/CPE26 *SSF* 01569 M00S01549.cldt +++| VFD 42/3LRHF,18/CPE27 *RHF* 01570 M00S01550.cldt +++| VFD 42/3LNAM,18/CPE28 *NAM* 01571 M00S01551.cldt +++| BSSZ 1 END OF *NETDIS* TABLE 01572 M00S01552.cldt +++| CPEE DATA C* CLDT - VALID KEYWORDS FOR NPID ARE * 01573 M00S01553.cldt +++| CPEF DATA C* PID,MFTYPE,ENABLED,AT AND NETDIS.* 01574 M00S01554.cldt +++| CPEG DATA C* CLDT - ERROR IN THE FOLLOWING STATEMENT.* 01575 M00S01555.cldt +++| CPEH DATA C* CLDT - SPECIFY EXACTLY 3 ALPHANUMERIC CHARACTERS IN 01576 M00S01556.cldt +++|,PID.* 01577 M00S01557.cldt +++| CPEJ DATA C+ CLDT - VALID OPTIONS FOR *AT* ARE VALID/NVALID/+ 01578 M00S01558.cldt +++| CPEK DATA C* NLIST.* 01579 M00S01559.cldt +++| CPEL DATA C* CLDT - NETDIS IS INCORRECT FOR HOST PID.* 01580 M00S01560.cldt +++| CPEM DATA C* CLDT - VALID OPTIONS FOR NETDIS ARE * 01581 M00S01561.cldt +++| CPEN DATA C* SSF, RHF AND NAM.* 01582 M00S01562.cldt +++| CPEO DATA C* CLDT - = MUST FOLLOW KEYWORD.* 01583 M00S01563.cldt +++| CPEP DATA C* CLDT - NO PID SPECIFIED ON NPID STATEMENT.* 01584 M00S01564.cldt +++| CPEQ DATA C* CLDT - DUPLICATE PID ON NPID STATEMENT.* 01585 M00S01565.cldt +++| CPER DATA C* CLDT - MAXIMUM OF 7 CHARACTERS ALLOWED ON MFTYPE.* 01586 M00S01566.cldt +++| CPES DATA C* CLDT - NO MFTYPE SPECIFIED ON NPID STATEMENT.* 01587 M00S01567.cldt +++| CPET BSSZ 1 *PID* EXIST FLAG IF .NE. 0 01588 M00S01568.cldt +++| CPEU BSSZ 1 *MFTYPE EXIST FLAG IF .NE. 0 01589 M00S01569.cldt +++| CPEV BSSZ 1 *NETDIS* SPECIFIED FLAG (1 IF SPECIFIED) 01590 M00S01570.cldt +++| CPEW BSSZ 1 HOST FLAG (1 IF HOST PID) 01591 M00S01571.cldt +++| CPEY BSSZ MXPID PROCESSED PID-S 01592 M00S01572.cldt +++| CPEZ DATA C* CLDT - ONLY YES OR NO ALLOWED ON ENABLED KEYWORD.* 01593 M00S01573.cldt +++| PSE SPACE 4,10 01594 M00S01574.cldt +++|** PSE - PAUSE FOR OPERATOR GO/DROP. 01595 M00S01575.cldt +++|* 01596 M00S01576.cldt +++|* USES X - 1, 6. 01597 M00S01577.cldt +++|* A - 1, 6. 01598 M00S01578.cldt +++|* B - NONE. 01599 M00S01579.cldt +++|* 01600 M00S01580.cldt +++|* MACROS RECALL. 01601 M00S01581.cldt +++| 01602 M00S01582.cldt +++| 01603 M00S01583.cldt +++| PSE SUBR ENTRY/EXIT 01604 M00S01584.cldt +++| SA1 B0 SET PAUSE FLAG IN RA+0 01605 M00S01585.cldt +++| SX6 10000B 01606 M00S01586.cldt +++| BX6 X1+X6 01607 M00S01587.cldt +++| SA6 A1 01608 M00S01588.cldt +++| PSE1 RECALL 01609 M00S01589.cldt +++| SA1 B0 01610 M00S01590.cldt +++| LX1 59-12 01611 M00S01591.cldt +++| NG X1,PSE1 IF PAUSE FLAG NOT CLEARED 01612 M00S01592.cldt +++| EQ PSEX RETURN 01613 M00S01593.cldt +++| PTL SPACE 4,20 01614 M00S01594.cldt +++|** PTL - PROCESS TEXT LINE. 01615 M00S01595.cldt +++|* 01616 M00S01596.cldt +++|* *PTL* PERFORMS THE FOLLOWING FUNCTIONS - 01617 M00S01597.cldt +++|* 1. READ IN ONE TEXT LINE. 01618 M00S01598.cldt +++|* 2. SKIP TEXT LINE IF THE FIRST CHARACTER IS *. 01619 M00S01599.cldt +++|* 3. ADD TERMINATOR IF THERE IS NONE. 01620 M00S01600.cldt +++|* 4. UNPACK THE TEXT LINE. 01621 M00S01601.cldt +++|* 01622 M00S01602.cldt +++|* ENTRY LID CONFIGURATION FILE LOCAL TO THE JOB. 01623 M00S01603.cldt +++|* 01624 M00S01604.cldt +++|* EXIT (X1) .NE. 0 IF EOR/EOF ENCOUNTERED. 01625 M00S01605.cldt +++|* FERF .EQ. 1 IF AN UNRECOGNIZED DIRECTIVE WAS 01626 M00S01606.cldt +++|* ENCOUNTERED. 01627 M00S01607.cldt +++|*
| Line S01608 Modification History | |
|---|---|
M01 (Removed by) | cldt4 |
Seq # *Modification Id* Act ----------------------------+ 01628 M01S01608.cldt4 ---|* USES X - 0, 1, 2, 3, 4, 6, 7. 01629 M01S01609.cldt4 ---|* A - 1, 4, 5, 6, 7. 01630 M01S01610.cldt4 ---|* B - 3, 4, 7.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | cldt4 |
Seq # *Modification Id* Act ----------------------------+ 01631 M01S00001.cldt4 +++|* USES X - ALL. 01632 M01S00002.cldt4 +++|* A - 1, 2, 3, 4, 5, 6, 7. 01633 M01S00003.cldt4 +++|* B - 2, 3, 4, 7. 01634 M00S01611.cldt +++|* 01635 M00S01612.cldt +++|* CALLS UPC. 01636 M00S01613.cldt +++|* 01637 M00S01614.cldt +++|* MACROS READC. 01638 M00S01615.cldt +++| 01639 M00S01616.cldt +++| 01640 M00S01617.cldt +++| PTL SUBR ENTRY/EXIT 01641 M00S01618.cldt +++| PTL1 READC I,WBUF,WBUFL READ A LINE 01642 M00S01619.cldt +++| BX6 X6-X6 01643 M00S01620.cldt +++| NZ X1,PTLX IF EOR/EOF 01644 M00S01621.cldt +++| SX6 1R* 01645 M00S01622.cldt +++| SA1 WBUF 01646 M00S01623.cldt +++| MX0 6 SKIP COMMENTS 01647 M00S01624.cldt +++| BX3 X0*X1 01648 M00S01625.cldt +++| LX6 -6 01649 M00S01626.cldt +++| BX0 X3-X6 01650 M00S01627.cldt +++| ZR X0,PTL1 IF FIRST CHARACTER -*- 01651 M00S01628.cldt +++| SA4 PTLA 01652 M00S01629.cldt +++| MX0 42 01653 M00S01630.cldt +++| BX3 X0*X1 GET FIRST 7 CHARACTERS OF DIRECTIVE 01654 M00S01631.cldt +++| BX3 X3-X4 SUBTRACT *COMMENT* FROM FIRST 7 CHARACTERS 01655 M00S01632.cldt +++| ZR X3,PTL1 IF FIRST 7 CHARACTERS ARE *COMMENT* 01656 M00S01633.cldt +++| MX0 24 01657 M00S01634.cldt +++| BX3 X0*X1 01658 M00S01635.cldt +++| SA4 PTLB 01659 M00S01636.cldt +++| BX4 X3-X4 SUBTRACT *NPID* FROM CHARACTERS 01660 M00S01637.cldt +++| ZR X4,PTL3 IF CHARACTERS ARE *NPID * 01661 M00S01638.cldt +++| SA4 PTLC 01662 M00S01639.cldt +++| BX4 X3-X4 SUBTRACT *NLID* FROM CHARACTERS 01663 M00S01640.cldt +++| NZ X4,PTL9 IF CHARACTERS ARE NOT *NLID * 01664 M00S01641.cldt +++| PTL3 SX1 1R. 01665 M00S01642.cldt +++| SX2 1R) 01666 M00S01643.cldt +++| SB4 60 01667 M00S01644.cldt +++| SB3 6 01668 M00S01645.cldt +++| LX2 -6 01669 M00S01646.cldt +++| MX0 6 01670 M00S01647.cldt +++| LX1 -6 01671 M00S01648.cldt +++| SA4 B6-B1
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | cldt4 |
Seq # *Modification Id* Act ----------------------------+ 01672 M01S00004.cldt4 +++| NZ X4,PTL4 IF EOL CONTAINED IN LAST WORD 01673 M01S00005.cldt4 +++| SA4 A4-1 CHECK PREVIOUS WORD FOR COLONS 01674 M00S01649.cldt +++| PTL4 BX3 X0*X4 01675 M00S01650.cldt +++| BX6 X1-X3 01676 M00S01651.cldt +++| ZR X3,PTL5 IF END OF LINE 01677 M00S01652.cldt +++| ZR X6,PTL6 IF TERMINATOR *.* 01678 M00S01653.cldt +++| BX6 X2-X3 01679 M00S01654.cldt +++| ZR X6,PTL6 IF TERMINATOR *)* 01680 M00S01655.cldt +++| LX4 X4,B3 LEFT SHIFT ONE CHARACTER 01681 M00S01656.cldt +++| SB4 B4-B3 01682 M00S01657.cldt +++| NZ B4,PTL4 IF NOT AT WORD BOUNDARY 01683 M00S01658.cldt +++| SA4 A4+B1 01684 M00S01659.cldt +++| SB4 60 01685 M00S01660.cldt +++| EQ PTL4 TRY NEXT WORD 01686 M00S01661.cldt +++| 01687 M00S01662.cldt +++| PTL5 BX7 X1+X4 POSITION BACK 01688 M00S01663.cldt +++| LX7 X7,B4 01689 M00S01664.cldt +++| SA7 A4+
| Line S01665 Modification History | |
|---|---|
M01 (Removed by) | cldt4 |
Seq # *Modification Id* Act ----------------------------+ 01690 M01S01665.cldt4 ---| 01691 M00S01666.cldt +++| PTL6 SB3 10 INITIALIZE CHARACTER COUNT 01692 M00S01667.cldt +++| MX0 6 01693 M00S01668.cldt +++| SA4 WBUF 01694 M00S01669.cldt +++| PTL7 BX3 X0*X4 ONE CHARACTER FROM WBUF 01695 M00S01670.cldt +++| BX5 X3-X2 01696 M00S01671.cldt +++| ZR X5,PTL8 IF TERMINATOR *)* AND NO COLON 01697 M00S01672.cldt +++| BX5 X3-X1 01698 M00S01673.cldt +++| ZR X5,PTL8 IF TERMINATOR *.* AND NO COLON 01699 M00S01674.cldt +++| ZR X3,PTL10 IF A COLON OR *00* IN WBUF 01700 M00S01675.cldt +++| LX4 6 SHIFT TO NEXT CHARACTER 01701 M00S01676.cldt +++| SB3 B3-B1 DECREMENT CHARACTER COUNT 01702 M00S01677.cldt +++| NZ B3,PTL7 IF MORE CHARACTERS TO CHECK IN WORD 01703 M00S01678.cldt +++| SB3 10 INITIALIZE CHARACTER COUNT 01704 M00S01679.cldt +++| SA4 A4+B1 INCREMENT TO NEXT WORD 01705 M00S01680.cldt +++| SB2 A4 01706 M00S01681.cldt +++| LE B2,B6,PTL7 IF THERE IS ANOTHER WORD TO CHECK
| Line S01682 Modification History | |
|---|---|
M01 (Removed by) | cldt4 |
Seq # *Modification Id* Act ----------------------------+ 01707 M01S01682.cldt4 ---| 01708 M00S01683.cldt +++| PTL8 SB7 UBUF FWA TO UNPACK INTO 01709 M00S01684.cldt +++| SA5 WBUF FWA TO UNPACK 01710 M00S01685.cldt +++| RJ UPC 01711 M00S01686.cldt +++| SA2 UBUF+2 01712 M00S01687.cldt +++| SA1 HOSTPID 01713 M00S01688.cldt +++| BX2 X2-X1 01714 M00S01689.cldt +++| NZ X2,PTL8.1 IF NOT HOST PID 01715 M00S01690.cldt +++| BX7 X1 01716 M00S01691.cldt +++| SA7 HOST SET HOST SPECIFIED 01717 M00S01692.cldt +++| PTL8.1 SA1 UBUF 01718 M00S01693.cldt +++| SA4 PTLB 01719 M00S01694.cldt +++| BX4 X1-X4 01720 M00S01695.cldt +++| ZR X4,PTL8.2 IF CHARACTERS ARE *NPID * 01721 M00S01696.cldt +++| SA4 PTLC 01722 M00S01697.cldt +++| BX4 X1-X4 01723 M00S01698.cldt +++| NZ X4,PTL12 IF NOT *NLID* DIRECTIVE 01724 M00S01699.cldt +++| PTL8.2 BX6 X6-X6 01725 M00S01700.cldt +++| BX1 X1-X1 01726 M00S01701.cldt +++| SA6 A6+1 MAKE SURE LAST WORD IS ZERO 01727 M00S01702.cldt +++| EQ PTLX RETURN 01728 M00S01703.cldt +++| 01729 M00S01704.cldt +++|* UNRECOGNIZED DIRECTIVE. 01730 M00S01705.cldt +++| 01731 M00S01706.cldt +++| PTL9 BX1 X1-X1 CLEAR EOF/EOR 01732 M00S01707.cldt +++| SX6 B1 01733 M00S01708.cldt +++| SA6 FERF SET FATAL ERROR FLAG 01734 M00S01709.cldt +++| SA6 CFSK SET *CFS* FATAL ERROR FLAG 01735 M00S01710.cldt +++| EQ PTLX RETURN 01736 M00S01711.cldt +++| 01737 M00S01712.cldt +++|* COLON FOUND IN DIRECTIVE. 01738 M00S01713.cldt +++| 01739 M00S01714.cldt +++| PTL10 SA3 PTLF 01740 M00S01715.cldt +++| NZ X3,PTL11 IF *PTL* CALLED BY *CLT* 01741 M00S01716.cldt +++| MESSAGE PTLD * INCORRECT CHARACTER IN DIRECTIVE. 01742 M00S01717.cldt +++| PTL10.1 MESSAGE CPEG *ERROR IN THE FOLLOWING STATEMENT.* 01743 M00S01718.cldt +++| MESSAGE WBUF 01744 M00S01719.cldt +++| SX6 B1 01745 M00S01720.cldt +++| SA6 FERF SET FATAL ERROR FLAG 01746 M00S01721.cldt +++| SA6 CFSL SET ERROR FLAG 01747 M00S01722.cldt +++| EQ PTLX RETURN 01748 M00S01723.cldt +++| 01749 M00S01724.cldt +++|* *PTL* CALLED BY *CLT*. 01750 M00S01725.cldt +++| 01751 M00S01726.cldt +++| PTL11 SX6 B1 01752 M00S01727.cldt +++| BX1 X1-X1 01753 M00S01728.cldt +++| EQ PTLX RETURN 01754 M00S01729.cldt +++| 01755 M00S01730.cldt +++|* NO SEPARATOR AFTER NPID OR NLID. 01756 M00S01731.cldt +++| 01757 M00S01732.cldt +++| PTL12 SA3 PTLF 01758 M00S01733.cldt +++| NZ X3,PTL11 IF *PTL* CALLED BY *CLT* 01759 M00S01734.cldt +++| MESSAGE PTLE * A SEPARATOR MUST FOLLOW NLID OR NPID.* 01760 M00S01735.cldt +++| EQ PTL10.1 ISSUE ERROR MESSAGE 01761 M00S01736.cldt +++| 01762 M00S01737.cldt +++|* *COMMENT* DIRECTIVE 01763 M00S01738.cldt +++| 01764 M00S01739.cldt +++| PTLA VFD 42/7LCOMMENT,18/0 01765 M00S01740.cldt +++| PTLB VFD 24/4LNPID,36/0 01766 M00S01741.cldt +++| PTLC VFD 24/4LNLID,36/0 01767 M00S01742.cldt +++| PTLD DATA C* CLDT - INCORRECT CHARACTER IN DIRECTIVE.* 01768 M00S01743.cldt +++| PTLE DATA C* CLDT - A SEPARATOR MUST FOLLOW NLID OR NPID.* 01769 M00S01744.cldt +++| PTLF CON 0 1 IF *PTL* CALLED ONCE 01770 M00S01745.cldt +++| SPACE 4 01771 M00S01746.cldt +++|* COMMON DECKS. 01772 M00S01747.cldt +++| 01773 M00S01748.cldt +++| 01774 M00S01749.cldt +++|*CALL COMCCIO 01775 M00S01750.cldt +++|*CALL COMCCPM 01776 M00S01751.cldt +++|*CALL COMCPFM 01777 M00S01752.cldt +++|*CALL COMCRDC 01778 M00S01753.cldt +++|*CALL COMCRDW 01779 M00S01754.cldt +++|*CALL COMCSFM 01780 M00S01755.cldt +++|*CALL COMCSFN 01781 M00S01756.cldt +++|*CALL COMCSYS 01782 M00S01757.cldt +++|*CALL COMCUPC 01783 M00S01758.cldt +++| TITLE BUFFERS. 01784 M00S01759.cldt +++|* BUFFERS. 01785 M00S01760.cldt +++| 01786 M00S01761.cldt +++| IBUF BSS IBUFL LID CONFIGURATION FILE BUFFER 01787 M00S01762.cldt +++| UBUF BSS UBUFL UNPACK BUFFER 01788 M00S01763.cldt +++| WBUF BSS WBUFL WORKING BUFFER 01789 M00S01764.cldt +++| LIDT VFD 12/0,30/0,8/0,1/0 01790 M00S01765.cldt +++| 01791 M00S01766.cldt +++|* NOTE - THE FOLLOWING AREA WILL BE USED FOR THE LID TABLE. 01792 M00S01767.cldt +++| PRS TITLE PRESET. 01793 M00S01768.cldt +++|** PRS - PRESET ROUTINE. 01794 M00S01769.cldt +++|* 01795 M00S01770.cldt +++|* ENTRY (JOPR) = JOB ORIGIN. 01796 M00S01771.cldt +++|* 01797 M00S01772.cldt +++|* EXIT VALIDATION COMPLETED. 01798 M00S01773.cldt +++|* TO *CLD1* IF LDT INTENTIONALLY NOT TO BE CREATED AT 01799 M00S01774.cldt +++|* DEADSTART TIME (SEE CRITERIA BELOW). 01800 M00S01775.cldt +++|* TO *CLD3* IF FATAL ERROR DETECTED. 01801 M00S01776.cldt +++|* 01802 M00S01777.cldt +++|* USES X - ALL. 01803 M00S01778.cldt +++|* A - 1, 2, 3, 4, 6, 7. 01804 M00S01779.cldt +++|* B - 1. 01805 M00S01780.cldt +++|* 01806 M00S01781.cldt +++|* CALLS ARG, SNM. 01807 M00S01782.cldt +++|* 01808 M00S01783.cldt +++|* MACROS ATTACH, EREXIT, GET, MACHID, MESSAGE, READ, REWIND, 01809 M00S01784.cldt +++|* STATUS, SYSTEM. 01810 M00S01785.cldt +++|* 01811 M00S01786.cldt +++|* NOTE *PRS* WILL BE OVERLAID BY THE LDT. 01812 M00S01787.cldt +++| 01813 M00S01788.cldt +++| 01814 M00S01789.cldt +++| PRS SUBR ENTRY/EXIT 01815 M00S01790.cldt +++| SB1 1 01816 M00S01791.cldt +++| EREXIT CLD5 NORMAL EXIT FOR OPERATOR DROP 01817 M00S01792.cldt +++| SA1 JOPR CHECK FOR SYSTEM ORIGIN 01818 M00S01793.cldt +++| MX0 -12 01819 M00S01794.cldt +++| LX1 36 01820 M00S01795.cldt +++| BX1 -X0*X1 01821 M00S01796.cldt +++| SX6 X1-SYOT (X6) = 0 IF SYSTEM ORIGIN 01822 M00S01797.cldt +++| SA6 JORG 01823 M00S01798.cldt +++| 01824 M00S01799.cldt +++|* GET *LDT* LENGTH. 01825 M00S01800.cldt +++| 01826 M00S01801.cldt +++| SYSTEM RSB,R,LDPT 01827 M00S01802.cldt +++| SA1 LDPT+1 LDT LENGTH 01828 M00S01803.cldt +++| MX0 -12 01829 M00S01804.cldt +++| LX1 -24 01830 M00S01805.cldt +++| BX6 -X0*X1 01831 M00S01806.cldt +++| SA6 LIDL SAVE LDT LENGTH 01832 M00S01807.cldt +++| 01833 M00S01808.cldt +++|* GET SUBSYSTEM ID. 01834 M00S01809.cldt +++| 01835 M00S01810.cldt +++| GETSSID DSSQ 01836 M00S01811.cldt +++| SA1 DSSQ CP SUBSYSTEM ID 01837 M00S01812.cldt +++| MX0 -12 01838 M00S01813.cldt +++| BX6 -X0*X1 01839 M00S01814.cldt +++| SX6 X6-DSSI (X6) = 0 IF DEADSTART SEQUENCE 01840 M00S01815.cldt +++| SA6 A1+ SAVE DEADSTART SEQUENCE FLAG 01841 M00S01816.cldt +++| 01842 M00S01817.cldt +++|* CREATE HOST PID. ESTABLISH THE DEFAULT NAME OF THE LID 01843 M00S01818.cldt +++|* CONFIGURATION FILE. 01844 M00S01819.cldt +++| 01845 M00S01820.cldt +++| MACHID MACH 01846 M00S01821.cldt +++| SA1 MACH GET MACHINE ID 01847 M00S01822.cldt +++| MX0 -12 01848 M00S01823.cldt +++| BX1 -X0*X1 01849 M00S01824.cldt +++| BX6 X1 WORKING COPY OF MACHINE ID 01850 M00S01825.cldt +++| SA2 HOSTPID CREATE HOST PID 01851 M00S01826.cldt +++| LX6 42 01852 M00S01827.cldt +++| BX6 X2+X6 MERGE *M* WITH MACHINE ID 01853 M00S01828.cldt +++| SA6 A2 SAVE HOST PID 01854 M00S01829.cldt +++| SA3 I PUT ID IN LID FILE NAME 01855 M00S01830.cldt +++| BX6 X1 01856 M00S01831.cldt +++| LX6 18 01857 M00S01832.cldt +++| BX6 X3+X6 01858 M00S01833.cldt +++| SA6 A3 SAVE NEW (DEFAULT) FILE NAME 01859 M00S01834.cldt +++| SA6 RCRD SAVE IMAGE OF FIRST RECORD ON FILE 01860 M00S01835.cldt +++| SA4 I+1 SET ERROR PROCESSING BIT 01861 M00S01836.cldt +++| SX6 B1 01862 M00S01837.cldt +++| LX6 44 01863 M00S01838.cldt +++| BX6 X4+X6 01864 M00S01839.cldt +++| SA6 A4 01865 M00S01840.cldt +++| SX7 ERAD SET ERROR RETURN ADDRESS IN FET 01866 M00S01841.cldt +++| SA7 I+10 01867 M00S01842.cldt +++| SA5 PRSA+3 PUT ID IN ERROR MESSAGE 01868 M00S01843.cldt +++| LX0 30 01869 M00S01844.cldt +++| BX5 X0*X5 01870 M00S01845.cldt +++| LX1 30 01871 M00S01846.cldt +++| BX6 X1+X5 01872 M00S01847.cldt +++| SA6 A5+ 01873 M00S01848.cldt +++| 01874 M00S01849.cldt +++|* PROCESS *CLDT* ARGUMENTS, IF ANY. 01875 M00S01850.cldt +++| 01876 M00S01851.cldt +++| SA1 ACTR GET ARGUMENT COUNT 01877 M00S01852.cldt +++| SB4 X1+ 01878 M00S01853.cldt +++| ZR B4,PRS1 IF NO ARGUMENTS 01879 M00S01854.cldt +++| SA4 ARGR GET FIRST ARGUMENT 01880 M00S01855.cldt +++| SB5 TARG FWA OF ARGUMENT TABLE 01881 M00S01856.cldt +++| RJ ARG PROCESS ARGUMENTS 01882 M00S01857.cldt +++| NZ X1,PRS4 IF ARGUMENT ERROR 01883 M00S01858.cldt +++| PRS1 SA1 I 01884 M00S01859.cldt +++| NZ X1,PRS2 IF FILE NAME PRESENT 01885 M00S01860.cldt +++| SA1 RCRD RESTORE FET NAME (*I=0* SPECIFIED) 01886 M00S01861.cldt +++| BX6 X1 01887 M00S01862.cldt +++| SA6 I 01888 M00S01863.cldt +++| PRS2 MX0 42 01889 M00S01864.cldt +++| BX1 X0*X1 FILE NAME 01890 M00S01865.cldt +++| SB2 1RX SET SEARCH CHARACTER 01891 M00S01866.cldt +++| SB5 PRSD FWA OF ERROR MESSAGE 01892 M00S01867.cldt +++| RJ SNM SET FILE NAME IN ERROR MESSAGE 01893 M00S01868.cldt +++| 01894 M00S01869.cldt +++|* CHECK IF FILE IS LOCAL. IF NOT, *GET* OR *ATTACH* THE FILE 01895 M00S01870.cldt +++|* UNDER THE JOB-S USER NAME. 01896 M00S01871.cldt +++| 01897 M00S01872.cldt +++| STATUS I 01898 M00S01873.cldt +++| SA1 I GET STATUS 01899 M00S01874.cldt +++| MX0 -11 01900 M00S01875.cldt +++| AX1 1 01901 M00S01876.cldt +++| BX2 -X0*X1 01902 M00S01877.cldt +++| NZ X2,PRS3 IF FILE LOCAL TO JOB
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ncccldt |
Seq # *Modification Id* Act ----------------------------+ 01903 M01S00001.ncccldt +++| 01904 M01S00002.ncccldt +++| PRS2.1 BSS 0 01905 M00S01878.cldt +++| GET I,,,,,,DF GET FILE ON SYSTEM DEFAULT FAMILY 01906 M00S01879.cldt +++| SA4 I CHECK IF FILE EXISTS 01907 M00S01880.cldt +++| MX0 8 01908 M00S01881.cldt +++| LX4 59-17 01909 M00S01882.cldt +++| BX6 X0*X4 01910 M00S01883.cldt +++| ZR X6,PRS3 IF FILE FOUND
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | ncccldt |
Seq # *Modification Id* Act ----------------------------+ 01911 M01S00003.ncccldt +++| AX4 52 01912 M01S00004.ncccldt +++| SX6 X4-/ERRMSG/PFN 01913 M01S00005.ncccldt +++| ZR X6,PRS2.2 IF DEVICE UNAVAILABLE 01914 M01S00006.ncccldt +++| SX6 X4-/ERRMSG/PFA 01915 M01S00007.ncccldt +++| NZ X6,PRS2.3 IF PF UTILITY NOT ACTIVE 01916 M01S00008.ncccldt +++| 01917 M01S00009.ncccldt +++| PRS2.2 BSS 0 01918 M01S00010.ncccldt +++| RECALL 01919 M01S00011.ncccldt +++| EQ PRS2.1 01920 M01S00012.ncccldt +++| 01921 M01S00013.ncccldt +++| PRS2.3 BSS 0 01922 M00S01884.cldt +++| ATTACH I,,,,,,,DF 01923 M00S01885.cldt +++| SA4 I CHECK IF FILE EXISTS
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/cldt.txt · Last modified: by 127.0.0.1