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