cdc:nos2.source:opl.opl871:deck:cldt
Deck CLDT
7 Modifications
Listing Sections
- Deck CLDT Start
- Deck CLDT Part 1 (Line 1936)
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.cldt +++| IDENT CLDT,FWA,CLDT 00002 M01S00002.cldt +++| ABS
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | cldt |
M02 (Updated by) | ns2388 |
Seq # *Modification Id* Act ----------------------------+ 00003 M02S00003.ns2388 ---| SST CLTE,CLTF,CPET 00004 M01S00001.ns2388 +++| SST CLET,CLTE,CLTF,CPET 00005 M01S00004.cldt +++| ENTRY CLDT 00006 M01S00005.cldt +++| ENTRY RFL= 00007 M01S00006.cldt +++| ENTRY SSJ= 00008 M01S00007.cldt +++| SYSCOM B1 00009 M01S00008.cldt +++|CLDT TITLE CLDT - CREATE LID TABLE. 00010 M01S00009.cldt +++|*COMMENT CLDT - CREATE LID TABLE.
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | cldt |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00011 M02S00010.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1983. 00012 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00013 M01S00011.cldt +++| SPACE 4,10 00014 M01S00012.cldt +++|*** CLDT - CREATE LID MANAGEMENT TABLE. 00015 M01S00013.cldt +++|* 00016 M01S00014.cldt +++|* M. M. CHEN 83/01/01. 00017 M01S00015.cldt +++| SPACE 4,10 00018 M01S00016.cldt +++|*** *CLDT* CREATES A LID TABLE (LDT) ACCORDING TO THE CONTENTS OF 00019 M01S00017.cldt +++|* A LID CONFIGURATION FILE. *CLDT* IS INITIALLY EXECUTED BY 00020 M01S00018.cldt +++|* *MSM* DURING A LEVEL ZERO DEADSTART BUT MAY ALSO BE EXECUTED 00021 M01S00019.cldt +++|* ONLINE TO REBUILD THE LDT. NON-SYSTEM ORIGIN JOBS MAY CALL 00022 M01S00020.cldt +++|* *CLDT* TO CHECK FOR FATAL ERRORS IN A LID CONFIGURATION FILE 00023 M01S00021.cldt +++|* BUT NO LDT WILL BE CREATED/UPDATED IN CENTRAL MEMORY. 00024 M01S00022.cldt +++| SPACE 4,10 00025 M01S00023.cldt +++|*** COMMAND FORMAT. 00026 M01S00024.cldt +++|* 00027 M01S00025.cldt +++|* CLDT,I=LFN. 00028 M01S00026.cldt +++|* 00029 M01S00027.cldt +++|* I=LFN SPECIFIES THE LOCAL FILE NAME WHICH CONTAINS THE 00030 M01S00028.cldt +++|* DIRECTIVES TO BUILD THE LDT. IF YOU SPECIFY ONLY 00031 M01S00029.cldt +++|* PARAMETER *I* OR *I=0* OR IF YOU OMIT THE 00032 M01S00030.cldt +++|* PARAMETER, FILE *LIDCMXX* (WHERE XX = HOST PID 00033 M01S00031.cldt +++|* MACHINE ID) BECOMES LFN. IF LFN IS NOT LOCAL TO 00034 M01S00032.cldt +++|* THE JOB, THE FILE IS OBTAINED FROM THE JOB-S USER 00035 M01S00033.cldt +++|* NAME ON THE SYSTEM DEFAULT FAMILY. THIS PARAMETER 00036 M01S00034.cldt +++|* IS OPTIONAL. 00037 M01S00035.cldt +++| SPACE 4,10 00038 M01S00036.cldt +++|*** LIDCMID FILE. 00039 M01S00037.cldt +++|* 00040 M01S00038.cldt +++|*LIDCMID 00041 M01S00039.cldt +++|*KEYWORD(1),P1,P2, ,, . 00042 M01S00040.cldt +++|* . 00043 M01S00041.cldt +++|* . 00044 M01S00042.cldt +++|* . 00045 M01S00043.cldt +++|*KEYWORD(N),P1,P2, ,, . 00046 M01S00044.cldt +++|* 00047 M01S00045.cldt +++|* WHERE 00048 M01S00046.cldt +++|* LIDCMID IS THE RECORD HEADER. ID IS THE 00049 M01S00047.cldt +++|* MACHINE ID. 00050 M01S00048.cldt +++|* 00051 M01S00049.cldt +++|* 00052 M01S00050.cldt +++|* KEYWORDS INCLUDE - 00053 M01S00051.cldt +++|* 00054 M01S00052.cldt +++|* NPID - NAME OF PID. 00055 M01S00053.cldt +++|* 00056 M01S00054.cldt +++|* NLID - NAME OF LID. 00057 M01S00055.cldt +++|* 00058 M01S00056.cldt +++|* * - COMMENT. 00059 M01S00057.cldt +++|* 00060 M01S00058.cldt +++|* COMMENT - COMMENT. 00061 M01S00059.cldt +++|* 00062 M01S00060.cldt +++|* PARAMETERS FOR THE *NPID* KEYWORD - 00063 M01S00061.cldt +++|* 00064 M01S00062.cldt +++|* PID=XXX. 00065 M01S00063.cldt +++|* WHERE XXX IS A UNIQUE 3 ALPHANUMERIC CHARACTER 00066 M01S00064.cldt +++|* PHYSICAL IDENTIFIER OF THE REMOTE MAINFRAME. 00067 M01S00065.cldt +++|* (NOS MAINFRAMES ARE REQUIRED TO HAVE PIDS IN 00068 M01S00066.cldt +++|* THE FORMAT MXX, WHERE XX IS THE MACHINE ID.) 00069 M01S00067.cldt +++|* THE FIRST CHARACTER MUST BE ALPHABETIC. 00070 M01S00068.cldt +++|* THIS PARAMETER IS REQUIRED. 00071 M01S00069.cldt +++|* 00072 M01S00070.cldt +++|* ENABLED=YES OR NO. 00073 M01S00071.cldt +++|* INDICATES WHETHER THE MAINFRAME SPECIFIED BY XXX 00074 M01S00072.cldt +++|* IS AVAILABLE OR NOT. DEFAULT IS YES IF THE ENABLED 00075 M01S00073.cldt +++|* KEYWORD IS NOT SPECIFIED. 00076 M01S00074.cldt +++|* 00077 M01S00075.cldt +++|* MFTYPE=XXXXXXX. 00078 M01S00076.cldt +++|* WHERE XXXXXXX IS A 1-7 CHARACTER STRING INDICATING 00079 M01S00077.cldt +++|* THE MAINFRAME TYPE. AN EXAMPLE OF MAINFRAME TYPE 00080 M01S00078.cldt +++|* IS NOS/BE OR NOS OR NS2 OR CY700 OR IBM. 00081 M01S00079.cldt +++|* THIS PARAMETER IS REQUIRED. 00082 M01S00080.cldt +++|* 00083 M01S00081.cldt +++|* AT=VALID/NVALID/NLIST. 00084 M01S00082.cldt +++|* INDICATES THE ATTRIBUTES ASSOCIATED WITH THE 00085 M01S00083.cldt +++|* MAINFRAME IDENTIFIED BY PID. DEFAULT IS 00086 M01S00084.cldt +++|* VALID AND LIST ENABLED. EITHER VALID OR 00087 M01S00085.cldt +++|* NVALID MAYBE SPECIFIED BUT NOT BOTH. 00088 M01S00086.cldt +++|* 00089 M01S00087.cldt +++|* NETDIS=SSF/RHF/NAM. 00090 M01S00088.cldt +++|* INDICATES WHICH NETWORK ACCESSES TO THE 00091 M01S00089.cldt +++|* MAINFRAME IDENTIFIED BY XXX ARE DISABLED. DEFAULTS IS 00092 M01S00090.cldt +++|* ALL NETWORK ACCESSES ENABLED. 00093 M01S00091.cldt +++|* NETDIS IS INCORRECT FOR A PID WITH HOST ATTRIBUTE. 00094 M01S00092.cldt +++|* ANY COMBINATION OF NETWORK ACCESSES MAY BE SPECIFIED. 00095 M01S00093.cldt +++|* 00096 M01S00094.cldt +++|* PARAMETERS FOR THE *NLID* KEYWORD - 00097 M01S00095.cldt +++|* 00098 M01S00096.cldt +++|* LID=XXX. 00099 M01S00097.cldt +++|* WHERE XXX IS A 3 CHARACTER LOGICAL IDENTIFIER 00100 M01S00098.cldt +++|* FOR THE MAINFRAME IDENTIFIED BY THE LAST PID 00101 M01S00099.cldt +++|* DEFINITION. THE LID MAY BE THE SAME AS THE LAST 00102 M01S00100.cldt +++|* PID DEFINED. THIS PARAMETER IS REQUIRED. 00103 M01S00101.cldt +++|* 00104 M01S00102.cldt +++|* ENABLED=YES OR NO. 00105 M01S00103.cldt +++|* INDICATES WHETHER OR NOT THE MAINFRAME IDENTIFIED 00106 M01S00104.cldt +++|* BY THE LID IS AVAILABLE. DEFAULT IS YES IF THE 00107 M01S00105.cldt +++|* ENABLED KEYWORD IS NOT SPECIFIED. 00108 M01S00106.cldt +++|* 00109 M01S00107.cldt +++|* AT=LOOPB/STOREF/VALID/NVALID/NLIST. 00110 M01S00108.cldt +++|* INDICATES THE ATTRIBUTES ASSOCIATED WITH THE LID. 00111 M01S00109.cldt +++|* ATTRIBUTES OF LOOPB AND VALID ARE ONLY FOR 00112 M01S00110.cldt +++|* LID-S DEFINED FOR THE HOST MAINFRAMES. DEFAULT IS 00113 M01S00111.cldt +++|* *NVALID*. 00114 M01S00112.cldt +++| SPACE 4,10 00115 M01S00113.cldt +++|*** DAYFILE MESSAGES. 00116 M01S00114.cldt +++|* 00117 M01S00115.cldt +++|* 00118 M01S00116.cldt +++|* THE FOLLOWING MESSAGES ARE ISSUED WHEN FATAL ERRORS 00119 M01S00117.cldt +++|* ARE ENCOUNTERED. 00120 M01S00118.cldt +++|* 00121 M01S00119.cldt +++|* 00122 M01S00120.cldt +++|* CLDT ABORTED. SEE -A- DISPLAY. 00123 M01S00121.cldt +++|* SIGNIFICANCE - A FLASHING INFORMATIVE MESSAGE ISSUED TO 00124 M01S00122.cldt +++|* NOTIFY THE OPERATOR THAT A FATAL ERROR WAS 00125 M01S00123.cldt +++|* DETECTED AND NO LDT CAN BE CREATED. 00126 M01S00124.cldt +++|* ACTION - CORRECT THE ERROR BASED UPON THE MESSAGE(S) IN THE 00127 M01S00125.cldt +++|* SYSTEM DAYFILE AND EITHER PERFORM A LEVEL ZERO 00128 M01S00126.cldt +++|* DEADSTART OR RERUN *CLDT*. 00129 M01S00127.cldt +++|* 00130 M01S00128.cldt +++|* CLDT - BUFFER TOO SMALL. 00131 M01S00129.cldt +++|* CLDT - UNABLE TO GENERATE LID TABLE.* 00132 M01S00130.cldt +++|* NUMBER OF WORDS AVAILABLE FOR LID - XXX.* 00133 M01S00131.cldt +++|* NUMBER OF WORDS NEEDED FOR LID - XXX.* 00134 M01S00132.cldt +++|* SIGNIFICANCE - EITHER THE LENGTH OF THE LID TABLE 00135 M01S00133.cldt +++|* SPECIFIED IN IPRDECK IS TOO SMALL OR 00136 M01S00134.cldt +++|* NUMBER OF PID-S OF LID-S EXCEEDED THE 00137 M01S00135.cldt +++|* BUFFER SET IN CLDT. 00138 M01S00136.cldt +++|* ACTION - INCREASE THE LENGTH OF LID TABLE AT DEADSTART 00139 M01S00137.cldt +++|* TIME OR INCREASE THE BUFFER SIZE IN CLDT. 00140 M01S00138.cldt +++|* 00141 M01S00139.cldt +++|* CLDT ABORT. 00142 M01S00140.cldt +++|* SIGNIFICANCE - SELF-EXPLANATORY. 00143 M01S00141.cldt +++|* ACTION - TAKE NECESSARY ACTIONS BASED ON THE PRECEDING 00144 M01S00142.cldt +++|* DAYFILE MESSAGES. 00145 M01S00143.cldt +++|* 00146 M01S00144.cldt +++|* CLDT - COMMAND ERROR. 00147 M01S00145.cldt +++|* SIGNIFICANCE - AN INCORRECT PARAMETER WAS SPECIFIED ON THE 00148 M01S00146.cldt +++|* *CLDT* STATEMENT. 00149 M01S00147.cldt +++|* ACTION - SPECIFY ONLY ACCEPTABLE PARAMETERS ON THE STATEMENT. 00150 M01S00148.cldt +++|* 00151 M01S00149.cldt +++|* CLDT - DUPLICATE PID ON NPID STATEMENT. 00152 M01S00150.cldt +++|* SIGNIFICANCE - SELF-EXPLANATORY. 00153 M01S00151.cldt +++|* ACTION - DELETE THE DUPLICATE *NPID* ENTRIES. 00154 M01S00152.cldt +++|* 00155 M01S00153.cldt +++|* CLDT - EXCEEDED MAXIMUM NUMBER OF PID-S - XXX. 00156 M01S00154.cldt +++|* SIGNIFICANCE - THE MAXIMUM NUMBER OF THE PID-S IN THE 00157 M01S00155.cldt +++|* LID TABLE IS DEFINED BY THE NAME *MAXPID-S* 00158 M01S00156.cldt +++|* IN NOSTEXT. TOO MANY PID-S ARE SPECIFIED 00159 M01S00157.cldt +++|* ON THE *LIDCMID* FILE. 00160 M01S00158.cldt +++|* ACTION - REDUCE THE NUMBER OF PID-S ON THE *LIDCMID* FILE. 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 M01S00159.cldt +++|* 00169 M01S00160.cldt +++|* CLDT - FIRST STATEMENT NOT LIDCMXX. 00170 M01S00161.cldt +++|* SIGNIFICANCE - THE FIRST STATEMENT ON THE LIDCMID FILE 00171 M01S00162.cldt +++|* MUST BE *LIDCMXX* WHERE XX IS THE MACHINE ID. 00172 M01S00163.cldt +++|* ACTION - CORRECT THE FIRST STATEMENT ON THE LIDCMID FILE. 00173 M01S00164.cldt +++|* 00174 M01S00165.cldt +++|* CLDT - NETDIS IS INCORRECT FOR HOST PID. 00175 M01S00166.cldt +++|* SIGNIFICANCE - SELF-EXPLANATORY. 00176 M01S00167.cldt +++|* ACTION - DELETE *NETDIS* KEYWORD. 00177 M01S00168.cldt +++|* NOTE - WHEN YOU ARE ON MAINFRAME A AND ARE CHECKING FOR 00178 M01S00169.cldt +++|* SYNTAX ERRORS OF A LID CONFIGURATION FILE INTENDED 00179 M01S00170.cldt +++|* FOR MAINFRAME B, THIS MESSAGE MAY NOT APPLY. 00180 M01S00171.cldt +++|* 00181 M01S00172.cldt +++|* CLDT - NO PID SPECIFIED ON NPID STATEMENT. 00182 M01S00173.cldt +++|* SIGNIFICANCE - SELF-EXPLANATORY. 00183 M01S00174.cldt +++|* ACTION - SPECIFY *PID=XXX* ON THE *NPID* STATEMENT. 00184 M01S00175.cldt +++|* XXX IS THE PHYSICAL ID. 00185 M01S00176.cldt +++|* 00186 M01S00177.cldt +++|* CLDT - SPECIFY EXACTLY 3 ALPHANUMERIC CHARACTERS IN PID. 00187 M01S00178.cldt +++|* SIGNIFICANCE - SELF-EXPLANATORY. 00188 M01S00179.cldt +++|* ACTION - MAKE SURE EXACTLY 3 ALPHANUMERIC CHARACTERS ARE 00189 M01S00180.cldt +++|* SPECIFIED FOR THE PID. 00190 M01S00181.cldt +++|* 00191 M01S00182.cldt +++|* CLDT - MAXIMUM OF 7 CHARACTERS ALLOWED ON MFTYPE. 00192 M01S00183.cldt +++|* SIGNIFICANCE - SELF-EXPLANATORY. 00193 M01S00184.cldt +++|* ACTION - MAKE SURE ONLY SEVEN CHARACTERS SPECIFIED ON 00194 M01S00185.cldt +++|* THE MFTYPE KEYWORD. 00195 M01S00186.cldt +++|* 00196 M01S00187.cldt +++|* CLDT - VALID KEYWORDS FOR NPID ARE 00197 M01S00188.cldt +++|* PID,MFTYPE,ENABLED,AT AND NETDIS. 00198 M01S00189.cldt +++|* SIGNIFICANCE - SELF-EXPLANATORY. 00199 M01S00190.cldt +++|* ACTION - TAKE NECESSARY ACTIONS BASED ON THE PRECEDING 00200 M01S00191.cldt +++|* DAYFILE MESSAGES. 00201 M01S00192.cldt +++|* 00202 M01S00193.cldt +++|* CLDT - VALID OPTIONS FOR *AT* ARE VALID OR NVALID OR NLIST. 00203 M01S00194.cldt +++|* SIGNIFICANCE - SELF-EXPLANATORY. 00204 M01S00195.cldt +++|* ACTION - TAKE NECESSARY ACTIONS BASED ON THE PRECEDING 00205 M01S00196.cldt +++|* DAYFILE MESSAGES. 00206 M01S00197.cldt +++|* 00207 M01S00198.cldt +++|* CLDT - VALID OPTIONS FOR NETDIS ARE SSF, RHF AND NAM. 00208 M01S00199.cldt +++|* SIGNIFICANCE - SELF-EXPLANATORY. 00209 M01S00200.cldt +++|* ACTION - TAKE NECESSARY ACTIONS BASED ON THE PRECEDING 00210 M01S00201.cldt +++|* DAYFILE MESSAGES. 00211 M01S00202.cldt +++|* 00212 M01S00203.cldt +++|* CLDT - FILE XXXXXXX NOT FOUND. 00213 M01S00204.cldt +++|* SIGNIFICANCE - FILE XXXXXXX IS NOT LOCAL AND CANNOT BE 00214 M01S00205.cldt +++|* LOCATED UNDER THE JOB-S USER NAME. 00215 M01S00206.cldt +++|* ACTION - CREATE FILE XXXXXXX UNDER THE JOB-S USER NAME 00216 M01S00207.cldt +++|* OR HAVE THE FILE LOCAL TO THE JOB. 00217 M01S00208.cldt +++|* 00218 M01S00209.cldt +++|* CLDT - NO LID TABLE CREATED - 00219 M01S00210.cldt +++|* SIGNIFICANCE - SELF-EXPLANATORY. 00220 M01S00211.cldt +++|* ACTION - TAKE NECESSARY ACTIONS BASED ON THE PRECEDING 00221 M01S00212.cldt +++|* DAYFILE MESSAGES. NO ACTION IS REQUIRED IF NO 00222 M01S00213.cldt +++|* LDT WAS INTENDED TO BE BUILT OR IF ONLY SYNTAX 00223 M01S00214.cldt +++|* CHECKING WAS BEING DONE ON THE LID FILE. 00224 M01S00215.cldt +++|* 00225 M01S00216.cldt +++|* CLDT - UNRECOGNIZABLE DIRECTIVE. 00226 M01S00217.cldt +++|* SIGNIFICANCE - SELF-EXPLANATORY. 00227 M01S00218.cldt +++|* ACTION - CORRECT OR DELETE THE UNRECOGNIZABLE DIRECTIVE. 00228 M01S00219.cldt +++|* 00229 M01S00220.cldt +++|* CLDT - NO MFTYPE SPECIFIED ON NPID STATEMENT. 00230 M01S00221.cldt +++|* SIGNIFICANCE - SELF-EXPLANATORY. 00231 M01S00222.cldt +++|* ACTION - SPECIFY *MFTYPE=XXXXXXX* ON THE *NPID* STATEMENT. 00232 M01S00223.cldt +++|* XXXXXXX IS A 1-7 CHARACTER STRING INDICATING THE 00233 M01S00224.cldt +++|* MAINFRAME TYPE. 00234 M01S00225.cldt +++|* 00235 M01S00226.cldt +++|* CLDT - IDLE SUBSYSTEMS, RHF, NAM, AND SSF 00236 M01S00227.cldt +++|* BEFORE ATTEMPTING CLDT. 00237 M01S00228.cldt +++|* SIGNIFICANCE - SELF-EXPLANATORY. 00238 M01S00229.cldt +++|* ACTION - IDLE ANY OF THE THREE SUBSYSTEMS THAT MAYBE 00239 M01S00230.cldt +++|* AT A CONTROL POINT. EITHER RHF OR NAM OR SSF. 00240 M01S00231.cldt +++|* 00241 M01S00232.cldt +++|* CLDT - INCORRECT CHARACTER IN DIRECTIVE. 00242 M01S00233.cldt +++|* SIGNIFICANCE - SELF-EXPLANATORY. 00243 M01S00234.cldt +++|* ACTION - CORRECT THE WRONG CHARACTER IN THE DIRECTIVE. 00244 M01S00235.cldt +++|* THE INCORRECT CHARACTER IS A COLON. 00245 M01S00236.cldt +++|* 00246 M01S00237.cldt +++|* CLDT - NPID DIRECTIVE MUST BE PROCESSED BEFORE A NLID 00247 M01S00238.cldt +++|* DIRECTIVE. 00248 M01S00239.cldt +++|* SIGNIFICANCE - SELF-EXPLANATORY. 00249 M01S00240.cldt +++|* ACTION - PUT A *NPID* DIRECTIVE BEFORE THE FIRST *NLID* 00250 M01S00241.cldt +++|* DIRECTIVE. 00251 M01S00242.cldt +++|* 00252 M01S00243.cldt +++|* CLDT - A SEPARATOR MUST FOLLOW NLID OR NPID. 00253 M01S00244.cldt +++|* SIGNIFICANCE - A DIRECTIVE WAS ENCOUNTERED THAT DID NOT 00254 M01S00245.cldt +++|* HAVE A SEPARATOR. 00255 M01S00246.cldt +++|* EXAMPLE ( NPID PID=XXX,MFTYPE=XXXXXXX.) 00256 M01S00247.cldt +++|* ACTION - PUT A SEPARATOR IN THE NPID OR NLID DIRECTIVE. 00257 M01S00248.cldt +++|* EXAMPLE( NPID,PID=XXX,MFTYPE=XXXXXXX.) 00258 M01S00249.cldt +++|* 00259 M01S00250.cldt +++|* 00260 M01S00251.cldt +++|* THE FOLLOWING MESSAGES ARE INFORMATIVE MESSAGES AND ARE 00261 M01S00252.cldt +++|* NOT FATAL. 00262 M01S00253.cldt +++|* 00263 M01S00254.cldt +++|* CLDT COMPLETE. 00264 M01S00255.cldt +++|* SIGNIFICANCE - SELF-EXPLANATORY. 00265 M01S00256.cldt +++|* ACTION - NONE. 00266 M01S00257.cldt +++|* 00267 M01S00258.cldt +++|* CLDT - DUPLICATE LID ON NLID STATEMENT. 00268 M01S00259.cldt +++|* SIGNIFICANCE - SELF-EXPLANATORY. 00269 M01S00260.cldt +++|* ACTION - DELETE THE DUPLICATE *NPID* ENTRIES. 00270 M01S00261.cldt +++|* 00271 M01S00262.cldt +++|* CLDT - ERROR IN THE FOLLOWING STATEMENT. 00272 M01S00263.cldt +++|* SIGNIFICANCE - SELF-EXPLANATORY. 00273 M01S00264.cldt +++|* ACTION - TAKE NECESSARY ACTIONS BASED ON THE PRECEDING 00274 M01S00265.cldt +++|* DAYFILE MESSAGES. 00275 M01S00266.cldt +++|* 00276 M01S00267.cldt +++|* CLDT - LID KEYWORD NOT SPECIFIED. 00277 M01S00268.cldt +++|* SIGNIFICANCE - SELF-EXPLANATORY. 00278 M01S00269.cldt +++|* ACTION - SPECIFY *LID=XXX* ON THE *NLID* STATEMENT. 00279 M01S00270.cldt +++|* 00280 M01S00271.cldt +++|* CLDT - SPECIFY EXACTLY 3 ALPHANUMERIC CHARACTERS IN LID. 00281 M01S00272.cldt +++|* SIGNIFICANCE - SELF-EXPLANATORY. 00282 M01S00273.cldt +++|* ACTION - MAKE SURE EXACTLY THREE CHARACTERS ARE SPECIFIED 00283 M01S00274.cldt +++|* FOR THE LID. THE THREE CHARACTERS MUST BE 00284 M01S00275.cldt +++|* ALPHANUMERIC. 00285 M01S00276.cldt +++|* 00286 M01S00277.cldt +++|* CLDT - VALID OPTIONS FOR *AT* ARE LOOPB/STOREF/VALID 00287 M01S00278.cldt +++|* NVALID/NLIST. 00288 M01S00279.cldt +++|* SIGNIFICANCE - SELF-EXPLANATORY. 00289 M01S00280.cldt +++|* ACTION - MAKE SURE ONLY LOOPB OR STOREF OR VALID OR 00290 M01S00281.cldt +++|* NVALID OR NLIST ARE SPECIFIED FOR THE 00291 M01S00282.cldt +++|* *AT* KEYWORD. 00292 M01S00283.cldt +++|* 00293 M01S00284.cldt +++|* CLDT - ONLY YES OR NO ALLOWED ON ENABLED KEYWORD. 00294 M01S00285.cldt +++|* SIGNIFICANCE - SELF-EXPLANATORY. 00295 M01S00286.cldt +++|* ACTION - MAKE SURE EITHER YES OR NO ARE SPECIFIED ON 00296 M01S00287.cldt +++|* THE ENABLED KEYWORD. 00297 M01S00288.cldt +++|* QUALIFICATION - THIS MESSAGE IS A FATAL MESSAGE 00298 M01S00289.cldt +++|* IF ISSUED IN REFERENCE TO A NPID 00299 M01S00290.cldt +++|* STATEMENT. 00300 M01S00291.cldt +++|* 00301 M01S00292.cldt +++|* CLDT - VALID KEYWORDS FOR NLID ARE LID, ENABLED AND AT. 00302 M01S00293.cldt +++|* SIGNIFICANCE - SELF-EXPLANATORY. 00303 M01S00294.cldt +++|* ACTION - TAKE NECESSARY ACTIONS BASED ON THE PRECEDING 00304 M01S00295.cldt +++|* DAYFILE MESSAGES. 00305 M01S00296.cldt +++|* 00306 M01S00297.cldt +++|* CLDT - STATEMENT IGNORED. 00307 M01S00298.cldt +++|* SIGNIFICANCE - SELF-EXPLANATORY. 00308 M01S00299.cldt +++|* ACTION - TAKE NECESSARY ACTIONS BASED ON THE PRECEDING 00309 M01S00300.cldt +++|* DAYFILE MESSAGES. 00310 M01S00301.cldt +++|* 00311 M01S00302.cldt +++|* CLDT - INCORRECT HOST LID ATTRIBUTE. 00312 M01S00303.cldt +++|* SIGNIFICANCE - LID ATTRIBUTES OF STOREF AND LOOPB WERE BOTH 00313 M01S00304.cldt +++|* SPECIFIED FOR A LID UNDER A HOST PID. 00314 M01S00305.cldt +++|* ACTION - DELETE AT LEAST ONE OF THESE ATTRIBUTES FROM THE 00315 M01S00306.cldt +++|* NLID STATEMENT. 00316 M01S00307.cldt +++|* NOTE - WHEN YOU ARE ON MAINFRAME A AND ARE CHECKING FOR 00317 M01S00308.cldt +++|* SYNTAX ERRORS OF A LID CONFIGURATION FILE INTENDED FOR 00318 M01S00309.cldt +++|* MAINFRAME B, THIS MESSAGE MAY NOT APPLY. 00319 M01S00310.cldt +++|* 00320 M01S00311.cldt +++|* CLDT - INCORRECT LINKED LID ATTRIBUTE. 00321 M01S00312.cldt +++|* SIGNIFICANCE - A LID ATTRIBUTE OF LOOPB WAS SPECIFIED 00322 M01S00313.cldt +++|* FOR A LID UNDER A LINKED PID. 00323 M01S00314.cldt +++|* ACTION - DELETE THE LOOPB ATTRIBUTE FROM THE NLID 00324 M01S00315.cldt +++|* STATEMENT. 00325 M01S00316.cldt +++|* NOTE - WHEN YOU ARE ON MAINFRAME A AND ARE CHECKING FOR 00326 M01S00317.cldt +++|* SYNTAX ERRORS OF A LID CONFIGURATION FILE INTENDED 00327 M01S00318.cldt +++|* FOR MAINFRAME B, THIS MESSAGE MAY NOT APPLY. 00328 M01S00319.cldt +++|* 00329 M01S00320.cldt +++|* CLDT - = MUST FOLLOW KEYWORD. 00330 M01S00321.cldt +++|* SIGNIFICANCE - SELF-EXPLANATORY. 00331 M01S00322.cldt +++|* ACTION - CORRECT THE ERROR AND RETRY. 00332 M01S00323.cldt +++|* QUALIFICATION - THIS MESSAGE IS A FATAL MESSAGE 00333 M01S00324.cldt +++|* IF ISSUED IN REFERENCE TO A NPID 00334 M01S00325.cldt +++|* STATEMENT. 00335 M01S00326.cldt +++|* 00336 M01S00327.cldt +++|* CLDT - VALID OPTION CAN ONLY BE SPECIFIED IF THE STOREF 00337 M01S00328.cldt +++|* OPTION IS SPECIFIED. 00338 M01S00329.cldt +++|* SIGNIFICANCE - SELF-EXPLANATORY. 00339 M01S00330.cldt +++|* ACTION - CORRECT THE NLID STATEMENT TO INCLUDE ATTRIBUTES 00340 M01S00331.cldt +++|* VALID AND STOREF. 00341 M01S00332.cldt +++|* 00342 M01S00333.cldt +++| 00343 M01S00334.cldt +++| 00344 M01S00335.cldt +++|*CASC DATA C* CLDT - IDLE SUBSYSTEMS RHF, NAM, AND SSF* 00345 M01S00336.cldt +++|*CASD DATA C* BEFORE ATTEMPTING CLDT.* 00346 M01S00337.cldt +++|*CLDA DATA C* CLDT COMPLETE.* 00347 M01S00338.cldt +++|*CLDB DATA C* CLDT ABORT.* 00348 M01S00339.cldt +++|*CLDC DATA C* CLDT ABORTED. SEE -A- DISPLAY.* 00349 M01S00340.cldt +++|*CLDD DATA C* CLDT - NO LID TABLE CREATED.* 00350 M01S00341.cldt +++|*CLEC DATA C* CLDT - SPECIFY EXACTLY 3 ALPHANUMERIC CHARACTERS* 00351 M01S00342.cldt +++|*CLED DATA C* IN LID.* 00352 M01S00343.cldt +++|*CLEE DATA C* CLDT - VALID KEYWORDS FOR NLID ARE * 00353 M01S00344.cldt +++|*CLEF DATA C* LID, ENABLED AND AT.* 00354 M01S00345.cldt +++|*CLEG DATA C* CLDT - VALID OPTIONS FOR *AT* ARE LOOPB/STOREF/* 00355 M01S00346.cldt +++|*CLEH DATA C* VALID/NVALID/NLIST.* 00356 M01S00347.cldt +++|*CLEI DATA C* CLDT - INCORRECT HOST LID ATTRIBUTE.* 00357 M01S00348.cldt +++|*CLEJ DATA C* CLDT - INCORRECT LINKED LID ATTRIBUTE.* 00358 M01S00349.cldt +++|*CLEK DATA C* CLDT - STATEMENT IGNORED.* 00359 M01S00350.cldt +++|*CLEL DATA C* CLDT - LID KEYWORD NOT SPECIFIED.* 00360 M01S00351.cldt +++|*CLEM DATA C* CLDT - DUPLICATE LID ON NLID STATEMENT.* 00361 M01S00352.cldt +++|*CLEN DATA C* CLDT - VALID OPTION CAN ONLY BE SPECIFIED* 00362 M01S00353.cldt +++|*CLEO DATA C* IF THE STOREF OPTION IS SPECIFIED.* 00363 M01S00008.ns2250 +++|*CLEU DATA C* CLDT - EXCEEDED MAXIMUM NUMBER OF LIDS/PID - XXX.* 00364 M01S00354.cldt +++|*CLTL DATA C* CLDT - NPID DIRECTIVE MUST BE PROCESSED BEFORE* 00365 M01S00355.cldt +++|*CLTM DATA C* A NLID DIRECTIVE.* 00366 M01S00356.cldt +++|*CFSF DATA C* CLDT - UNABLE TO GENERATE LID TABLE * 00367 M01S00357.cldt +++|*CFSG DATA C* NUMBER OF WORDS AVAILABLE FOR LID - XXX.* 00368 M01S00358.cldt +++|*CFSH DATA C* NUMBER OF WORDS NEEDED FOR LID - XXX.* 00369 M01S00359.cldt +++|*CFSI DATA C* CLDT - EXCEEDED MAXIMUM NUMBER OF PID-S - XXX.* 00370 M01S00360.cldt +++|*CFSJ DATA C* CLDT - UNRECOGNIZABLE DIRECTIVE.* 00371 M01S00361.cldt +++|*CPEE DATA C* CLDT - VALID KEYWORDS FOR NPID ARE * 00372 M01S00362.cldt +++|*CPEF DATA C* PID,MFTYPE,ENABLED,AT AND NETDIS.* 00373 M01S00363.cldt +++|*CPEG DATA C* CLDT - ERROR IN THE FOLLOWING STATEMENT.* 00374 M01S00364.cldt +++|*CPEH DATA C* CLDT - SPECIFY EXACTLY 3 ALPHANUMERIC CHARACTERS * 00375 M01S00365.cldt +++|* IN PID.* 00376 M01S00366.cldt +++|*CPEJ DATA C+ CLDT - VALID OPTIONS FOR *AT* ARE VALID/NVALID/+ 00377 M01S00367.cldt +++|*CPEK DATA C* NLIST.* 00378 M01S00368.cldt +++|*CPEL DATA C* CLDT - NETDIS IS INCORRECT FOR HOST PID.* 00379 M01S00369.cldt +++|*CPEM DATA C* CLDT - VALID OPTIONS FOR NETDIS ARE * 00380 M01S00370.cldt +++|*CPEN DATA C* SSF, RHF AND NAM.* 00381 M01S00371.cldt +++|*CPEO DATA C* CLDT - = MUST FOLLOW KEYWORD.* 00382 M01S00372.cldt +++|*CPEP DATA C* CLDT - NO PID SPECIFIED ON NPID STATEMENT.* 00383 M01S00373.cldt +++|*CPEQ DATA C* CLDT - DUPLICATE PID ON NPID STATEMENT.* 00384 M01S00374.cldt +++|*CPER DATA C* CLDT - MAXIMUM OF 7 CHARACTERS ALLOWED ON MFTYPE.* 00385 M01S00375.cldt +++|*CPES DATA C* CLDT - NO MFTYPE SPECIFIED ON NPID STATEMENT.* 00386 M01S00376.cldt +++|*CPEZ DATA C* CLDT - ONLY YES OR NO ALLOWED ON ENABLED KEYWORD.* 00387 M01S00377.cldt +++|*PRSA DATA C* CLDT - FIRST STATEMENT NOT LIDCMXX.* 00388 M01S00378.cldt +++|*PRSB DATA C* CLDT - COMMAND ERROR.* 00389 M01S00379.cldt +++|*PRSC DATA C* CLDT - BUFFER TOO SMALL.* 00390 M01S00380.cldt +++|*PRSD DATA C* CLDT - FILE XXXXXXX NOT FOUND.* 00391 M01S00381.cldt +++|*PTLD DATA C* CLDT - INCORRECT CHARACTER IN DIRECTIVE.* 00392 M01S00382.cldt +++|*PTLE DATA C* CLDT - A SEPARATOR MUST FOLLOW NLID OR NPID.* 00393 M01S00383.cldt +++| SPACE 4,10 00394 M01S00384.cldt +++|** LID TABLE. 00395 M01S00385.cldt +++|* 00396 M01S00386.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 M01S00387.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 M01S00388.cldt +++|* 4/RH,4/NP 00399 M01S00389.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 M01S00390.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 M01S00391.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 M01S00392.cldt +++|* . 00403 M01S00393.cldt +++|* . 00404 M01S00394.cldt +++|* . 00405 M01S00395.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 M01S00396.cldt +++|* 00407 M01S00397.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 M01S00398.cldt +++|* . 00409 M01S00399.cldt +++|* . 00410 M01S00400.cldt +++|* . 00411 M01S00401.cldt +++|* 00412 M01S00402.cldt +++|* 00413 M01S00403.cldt +++|* WORD 0. 00414 M01S00404.cldt +++|* 00415 M01S00405.cldt +++|* LENH 59-48 LENGTH OF LID TABLE IN CM WORDS. 00416 M01S00406.cldt +++|* RFU 47-12 RESERVED FOR CDC. 00417 M01S00407.cldt +++|* NO-PID 11-0 NUMBER OF PID-S. 00418 M01S00408.cldt +++|* 00419 M01S00409.cldt +++|* WORD 1. 00420 M01S00410.cldt +++|* 00421 M01S00411.cldt +++|* PID 59-42 PHYSICAL ID. 00422 M01S00412.cldt +++|* H 41 HOST = 1, LINK = 0. 00423 M01S00413.cldt +++|* E 40 ENABLED. 00424 M01S00414.cldt +++|* V 39 PRE-VALIDATION. 00425 M01S00415.cldt +++|* N 38 NO-LIST. 00426 M01S00416.cldt +++|* RFU 37-34 RESERVED FOR CDC. 00427 M01S00417.cldt +++|* RFI 33-24 RESERVED FOR INSTALLATION. 00428 M01S00418.cldt +++|* RFU 23-12 RESERVED FOR CDC. 00429 M01S00419.cldt +++|* SF 11-8 SSF - SCOPE 2 STATION FACILITY. 00430 M01S00420.cldt +++|* RH 7-4 RHF - REMOTE HOST STATUS. 00431 M01S00421.cldt +++|* NP 3-0 NHP - NETWORK HOST PRODUCTS STATUS. 00432 M01S00422.cldt +++|* 00433 M01S00423.cldt +++|* (1) NETWORK STATUS CODES. 00434 M01S00424.cldt +++|* 0 - NETWORK NOT AVAILABLE. 00435 M01S00425.cldt +++|* 1 - PATHS TO PID IN SERVICE. 00436 M01S00426.cldt +++|* 2 - ALL PATHS TO PID OUT OF SERVICE. 00437 M01S00427.cldt +++|* 3-7 - RESERVED FOR CDC. 00438 M01S00428.cldt +++|* 10 - PATHS TO PID DISABLED BY OPERATOR. 00439 M01S00429.cldt +++|* NETWORK NOT AVAILABLE. 00440 M01S00430.cldt +++|* 11 - PATHS TO PID DISABLED BY OPERATOR. 00441 M01S00431.cldt +++|* PATHS TO PID IN SERVICE 00442 M01S00432.cldt +++|* 12 - PATHS TO PID DISABLED BY OPERATOR. 00443 M01S00433.cldt +++|* ALL PATHS TO PID OUT OF SERVICE. 00444 M01S00434.cldt +++|* 00445 M01S00435.cldt +++|* WORD 2. 00446 M01S00436.cldt +++|* 00447 M01S00437.cldt +++|* MF 59-18 MAINFRAME DESCRIPTION. 00448 M01S00438.cldt +++|* RFU 17-12 RESERVED OF CDC. 00449 M01S00439.cldt +++|* NEXT-PID 11-0 NEXT PID OFFSET ADDRESS. 00450 M01S00440.cldt +++|* 00451 M01S00441.cldt +++|* WORD 3. 00452 M01S00442.cldt +++|* 00453 M01S00443.cldt +++|* RFI 59-48 RESERVED FOR INSTALLATION. 00454 M01S00444.cldt +++|* RFU 47-12 RESERVED FOR CDC. 00455 M01S00445.cldt +++|* NO-LID 11-0 NUMBER OF LID SLOTS FOR THIS PID. 00456 M01S00446.cldt +++|* 00457 M01S00447.cldt +++|* WORD 4. 00458 M01S00448.cldt +++|* 00459 M01S00449.cldt +++|* LID 59-42 FIRST - LID. 00460 M01S00450.cldt +++|* ZERO 41-36 RESERVED FOR CDC. 00461 M01S00451.cldt +++|* E 35 ENABLED FLAG FOR LID. 00462 M01S00452.cldt +++|* S 34 STORE AND FORWARD MAINFRAME FOR LID. 00463 M01S00453.cldt +++|* V 33 LID VALIDATION ATTRIBUTE. 00464 M01S00454.cldt +++|* B 32 LOOP BACK FLAG FOR LID. 00465 M01S00455.cldt +++|* N 31 LID NOLIST ATTRIBUTE. 00466 M01S00456.cldt +++|* RFU 30-24 RESERVED FOR CDC. 00467 M01S00457.cldt +++|* RFI 23-18 RESERVED FOR INSTALLATION. 00468 M01S00458.cldt +++|* RFU 17-0 RESERVED FOR CDC. 00469 M01S00459.cldt +++| SPACE 4,10 00470 M01S00460.cldt +++|* COMMON DECKS. 00471 M01S00461.cldt +++| 00472 M01S00462.cldt +++| 00473 M01S00463.cldt +++|*CALL COMCMAC 00474 M01S00464.cldt +++|*CALL COMCCMD 00475 M01S00465.cldt +++|*CALL COMSPFM 00476 M01S00466.cldt +++|*CALL COMSSCD 00477 M01S00467.cldt +++|*CALL COMSSFM 00478 M01S00468.cldt +++|*CALL COMSSSD 00479 M01S00469.cldt +++|*CALL COMSSSJ 00480 M01S00470.cldt +++| BASE D 00481 M01S00471.cldt +++| SPACE 4,10 00482 M01S00472.cldt +++|* MACRO DEFINITIONS. 00483 M01S00473.cldt +++| 00484 M01S00474.cldt +++|** FIELD - DEFINE FIELDS. 00485 M01S00475.cldt +++|* TAGS ARE GENERATED TO GIVE THE WORD LOCATION, BIT 00486 M01S00476.cldt +++|* LOCATION, AND NUMBER OF BITS IN FIELD. 00487 M01S00477.cldt +++|* 00488 M01S00478.cldt +++|* ENTRY TAG FIELD WP,LB,RB 00489 M01S00479.cldt +++|* TAG = NAME OF FIELD (1-6 LEGAL COMPASS CHARACTERS) 00490 M01S00480.cldt +++|* = *, USE CURRENT VALUE OF PSEUDO ORG COUNTER ORLOC1$ 00491 M01S00481.cldt +++|* WP = RELATIVE WORD POSITION IN A TABLE. 00492 M01S00482.cldt +++|* LB = LEFT-MOST BIT POSITION WITHIN A WORD (BIT 59 BEING 00493 M01S00483.cldt +++|* SIGN BIT). 00494 M01S00484.cldt +++|* RB = RIGHT-MOST BIT POSITION WITHIN A WORD. 00495 M01S00485.cldt +++|* 00496 M01S00486.cldt +++|* EXIT TAGW = WORD LOCATION OF FIELD. 00497 M01S00487.cldt +++|* TAGS = LEFT BIT POSITION OF FIELD. 00498 M01S00488.cldt +++|* TAGN = NUMBER OF BITS IN FIELD. 00499 M01S00489.cldt +++| 00500 M01S00490.cldt +++| 00501 M01S00491.cldt +++| PURGMAC FIELD 00502 M01S00492.cldt +++| 00503 M01S00493.cldt +++| MACRO FIELD,TAG,WP,LB,RB 00504 M01S00494.cldt +++| IFC NE,/WP//,4 00505 M01S00495.cldt +++| IFC EQ,/WP/*/,2 00506 M01S00496.cldt +++| _TAG_W EQU ORLOC1$ 00507 M01S00497.cldt +++| SKIP 1 00508 M01S00498.cldt +++| _TAG_W EQU WP 00509 M01S00499.cldt +++| _TAG_S EQU LB 00510 M01S00500.cldt +++| _TAG_N EQU LB-RB+1 00511 M01S00501.cldt +++| ENDM 00512 M01S00502.cldt +++| SPACE 4,10 00513 M01S00503.cldt +++|* LID TABLE (LDT) FIELD DEFINITIONS. 00514 M01S00504.cldt +++| 00515 M01S00505.cldt +++| 00516 M01S00506.cldt +++| LNTH FIELD 0,59,48 LID TABLE LENGTH 00517 M01S00507.cldt +++| LRF0 FIELD 0,47,12 RESERVED FOR CDC 00518 M01S00508.cldt +++| LILK FIELD 0,11,0 NUMBER OF PID-S 00519 M01S00509.cldt +++| 00520 M01S00510.cldt +++| LPID FIELD 1,59,42 PID 00521 M01S00511.cldt +++| LHST FIELD 1,41,41 1 IF HOST, 0 IF LINK 00522 M01S00512.cldt +++| LENA FIELD 1,40,40 1 IF ENABLED 00523 M01S00513.cldt +++| LVAD FIELD 1,39,39 1 IF PRE-VALIDATION REQUIRED 00524 M01S00514.cldt +++| LNST FIELD 1,38,38 1 IF NOT TO LIST PID 00525 M01S00515.cldt +++| LRF1 FIELD 1,37,34 RESERVED FOR CDC 00526 M01S00516.cldt +++| LRFI FIELD 1,33,24 RESERVED FOR INSTALLATION 00527 M01S00517.cldt +++| LRF2 FIELD 1,23,12 RESERVED FOR CDC 00528 M01S00518.cldt +++| LSFS FIELD 1,11,8 SSF - SCOPE 2 STATION FACILITY STATUS 00529 M01S00519.cldt +++| LRHS FIELD 1,7,4 RHF - REMOTE HOST FACILITY STATUS 00530 M01S00520.cldt +++| LNPS FIELD 1,3,0 NHP - NETWORK HOST PRODUCTS STATUS 00531 M01S00521.cldt +++| 00532 M01S00522.cldt +++| LMFD FIELD 2,59,18 MAINFRAME DESCRIPTION 00533 M01S00523.cldt +++| LRF3 FIELD 2,17,12 RESERVED FOR CDC 00534 M01S00524.cldt +++| LNPD FIELD 2,11,0 NEXT PID OFFSET ADDRESS 00535 M01S00525.cldt +++| 00536 M01S00526.cldt +++| LRI3 FIELD 3,59,48 RESERVED FOR INSTALLATION 00537 M01S00527.cldt +++| LRF4 FIELD 3,47,12 RESERVED FOR CDC 00538 M01S00528.cldt +++| LNLD FIELD 3,11,0 NUMBER OF LID SLOTS FOR THIS PID 00539 M01S00529.cldt +++| 00540 M01S00530.cldt +++| LLD1 FIELD 4,59,42 FIRST LID 00541 M01S00531.cldt +++| LRF5 FIELD 4,41,36 RESERVED FOR CDC 00542 M01S00532.cldt +++| LLEN FIELD 4,35,35 1 IF ENABLED LID 00543 M01S00533.cldt +++| LSTF FIELD 4,34,34 1 IF STORE AND FORWARD 00544 M01S00534.cldt +++| LLVA FIELD 4,33,33 1 IF PRE-VALIDATION REQUIRED 00545 M01S00535.cldt +++| LLBK FIELD 4,32,32 1 IF LOOP BACK 00546 M01S00536.cldt +++| LNLS FIELD 4,31,31 1 IF NOLIST ATTRIBUTE 00547 M01S00537.cldt +++| LRF6 FIELD 4,30,24 RESERVED FOR CDC 00548 M01S00538.cldt +++| LRI4 FIELD 4,23,18 RESERVED FOR INSTALLATION 00549 M01S00539.cldt +++| LRF7 FIELD 4,17,0 RESERVED FOR CDC 00550 M01S00540.cldt +++| SPACE 4 00551 M01S00541.cldt +++| QUAL$ EQU 0 00552 M01S00542.cldt +++| BASE D 00553 M01S00543.cldt +++| TITLE DEFINITIONS. 00554 M01S00544.cldt +++|**** ASSEMBLY CONSTANTS. 00555 M01S00545.cldt +++| 00556 M01S00546.cldt +++| IBUFL EQU 400 BUFFER LENGTH 00557 M01S00547.cldt +++| SSJ= EQU 400000B SSJ= ENTRY POINT 00558 M01S00548.cldt +++| UBUFL EQU 220 UNPACK BUFFER LENGTH 00559 M01S00549.cldt +++| WBUFL EQU 22 WORKING BUFFER LENGTH 00560 M01S00550.cldt +++|**** 00561 M01S00551.cldt +++| SPACE 4,10 00562 M01S00552.cldt +++| ORG 200B 00563 M01S00553.cldt +++| FWA BSS 0 00564 M01S00554.cldt +++| SPACE 4,10 00565 M01S00555.cldt +++|* FET DEFINITIONS. 00566 M01S00556.cldt +++| 00567 M01S00557.cldt +++| I BSS 0 LID CONFIGURATION FILE 00568 M01S00558.cldt +++| LIDCM FILEC IBUF,IBUFL,(FET=13D) 00569 M01S00559.cldt +++| SPACE 4 00570 M01S00560.cldt +++|* GLOBAL VARIABLES. 00571 M01S00561.cldt +++| 00572 M01S00562.cldt +++| DSSQ CON 0 DEADSTART SEQUENCE FLAG (0 IF DEADSTART) 00573 M01S00563.cldt +++| FERF CON 0 FATAL ERROR FLAG 00574 M01S00564.cldt +++| FS CON 0 FREE SPACE FOR EACH PID 00575 M01S00565.cldt +++| FSR CON 0 REMAINDER OF FREE SPACE 00576 M01S00566.cldt +++| HOST CON 0 ZERO IF NO HOST PID SPECIFIED 00577 M01S00567.cldt +++| HOSTFLG VFD 60/1 ZERO IF HOST MAINFRAME 00578 M01S00568.cldt +++| HOSTPID VFD 60/0LM HOST MAINFRAME PID 00579 M01S00569.cldt +++| JORG CON 0 JOB ORIGIN FLAG (0 IF SYSTEM ORIGIN) 00580 M01S00570.cldt +++| LIDD VFD 24/0,1/1,35/0 LID DEFAULT VALUE (ENABLED) 00581 M01S00571.cldt +++| LIDL CON 0 LID TABLE LENGTH 00582 M01S00572.cldt +++| PIDD VFD 18/0,1/0,1/1,28/0,4/0,4/0,4/0 00583 M01S00573.cldt +++|* (ENABLED AND NOT VALIDATE) 00584 M01S00574.cldt +++| TITLE MAIN PROGRAM. 00585 M01S00575.cldt +++|** CLDT - CREATE LID TABLE. 00586 M01S00576.cldt +++|* 00587 M01S00577.cldt +++|* EXIT LID TABLE GENERATED IF NO FATAL ERRORS ENCOUNTERED 00588 M01S00578.cldt +++|* IN THE FILE AND CALLED BY A SYSTEM ORIGIN JOB. 00589 M01S00579.cldt +++|* IF CALLED BY A NON-SYSTEM ORIGIN JOB, THE LID 00590 M01S00580.cldt +++|* CONFIGURATION FILE IS VERIFIED AND NO LID TABLE 00591 M01S00581.cldt +++|* IS CREATED. 00592 M01S00582.cldt +++|* 00593 M01S00583.cldt +++|* USES X - 2. 00594 M01S00584.cldt +++|* A - 2. 00595 M01S00585.cldt +++|* 00596 M01S00586.cldt +++|* CALLS CAS, CFS, CLT, PRS, PSE. 00597 M01S00587.cldt +++|* 00598 M01S00588.cldt +++|* MACROS ABORT, ENDRUN, FLASH, MESSAGE, RETURN, SETPIDI. 00599 M01S00589.cldt +++|* 00600 M01S00590.cldt +++|* NOTE FATAL *CLDT* ERRORS ENCOUNTERED DURING A LEVEL ZERO 00601 M01S00591.cldt +++|* DEADSTART WILL NOT CAUSE *CLDT* TO ABORT. THIS ERROR 00602 M01S00592.cldt +++|* EXIT PROCESSING IS TO ENSURE THAT SUBSEQUENT *ISF* 00603 M01S00593.cldt +++|* PROCESSING (INITIATED BY *MSM*) WILL OCCUR REGARDLESS 00604 M01S00594.cldt +++|* *CLDT* ERRORS. NO LID TABLE IS CREATED IF FATAL 00605 M01S00595.cldt +++|* ERRORS ARE ENCOUNTERED. 00606 M01S00596.cldt +++| 00607 M01S00597.cldt +++| CLDT BSS 0 ENTRY 00608 M01S00598.cldt +++| RJ PRS PRESET 00609 M01S00599.cldt +++| RJ CFS CALCULATE FREE SPACE 00610 M01S00600.cldt +++| RJ CLT CREATE LID TABLE 00611 M01S00601.cldt +++| SA2 FERF 00612 M01S00602.cldt +++| NZ X2,CLD3 IF FATAL ERROR ENCOUNTERED 00613 M01S00603.cldt +++| SA2 JORG 00614 M01S00604.cldt +++| NZ X2,CLD1 IF NON-SYSTEM ORIGIN USER 00615 M01S00605.cldt +++| RJ CAS CHECK ACTIVE SUBSYSTEMS 00616 M01S00606.cldt +++| SETPIDI LIDT GENERATE LID TABLE 00617 M01S00607.cldt +++| EQ CLD2 * CLDT COMPLETE.* 00618 M01S00608.cldt +++| 00619 M01S00609.cldt +++| CLD1 MESSAGE CLDD * CLDT - NO LID TABLE CREATED.* 00620 M01S00610.cldt +++| CLD2 MESSAGE CLDA * CLDT COMPLETE.* 00621 M01S00611.cldt +++| EQ CLD5 EXIT 00622 M01S00612.cldt +++| 00623 M01S00613.cldt +++| CLD3 MESSAGE CLDB * CLDT ABORT.* 00624 M01S00614.cldt +++| SA2 DSSQ 00625 M01S00615.cldt +++| ZR X2,CLD4 IF DEADSTART SEQUENCE 00626 M01S00616.cldt +++| RETURN I,R RETURN LID CONFIGURATION FILE 00627 M01S00617.cldt +++| ABORT 00628 M01S00618.cldt +++| 00629 M01S00619.cldt +++| CLD4 MESSAGE CLDC,1 * CLDT ABORTED. SEE -A- DISPLAY.* 00630 M01S00620.cldt +++| FLASH INTENSIFY MESSAGE ON CONSOLE 00631 M01S00621.cldt +++| RJ PSE PAUSE FOR OPERATOR GO/DROP 00632 M01S00622.cldt +++| CLD5 RETURN I,R RETURN LID CONFIGURATION FILE 00633 M01S00623.cldt +++| ENDRUN CLDT 00634 M01S00624.cldt +++| 00635 M01S00625.cldt +++| 00636 M01S00626.cldt +++| CLDA DATA C* CLDT COMPLETE.* 00637 M01S00627.cldt +++| CLDB DATA C* CLDT ABORT.* 00638 M01S00628.cldt +++| CLDC DATA C* CLDT ABORTED. SEE -A- DISPLAY.* 00639 M01S00629.cldt +++| CLDD DATA C* CLDT - NO LID TABLE CREATED.* 00640 M01S00630.cldt +++| CAS TITLE SUBROUTINES. 00641 M01S00631.cldt +++|** CAS - CHECK ACTIVE SUBSYSTEMS. 00642 M01S00632.cldt +++|* 00643 M01S00633.cldt +++|* EXIT AN ERROR MESSAGE IS ISSUED IF ANY OF THREE SUBSYSTEMS 00644 M01S00634.cldt +++|* ARE ACTIVE AT A CONTROL POINT (RHF, NAM, OR SSF). 00645 M01S00635.cldt +++|* TO *CLD3* IF ANY OR ALL OF THE ABOVE SUBSYSTEMS ARE 00646 M01S00636.cldt +++|* CURRENTLY ACTIVE. 00647 M01S00637.cldt +++|* 00648 M01S00638.cldt +++|* USES X - 0, 1, 2, 6. 00649 M01S00639.cldt +++|* A - 1, 2, 6. 00650 M01S00640.cldt +++|* B - 2, 3, 4. 00651 M01S00641.cldt +++|* 00652 M01S00642.cldt +++|* MACROS MESSAGE, SYSTEM. 00653 M01S00643.cldt +++| 00654 M01S00644.cldt +++| 00655 M01S00645.cldt +++| CAS SUBR ENTRY/EXIT 00656 M01S00646.cldt +++| 00657 M01S00647.cldt +++|* GET *SSCP* TABLE POINTER. 00658 M01S00648.cldt +++| 00659 M01S00649.cldt +++| SYSTEM RSB,R,CASA GET *SSCP* 00660 M01S00650.cldt +++| 00661 M01S00651.cldt +++| SA1 CASA+1 *SSC* POINTER 00662 M01S00652.cldt +++| MX0 24 00663 M01S00653.cldt +++| LX0 -24 00664 M01S00654.cldt +++| BX1 X0*X1 *SSC* 00665 M01S00655.cldt +++| LX1 6 00666 M01S00656.cldt +++| SX2 SSCTL 00667 M01S00657.cldt +++| LX2 18 00668 M01S00658.cldt +++| IX1 X2+X1 TO GET WORD FOR RHF SSC 00669 M01S00659.cldt +++| SA2 CASB 00670 M01S00660.cldt +++| BX6 X2+X1 ADD ADDRESS OF SSC FOR RSB CALL 00671 M01S00661.cldt +++| SA6 CASB 00672 M01S00662.cldt +++| 00673 M01S00663.cldt +++|* GET *SSC* SUBSYSTEM CONTROL POINT TABLE. 00674 M01S00664.cldt +++| 00675 M01S00665.cldt +++| SYSTEM RSB,R,CASB GET *SSC* 00676 M01S00666.cldt +++| 00677 M01S00667.cldt +++| SB4 3-1 SET NUMBER OF SUBSYSTEMS TO CHECK -1 00678 M01S00668.cldt +++| SB2 MXSI-RFSI SET RHF ID 00679 M01S00669.cldt +++| CAS1 MX0 12 00680 M01S00670.cldt +++| SX2 CASB+1 00681 M01S00671.cldt +++| SB3 5 SET NUMBER OF BYTES IN WORD 00682 M01S00672.cldt +++| CAS2 ZR B2,CAS3 IF SUBSYSTEM ASSIGNMENT FOUND 00683 M01S00673.cldt +++| SB2 B2-B1 00684 M01S00674.cldt +++| LX0 -12 00685 M01S00675.cldt +++| SB3 B3-B1 00686 M01S00676.cldt +++| NZ B3,CAS2 IF MORE BYTES IN WORD TO CHECK 00687 M01S00677.cldt +++| SX2 X2+B1 CHECK NEXT WORD 00688 M01S00678.cldt +++| SB3 5 SET NUMBER OF BYTES IN WORD 00689 M01S00679.cldt +++| EQ CAS2 CONTINUE SUBSYSTEM SEARCH 00690 M01S00680.cldt +++| 00691 M01S00681.cldt +++| CAS3 SA1 X2 00692 M01S00682.cldt +++| BX1 X0*X1 GET EJT ORDINAL ASSIGNED TO SUBSYSTEM 00693 M01S00683.cldt +++| NZ X1,CAS4 IF SUBSYSTEM IS ASSIGNED 00694 M01S00684.cldt +++| ZR B4,CASX IF DONE CHECKING SUBSYSTEMS 00695 M01S00685.cldt +++| SB4 B4-B1 00696 M01S00686.cldt +++| SB2 MXSI-NMSI SET NAM ID 00697 M01S00687.cldt +++| EQ B4,B1,CAS1 IF CHECKING NAM ACTIVITY 00698 M01S00688.cldt +++| SB2 MXSI-SSSI 00699 M01S00689.cldt +++| EQ CAS1 CHECK FOR SSF ACTIVITY 00700 M01S00690.cldt +++| 00701 M01S00691.cldt +++| 00702 M01S00692.cldt +++| CAS4 MESSAGE CASC * CLDT - IDLE SUBSYSTEMS RHF, NAM AND SSF* 00703 M01S00693.cldt +++| MESSAGE CASD * BEFORE ATTEMPTING CLDT.* 00704 M01S00694.cldt +++| EQ CLD3 * CLDT ABORT.* 00705 M01S00695.cldt +++| 00706 M01S00696.cldt +++| CASA VFD 12/0,12/1,18/SSCP,18/CASA+1 00707 M01S00697.cldt +++| CON -1 00708 M01S00698.cldt +++| CASB VFD 12/0,12/SSCTL,18/0,18/CASB+1 00709 M01S00699.cldt +++| CON -1 00710 M01S00700.cldt +++| BSSZ SSCTL-1 00711 M01S00701.cldt +++| CASC DATA C* CLDT - IDLE SUBSYSTEMS RHF, NAM, AND SSF* 00712 M01S00702.cldt +++| CASD DATA C* BEFORE ATTEMPTING CLDT.* 00713 M01S00703.cldt +++| CLE SPACE 4,15 00714 M01S00704.cldt +++|** CLE - CREATE LID ENTRY. 00715 M01S00705.cldt +++|* 00716 M01S00706.cldt +++|* ENTRY (CLTB) = CURRENT LID POINTER. 00717 M01S00707.cldt +++|* (CLTD) = CURRENT FWA OF PID. 00718 M01S00708.cldt +++|* 00719 M01S00709.cldt +++|* EXIT (CLTB) = CURRENT LID POINTER. 00720 M01S00710.cldt +++|* (CLTE) = NUMBER OF LID FOR PID. 00721 M01S00711.cldt +++|* 00722 M01S00712.cldt +++|* USES X - 0, 1, 2, 3, 4, 5, 6, 7. 00723 M01S00713.cldt +++|* A - 1, 2, 6, 7. 00724 M01S00714.cldt +++|* B - 1, 2, 3. 00725 M01S00715.cldt +++|* 00726 M01S00716.cldt +++|* MACRO MESSAGE. 00727 M01S00717.cldt +++| 00728 M01S00718.cldt +++| 00729 M01S00719.cldt +++| CLE SUBR ENTRY/EXIT 00730 M01S00720.cldt +++| SA1 UBUF GET UNPACK BUFFER 00731 M01S00721.cldt +++| BX7 X7-X7 INITIAL LID ENTRY 00732 M01S00722.cldt +++| SA2 LIDD LID DEFAULT VALUE, ENABLED 00733 M01S00723.cldt +++| BX6 X2 00734 M01S00724.cldt +++| SA7 CLEQ CLEAR *LID* SPECIFIED FLAG 00735 M01S00725.cldt +++| SA7 CLER CLEAR LOOPB SPECIFIED FLAG 00736 M01S00726.cldt +++| SA7 CLES CLEAR STOREF SPECIFIED FLAG 00737 M01S00727.cldt +++| SA7 CLEP CLEAR VALID SPECIFIED FLAG 00738 M01S00728.cldt +++| CLE1 MX0 42 00739 M01S00729.cldt +++| SA1 A1+B1 GET KEYWORD 00740 M01S00730.cldt +++| SA2 CLEA GET KEYWORD TABLE 00741 M01S00731.cldt +++| ZR X1,CLE18 IF DONE PROCESSING 00742 M01S00732.cldt +++| CLE2 ZR X2,CLE23 IF NO MATCH FOUND 00743 M01S00733.cldt +++| BX3 X1-X2 00744 M01S00734.cldt +++| BX4 X0*X3 00745 M01S00735.cldt +++| ZR X4,CLE3 IF KEYWORD MATCH 00746 M01S00736.cldt +++| SA2 A2+1 00747 M01S00737.cldt +++| EQ CLE2 TRY NEXT WORD 00748 M01S00738.cldt +++| 00749 M01S00739.cldt +++| CLE3 SB3 X2 GET ADDRESS OF PROCESSOR 00750 M01S00740.cldt +++| SX3 1R= 00751 M01S00741.cldt +++| BX2 X1-X3 00752 M01S00742.cldt +++| BX4 -X0*X2 00753 M01S00743.cldt +++| NZ X4,CLE21 IF SEPARATOR NOT *=* 00754 M01S00744.cldt +++| SA1 A1+B1 00755 M01S00745.cldt +++| JP B3 PROCESS RESPECTIVE KEYWORD 00756 M01S00746.cldt +++| 00757 M01S00747.cldt +++|* PROCESS *LID* KEYWORD. 00758 M01S00748.cldt +++| 00759 M01S00749.cldt +++| CLE4 MX0 18 00760 M01S00750.cldt +++| SA2 CLEQ GET *LID* KEYWORD FLAG 00761 M01S00751.cldt +++| BX3 X0*X1 00762 M01S00752.cldt +++| ZR X3,CLE22 IF NO *LID* SPECIFIED 00763 M01S00753.cldt +++| NZ X2,CLE20 IF *LID* ALREADY SPECIFIED 00764 M01S00754.cldt +++| LX0 -18 00765 M01S00755.cldt +++| BX7 X0*X1 00766 M01S00756.cldt +++| NZ X7,CLE22 IF LID HAS MORE THAN 3 CHARACTERS 00767 M01S00757.cldt +++| LX0 6 00768 M01S00758.cldt +++| BX7 X0*X1 00769 M01S00759.cldt +++| ZR X7,CLE22 IF LID HAS LESS THAN 3 CHARACTERS 00770 M01S00760.cldt +++| BX7 X3 00771 M01S00761.cldt +++| MX0 6 00772 M01S00762.cldt +++| SB2 3 00773 M01S00763.cldt +++| CLE5 BX2 X7*X0 00774 M01S00764.cldt +++| LX2 6 00775 M01S00765.cldt +++| ZR X2,CLE22 IF CHARACTER EQUALS A COLON 00776 M01S00766.cldt +++| NG X2,CLE22 IF CHARACTER IS NOT ALPHANUMERIC 00777 M01S00767.cldt +++| SX2 X2-1R9-1 00778 M01S00768.cldt +++| PL X2,CLE22 IF CHARACTER IS NOT ALPHANUMERIC 00779 M01S00769.cldt +++| LX7 6 00780 M01S00770.cldt +++| SB2 B2-B1 00781 M01S00771.cldt +++| NZ B2,CLE5 IF THERE ARE MORE CHARACTERS TO CHECK 00782 M01S00772.cldt +++| SA2 CLTE GET NUMBER OF LID-S 00783 M01S00773.cldt +++| SB3 X2+ 00784 M01S00774.cldt +++| CLE6 SA4 B3+CLET-1 CHECK FOR DUPLICATE LID-S 00785 M01S00775.cldt +++| BX7 X3-X4 00786 M01S00776.cldt +++| SB3 B3-B1 00787 M01S00777.cldt +++| ZR X7,CLE20 IF DUPLICATE LID 00788 M01S00778.cldt +++| GT B3,CLE6 IF MORE LID-S TO CHECK 00789 M01S00779.cldt +++| BX7 X3 00790 M01S00780.cldt +++| BX6 X3+X6 00791 M01S00781.cldt +++| SA7 X2+CLET ADD NEW LID 00792 M01S00782.cldt +++| SA6 CLEQ INDICATE *LID* SPECIFIED 00793 M01S00783.cldt +++| EQ CLE1 PROCESS NEXT KEYWORD 00794 M01S00784.cldt +++| 00795 M01S00785.cldt +++|* PROCESS *ENABLED* KEYWORD. 00796 M01S00786.cldt +++| 00797 M01S00787.cldt +++| CLE7 SX3 3RYES 00798 M01S00788.cldt +++| LX3 -18 00799 M01S00789.cldt +++| BX7 X1-X3 00800 M01S00790.cldt +++| BX7 X0*X7 00801 M01S00791.cldt +++| ZR X7,CLE1 IF *YES* 00802 M01S00792.cldt +++| SX3 2RNO 00803 M01S00793.cldt +++| LX3 -12 00804 M01S00794.cldt +++| BX7 X1-X3 00805 M01S00795.cldt +++| BX7 X0*X7 00806 M01S00796.cldt +++| NZ X7,CLE24 IF INCORRECT KEYWORD 00807 M01S00797.cldt +++| SX3 B1 00808 M01S00798.cldt +++| LX3 LLENS-0 00809 M01S00799.cldt +++| BX6 -X3*X6 00810 M01S00800.cldt +++| EQ CLE1 PROCESS NEXT KEYWORD 00811 M01S00801.cldt +++| 00812 M01S00802.cldt +++|* PROCESS *AT* KEYWORD. 00813 M01S00803.cldt +++| 00814 M01S00804.cldt +++| CLE8 SA2 CLEB GET *AT* KEYWORD TABLE 00815 M01S00805.cldt +++| CLE9 BX3 X1-X2 00816 M01S00806.cldt +++| BX4 X0*X3 00817 M01S00807.cldt +++| ZR X4,CLE10 IF AT KEYWORD MATCH 00818 M01S00808.cldt +++| SA2 A2+1 00819 M01S00809.cldt +++| NZ X2,CLE9 IF NOT END OF TABLE 00820 M01S00810.cldt +++| EQ CLE25 UNRECOGNIZED KEYWORD 00821 M01S00811.cldt +++| 00822 M01S00812.cldt +++| CLE10 SX7 B1 00823 M01S00813.cldt +++| SB3 X2 00824 M01S00814.cldt +++| JP B3 PROCESS RESPECTIVE KEYWORD 00825 M01S00815.cldt +++| 00826 M01S00816.cldt +++|* PROCESS *LOOPB* KEYWORD. 00827 M01S00817.cldt +++| 00828 M01S00818.cldt +++| CLE11 SA2 HOSTFLG CHECK FOR HOST 00829 M01S00819.cldt +++| NZ X2,CLE28 IF LINKED, ISSUE ERROR MESSAGE 00830 M01S00820.cldt +++| SA2 CLES CHECK FOR STOREF 00831 M01S00821.cldt +++| NZ X2,CLE29 IF STOREF ALREADY SET 00832 M01S00822.cldt +++| BX5 X6 SAVE X6 VALUE 00833 M01S00823.cldt +++| SX6 B1 00834 M01S00824.cldt +++| SA6 CLER SET LOOPB 00835 M01S00825.cldt +++| LX7 LLBKS-0 ADD LOOP BACK FLAG 00836 M01S00826.cldt +++| BX6 X5 RESTORE X6 VALUE 00837 M01S00827.cldt +++| BX6 X6+X7 00838 M01S00828.cldt +++| EQ CLE17 CONTINUE WITH NEXT KEYWORD 00839 M01S00829.cldt +++| 00840 M01S00830.cldt +++|* PROCESS *STOREF* KEYWORD. 00841 M01S00831.cldt +++| 00842 M01S00832.cldt +++| CLE12 SA2 HOSTFLG CHECK FOR HOST 00843 M01S00833.cldt +++| NZ X2,CLE13 IF LINKED CONTINUE 00844 M01S00834.cldt +++| SA2 CLER CHECK FOR LOOPB 00845 M01S00835.cldt +++| NZ X2,CLE29 IF LOOPB ALREADY SET 00846 M01S00836.cldt +++| CLE13 BX5 X6 SAVE X6 VALUE 00847 M01S00837.cldt +++| SX6 B1 00848 M01S00838.cldt +++| SA6 CLES SET STOREF OPTION 00849 M01S00839.cldt +++| LX7 LSTFS-0 ADD STORE FORWARD FLAG 00850 M01S00840.cldt +++| BX6 X5 RESTORE X6 VALUE 00851 M01S00841.cldt +++| BX6 X6+X7 00852 M01S00842.cldt +++| EQ CLE17 CONTINUE WITH NEXT KEYWORD 00853 M01S00843.cldt +++| 00854 M01S00844.cldt +++|* PROCESS *VALID* KEYWORD. 00855 M01S00845.cldt +++| 00856 M01S00846.cldt +++| CLE14 LX7 LLVAS-0 ADD VALIDATION FLAG 00857 M01S00847.cldt +++| BX6 X6+X7 00858 M01S00848.cldt +++| SA6 CLEP SET VALID OPTION SPECIFIED 00859 M01S00849.cldt +++| EQ CLE17 CONTINUE WITH NEXT KEYWORD 00860 M01S00850.cldt +++| 00861 M01S00851.cldt +++|* PROCESS *NVALID* KEYWORD. 00862 M01S00852.cldt +++| 00863 M01S00853.cldt +++| CLE15 LX7 LLVAS-0 DELETE VALIDATION FLAG 00864 M01S00854.cldt +++| BX6 -X7*X6 00865 M01S00855.cldt +++| BX7 X7-X7 00866 M01S00856.cldt +++| SA7 CLEP CLEAR VALID OPTION SPECIFIED 00867 M01S00857.cldt +++| EQ CLE17 CONTINUE WITH NEXT KEYWORD 00868 M01S00858.cldt +++| 00869 M01S00859.cldt +++|* PROCESS *NLIST* KEYWORD. 00870 M01S00860.cldt +++| 00871 M01S00861.cldt +++| CLE16 LX7 LNLSS-0 ADD NO LIST FLAG 00872 M01S00862.cldt +++| BX6 X6+X7 00873 M01S00863.cldt +++| EQ CLE17 CONTINUE WITH NEXT KEYWORD 00874 M01S00864.cldt +++| 00875 M01S00865.cldt +++|* *AT* KEYWORD POST-PROCESSOR. 00876 M01S00866.cldt +++| 00877 M01S00867.cldt +++| CLE17 SX5 1R/ 00878 M01S00868.cldt +++| SX4 X1 00879 M01S00869.cldt +++| BX7 X5-X4 00880 M01S00870.cldt +++| NZ X7,CLE1 IF NOT */* 00881 M01S00871.cldt +++| SA1 A1+B1 00882 M01S00872.cldt +++| MX0 42 00883 M01S00873.cldt +++| EQ CLE8 PROCESS NEXT *AT* KEYWORD 00884 M01S00874.cldt +++| 00885 M01S00875.cldt +++|* DONE PROCESSING KEYWORDS. 00886 M01S00876.cldt +++| 00887 M01S00877.cldt +++| CLE18 SA2 CLEQ *LID* KEYWORD SPECIFIED FLAG 00888 M01S00878.cldt +++| SA3 CLTB 00889 M01S00879.cldt +++| ZR X2,CLE27 IF *LID* KEYWORD NOT SPECIFIED 00890 M01S00880.cldt +++| SA2 CLEP *VALID* OPTION SPECIFIED 00891 M01S00881.cldt +++| ZR X2,CLE19 IF *VALID* OPTION NOT SPECIFIED 00892 M01S00882.cldt +++| SA2 CLES *STOREF* OPTION SPECIFIED 00893 M01S00883.cldt +++| ZR X2,CLE30 IF *STOREF* OPTION NOT SPECIFIED 00894 M01S00884.cldt +++| CLE19 SX7 X3+B1 INCREMENT LID POINTER BY 1 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 M01S00885.cldt +++| SA7 A3 00899 M01S00886.cldt +++| SA6 X3 ADD NEW LID
| Line S00887 Modification History | |
|---|---|
M01 (Added by) | cldt |
M02 (Updated by) | ns2250 |
Seq # *Modification Id* Act ----------------------------+ 00900 M02S00887.ns2250 ---| SA2 CLTE GET NUMBER OF LID-S 00901 M01S00888.cldt +++| SX7 X2+B1 INCREMENT NUMBER OF LID-S 00902 M01S00889.cldt +++| SA7 A2 00903 M01S00890.cldt +++| EQ CLEX RETURN 00904 M01S00891.cldt +++| 00905 M01S00892.cldt +++|* DUPLICATE LID-S. 00906 M01S00893.cldt +++| 00907 M01S00894.cldt +++| CLE20 MESSAGE CLEM *DUPLICATE LID ON THE NLID STATEMENT.* 00908 M01S00895.cldt +++| EQ CLE26 ISSUE ERROR MESSAGE 00909 M01S00896.cldt +++| 00910 M01S00897.cldt +++|* SEPARATOR NOT *=*. 00911 M01S00898.cldt +++| 00912 M01S00899.cldt +++| CLE21 MESSAGE CPEO *CLDT = MUST FOLLOW KEYWORD* 00913 M01S00900.cldt +++| EQ CLE26 ISSUE ERROR MESSAGE 00914 M01S00901.cldt +++| 00915 M01S00902.cldt +++|* INCORRECT LID. 00916 M01S00903.cldt +++| 00917 M01S00904.cldt +++| CLE22 MESSAGE CLEC *SPECIFY EXACTLY 3 CHARACTERS* 00918 M01S00905.cldt +++| MESSAGE CLED *IN LID.* 00919 M01S00906.cldt +++| EQ CLE26 ISSUE ERROR MESSAGE 00920 M01S00907.cldt +++| 00921 M01S00908.cldt +++|* INCORRECT KEYWORD. 00922 M01S00909.cldt +++| 00923 M01S00910.cldt +++| CLE23 MESSAGE CLEE * CLDT - VALID KEYWORDS FOR NLID ARE* 00924 M01S00911.cldt +++| MESSAGE CLEF * LID, ENABLED AND AT* 00925 M01S00912.cldt +++| EQ CLE26 ISSUE ERROR MESSAGE 00926 M01S00913.cldt +++| 00927 M01S00914.cldt +++|* INCORRECT *ENABLED* PARAMETER. 00928 M01S00915.cldt +++| 00929 M01S00916.cldt +++| CLE24 MESSAGE CPEZ *ONLY YES/NO ALLOWED ON ENABLED KEYWORD* 00930 M01S00917.cldt +++| EQ CLE26 ISSUE ERROR MESSAGE 00931 M01S00918.cldt +++| 00932 M01S00919.cldt +++|* INCORRECT *AT* PARAMETER. 00933 M01S00920.cldt +++| 00934 M01S00921.cldt +++| CLE25 MESSAGE CLEG *CLDT - VALID OPTIONS FOR *AT* ARE LOOPB/ 00935 M01S00922.cldt +++| MESSAGE CLEH STOREF/VALID/NVALID/NLIST.* 00936 M01S00923.cldt +++| 00937 M01S00924.cldt +++| CLE26 MESSAGE CPEG *ERROR IN THE FOLLOWING STATEMENT* 00938 M01S00925.cldt +++| MESSAGE WBUF 00939 M01S00926.cldt +++| MESSAGE CLEK *STATEMENT IGNORED.* 00940 M01S00927.cldt +++| EQ CLEX RETURN 00941 M01S00928.cldt +++| 00942 M01S00929.cldt +++|* *LID* KEYWORD NOT SPECIFIED. 00943 M01S00930.cldt +++| 00944 M01S00931.cldt +++| CLE27 MESSAGE CLEL *NO LID SPECIFIED ON NLID STATEMENT.* 00945 M01S00932.cldt +++| EQ CLE26 ISSUE ERROR MESSAGE 00946 M01S00933.cldt +++| 00947 M01S00934.cldt +++|* INCORRECT LINKED *LID* ATTRIBUTE. 00948 M01S00935.cldt +++| 00949 M01S00936.cldt +++| CLE28 MESSAGE CLEJ * CLDT - INCORRECT LINKED LID ATTRIBUTE.* 00950 M01S00937.cldt +++| EQ CLE26 ISSUE ERROR MESSAGE 00951 M01S00938.cldt +++| 00952 M01S00939.cldt +++|* INCORRECT HOST *LID* ATTRIBUTE. 00953 M01S00940.cldt +++| 00954 M01S00941.cldt +++| CLE29 MESSAGE CLEI * CLDT - INCORRECT HOST LID ATTRIBUTE.* 00955 M01S00942.cldt +++| EQ CLE26 ISSUE ERROR MESSAGE 00956 M01S00943.cldt +++| 00957 M01S00944.cldt +++|* *VALID* OPTION SPECIFIED BUT NOT *STOREF* OPTION. 00958 M01S00945.cldt +++| 00959 M01S00946.cldt +++| CLE30 MESSAGE CLEN * VALID OPTION CAN ONLY BE SPECIFIED* 00960 M01S00947.cldt +++| MESSAGE CLEO * IF THE STOREF OPTION IS SPECIFIED.* 00961 M01S00948.cldt +++| EQ CLE26 ISSUE ERROR MESSAGE 00962 M01S00012.ns2250 +++| 00963 M01S00013.ns2250 +++| CLE31 MESSAGE CLEU * EXCEEDED MAXIMUM NUMBER OF LIDS/PID... * 00964 M01S00014.ns2250 +++| EQ CLE26 ISSUE ERROR MESSAGE 00965 M01S00949.cldt +++| 00966 M01S00950.cldt +++|* *NLID* KEYWORD TABLE. 00967 M01S00951.cldt +++| 00968 M01S00952.cldt +++| CLEA VFD 42/3LLID,18/CLE4 *LID* 00969 M01S00953.cldt +++| VFD 42/7LENABLED,18/CLE7 *ENABLED* 00970 M01S00954.cldt +++| VFD 42/2LAT,18/CLE8 *AT* 00971 M01S00955.cldt +++| VFD 60/0 00972 M01S00956.cldt +++| 00973 M01S00957.cldt +++|* *AT* KEYWORD TABLE. 00974 M01S00958.cldt +++| 00975 M01S00959.cldt +++| CLEB VFD 42/5LLOOPB,18/CLE11 *LOOPB* 00976 M01S00960.cldt +++| VFD 42/6LSTOREF,18/CLE12 *STOREF* 00977 M01S00961.cldt +++| VFD 42/0LVALID,18/CLE14 *VALID* 00978 M01S00962.cldt +++| VFD 42/0LNVALID,18/CLE15 *NVALID* 00979 M01S00963.cldt +++| VFD 42/0LNLIST,18/CLE16 *NLIST* 00980 M01S00964.cldt +++| VFD 60/0 00981 M01S00965.cldt +++| 00982 M01S00966.cldt +++| CLEC DATA C* CLDT - SPECIFY EXACTLY 3 ALPHANUMERIC CHARACTERS* 00983 M01S00967.cldt +++| CLED DATA C* IN LID.* 00984 M01S00968.cldt +++| CLEE DATA C* CLDT - VALID KEYWORDS FOR NLID ARE * 00985 M01S00969.cldt +++| CLEF DATA C* LID, ENABLED AND AT.* 00986 M01S00970.cldt +++| CLEG DATA C+ CLDT - VALID OPTIONS FOR *AT* ARE LOOPB/STOREF/+ 00987 M01S00971.cldt +++| CLEH DATA C* VALID/NVALID/NLIST.* 00988 M01S00972.cldt +++| CLEI DATA C* CLDT - INCORRECT HOST LID ATTRIBUTE.* 00989 M01S00973.cldt +++| CLEJ DATA C* CLDT - INCORRECT LINKED LID ATTRIBUTE.* 00990 M01S00974.cldt +++| CLEK DATA C* CLDT - STATEMENT IGNORED.* 00991 M01S00975.cldt +++| CLEL DATA C* CLDT - LID KEYWORD NOT SPECIFIED.* 00992 M01S00976.cldt +++| CLEM DATA C* CLDT - DUPLICATE LID ON NLID STATEMENT.* 00993 M01S00977.cldt +++| CLEN DATA C* CLDT - VALID OPTION CAN ONLY BE SPECIFIED* 00994 M01S00015.ns2250 +++| MXLD DECMIC MXLID 00995 M01S00016.ns2250 +++| CLEU DATA C* CLDT - EXCEEDED MAXIMUM NUMBER OF LIDS/PID - "MXLD" 00996 M01S00017.ns2250 +++|,.* 00997 M01S00978.cldt +++| CLEO DATA C* IF THE STOREF OPTION IS SPECIFIED.* 00998 M01S00979.cldt +++| CLEP BSSZ 1 NOT ZERO IF VALID OPTION SPECIFIED 00999 M01S00980.cldt +++| CLEQ BSSZ 1 ONE IF LID KEYWORD SPECIFIED 01000 M01S00981.cldt +++| CLER BSSZ 1 ONE IF LOOPB OPTION SPECIFIED 01001 M01S00982.cldt +++| CLES BSSZ 1 ONE IF STOREF OPTION SPECIFIED
| Line S00983 Modification History | |
|---|---|
M01 (Added by) | cldt |
M02 (Updated by) | ns2250 |
Seq # *Modification Id* Act ----------------------------+ 01002 M02S00983.ns2250 ---| CLET BSSZ MXLID LID TABLE 01003 M01S00018.ns2250 +++| CLET BSSZ MXLID+1 LID TABLE 01004 M01S00984.cldt +++| CLT SPACE 4,15 01005 M01S00985.cldt +++|** CLT - CREATE LID TABLE. 01006 M01S00986.cldt +++|* 01007 M01S00987.cldt +++|* ENTRY (FS) = FREE SPACE FOR EACH PID. 01008 M01S00988.cldt +++|* 01009 M01S00989.cldt +++|* EXIT LID TABLE CREATED. 01010 M01S00990.cldt +++|* 01011 M01S00991.cldt +++|* USES X - 0, 1, 2, 3, 4, 6, 7. 01012 M01S00992.cldt +++|* A - 1, 2, 6, 7. 01013 M01S00993.cldt +++|* B - 1, 3. 01014 M01S00994.cldt +++|* 01015 M01S00995.cldt +++|* CALLS CLE, CPE, PTL. 01016 M01S00996.cldt +++|* 01017 M01S00997.cldt +++|* MACROS READ, READC, REWIND. 01018 M01S00998.cldt +++|* 01019 M01S00999.cldt +++|* NOTE THE LID TABLE IS WRITTEN OVER THE OVERLAYABLE CODE. 01020 M01S01000.cldt +++| 01021 M01S01001.cldt +++| 01022 M01S01002.cldt +++| CLT SUBR ENTRY/EXIT 01023 M01S01003.cldt +++| 01024 M01S01004.cldt +++|* CLEAR THE OVERLAYABLE CODE FOR THE LDT. 01025 M01S01005.cldt +++| 01026 M01S01006.cldt +++| SB3 LENGTH LENGTH OF AREA TO BE CLEARED 01027 M01S01007.cldt +++| SX7 B0+ 01028 M01S01008.cldt +++| CLT0 SA7 LIDT+B3 01029 M01S01009.cldt +++| SB3 B3-B1 01030 M01S01010.cldt +++| GT B3,CLT0 IF MORE WORDS TO CLEAR 01031 M01S01011.cldt +++| REWIND I REWIND LID CONFIGURATION FILE 01032 M01S01012.cldt +++| READ X2 INITIAL READ 01033 M01S01013.cldt +++| READC X2,WBUF,WBUFL SKIP ONE LINE 01034 M01S01014.cldt +++| SX6 LIDT+2 FWA OF LID TABLE (EXCLUDING HEADER) 01035 M01S01015.cldt +++| SA6 CLTB 01036 M01S01016.cldt +++| CLT1 RJ PTL PROCESS NEXT LINE 01037 M01S01017.cldt +++| NZ X6,CLT7 IF ERROR IN *PTL* 01038 M01S01018.cldt +++| NZ X1,CLT8 IF EOR/EOF 01039 M01S01019.cldt +++| SA1 UBUF GET FIRST WORD 01040 M01S01020.cldt +++| SA2 CLTH FWA OF KEYWORD TABLE 01041 M01S01021.cldt +++| MX0 42 01042 M01S01022.cldt +++| CLT2 BX3 X1-X2 01043 M01S01023.cldt +++| BX4 X0*X3 01044 M01S01024.cldt +++| ZR X4,CLT3 IF KEYWORD MATCH 01045 M01S01025.cldt +++| SA2 A2+1 01046 M01S01026.cldt +++| ZR X2,CLT1 IF UNRECOGNIZED KEYWORD 01047 M01S01027.cldt +++| EQ CLT2 TRY NEXT WORD 01048 M01S01028.cldt +++| 01049 M01S01029.cldt +++| CLT3 SB3 X2+ GET KEYWORD PROCESSOR 01050 M01S01030.cldt +++| JP B3 PROCESS KEYWORD 01051 M01S01031.cldt +++| 01052 M01S01032.cldt +++|* PROCESS *COMMENT* STATEMENT. 01053 M01S01033.cldt +++| 01054 M01S01034.cldt +++| CLT4 EQ CLT1 IGNORE COMMENT STATEMENT 01055 M01S01035.cldt +++| 01056 M01S01036.cldt +++|* PROCESS *NPID* STATEMENT. 01057 M01S01037.cldt +++| 01058 M01S01038.cldt +++| CLT5 RJ CPE CREATE PID ENTRY 01059 M01S01039.cldt +++| SX6 B1 01060 M01S01040.cldt +++| SA6 CLTK SET PID PROCESSED 01061 M01S01041.cldt +++| EQ CLT1 READ NEXT STATEMENT 01062 M01S01042.cldt +++| 01063 M01S01043.cldt +++|* PROCESS *NLID* STATEMENT. 01064 M01S01044.cldt +++| 01065 M01S01045.cldt +++| CLT6 RJ CLE CREATE LID ENTRY 01066 M01S01046.cldt +++| SA2 CLTK 01067 M01S01047.cldt +++| NZ X2,CLT1 IF A PID HAS BEEN PROCESSED 01068 M01S01048.cldt +++| MESSAGE CLTL * CLDT - NPID DIRECTIVE MUST BE PROCESSED* 01069 M01S01049.cldt +++| MESSAGE CLTM * BEFORE A NLID DIRECTIVE.* 01070 M01S01050.cldt +++| MESSAGE CPEG * ERROR IN THE FOLLOWING STATEMENT* 01071 M01S01051.cldt +++| MESSAGE WBUF THE NLID STATEMENT 01072 M01S01052.cldt +++| SX6 B1 01073 M01S01053.cldt +++| SA6 FERF SET FATAL ERROR FLAG 01074 M01S01054.cldt +++| EQ CLT1 READ NEXT STATEMENT 01075 M01S01055.cldt +++| 01076 M01S01056.cldt +++|* PROCESS *PTL* ERROR. 01077 M01S01057.cldt +++| 01078 M01S01058.cldt +++| CLT7 BX6 X6-X6 01079 M01S01059.cldt +++| SA6 CFSK 01080 M01S01060.cldt +++| ZR X1,CLT1 IF AN ERROR READ NEXT STATEMENT 01081 M01S01061.cldt +++| 01082 M01S01062.cldt +++|* UPDATE NUMBER OF LID-S FOR THE LAST PID. 01083 M01S01063.cldt +++| 01084 M01S01064.cldt +++| CLT8 SA2 HOST 01085 M01S01065.cldt +++| NZ X2,CLT11 IF HOST PID IS SPECIFIED 01086 M01S01066.cldt +++| SA2 HOSTPID 01087 M01S01067.cldt +++| BX7 X2 01088 M01S01068.cldt +++| SA7 CLTI+2 SET HOST PID IN DEFAULTS 01089 M01S01069.cldt +++| SA2 CLTJ+2 01090 M01S01070.cldt +++| BX7 X7-X2 01091 M01S01071.cldt +++| SA7 CLTJ+2 SET HOST LID IN DEFAULTS 01092 M01S01072.cldt +++| SB2 7 01093 M01S01073.cldt +++| CLT9 SA2 CLTI+B2 GET HOST PID DEFAULTS 01094 M01S01074.cldt +++| BX7 X2 01095 M01S01075.cldt +++| SA7 UBUF+B2 FILL UBUF FOR *CPE* CALL 01096 M01S01076.cldt +++| SB2 B2-B1 01097 M01S01077.cldt +++| NZ B2,CLT9 IF NOT DONE FILLING UBUF 01098 M01S01078.cldt +++| RJ CPE CREATE HOST PID 01099 M01S01079.cldt +++| SB2 3 01100 M01S01080.cldt +++| CLT10 SA2 CLTJ+B2 GET HOST LID DEFAULTS 01101 M01S01081.cldt +++| BX7 X2 01102 M01S01082.cldt +++| SA7 UBUF+B2 FILL UBUF FOR *CLE* CALL 01103 M01S01083.cldt +++| SB2 B2-B1 01104 M01S01084.cldt +++| NZ B2,CLT10 IF NOT DONE FILLING UBUF 01105 M01S01085.cldt +++| RJ CLE CREATE HOST LID 01106 M01S01086.cldt +++| CLT11 SX7 B1+ SET EOF 01107 M01S01087.cldt +++| SA7 CLTG 01108 M01S01088.cldt +++| SA1 CLTB GET CURRENT POINTER 01109 M01S01089.cldt +++| SA2 LIDL GET LID TABLE LENGTH 01110 M01S01090.cldt +++| SX2 X2+LIDT+1 LWA OF LID TABLE 01111 M01S01091.cldt +++| IX7 X2-X1 01112 M01S01092.cldt +++| SA7 FS 01113 M01S01093.cldt +++| RJ CPE UPDATE LAST PID ENTRY 01114 M01S01094.cldt +++| SA1 CLTD CLEAR *N-PID* OF THE LAST PID 01115 M01S01095.cldt +++| SA2 X1+B1 01116 M01S01096.cldt +++| MX0 60-LNPDN 01117 M01S01097.cldt +++| BX7 X0*X2 01118 M01S01098.cldt +++| SA7 A2 01119 M01S01099.cldt +++| 01120 M01S01100.cldt +++|* GENERATE HEADER WORD OF LDT AND PARAMETER BLOCK. 01121 M01S01101.cldt +++| 01122 M01S01102.cldt +++| SA1 CLTF GET NUMBER OF PID-S 01123 M01S01103.cldt +++| SA2 LIDL GET LENGTH OF LID TABLE 01124 M01S01104.cldt +++| SX6 X2 SET PARAMETER BLOCK LENGTH 01125 M01S01105.cldt +++| LX2 LNTHS-LNTHN+1 01126 M01S01106.cldt +++| BX7 X1+X2 01127 M01S01107.cldt +++| SX2 B1 SET FET NOT BUSY 01128 M01S01108.cldt +++| LX6 59-11 01129 M01S01109.cldt +++| BX6 X6+X2 MERGE BLOCK LENGTH WITH FET FLAG 01130 M01S01110.cldt +++| SA6 LIDT UPDATE LENGTH OF PARAMETER BLOCK 01131 M01S01111.cldt +++| SA7 A6+B1 UPDATE FWA OF LID TABLE 01132 M01S01112.cldt +++| EQ CLTX RETURN 01133 M01S01113.cldt +++| 01134 M01S01114.cldt +++| 01135 M01S01115.cldt +++| CLTA BSSZ 1 01136 M01S01116.cldt +++| CLTB BSSZ 1 NEXT AVAILABLE LID TABLE ENTRY 01137 M01S01117.cldt +++| CLTD BSSZ 1 FWA OF CURRENT PID ENTRY 01138 M01S01118.cldt +++| CLTE BSSZ 1 NUMBER OF LID-S FOR PID 01139 M01S01119.cldt +++| CLTF BSSZ 1 NUMBER OF PID-S 01140 M01S01120.cldt +++| CLTG BSSZ 1 1 IF EOF 01141 M01S01121.cldt +++| 01142 M01S01122.cldt +++|* *LIDCM* KEYWORD TABLE. 01143 M01S01123.cldt +++| 01144 M01S01124.cldt +++| CLTH VFD 42/4LNLID,18/CLT6 01145 M01S01125.cldt +++| VFD 42/4LNPID,18/CLT5 01146 M01S01126.cldt +++| VFD 42/7LCOMMENT,18/CLT4 01147 M01S01127.cldt +++| BSSZ 1 01148 M01S01128.cldt +++| 01149 M01S01129.cldt +++|* DEFAULTS FOR HOST PID AND HOST LID IF NOT SPECIFIED. 01150 M01S01130.cldt +++| 01151 M01S01131.cldt +++| CLTI VFD 60/4LNPID NPID STATEMENT 01152 M01S01132.cldt +++| VFD 18/3LPID,36/0,6/1R= PID= STATEMENT 01153 M01S01133.cldt +++| VFD 60/0 HOST+MACHID PID 01154 M01S01134.cldt +++| VFD 36/6LMFTYPE,18/0,6/1R= MFTYPE STATEMENT 01155 M01S01135.cldt +++| VFD 60/7LNOSHOST NOSHOST DEFAULT 01156 M01S01136.cldt +++| VFD 12/2LAT,42/0,6/1R= 01157 M01S01137.cldt +++| VFD 60/5LVALID 01158 M01S01138.cldt +++| BSSZ 1 ZERO WORD 01159 M01S01139.cldt +++| CLTJ VFD 60/4LNLID NLID STATEMENT 01160 M01S01140.cldt +++| VFD 18/3LLID,36/0,6/1R= LID= STATEMENT 01161 M01S01141.cldt +++| VFD 60/1LA LID+MACHID LID 01162 M01S01142.cldt +++| BSSZ 1 ZERO WORD 01163 M01S01143.cldt +++| CLTK 1 IF PID PROCESSED 01164 M01S01144.cldt +++| CLTL DATA C* CLDT - NPID DIRECTIVE MUST BE PROCESSED BEFORE* 01165 M01S01145.cldt +++| CLTM DATA C* A NLID DIRECTIVE.* 01166 M01S01146.cldt +++| CPE SPACE 4,20 01167 M01S01147.cldt +++|** CPE - CREATE PID ENTRY. 01168 M01S01148.cldt +++|* 01169 M01S01149.cldt +++|* ENTRY (CLTB) = LID TABLE POINTER (NEXT AVAILABLE WORD). 01170 M01S01150.cldt +++|* (CLTD) = LAST PID ENTRY. 01171 M01S01151.cldt +++|* (CLTE) = NUMBER OF LID-S FOR LAST PID. 01172 M01S01152.cldt +++|* (CLTF) = NUMBER OF PID-S. 01173 M01S01153.cldt +++|* (CLTG) = 1 IF EOF. 01174 M01S01154.cldt +++|* (FS) = FREE SPACE FOR EACH PID. 01175 M01S01155.cldt +++|* 01176 M01S01156.cldt +++|* EXIT (CLTB) = NEXT AVAILABLE WORD. 01177 M01S01157.cldt +++|* (CLTD) = FWA OF CURRENT PID. 01178 M01S01158.cldt +++|* (CLTE) = 0. 01179 M01S01159.cldt +++|* (CLTF) = NUMBER OF PID-S UPDATED. 01180 M01S01160.cldt +++|* (CLET) = 0. 01181 M01S01161.cldt +++|* 01182 M01S01162.cldt +++|* USES X - 0, 1, 2, 3, 4, 6, 7. 01183 M01S01163.cldt +++|* A - 1, 2, 3, 4, 6, 7. 01184 M01S01164.cldt +++|* B - 3, 4, 7. 01185 M01S01165.cldt +++|* 01186 M01S01166.cldt +++|* CALLS SFN. 01187 M01S01167.cldt +++|* 01188 M01S01168.cldt +++|* MACROS MESSAGE. 01189 M01S01169.cldt +++| 01190 M01S01170.cldt +++| 01191 M01S01171.cldt +++| CPE SUBR ENTRY/EXIT 01192 M01S01172.cldt +++| SA1 CLTD GET FWA OF LAST PID ENTRY 01193 M01S01173.cldt +++| ZR X1,CPE3 IF FIRST CALL 01194 M01S01174.cldt +++| SA3 A1+B1 GET NUMBER OF LID-S FOR LAST PID 01195 M01S01175.cldt +++| ERRNZ CLTE-CLTD-1 ADJUST IF WORDS NOT CONTIGUOUS 01196 M01S01176.cldt +++| SA2 X1+B1 UPDATE NPID ENTRY 01197 M01S01177.cldt +++| BX6 X3 01198 M01S01178.cldt +++| BX7 X7-X7 01199 M01S01179.cldt +++| SA4 FSR GET REMAINDER OF FREE SPACE 01200 M01S01180.cldt +++| ZR X4,CPE1 IF NO REMAINDER OF FREE SPACE 01201 M01S01181.cldt +++| SX7 X4-1 01202 M01S01182.cldt +++| SA7 A4 01203 M01S01183.cldt +++| SX7 B1 01204 M01S01184.cldt +++| CPE1 SA4 CLTB UPDATE NEXT AVAILABLE LID TABLE ENTRY 01205 M01S01185.cldt +++| SA3 FS 01206 M01S01186.cldt +++| IX6 X6+X3 ADD FREE SPACE TO NUMBER OF LID-S 01207 M01S01187.cldt +++| IX6 X6+X7 ADD REMAINDER FREE SPACE 01208 M01S01188.cldt +++| SA6 A2+B1 SET NUMBER OF LID-S FOR THIS PID ENTRY 01209 M01S01189.cldt +++| IX3 X3+X7 01210 M01S01190.cldt +++| IX6 X4+X3 01211 M01S01191.cldt +++| SA6 A4 01212 M01S01192.cldt +++| SA6 CPEC 01213 M01S01193.cldt +++| IX7 X6-X1 CALCULATE NEXT PID OFFSET 01214 M01S01194.cldt +++| BX7 X2+X7 01215 M01S01195.cldt +++| SA7 A2 ADD NPID 01216 M01S01196.cldt +++| CPE3 SA3 CLTG CHECK EOF 01217 M01S01197.cldt +++| SA1 CLTB GET NEXT AVAILABLE ENTRY 01218 M01S01198.cldt +++| NZ X3,CPEX IF EOF 01219 M01S01199.cldt +++| SX6 X1 01220 M01S01200.cldt +++| SB7 X1 01221 M01S01201.cldt +++| SA6 CLTD UPDATE FWA OF CURRENT PID ENTRY 01222 M01S01202.cldt +++| SA3 PIDD DEFAULT VALUE FOR PID 01223 M01S01203.cldt +++| SA1 UBUF GET FIRST PARAMETER 01224 M01S01204.cldt +++| BX6 X3 01225 M01S01205.cldt +++| BX7 X7-X7 01226 M01S01206.cldt +++| SA7 CLTE CLEAR NUMBER OF LID-S 01227 M01S01207.cldt +++| SA6 B7+ SET DEFAULT VALUE FOR PID 01228 M01S01208.cldt +++| SA7 CLET CLEAR LID TABLE 01229 M01S01209.cldt +++| SA7 CPET CLEAR *PID* EXISTENCE 01230 M01S01210.cldt +++| SA7 CPEU CLEAR *MFTYPE* EXISTENCE 01231 M01S01211.cldt +++| SA7 CPEV CLEAR *NETDIS* EXISTENCE 01232 M01S01212.cldt +++| SA7 CPEW CLEAR *HOST* EXISTENCE 01233 M01S01213.cldt +++| CPE4 MX0 42 01234 M01S01214.cldt +++| SA1 A1+B1 GET KEYWORD 01235 M01S01215.cldt +++| SA2 CPEA GET KEYWORD TABLE 01236 M01S01216.cldt +++| ZR X1,CPE30 IF NO MORE KEYWORDS 01237 M01S01217.cldt +++| CPE5 ZR X2,CPE31 IF NO MATCH FOUND 01238 M01S01218.cldt +++| BX3 X1-X2 01239 M01S01219.cldt +++| BX4 X0*X3 01240 M01S01220.cldt +++| ZR X4,CPE6 IF KEYWORDS MATCH 01241 M01S01221.cldt +++| SA2 A2+1 01242 M01S01222.cldt +++| EQ CPE5 TRY NEXT ENTRY 01243 M01S01223.cldt +++| 01244 M01S01224.cldt +++| CPE6 SB3 X2 01245 M01S01225.cldt +++| SX3 1R= 01246 M01S01226.cldt +++| BX2 X1-X3 01247 M01S01227.cldt +++| BX4 -X0*X2 01248 M01S01228.cldt +++| NZ X4,CPE37 IF SEPARATOR NOT *=* 01249 M01S01229.cldt +++| SA1 A1+B1 01250 M01S01230.cldt +++| JP B3 PROCESS RESPECTIVE KEYWORD 01251 M01S01231.cldt +++| 01252 M01S01232.cldt +++|* PROCESS *PID* KEYWORD. 01253 M01S01233.cldt +++| 01254 M01S01234.cldt +++| CPE7 MX0 18 01255 M01S01235.cldt +++| SA2 CPET CHECK IF *PID* ALREADY SPECIFIED 01256 M01S01236.cldt +++| BX6 X0*X1 01257 M01S01237.cldt +++| ZR X6,CPE32 IF NO *PID* SPECIFIED 01258 M01S01238.cldt +++| NZ X2,CPE39 IF *PID* ALREADY SPECIFIED 01259 M01S01239.cldt +++| LX0 -18 01260 M01S01240.cldt +++| BX7 X0*X1 01261 M01S01241.cldt +++| NZ X7,CPE32 IF PID HAS MORE THAN THREE CHARACTERS 01262 M01S01242.cldt +++| LX0 6 01263 M01S01243.cldt +++| BX7 X0*X1 01264 M01S01244.cldt +++| ZR X7,CPE32 IF PID HAS LESS THAN THREE CHARACTERS 01265 M01S01245.cldt +++| BX7 X6 01266 M01S01246.cldt +++| MX0 6 01267 M01S01247.cldt +++| SB2 3 01268 M01S01248.cldt +++| CPE8 BX2 X7*X0 01269 M01S01249.cldt +++| LX2 6 01270 M01S01250.cldt +++| ZR X2,CPE32 IF THE CHARACTER IS A COLON 01271 M01S01251.cldt +++| NG X2,CPE32 IF THE CHARACTER IS NOT ALPHANUMERIC 01272 M01S01252.cldt +++| SX2 X2-1R9-1 01273 M01S01253.cldt +++| PL X2,CPE32 IF THE CHARACTER IS NOT ALPHANUMERIC 01274 M01S01254.cldt +++| LX7 6 01275 M01S01255.cldt +++| SB2 B2-B1 01276 M01S01256.cldt +++| NZ B2,CPE8 IF THERE ARE MORE CHARACTERS TO CHECK 01277 M01S01257.cldt +++| SA2 CLTF UPDATE NUMBER OF PID-S 01278 M01S01258.cldt +++| ZR X2,CPE10 IF NUMBER OF PID-S EQUALS ZERO 01279 M01S01259.cldt +++| SB3 X2 01280 M01S01260.cldt +++| CPE9 SA3 B3+CPEY-1 CHECK FOR DUPLICATE PID-S 01281 M01S01261.cldt +++| BX7 X3-X6 01282 M01S01262.cldt +++| SB3 B3-B1 01283 M01S01263.cldt +++| ZR X7,CPE39 IF DUPLICATE PID 01284 M01S01264.cldt +++| GT B3,CPE9 IF MORE PID-S TO CHECK 01285 M01S01265.cldt +++| CPE10 SA6 CPEY+X2 ADD NEW PID 01286 M01S01266.cldt +++| SX7 X2+1 01287 M01S01267.cldt +++| SA7 A2+ 01288 M01S01268.cldt +++| SA7 CPET SET FLAG TO INDICATE *PID* EXIST 01289 M01S01269.cldt +++| SA2 HOSTPID CHECK FOR CURRENT HOST MAINFRAME 01290 M01S01270.cldt +++| BX7 X2-X6 01291 M01S01271.cldt +++| SA2 B7 CURRENT FWA OF PID ENTRY 01292 M01S01272.cldt +++| SA7 HOSTFLG SET HOST PID FLAG (0 IF HOST MAINFRAME) 01293 M01S01273.cldt +++| NZ X7,CPE11 IF NOT HOST 01294 M01S01274.cldt +++| SX7 B1 01295 M01S01275.cldt +++| SA7 HOST SET HOST PID SPECIFIED 01296 M01S01276.cldt +++| SA7 CPEW SET HOST SPECIFIED 01297 M01S01277.cldt +++| LX7 LHSTS-0 SET HOST FLAG IN PID ENTRY 01298 M01S01278.cldt +++| BX6 X6+X7 01299 M01S01279.cldt +++| LX7 LVADS-0-LHSTS+0 ADD VALIDATION FLAG 01300 M01S01280.cldt +++| BX6 X6+X7 01301 M01S01281.cldt +++| BX7 X7-X7 INDICATE HOST PID 01302 M01S01282.cldt +++| SA3 CPEV 01303 M01S01283.cldt +++| NZ X3,CPE35 IF HOST AND *NETDIS* SPECIFIED 01304 M01S01284.cldt +++| CPE11 BX6 X6+X2 01305 M01S01285.cldt +++| SA6 A2 ADD PID 01306 M01S01286.cldt +++| SA2 CPEC CHECK IF *NETDIS* SPECIFIED 01307 M01S01287.cldt +++| IX2 X2+X7 01308 M01S01288.cldt +++| SA7 A2 HOST FLAG (0 IF HOST) 01309 M01S01289.cldt +++| EQ CPE4 PROCESS NEXT KEYWORD 01310 M01S01290.cldt +++| 01311 M01S01291.cldt +++|* PROCESS *ENABLED* KEYWORD. 01312 M01S01292.cldt +++| 01313 M01S01293.cldt +++| CPE12 SX3 3RYES 01314 M01S01294.cldt +++| LX3 -18 01315 M01S01295.cldt +++| BX6 X1-X3 01316 M01S01296.cldt +++| BX7 X0*X6 01317 M01S01297.cldt +++| ZR X7,CPE4 IF *YES* PROCESS NEXT KEYWORD 01318 M01S01298.cldt +++| SX3 2RNO 01319 M01S01299.cldt +++| LX3 -12 01320 M01S01300.cldt +++| BX6 X1-X3 01321 M01S01301.cldt +++| BX7 X0*X6 01322 M01S01302.cldt +++| NZ X7,CPE33 IF INCORRECT KEYWORD 01323 M01S01303.cldt +++| SX6 B1 01324 M01S01304.cldt +++| LX6 LENAS-0 01325 M01S01305.cldt +++| SA2 B7 GET CURRENT FIRST WORD OF PID 01326 M01S01306.cldt +++| BX6 -X6*X2 CLEAR ENABLED FLAG 01327 M01S01307.cldt +++| SA6 A2 01328 M01S01308.cldt +++| EQ CPE4 PROCESS NEXT KEYWORD 01329 M01S01309.cldt +++| 01330 M01S01310.cldt +++|* PROCESS *MFTYPE*. 01331 M01S01311.cldt +++| 01332 M01S01312.cldt +++| CPE13 BX6 X0*X1 GET MFTYPE 01333 M01S01313.cldt +++| BX3 -X0*X1 CHECK EXCESS CHARACTERS 01334 M01S01314.cldt +++| ZR X6,CPE40 IF NO MFTYPE SPECIFIED 01335 M01S01315.cldt +++| AX3 6 ELIMINATE LAST CHARACTER 01336 M01S01316.cldt +++| NZ X3,CPE40 IF MORE THAN 7 CHARACTERS 01337 M01S01317.cldt +++| SX3 1R/ 01338 M01S01318.cldt +++| BX2 X1-X3 01339 M01S01319.cldt +++| BX4 -X0*X2 01340 M01S01320.cldt +++| BX1 X6 01341 M01S01321.cldt +++| RJ SFN SPACE FILL MAINFRAME DESCRIPTION 01342 M01S01322.cldt +++| BX6 X6*X0 CLEAR N-PID AREA 01343 M01S01323.cldt +++| SA6 B7+LMFDW-1 PUT MFTYPE IN LDT 01344 M01S01324.cldt +++| SX6 B1 01345 M01S01325.cldt +++| SA6 CPEU SET FLAG TO INDICATE *MFTYPE* EXISTS 01346 M01S01326.cldt +++| NZ X4,CPE4 IF SEPARATOR NOT */* 01347 M01S01327.cldt +++| 01348 M01S01328.cldt +++|* PROCESS POSSIBLE *NOS/BE* TYPE MAINFRAME. 01349 M01S01329.cldt +++| 01350 M01S01330.cldt +++| SX3 1R/ 01351 M01S01331.cldt +++| BX6 X1 RESET X6 TO *MFTYPE* ZERO FILLED 01352 M01S01332.cldt +++| SB3 60-6 01353 M01S01333.cldt +++| SB4 6 01354 M01S01334.cldt +++| MX7 6 01355 M01S01335.cldt +++| CPE14 BX4 X7*X6 01356 M01S01336.cldt +++| ZR X4,CPE15 IF END OF CHARACTERS 01357 M01S01337.cldt +++| LX6 X6,B4 01358 M01S01338.cldt +++| SB3 B3-B4 01359 M01S01339.cldt +++| EQ CPE14 CHECK NEXT CHARACTER 01360 M01S01340.cldt +++| 01361 M01S01341.cldt +++| CPE15 LX6 X6,B4 01362 M01S01342.cldt +++| BX6 X6+X3 ADD */* 01363 M01S01343.cldt +++| SA1 A1+B1 GET NEXT WORD 01364 M01S01344.cldt +++| SB4 B3-B1 01365 M01S01345.cldt +++| MX0 1 01366 M01S01346.cldt +++| AX0 X0,B4 01367 M01S01347.cldt +++| BX0 X0*X1 01368 M01S01348.cldt +++| BX6 X6+X1 ADD REMAINING CHARACTERS 01369 M01S01349.cldt +++| LX6 X6,B3 SHIFT BACK 01370 M01S01350.cldt +++| SA6 B7+B1 01371 M01S01351.cldt +++| EQ CPE4 PROCESS NEXT KEYWORD 01372 M01S01352.cldt +++| 01373 M01S01353.cldt +++|* PROCESS *AT* KEYWORD. 01374 M01S01354.cldt +++| 01375 M01S01355.cldt +++| CPE16 SA2 CPEB GET *AT* KEYWORD TABLE 01376 M01S01356.cldt +++| CPE17 BX3 X1-X2 01377 M01S01357.cldt +++| BX4 X0*X3 01378 M01S01358.cldt +++| ZR X4,CPE18 IF *AT* KEYWORD MATCH 01379 M01S01359.cldt +++| SA2 A2+B1 01380 M01S01360.cldt +++| NZ X2,CPE17 IF NOT END OF TABLE 01381 M01S01361.cldt +++| EQ CPE34 UNRECOGNIZED KEYWORD 01382 M01S01362.cldt +++| 01383 M01S01363.cldt +++| CPE18 SX5 1R/ 01384 M01S01364.cldt +++| SX6 X1 01385 M01S01365.cldt +++| SA3 B7 01386 M01S01366.cldt +++| SX7 B1 01387 M01S01367.cldt +++| SB3 X2 01388 M01S01368.cldt +++| JP B3 PROCESS RESPECTIVE *AT* KEYWORD 01389 M01S01369.cldt +++| 01390 M01S01370.cldt +++|* PROCESS *NVALID* KEYWORD. 01391 M01S01371.cldt +++| 01392 M01S01372.cldt +++| CPE19 LX7 LVADS-0 01393 M01S01373.cldt +++| BX7 -X7*X3 CLEAR VALIDATE FLAG 01394 M01S01374.cldt +++| SA7 B7+ 01395 M01S01375.cldt +++| EQ CPE22 CONTINUE WITH NEXT KEYWORD 01396 M01S01376.cldt +++| 01397 M01S01377.cldt +++|* PROCESS *VALID* KEYWORD. 01398 M01S01378.cldt +++| 01399 M01S01379.cldt +++| CPE20 LX7 LVADS-0 01400 M01S01380.cldt +++| BX7 X3+X7 ADD VALIDATE FLAG 01401 M01S01381.cldt +++| SA7 B7+ 01402 M01S01382.cldt +++| EQ CPE22 CONTINUE WITH NEXT KEYWORD 01403 M01S01383.cldt +++| 01404 M01S01384.cldt +++|* PROCESS *NLIST* KEYWORD. 01405 M01S01385.cldt +++| 01406 M01S01386.cldt +++| CPE21 LX7 LNSTS-0 01407 M01S01387.cldt +++| BX7 X3+X7 ADD NO-LIST FLAG 01408 M01S01388.cldt +++| SA7 B7+ 01409 M01S01389.cldt +++| 01410 M01S01390.cldt +++|* *AT* POST-PROCESSOR. 01411 M01S01391.cldt +++| 01412 M01S01392.cldt +++| CPE22 BX7 X5-X6 01413 M01S01393.cldt +++| NZ X7,CPE4 IF NOT */* 01414 M01S01394.cldt +++| MX0 42 01415 M01S01395.cldt +++| SA1 A1+1 01416 M01S01396.cldt +++| EQ CPE16 PROCESS NEXT *AT* KEYWORD 01417 M01S01397.cldt +++| 01418 M01S01398.cldt +++|* PROCESS *NETDIS* KEYWORD. 01419 M01S01399.cldt +++| 01420 M01S01400.cldt +++| CPE23 SA3 CPEC GET HOST TYPE 01421 M01S01401.cldt +++| SA2 CPEW 01422 M01S01402.cldt +++| NZ X2,CPE35 IF HOST AND *NETDIS* 01423 M01S01403.cldt +++| BX7 X7-X7 INDICATE *NETDIS* SPECIFIED 01424 M01S01404.cldt +++| SA7 A3 01425 M01S01405.cldt +++| MX0 -12 01426 M01S01406.cldt +++| SA3 B7 01427 M01S01407.cldt +++| BX7 X0*X3 CLEAR *NETDIS* AREA 01428 M01S01408.cldt +++| SA7 B7 01429 M01S01409.cldt +++| SA2 CPED *NETDIS* TABLE 01430 M01S01410.cldt +++| CPE24 BX3 X1-X2 01431 M01S01411.cldt +++| SX7 B1 01432 M01S01412.cldt +++| SA7 CPEV SET *NETDIS* SPECIFIED 01433 M01S01413.cldt +++| MX0 42 01434 M01S01414.cldt +++| BX4 X0*X3 01435 M01S01415.cldt +++| ZR X4,CPE25 IF KEYWORD MATCH 01436 M01S01416.cldt +++| SA2 A2+1 01437 M01S01417.cldt +++| NZ X2,CPE24 IF NOT END OF TABLE 01438 M01S01418.cldt +++| EQ CPE36 UNRECOGNIZED KEYWORD 01439 M01S01419.cldt +++| 01440 M01S01420.cldt +++| CPE25 SX5 1R/ 01441 M01S01421.cldt +++| SX6 X1 01442 M01S01422.cldt +++| SA3 B7 01443 M01S01423.cldt +++| SX7 /NTS/DAB+/NTS/NAV 01444 M01S01424.cldt +++| SB3 X2+ 01445 M01S01425.cldt +++| JP B3 PROCESS RESPECTIVE KEYWORD 01446 M01S01426.cldt +++| 01447 M01S01427.cldt +++|* PROCESS *SSF* KEYWORD. 01448 M01S01428.cldt +++| 01449 M01S01429.cldt +++| CPE26 LX7 LSFSS-LNPSS 01450 M01S01430.cldt +++| BX7 X7+X3 01451 M01S01431.cldt +++| SA7 B7+ SET SSF ACCESS TO 0 01452 M01S01432.cldt +++| EQ CPE29 PROCESS NEXT KEYWORD 01453 M01S01433.cldt +++| 01454 M01S01434.cldt +++|* PROCESS *RHF* KEYWORD. 01455 M01S01435.cldt +++| 01456 M01S01436.cldt +++| CPE27 LX7 LRHSS-LNPSS 01457 M01S01437.cldt +++| BX7 X7+X3 01458 M01S01438.cldt +++| SA7 B7+ SET RHF ACCESS TO 0 01459 M01S01439.cldt +++| EQ CPE29 PROCESS NEXT KEYWORD 01460 M01S01440.cldt +++| 01461 M01S01441.cldt +++|* PROCESS *NAM* KEYWORD. 01462 M01S01442.cldt +++| 01463 M01S01443.cldt +++| CPE28 LX7 LNPSS-LNPSS 01464 M01S01444.cldt +++| BX7 X7+X3 01465 M01S01445.cldt +++| SA7 B7+ SET NAM ACCESS TO 0 01466 M01S01446.cldt +++|* EQ CPE29 PROCESS NEXT KEYWORD 01467 M01S01447.cldt +++| 01468 M01S01448.cldt +++|* *NETDIS* KEYWORD POST-PROCESSOR. 01469 M01S01449.cldt +++| 01470 M01S01450.cldt +++| CPE29 BX7 X5-X6 01471 M01S01451.cldt +++| NZ X7,CPE4 IF NOT */* 01472 M01S01452.cldt +++| SA1 A1+B1 01473 M01S01453.cldt +++| SA2 CPED FWA OF *NETDIS* KEYWORD TABLE 01474 M01S01454.cldt +++| EQ CPE24 CONTINUE WITH NEXT KEYWORD 01475 M01S01455.cldt +++| 01476 M01S01456.cldt +++|* COMPLETE *NPID* STATEMENT. 01477 M01S01457.cldt +++| 01478 M01S01458.cldt +++| CPE30 SA1 CPET CHECK IF *PID* KEYWORD EXISTS 01479 M01S01459.cldt +++| ZR X1,CPE38 IF NO *PID* SPECIFIED 01480 M01S01460.cldt +++| SA1 CPEU CHECK IF *MFTYPE* KEYWORD EXISTS 01481 M01S01461.cldt +++| ZR X1,CPE41 IF NO *MFTYPE* SPECIFIED 01482 M01S01462.cldt +++| SX7 B7+LRI3W-LNTHW SET NEXT AVAILABLE WORD IN LID TABLE 01483 M01S01463.cldt +++| SA7 CLTB 01484 M01S01464.cldt +++| EQ CPEX RETURN 01485 M01S01465.cldt +++| 01486 M01S01466.cldt +++|* INCORRECT *NPID* STATEMENT. 01487 M01S01467.cldt +++| 01488 M01S01468.cldt +++| CPE31 MESSAGE CPEE *VALID KEYWORDS FOR NPID ARE* 01489 M01S01469.cldt +++| MESSAGE CPEF *PID,MFTYPE,ENABLED, AT AND NETDIS.* 01490 M01S01470.cldt +++| EQ CPE42 ISSUE ERROR MESSAGES 01491 M01S01471.cldt +++| 01492 M01S01472.cldt +++|* INCORRECT *PID* PARAMETER. 01493 M01S01473.cldt +++| 01494 M01S01474.cldt +++| CPE32 MESSAGE CPEH *SPECIFY EXACTLY 3 ALPHANUMERIC CHARS.* 01495 M01S01475.cldt +++| EQ CPE42 ISSUE ERROR MESSAGES 01496 M01S01476.cldt +++| 01497 M01S01477.cldt +++|* INCORRECT *ENABLED* PARAMETER. 01498 M01S01478.cldt +++| 01499 M01S01479.cldt +++| CPE33 MESSAGE CPEZ *YES OR NO ALLOWED ON ENABLED KEYWORD* 01500 M01S01480.cldt +++| EQ CPE42 ISSUE ERROR MESSAGES 01501 M01S01481.cldt +++| 01502 M01S01482.cldt +++|* INCORRECT *AT* KEYWORD. 01503 M01S01483.cldt +++| 01504 M01S01484.cldt +++| CPE34 MESSAGE CPEJ *OPTIONS FOR *AT* ARE VALID/NVALID/* 01505 M01S01485.cldt +++| MESSAGE CPEK *NLIST.* 01506 M01S01486.cldt +++| EQ CPE42 ISSUE ERROR MESSAGES 01507 M01S01487.cldt +++| 01508 M01S01488.cldt +++|* INCORRECT HOST AND NETDIS. 01509 M01S01489.cldt +++| 01510 M01S01490.cldt +++| CPE35 MESSAGE CPEL *NETDIS IS INCORRECT FOR HOST PID* 01511 M01S01491.cldt +++| EQ CPE42 ISSUE ERROR MESSAGES 01512 M01S01492.cldt +++| 01513 M01S01493.cldt +++|* INCORRECT *NETDIS* KEYWORD. 01514 M01S01494.cldt +++| 01515 M01S01495.cldt +++| CPE36 MESSAGE CPEM *VALID KEYWORD FOR NETDIS ARE* 01516 M01S01496.cldt +++| MESSAGE CPEN *SSF, RHF AND NAM* 01517 M01S01497.cldt +++| EQ CPE42 ISSUE ERROR MESSAGES 01518 M01S01498.cldt +++| 01519 M01S01499.cldt +++| CPE37 MESSAGE CPEO *CLDT - = MUST FOLLOW KEYWORD.* 01520 M01S01500.cldt +++| EQ CPE42 ISSUE ERROR MESSAGES 01521 M01S01501.cldt +++| 01522 M01S01502.cldt +++|* NO *PID* KEYWORD ON *NPID* STATEMENT. 01523 M01S01503.cldt +++| 01524 M01S01504.cldt +++| CPE38 MESSAGE CPEP *NO PID SPECIFIED.* 01525 M01S01505.cldt +++| EQ CPE42 ISSUE ERROR MESSAGES 01526 M01S01506.cldt +++| 01527 M01S01507.cldt +++|* DUPLICATE PID FOUND. 01528 M01S01508.cldt +++| 01529 M01S01509.cldt +++| CPE39 MESSAGE CPEQ *DUPLICATE PID ON NPID STATEMENT.* 01530 M01S01510.cldt +++| EQ CPE42 ISSUE ERROR MESSAGES 01531 M01S01511.cldt +++| 01532 M01S01512.cldt +++|* INCORRECT MFTYPE. 01533 M01S01513.cldt +++| 01534 M01S01514.cldt +++| CPE40 MESSAGE CPER *MAXIMUM 7 CHARACTERS ALLOWED ON MFTYPE.* 01535 M01S01515.cldt +++| EQ CPE42 ISSUE ERROR MESSAGES 01536 M01S01516.cldt +++| 01537 M01S01517.cldt +++|* NO *MFTYPE* KEYWORD ON *NPID* STATEMENT. 01538 M01S01518.cldt +++| 01539 M01S01519.cldt +++| CPE41 MESSAGE CPES *NO MFTYPE SPECIFIED.* 01540 M01S01520.cldt +++| 01541 M01S01521.cldt +++| CPE42 MESSAGE CPEG *ERROR IN THE FOLLOWING STATEMENT 01542 M01S01522.cldt +++| MESSAGE WBUF *NPID STATEMENT* 01543 M01S01523.cldt +++| SX6 B1 01544 M01S01524.cldt +++| SA6 FERF SET FATAL ERROR FLAG 01545 M01S01525.cldt +++| EQ CPEX RETURN 01546 M01S01526.cldt +++| 01547 M01S01527.cldt +++| 01548 M01S01528.cldt +++|* *PID* KEYWORD TABLE. 01549 M01S01529.cldt +++| 01550 M01S01530.cldt +++| CPEA VFD 42/3LPID,18/CPE7 *PID* 01551 M01S01531.cldt +++| VFD 42/7LENABLED,18/CPE12 *ENABLED* 01552 M01S01532.cldt +++| VFD 42/6LMFTYPE,18/CPE13 *MFTYPE* 01553 M01S01533.cldt +++| VFD 42/2LAT,18/CPE16 *AT* 01554 M01S01534.cldt +++| VFD 42/6LNETDIS,18/CPE23 *NETDIS* 01555 M01S01535.cldt +++| VFD 60/0 01556 M01S01536.cldt +++| 01557 M01S01537.cldt +++|* *AT* KEYWORD TABLE. 01558 M01S01538.cldt +++| 01559 M01S01539.cldt +++| CPEB VFD 42/6LNVALID,18/CPE19 *NVALID* 01560 M01S01540.cldt +++| VFD 42/5LVALID,18/CPE20 *VALID* 01561 M01S01541.cldt +++| VFD 42/5LNLIST,18/CPE21 *NLIST* 01562 M01S01542.cldt +++| VFD 60/0 01563 M01S01543.cldt +++| 01564 M01S01544.cldt +++| CPEC CON 1 NOT *HOST* NOR *NETDIS* SPECIFIED 01565 M01S01545.cldt +++| 01566 M01S01546.cldt +++|* SUBSYSTEM KEYWORD TABLE. 01567 M01S01547.cldt +++| 01568 M01S01548.cldt +++| CPED VFD 42/3LSSF,18/CPE26 *SSF* 01569 M01S01549.cldt +++| VFD 42/3LRHF,18/CPE27 *RHF* 01570 M01S01550.cldt +++| VFD 42/3LNAM,18/CPE28 *NAM* 01571 M01S01551.cldt +++| BSSZ 1 END OF *NETDIS* TABLE 01572 M01S01552.cldt +++| CPEE DATA C* CLDT - VALID KEYWORDS FOR NPID ARE * 01573 M01S01553.cldt +++| CPEF DATA C* PID,MFTYPE,ENABLED,AT AND NETDIS.* 01574 M01S01554.cldt +++| CPEG DATA C* CLDT - ERROR IN THE FOLLOWING STATEMENT.* 01575 M01S01555.cldt +++| CPEH DATA C* CLDT - SPECIFY EXACTLY 3 ALPHANUMERIC CHARACTERS IN 01576 M01S01556.cldt +++|,PID.* 01577 M01S01557.cldt +++| CPEJ DATA C+ CLDT - VALID OPTIONS FOR *AT* ARE VALID/NVALID/+ 01578 M01S01558.cldt +++| CPEK DATA C* NLIST.* 01579 M01S01559.cldt +++| CPEL DATA C* CLDT - NETDIS IS INCORRECT FOR HOST PID.* 01580 M01S01560.cldt +++| CPEM DATA C* CLDT - VALID OPTIONS FOR NETDIS ARE * 01581 M01S01561.cldt +++| CPEN DATA C* SSF, RHF AND NAM.* 01582 M01S01562.cldt +++| CPEO DATA C* CLDT - = MUST FOLLOW KEYWORD.* 01583 M01S01563.cldt +++| CPEP DATA C* CLDT - NO PID SPECIFIED ON NPID STATEMENT.* 01584 M01S01564.cldt +++| CPEQ DATA C* CLDT - DUPLICATE PID ON NPID STATEMENT.* 01585 M01S01565.cldt +++| CPER DATA C* CLDT - MAXIMUM OF 7 CHARACTERS ALLOWED ON MFTYPE.* 01586 M01S01566.cldt +++| CPES DATA C* CLDT - NO MFTYPE SPECIFIED ON NPID STATEMENT.* 01587 M01S01567.cldt +++| CPET BSSZ 1 *PID* EXIST FLAG IF .NE. 0 01588 M01S01568.cldt +++| CPEU BSSZ 1 *MFTYPE EXIST FLAG IF .NE. 0 01589 M01S01569.cldt +++| CPEV BSSZ 1 *NETDIS* SPECIFIED FLAG (1 IF SPECIFIED) 01590 M01S01570.cldt +++| CPEW BSSZ 1 HOST FLAG (1 IF HOST PID) 01591 M01S01571.cldt +++| CPEY BSSZ MXPID PROCESSED PID-S 01592 M01S01572.cldt +++| CPEZ DATA C* CLDT - ONLY YES OR NO ALLOWED ON ENABLED KEYWORD.* 01593 M01S01573.cldt +++| PSE SPACE 4,10 01594 M01S01574.cldt +++|** PSE - PAUSE FOR OPERATOR GO/DROP. 01595 M01S01575.cldt +++|* 01596 M01S01576.cldt +++|* USES X - 1, 6. 01597 M01S01577.cldt +++|* A - 1, 6. 01598 M01S01578.cldt +++|* B - NONE. 01599 M01S01579.cldt +++|* 01600 M01S01580.cldt +++|* MACROS RECALL. 01601 M01S01581.cldt +++| 01602 M01S01582.cldt +++| 01603 M01S01583.cldt +++| PSE SUBR ENTRY/EXIT 01604 M01S01584.cldt +++| SA1 B0 SET PAUSE FLAG IN RA+0 01605 M01S01585.cldt +++| SX6 10000B 01606 M01S01586.cldt +++| BX6 X1+X6 01607 M01S01587.cldt +++| SA6 A1 01608 M01S01588.cldt +++| PSE1 RECALL 01609 M01S01589.cldt +++| SA1 B0 01610 M01S01590.cldt +++| LX1 59-12 01611 M01S01591.cldt +++| NG X1,PSE1 IF PAUSE FLAG NOT CLEARED 01612 M01S01592.cldt +++| EQ PSEX RETURN 01613 M01S01593.cldt +++| PTL SPACE 4,20 01614 M01S01594.cldt +++|** PTL - PROCESS TEXT LINE. 01615 M01S01595.cldt +++|* 01616 M01S01596.cldt +++|* *PTL* PERFORMS THE FOLLOWING FUNCTIONS - 01617 M01S01597.cldt +++|* 1. READ IN ONE TEXT LINE. 01618 M01S01598.cldt +++|* 2. SKIP TEXT LINE IF THE FIRST CHARACTER IS *. 01619 M01S01599.cldt +++|* 3. ADD TERMINATOR IF THERE IS NONE. 01620 M01S01600.cldt +++|* 4. UNPACK THE TEXT LINE. 01621 M01S01601.cldt +++|* 01622 M01S01602.cldt +++|* ENTRY LID CONFIGURATION FILE LOCAL TO THE JOB. 01623 M01S01603.cldt +++|* 01624 M01S01604.cldt +++|* EXIT (X1) .NE. 0 IF EOR/EOF ENCOUNTERED. 01625 M01S01605.cldt +++|* FERF .EQ. 1 IF AN UNRECOGNIZED DIRECTIVE WAS 01626 M01S01606.cldt +++|* ENCOUNTERED. 01627 M01S01607.cldt +++|*
| Line S01608 Modification History | |
|---|---|
M01 (Added by) | cldt |
M02 (Updated by) | cldt4 |
Seq # *Modification Id* Act ----------------------------+ 01628 M02S01608.cldt4 ---|* USES X - 0, 1, 2, 3, 4, 6, 7.
| Line S01609 Modification History | |
|---|---|
M01 (Added by) | cldt |
M02 (Updated by) | cldt4 |
Seq # *Modification Id* Act ----------------------------+ 01629 M02S01609.cldt4 ---|* A - 1, 4, 5, 6, 7.
| Line S01610 Modification History | |
|---|---|
M01 (Added by) | cldt |
M02 (Updated by) | cldt4 |
Seq # *Modification Id* Act ----------------------------+ 01630 M02S01610.cldt4 ---|* B - 3, 4, 7. 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 M01S01611.cldt +++|* 01635 M01S01612.cldt +++|* CALLS UPC. 01636 M01S01613.cldt +++|* 01637 M01S01614.cldt +++|* MACROS READC. 01638 M01S01615.cldt +++| 01639 M01S01616.cldt +++| 01640 M01S01617.cldt +++| PTL SUBR ENTRY/EXIT 01641 M01S01618.cldt +++| PTL1 READC I,WBUF,WBUFL READ A LINE 01642 M01S01619.cldt +++| BX6 X6-X6 01643 M01S01620.cldt +++| NZ X1,PTLX IF EOR/EOF 01644 M01S01621.cldt +++| SX6 1R* 01645 M01S01622.cldt +++| SA1 WBUF 01646 M01S01623.cldt +++| MX0 6 SKIP COMMENTS 01647 M01S01624.cldt +++| BX3 X0*X1 01648 M01S01625.cldt +++| LX6 -6 01649 M01S01626.cldt +++| BX0 X3-X6 01650 M01S01627.cldt +++| ZR X0,PTL1 IF FIRST CHARACTER -*- 01651 M01S01628.cldt +++| SA4 PTLA 01652 M01S01629.cldt +++| MX0 42 01653 M01S01630.cldt +++| BX3 X0*X1 GET FIRST 7 CHARACTERS OF DIRECTIVE 01654 M01S01631.cldt +++| BX3 X3-X4 SUBTRACT *COMMENT* FROM FIRST 7 CHARACTERS 01655 M01S01632.cldt +++| ZR X3,PTL1 IF FIRST 7 CHARACTERS ARE *COMMENT* 01656 M01S01633.cldt +++| MX0 24 01657 M01S01634.cldt +++| BX3 X0*X1 01658 M01S01635.cldt +++| SA4 PTLB 01659 M01S01636.cldt +++| BX4 X3-X4 SUBTRACT *NPID* FROM CHARACTERS 01660 M01S01637.cldt +++| ZR X4,PTL3 IF CHARACTERS ARE *NPID * 01661 M01S01638.cldt +++| SA4 PTLC 01662 M01S01639.cldt +++| BX4 X3-X4 SUBTRACT *NLID* FROM CHARACTERS 01663 M01S01640.cldt +++| NZ X4,PTL9 IF CHARACTERS ARE NOT *NLID * 01664 M01S01641.cldt +++| PTL3 SX1 1R. 01665 M01S01642.cldt +++| SX2 1R) 01666 M01S01643.cldt +++| SB4 60 01667 M01S01644.cldt +++| SB3 6 01668 M01S01645.cldt +++| LX2 -6 01669 M01S01646.cldt +++| MX0 6 01670 M01S01647.cldt +++| LX1 -6 01671 M01S01648.cldt +++| SA4 B6-B1 01672 M01S00004.cldt4 +++| NZ X4,PTL4 IF EOL CONTAINED IN LAST WORD 01673 M01S00005.cldt4 +++| SA4 A4-1 CHECK PREVIOUS WORD FOR COLONS 01674 M01S01649.cldt +++| PTL4 BX3 X0*X4 01675 M01S01650.cldt +++| BX6 X1-X3 01676 M01S01651.cldt +++| ZR X3,PTL5 IF END OF LINE 01677 M01S01652.cldt +++| ZR X6,PTL6 IF TERMINATOR *.* 01678 M01S01653.cldt +++| BX6 X2-X3 01679 M01S01654.cldt +++| ZR X6,PTL6 IF TERMINATOR *)* 01680 M01S01655.cldt +++| LX4 X4,B3 LEFT SHIFT ONE CHARACTER 01681 M01S01656.cldt +++| SB4 B4-B3 01682 M01S01657.cldt +++| NZ B4,PTL4 IF NOT AT WORD BOUNDARY 01683 M01S01658.cldt +++| SA4 A4+B1 01684 M01S01659.cldt +++| SB4 60 01685 M01S01660.cldt +++| EQ PTL4 TRY NEXT WORD 01686 M01S01661.cldt +++| 01687 M01S01662.cldt +++| PTL5 BX7 X1+X4 POSITION BACK 01688 M01S01663.cldt +++| LX7 X7,B4 01689 M01S01664.cldt +++| SA7 A4+
| Line S01665 Modification History | |
|---|---|
M01 (Added by) | cldt |
M02 (Updated by) | cldt4 |
Seq # *Modification Id* Act ----------------------------+ 01690 M02S01665.cldt4 ---| 01691 M01S01666.cldt +++| PTL6 SB3 10 INITIALIZE CHARACTER COUNT 01692 M01S01667.cldt +++| MX0 6 01693 M01S01668.cldt +++| SA4 WBUF 01694 M01S01669.cldt +++| PTL7 BX3 X0*X4 ONE CHARACTER FROM WBUF 01695 M01S01670.cldt +++| BX5 X3-X2 01696 M01S01671.cldt +++| ZR X5,PTL8 IF TERMINATOR *)* AND NO COLON 01697 M01S01672.cldt +++| BX5 X3-X1 01698 M01S01673.cldt +++| ZR X5,PTL8 IF TERMINATOR *.* AND NO COLON 01699 M01S01674.cldt +++| ZR X3,PTL10 IF A COLON OR *00* IN WBUF 01700 M01S01675.cldt +++| LX4 6 SHIFT TO NEXT CHARACTER 01701 M01S01676.cldt +++| SB3 B3-B1 DECREMENT CHARACTER COUNT 01702 M01S01677.cldt +++| NZ B3,PTL7 IF MORE CHARACTERS TO CHECK IN WORD 01703 M01S01678.cldt +++| SB3 10 INITIALIZE CHARACTER COUNT 01704 M01S01679.cldt +++| SA4 A4+B1 INCREMENT TO NEXT WORD 01705 M01S01680.cldt +++| SB2 A4 01706 M01S01681.cldt +++| LE B2,B6,PTL7 IF THERE IS ANOTHER WORD TO CHECK
| Line S01682 Modification History | |
|---|---|
M01 (Added by) | cldt |
M02 (Updated by) | cldt4 |
Seq # *Modification Id* Act ----------------------------+ 01707 M02S01682.cldt4 ---| 01708 M01S01683.cldt +++| PTL8 SB7 UBUF FWA TO UNPACK INTO 01709 M01S01684.cldt +++| SA5 WBUF FWA TO UNPACK 01710 M01S01685.cldt +++| RJ UPC 01711 M01S01686.cldt +++| SA2 UBUF+2 01712 M01S01687.cldt +++| SA1 HOSTPID 01713 M01S01688.cldt +++| BX2 X2-X1 01714 M01S01689.cldt +++| NZ X2,PTL8.1 IF NOT HOST PID 01715 M01S01690.cldt +++| BX7 X1 01716 M01S01691.cldt +++| SA7 HOST SET HOST SPECIFIED 01717 M01S01692.cldt +++| PTL8.1 SA1 UBUF 01718 M01S01693.cldt +++| SA4 PTLB 01719 M01S01694.cldt +++| BX4 X1-X4 01720 M01S01695.cldt +++| ZR X4,PTL8.2 IF CHARACTERS ARE *NPID * 01721 M01S01696.cldt +++| SA4 PTLC 01722 M01S01697.cldt +++| BX4 X1-X4 01723 M01S01698.cldt +++| NZ X4,PTL12 IF NOT *NLID* DIRECTIVE 01724 M01S01699.cldt +++| PTL8.2 BX6 X6-X6 01725 M01S01700.cldt +++| BX1 X1-X1 01726 M01S01701.cldt +++| SA6 A6+1 MAKE SURE LAST WORD IS ZERO 01727 M01S01702.cldt +++| EQ PTLX RETURN 01728 M01S01703.cldt +++| 01729 M01S01704.cldt +++|* UNRECOGNIZED DIRECTIVE. 01730 M01S01705.cldt +++| 01731 M01S01706.cldt +++| PTL9 BX1 X1-X1 CLEAR EOF/EOR 01732 M01S01707.cldt +++| SX6 B1 01733 M01S01708.cldt +++| SA6 FERF SET FATAL ERROR FLAG 01734 M01S01709.cldt +++| SA6 CFSK SET *CFS* FATAL ERROR FLAG 01735 M01S01710.cldt +++| EQ PTLX RETURN 01736 M01S01711.cldt +++| 01737 M01S01712.cldt +++|* COLON FOUND IN DIRECTIVE. 01738 M01S01713.cldt +++| 01739 M01S01714.cldt +++| PTL10 SA3 PTLF 01740 M01S01715.cldt +++| NZ X3,PTL11 IF *PTL* CALLED BY *CLT* 01741 M01S01716.cldt +++| MESSAGE PTLD * INCORRECT CHARACTER IN DIRECTIVE. 01742 M01S01717.cldt +++| PTL10.1 MESSAGE CPEG *ERROR IN THE FOLLOWING STATEMENT.* 01743 M01S01718.cldt +++| MESSAGE WBUF 01744 M01S01719.cldt +++| SX6 B1 01745 M01S01720.cldt +++| SA6 FERF SET FATAL ERROR FLAG 01746 M01S01721.cldt +++| SA6 CFSL SET ERROR FLAG 01747 M01S01722.cldt +++| EQ PTLX RETURN 01748 M01S01723.cldt +++| 01749 M01S01724.cldt +++|* *PTL* CALLED BY *CLT*. 01750 M01S01725.cldt +++| 01751 M01S01726.cldt +++| PTL11 SX6 B1 01752 M01S01727.cldt +++| BX1 X1-X1 01753 M01S01728.cldt +++| EQ PTLX RETURN 01754 M01S01729.cldt +++| 01755 M01S01730.cldt +++|* NO SEPARATOR AFTER NPID OR NLID. 01756 M01S01731.cldt +++| 01757 M01S01732.cldt +++| PTL12 SA3 PTLF 01758 M01S01733.cldt +++| NZ X3,PTL11 IF *PTL* CALLED BY *CLT* 01759 M01S01734.cldt +++| MESSAGE PTLE * A SEPARATOR MUST FOLLOW NLID OR NPID.* 01760 M01S01735.cldt +++| EQ PTL10.1 ISSUE ERROR MESSAGE 01761 M01S01736.cldt +++| 01762 M01S01737.cldt +++|* *COMMENT* DIRECTIVE 01763 M01S01738.cldt +++| 01764 M01S01739.cldt +++| PTLA VFD 42/7LCOMMENT,18/0 01765 M01S01740.cldt +++| PTLB VFD 24/4LNPID,36/0 01766 M01S01741.cldt +++| PTLC VFD 24/4LNLID,36/0 01767 M01S01742.cldt +++| PTLD DATA C* CLDT - INCORRECT CHARACTER IN DIRECTIVE.* 01768 M01S01743.cldt +++| PTLE DATA C* CLDT - A SEPARATOR MUST FOLLOW NLID OR NPID.* 01769 M01S01744.cldt +++| PTLF CON 0 1 IF *PTL* CALLED ONCE 01770 M01S01745.cldt +++| SPACE 4 01771 M01S01746.cldt +++|* COMMON DECKS. 01772 M01S01747.cldt +++| 01773 M01S01748.cldt +++| 01774 M01S01749.cldt +++|*CALL COMCCIO 01775 M01S01750.cldt +++|*CALL COMCCPM 01776 M01S01751.cldt +++|*CALL COMCPFM 01777 M01S01752.cldt +++|*CALL COMCRDC 01778 M01S01753.cldt +++|*CALL COMCRDW 01779 M01S01754.cldt +++|*CALL COMCSFM 01780 M01S01755.cldt +++|*CALL COMCSFN 01781 M01S01756.cldt +++|*CALL COMCSYS 01782 M01S01757.cldt +++|*CALL COMCUPC 01783 M01S01758.cldt +++| TITLE BUFFERS. 01784 M01S01759.cldt +++|* BUFFERS. 01785 M01S01760.cldt +++| 01786 M01S01761.cldt +++| IBUF BSS IBUFL LID CONFIGURATION FILE BUFFER 01787 M01S01762.cldt +++| UBUF BSS UBUFL UNPACK BUFFER 01788 M01S01763.cldt +++| WBUF BSS WBUFL WORKING BUFFER 01789 M01S01764.cldt +++| LIDT VFD 12/0,30/0,8/0,1/0 01790 M01S01765.cldt +++| 01791 M01S01766.cldt +++|* NOTE - THE FOLLOWING AREA WILL BE USED FOR THE LID TABLE. 01792 M01S01767.cldt +++| PRS TITLE PRESET. 01793 M01S01768.cldt +++|** PRS - PRESET ROUTINE. 01794 M01S01769.cldt +++|* 01795 M01S01770.cldt +++|* ENTRY (JOPR) = JOB ORIGIN. 01796 M01S01771.cldt +++|* 01797 M01S01772.cldt +++|* EXIT VALIDATION COMPLETED. 01798 M01S01773.cldt +++|* TO *CLD1* IF LDT INTENTIONALLY NOT TO BE CREATED AT 01799 M01S01774.cldt +++|* DEADSTART TIME (SEE CRITERIA BELOW). 01800 M01S01775.cldt +++|* TO *CLD3* IF FATAL ERROR DETECTED. 01801 M01S01776.cldt +++|* 01802 M01S01777.cldt +++|* USES X - ALL. 01803 M01S01778.cldt +++|* A - 1, 2, 3, 4, 6, 7. 01804 M01S01779.cldt +++|* B - 1. 01805 M01S01780.cldt +++|* 01806 M01S01781.cldt +++|* CALLS ARG, SNM. 01807 M01S01782.cldt +++|* 01808 M01S01783.cldt +++|* MACROS ATTACH, EREXIT, GET, MACHID, MESSAGE, READ, REWIND, 01809 M01S01784.cldt +++|* STATUS, SYSTEM. 01810 M01S01785.cldt +++|* 01811 M01S01786.cldt +++|* NOTE *PRS* WILL BE OVERLAID BY THE LDT. 01812 M01S01787.cldt +++| 01813 M01S01788.cldt +++| 01814 M01S01789.cldt +++| PRS SUBR ENTRY/EXIT 01815 M01S01790.cldt +++| SB1 1 01816 M01S01791.cldt +++| EREXIT CLD5 NORMAL EXIT FOR OPERATOR DROP 01817 M01S01792.cldt +++| SA1 JOPR CHECK FOR SYSTEM ORIGIN 01818 M01S01793.cldt +++| MX0 -12 01819 M01S01794.cldt +++| LX1 36 01820 M01S01795.cldt +++| BX1 -X0*X1 01821 M01S01796.cldt +++| SX6 X1-SYOT (X6) = 0 IF SYSTEM ORIGIN 01822 M01S01797.cldt +++| SA6 JORG 01823 M01S01798.cldt +++| 01824 M01S01799.cldt +++|* GET *LDT* LENGTH. 01825 M01S01800.cldt +++| 01826 M01S01801.cldt +++| SYSTEM RSB,R,LDPT 01827 M01S01802.cldt +++| SA1 LDPT+1 LDT LENGTH 01828 M01S01803.cldt +++| MX0 -12 01829 M01S01804.cldt +++| LX1 -24 01830 M01S01805.cldt +++| BX6 -X0*X1 01831 M01S01806.cldt +++| SA6 LIDL SAVE LDT LENGTH 01832 M01S01807.cldt +++| 01833 M01S01808.cldt +++|* GET SUBSYSTEM ID. 01834 M01S01809.cldt +++| 01835 M01S01810.cldt +++| GETSSID DSSQ 01836 M01S01811.cldt +++| SA1 DSSQ CP SUBSYSTEM ID 01837 M01S01812.cldt +++| MX0 -12 01838 M01S01813.cldt +++| BX6 -X0*X1 01839 M01S01814.cldt +++| SX6 X6-DSSI (X6) = 0 IF DEADSTART SEQUENCE 01840 M01S01815.cldt +++| SA6 A1+ SAVE DEADSTART SEQUENCE FLAG 01841 M01S01816.cldt +++| 01842 M01S01817.cldt +++|* CREATE HOST PID. ESTABLISH THE DEFAULT NAME OF THE LID 01843 M01S01818.cldt +++|* CONFIGURATION FILE. 01844 M01S01819.cldt +++| 01845 M01S01820.cldt +++| MACHID MACH 01846 M01S01821.cldt +++| SA1 MACH GET MACHINE ID 01847 M01S01822.cldt +++| MX0 -12 01848 M01S01823.cldt +++| BX1 -X0*X1 01849 M01S01824.cldt +++| BX6 X1 WORKING COPY OF MACHINE ID 01850 M01S01825.cldt +++| SA2 HOSTPID CREATE HOST PID 01851 M01S01826.cldt +++| LX6 42 01852 M01S01827.cldt +++| BX6 X2+X6 MERGE *M* WITH MACHINE ID 01853 M01S01828.cldt +++| SA6 A2 SAVE HOST PID 01854 M01S01829.cldt +++| SA3 I PUT ID IN LID FILE NAME 01855 M01S01830.cldt +++| BX6 X1 01856 M01S01831.cldt +++| LX6 18 01857 M01S01832.cldt +++| BX6 X3+X6 01858 M01S01833.cldt +++| SA6 A3 SAVE NEW (DEFAULT) FILE NAME 01859 M01S01834.cldt +++| SA6 RCRD SAVE IMAGE OF FIRST RECORD ON FILE 01860 M01S01835.cldt +++| SA4 I+1 SET ERROR PROCESSING BIT 01861 M01S01836.cldt +++| SX6 B1 01862 M01S01837.cldt +++| LX6 44 01863 M01S01838.cldt +++| BX6 X4+X6 01864 M01S01839.cldt +++| SA6 A4 01865 M01S01840.cldt +++| SX7 ERAD SET ERROR RETURN ADDRESS IN FET 01866 M01S01841.cldt +++| SA7 I+10 01867 M01S01842.cldt +++| SA5 PRSA+3 PUT ID IN ERROR MESSAGE 01868 M01S01843.cldt +++| LX0 30 01869 M01S01844.cldt +++| BX5 X0*X5 01870 M01S01845.cldt +++| LX1 30 01871 M01S01846.cldt +++| BX6 X1+X5 01872 M01S01847.cldt +++| SA6 A5+ 01873 M01S01848.cldt +++| 01874 M01S01849.cldt +++|* PROCESS *CLDT* ARGUMENTS, IF ANY. 01875 M01S01850.cldt +++| 01876 M01S01851.cldt +++| SA1 ACTR GET ARGUMENT COUNT 01877 M01S01852.cldt +++| SB4 X1+ 01878 M01S01853.cldt +++| ZR B4,PRS1 IF NO ARGUMENTS 01879 M01S01854.cldt +++| SA4 ARGR GET FIRST ARGUMENT 01880 M01S01855.cldt +++| SB5 TARG FWA OF ARGUMENT TABLE 01881 M01S01856.cldt +++| RJ ARG PROCESS ARGUMENTS 01882 M01S01857.cldt +++| NZ X1,PRS4 IF ARGUMENT ERROR 01883 M01S01858.cldt +++| PRS1 SA1 I 01884 M01S01859.cldt +++| NZ X1,PRS2 IF FILE NAME PRESENT 01885 M01S01860.cldt +++| SA1 RCRD RESTORE FET NAME (*I=0* SPECIFIED) 01886 M01S01861.cldt +++| BX6 X1 01887 M01S01862.cldt +++| SA6 I 01888 M01S01863.cldt +++| PRS2 MX0 42 01889 M01S01864.cldt +++| BX1 X0*X1 FILE NAME 01890 M01S01865.cldt +++| SB2 1RX SET SEARCH CHARACTER 01891 M01S01866.cldt +++| SB5 PRSD FWA OF ERROR MESSAGE 01892 M01S01867.cldt +++| RJ SNM SET FILE NAME IN ERROR MESSAGE 01893 M01S01868.cldt +++| 01894 M01S01869.cldt +++|* CHECK IF FILE IS LOCAL. IF NOT, *GET* OR *ATTACH* THE FILE 01895 M01S01870.cldt +++|* UNDER THE JOB-S USER NAME. 01896 M01S01871.cldt +++| 01897 M01S01872.cldt +++| STATUS I 01898 M01S01873.cldt +++| SA1 I GET STATUS 01899 M01S01874.cldt +++| MX0 -11 01900 M01S01875.cldt +++| AX1 1 01901 M01S01876.cldt +++| BX2 -X0*X1 01902 M01S01877.cldt +++| NZ X2,PRS3 IF FILE LOCAL TO JOB 01903 M01S00001.ncccldt +++| 01904 M01S00002.ncccldt +++| PRS2.1 BSS 0 01905 M01S01878.cldt +++| GET I,,,,,,DF GET FILE ON SYSTEM DEFAULT FAMILY 01906 M01S01879.cldt +++| SA4 I CHECK IF FILE EXISTS 01907 M01S01880.cldt +++| MX0 8 01908 M01S01881.cldt +++| LX4 59-17 01909 M01S01882.cldt +++| BX6 X0*X4 01910 M01S01883.cldt +++| ZR X6,PRS3 IF FILE FOUND 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 M01S01884.cldt +++| ATTACH I,,,,,,,DF 01923 M01S01885.cldt +++| SA4 I CHECK IF FILE EXISTS 01924 M01S01886.cldt +++| MX0 8 01925 M01S01887.cldt +++| LX4 59-17 01926 M01S01888.cldt +++| BX6 X0*X4 01927 M01S01889.cldt +++| ZR X6,PRS3 IF FILE FOUND 01928 M01S01890.cldt +++| 01929 M01S01891.cldt +++|* THE LID FILE WAS NOT FOUND AND IS NOT LOCAL TO THE JOB. 01930 M01S01892.cldt +++|* DETERMINE IF *CLDT* WAS INTENDED TO CREATE AN LDT. NO LDT 01931 M01S01893.cldt +++|* WILL BE CREATED AND NORMAL EXIT PROCESSING (ENDRUN) WILL 01932 M01S01894.cldt +++|* OCCUR IF ALL OF THE FOLLOWING CRITERIA ARE MET. 01933 M01S01895.cldt +++|* 1) JOB HAS *DEADSTART SEQUENCE* SUBSYSTEM ID,
| Line S01896 Modification History | |
|---|---|
M01 (Added by) | cldt |
M02 (Updated by) | cldt3 |
Seq # *Modification Id* Act ----------------------------+ 01934 M02S01896.cldt3 ---|* 2) NO LIDCMID FILE IS FOUND UNDER UN=SYSTEMX, AND
| Line S01897 Modification History | |
|---|---|
M01 (Added by) | cldt |
M02 (Updated by) | cldt3 |
Seq # *Modification Id* Act ----------------------------+ 01935 M02S01897.cldt3 ---|* 3) NO SPACE WAS RESERVED FOR THE LDT (I.E., *LDT=0* OR
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/cldt.txt · Last modified: by 127.0.0.1