cdc:nos2.source:opl.opl871:deck:listlid
Deck LISTLID
5 Modifications
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.listlid +++| IDENT LISTLID,FWA 00002 M01S00002.listlid +++| TITLE LISTLID - LIST LID TABLE. 00003 M01S00003.listlid +++| ABS 00004 M01S00004.listlid +++| SST 00005 M01S00005.listlid +++| ENTRY LISTLID 00006 M01S00006.listlid +++| ENTRY RFL= 00007 M01S00007.listlid +++| ENTRY SSJ= 00008 M01S00008.listlid +++| SYSCOM B1 00009 M01S00009.listlid +++|*COMMENT LISTLID - LIST LID TABLE.
Line S00010 Modification History | |
---|---|
M01 (Added by) | listlid |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00010 M02S00010.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1983. 00011 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00012 M01S00011.listlid +++| SPACE 4,10 00013 M01S00012.listlid +++|*** LISTLID - LIST LID TABLE. 00014 M01S00013.listlid +++|* 00015 M01S00014.listlid +++|* K. A. KRIEG 83/10/04. 00016 M01S00015.listlid +++| SPACE 4,10 00017 M01S00016.listlid +++|*** *LISTLID* IS A UTILITY TO LIST THE CONFIGURATION OF 00018 M01S00017.listlid +++|* THE LID TABLE (LDT). 00019 M01S00018.listlid +++| SPACE 4,10 00020 M01S00019.listlid +++|*** COMMAND FORMAT. 00021 M01S00020.listlid +++|* 00022 M01S00021.listlid +++|* LISTLID,P1,P2...PN. 00023 M01S00022.listlid +++|* 00024 M01S00023.listlid +++|* PARAMETERS ARE ORDER-INDEPENDENT. P1 THROUGH PN 00025 M01S00024.listlid +++|* ARE THE PARAMETERS AS FOLLOWS: 00026 M01S00025.listlid +++|* 00027 M01S00026.listlid +++|* LID=XXX PRINT OUT THE ATTRIBUTES OF PIDS IN 00028 M01S00027.listlid +++|* OR WHICH LID XXX EXISTS, IS ENABLED AND 00029 M01S00028.listlid +++|* ST=XXX LISTABLE. IF THE LID OR ST KEYWORD IS 00030 M01S00029.listlid +++|* OR SPECIFIED, A LID VALUE XXX MUST ALSO BE 00031 M01S00030.listlid +++|* OMITTED SPECIFIED. IF THE LID OR ST KEYWORD IS 00032 M01S00031.listlid +++|* OMITTED, THE DEFAULT IS TO PRINT OUT ALL 00033 M01S00032.listlid +++|* LISTABLE LIDS. EITHER LID OR ST MAY BE 00034 M01S00033.listlid +++|* SPECIFIED, BUT NOT BOTH. 00035 M01S00034.listlid +++|* 00036 M01S00035.listlid +++|* L=LFN OUTPUT IS TO BE WRITTEN TO FILE LFN. 00037 M01S00036.listlid +++|* OR IF OMITTED, THE DEFAULT IS *OUTPUT*. 00038 M01S00037.listlid +++|* OMITTED 00039 M01S00038.listlid +++|* 00040 M01S00039.listlid +++|* PID=YYY PRINT OUT THE ATTRIBUTES OF ALL LIDS 00041 M01S00040.listlid +++|* OR UNDER THE SPECIFIED PID YYY. IF LID=XXX 00042 M01S00041.listlid +++|* PID IS ALSO SPECIFIED, ONLY LID XXX UNDER YYY 00043 M01S00042.listlid +++|* OR WILL BE PRINTED. IF YYY IS OMITTED, 00044 M01S00043.listlid +++|* OMITTED THE DEFAULT IS TO PRINT ALL PIDS. IF 00045 M01S00044.listlid +++|* PID IS OMITTED, THE LID KEYWORD VALUE 00046 M01S00045.listlid +++|* DETERMINES WHAT IS PRINTED. 00047 M01S00046.listlid +++| SPACE 4,10 00048 M01S00047.listlid +++|*** DAYFILE MESSAGES. 00049 M01S00048.listlid +++|*
Line S00049 Modification History | |
---|---|
M01 (Added by) | listlid |
M02 (Updated by) | listli2 |
Seq # *Modification Id* Act ----------------------------+ 00050 M02S00049.listli2 ---|* * ENTER HELPME,LISTLID FOR MORE INFORMATION.*
Line S00050 Modification History | |
---|---|
M01 (Added by) | listlid |
M02 (Updated by) | listli2 |
Seq # *Modification Id* Act ----------------------------+ 00051 M02S00050.listli2 ---|* AN INCORRECT FORMAT WAS SPECIFIED FROM
Line S00051 Modification History | |
---|---|
M01 (Added by) | listlid |
M02 (Updated by) | listli2 |
Seq # *Modification Id* Act ----------------------------+ 00052 M02S00051.listli2 ---|* THE TERMINAL. 00053 M01S00052.listlid +++|* 00054 M01S00053.listlid +++|* * LID TABLE EMPTY.* 00055 M01S00054.listlid +++|* THE LID TABLE READ FROM CMR WAS EMPTY. 00056 M01S00055.listlid +++|* 00057 M01S00056.listlid +++|* * LID - XXX DOES NOT EXIST IN THE LID TABLE.* 00058 M01S00057.listlid +++|* THE LID SPECIFIED COULD NOT BE FOUND 00059 M01S00058.listlid +++|* IN THE LID TABLE OR THE NLIST BIT 00060 M01S00059.listlid +++|* IS SET (LISTING OF THE SPECIFIED
Line S00060 Modification History | |
---|---|
M01 (Added by) | listlid |
M02 (Updated by) | listli1 |
Seq # *Modification Id* Act ----------------------------+ 00061 M02S00060.listli1 ---|* LID NOT ALLOWED). 00062 M01S00001.listli1 +++|* LID NOT ALLOWED) OR THE LID WAS A 00063 M01S00002.listli1 +++|* STORE AND FORWARD HOST LID (LISTING 00064 M01S00003.listli1 +++|* OF THIS TYPE OF LID NOT ALLOWED). 00065 M01S00061.listlid +++|* 00066 M01S00062.listlid +++|* * LID=XXX OR ST=XXX IS REQUIRED.* 00067 M01S00063.listlid +++|* THE LID OR ST PARAMETER WAS SPECIFIED 00068 M01S00064.listlid +++|* WITH NO VALUE. 00069 M01S00065.listlid +++|*
Line S00066 Modification History | |
---|---|
M01 (Added by) | listlid |
M02 (Updated by) | listli2 |
Seq # *Modification Id* Act ----------------------------+ 00070 M02S00066.listli2 ---|* * LISTLID ABORT.*
Line S00067 Modification History | |
---|---|
M01 (Added by) | listlid |
M02 (Updated by) | listli2 |
Seq # *Modification Id* Act ----------------------------+ 00071 M02S00067.listli2 ---|* INDICATES ABNORMAL TERMINATION.
Line S00068 Modification History | |
---|---|
M01 (Added by) | listlid |
M02 (Updated by) | listli2 |
Seq # *Modification Id* Act ----------------------------+ 00072 M02S00068.listli2 ---|*
Line S00069 Modification History | |
---|---|
M01 (Added by) | listlid |
M02 (Updated by) | listli2 |
Seq # *Modification Id* Act ----------------------------+ 00073 M02S00069.listli2 ---|* * LISTLID COMPLETE.*
Line S00070 Modification History | |
---|---|
M01 (Added by) | listlid |
M02 (Updated by) | listli2 |
Seq # *Modification Id* Act ----------------------------+ 00074 M02S00070.listli2 ---|* INDICATES NORMAL TERMINATION.
Line S00071 Modification History | |
---|---|
M01 (Added by) | listlid |
M02 (Updated by) | listli2 |
Seq # *Modification Id* Act ----------------------------+ 00075 M02S00071.listli2 ---|* 00076 M01S00072.listlid +++|* * LISTLID COMMAND ERROR.* 00077 M01S00073.listlid +++|* AN INCORRECT ARGUMENT WAS DETECTED ON THE 00078 M01S00074.listlid +++|* COMMAND. 00079 M01S00075.listlid +++|* 00080 M01S00076.listlid +++|* * NO LIDS FOUND.* 00081 M01S00077.listlid +++|* EITHER THE LID SPECIFIED WAS NOT LISTABLE OR THERE 00082 M01S00078.listlid +++|* WERE NO LISTABLE LIDS FOUND FOR A GIVEN PID. 00083 M01S00079.listlid +++|* 00084 M01S00080.listlid +++|* * PID - YYY DOES NOT EXIST IN THE LID TABLE.* 00085 M01S00081.listlid +++|* THE PID SPECIFIED COULD NOT BE FOUND IN 00086 M01S00082.listlid +++|* THE LID TABLE. 00087 M01S00083.listlid +++|* 00088 M01S00084.listlid +++|* * SPECIFY EXACTLY 3 CHARACTERS ON PID KEYWORD.* 00089 M01S00085.listlid +++|* EXACTLY THREE CHARACTERS ARE ALLOWED ON 00090 M01S00086.listlid +++|* THE PID KEYWORD. 00091 M01S00087.listlid +++|* 00092 M01S00088.listlid +++|* * SPECIFY EXACTLY 3 CHARACTERS ON LID KEYWORD.* 00093 M01S00089.listlid +++|* EXACTLY THREE CHARACTERS ARE ALLOWED ON 00094 M01S00090.listlid +++|* THE LID OR ST KEYWORD. 00095 M01S00091.listlid +++| SPACE 4,10 00096 M01S00092.listlid +++|* COMMON DECKS. 00097 M01S00093.listlid +++| 00098 M01S00094.listlid +++|*CALL COMCCMD 00099 M01S00095.listlid +++|*CALL COMCMAC 00100 M01S00096.listlid +++|*CALL COMSSFM 00101 M01S00097.listlid +++|*CALL COMSSSJ 00102 M01S00098.listlid +++| TITLE DEFINITIONS. 00103 M01S00099.listlid +++| SPACE 4,10 00104 M01S00100.listlid +++|**** ASSEMBLY CONSTANTS. 00105 M01S00101.listlid +++|
Line S00102 Modification History | |
---|---|
M01 (Added by) | listlid |
M02 (Updated by) | listli3 |
Seq # *Modification Id* Act ----------------------------+ 00106 M02S00102.listli3 ---| HDLN EQU 3 NUMBER OF PRINTED LINES IN HEADER 00107 M01S00001.listli3 +++| HDLN EQU 2 NUMBER OF PRINTED LINES IN HEADER 00108 M01S00103.listlid +++| OBUFL EQU 101B LENGTH OF OUTPUT BUFFER
Line S00104 Modification History | |
---|---|
M01 (Added by) | listlid |
M02 (Updated by) | listli3 |
Seq # *Modification Id* Act ----------------------------+ 00109 M02S00104.listli3 ---| TRLN EQU 8 NUMBER OF PRINTED LINES IN TRAILER 00110 M01S00002.listli3 +++| WBUFL EQU 5 LENGTH OF WORKING BUFFER 00111 M01S00003.listli3 +++| TRLN EQU 6 NUMBER OF PRINTED LINES IN TRAILER 00112 M01S00105.listlid +++| 00113 M01S00106.listlid +++|**** 00114 M01S00107.listlid +++| SPACE 4,10 00115 M01S00108.listlid +++| ORG 110B 00116 M01S00109.listlid +++| FWA BSS 0 00117 M01S00110.listlid +++| SPACE 4,10 00118 M01S00111.listlid +++|* SSJ= PARAMETER BLOCK. 00119 M01S00112.listlid +++| 00120 M01S00113.listlid +++| SSJ= BSS 0 00121 M01S00114.listlid +++| BSSZ SSJL 00122 M01S00115.listlid +++| 00123 M01S00116.listlid +++| SPACE 4,10 00124 M01S00117.listlid +++|* FET DEFINITIONS. 00125 M01S00118.listlid +++| 00126 M01S00119.listlid +++| LIDF FILEB LIDTAB,MXLDT,FET=5 LID TABLE 00127 M01S00120.listlid +++| 00128 M01S00121.listlid +++| O BSS 0 00129 M01S00122.listlid +++| OUTPUT FILEB OBUF,OBUFL,FET=10 OUTPUT FILE 00130 M01S00123.listlid +++| SPACE 4,10 00131 M01S00124.listlid +++|* HEADERS AND TRAILERS FOR OUTPUT LISTINGS. IF EITHER THE 00132 M01S00125.listlid +++|* HEADER OR TRAILER INFORMATION IS CHANGED IN THE FUTURE SO 00133 M01S00126.listlid +++|* MORE OR FEWER LINES ARE REQUIRED, ENSURE THAT *HDLN* AND/OR 00134 M01S00127.listlid +++|* *TRLN* ARE UPDATED APPROPRIATELY SO THE CORRECT PAGE LENGTH 00135 M01S00128.listlid +++|* CAN BE CALCULATED. 00136 M01S00129.listlid +++| 00137 M01S00130.listlid +++| HDR1 DATA 8L1 00138 M01S00131.listlid +++| DATA 8L 00139 M01S00132.listlid +++| HDR1L EQU *-HDR1 00140 M01S00133.listlid +++| HDR2 DATA 47L LID MAINFRAME ATTRIBUTE NETWORK
Line S00134 Modification History | |
---|---|
M01 (Added by) | listlid |
M02 (Updated by) | listli3 |
Seq # *Modification Id* Act ----------------------------+ 00141 M02S00134.listli3 ---| DATA 50H 00142 M01S00135.listlid +++| DATA 8L 00143 M01S00136.listlid +++| HDR2L EQU *-HDR2 00144 M01S00137.listlid +++| HDR3 DATA 50H PID LID MAINFRAME TYPE ATTRIBUTE 00145 M01S00138.listlid +++| DATA 25L RHF NAM SSF 00146 M01S00004.listli3 +++| DATA 8L 00147 M01S00139.listlid +++| HDR3L EQU *-HDR3 00148 M01S00140.listlid +++| HDR4 DATA 8L 00149 M01S00141.listlid +++| DATA 8L
Line S00142 Modification History | |
---|---|
M01 (Added by) | listlid |
M02 (Updated by) | listli3 |
Seq # *Modification Id* Act ----------------------------+ 00150 M02S00142.listli3 ---| DATA 8L
Line S00143 Modification History | |
---|---|
M01 (Added by) | listlid |
M02 (Updated by) | listli3 |
Seq # *Modification Id* Act ----------------------------+ 00151 M02S00143.listli3 ---| DATA 8L 00152 M01S00144.listlid +++| DATA 50H ATTRIBUTES: H - HOST, L - LINKED, V - VALIDA 00153 M01S00145.listlid +++| DATA 14LTION REQUIRED, 00154 M01S00146.listlid +++| DATA 50H S - STORE FORWARD, B - LOOPBA 00155 M01S00147.listlid +++| DATA 8LCK. 00156 M01S00148.listlid +++| DATA 50H IN - PATH IN SERVICE, OUT - PATH 00157 M01S00149.listlid +++| DATA 16L OUT OF SERVICE, 00158 M01S00150.listlid +++| DATA 35L NA - NOT AVAILABLE. 00159 M01S00151.listlid +++| HDR4L EQU *-HDR4 00160 M01S00152.listlid +++| SPACE 4,10 00161 M01S00153.listlid +++|* CONSTANT DATA. 00162 M01S00154.listlid +++| 00163 M01S00155.listlid +++| BLKS DATA 10H WORD OF BLANKS 00164 M01S00156.listlid +++| DATA 8L WORD OF BLANKS WITH ZERO BYTE 00165 M01S00157.listlid +++| SPACE 4,10 00166 M01S00158.listlid +++|* STORAGE LOCATIONS. 00167 M01S00159.listlid +++| 00168 M01S00160.listlid +++| CLLC CON 0 LINES AVAILABLE TO PRINT LIDS 00169 M01S00161.listlid +++| JPRD CON 0 JOB PRINT DENSITY 00170 M01S00162.listlid +++| LFST CON 0 LIST FILE STATUS OF OUTPUT 00171 M01S00163.listlid +++| LIDV CON 0 LID VALUE 00172 M01S00164.listlid +++| LLFD CON 0 INDICATES IF LISTABLE LID FOUND 00173 M01S00165.listlid +++| NLIP CON 0 NUMBER OF LID SLOTS IN PID 00174 M01S00166.listlid +++| PAGL CON 0 JOB PAGE LENGTH 00175 M01S00167.listlid +++| PDFD CON 0 PID FOUND FLAG 00176 M01S00168.listlid +++| PIDA CON 0 FIRST WORD OF PID DATA 00177 M01S00169.listlid +++| PIDB CON 0 SECOND WORD OF PID DATA 00178 M01S00170.listlid +++| PIDV CON 0 PID VALUE 00179 M01S00171.listlid +++| PDPF CON 0 PID LINE PRINTED FLAG 00180 M01S00172.listlid +++| STVL CON 0 ST VALUE
Line S00173 Modification History | |
---|---|
M01 (Added by) | listlid |
M02 (Updated by) | listli3 |
Seq # *Modification Id* Act ----------------------------+ 00181 M02S00173.listli3 ---| WBUF BSSZ 9 WORKING BUFFER 00182 M01S00005.listli3 +++| WBUF BSSZ 8 WORKING BUFFER 00183 M01S00174.listlid +++| SPACE 4,10 00184 M01S00175.listlid +++|* DAYFILE MESSAGES. 00185 M01S00176.listlid +++|
Line S00177 Modification History | |
---|---|
M01 (Added by) | listlid |
M02 (Updated by) | listli2 |
Seq # *Modification Id* Act ----------------------------+ 00186 M02S00177.listli2 ---| MSG1 DATA C* LISTLID COMPLETE.* 00187 M01S00178.listlid +++| MSG2 DATA C* LID TABLE EMPTY.* 00188 M01S00179.listlid +++| MSG3 DATA C* NO LIDS FOUND.* 00189 M01S00180.listlid +++| MSG4 DATA C* PID - DOES NOT EXIST IN THE LID TABLE.* 00190 M01S00181.listlid +++| MSG5 DATA C* LID - DOES NOT EXIST IN THE LID TABLE.* 00191 M01S00182.listlid +++| TITLE MAIN PROGRAM. 00192 M01S00183.listlid +++| LISTLID SPACE 4,10 00193 M01S00184.listlid +++|** LISTLID - LIST LID TABLE. 00194 M01S00185.listlid +++|* 00195 M01S00186.listlid +++|* EXIT LID TABLE LISTED IF SUCCESSFUL. 00196 M01S00187.listlid +++|* 00197 M01S00188.listlid +++|* USES X - 0, 1, 7. 00198 M01S00189.listlid +++|* A - 1. 00199 M01S00190.listlid +++|* 00200 M01S00191.listlid +++|* CALLS PLD, PPD, PRS. 00201 M01S00192.listlid +++|* 00202 M01S00193.listlid +++|* MACROS ENDRUN, GETLIDT, MESSAGE, WRITEC, WRITEW. 00203 M01S00194.listlid +++| 00204 M01S00195.listlid +++| 00205 M01S00196.listlid +++| LISTLID RJ PRS PRESET 00206 M01S00197.listlid +++| GETLIDT LIDF GET LID TABLE INTO FWA OF PRESET 00207 M01S00198.listlid +++| SA1 LIDTAB GET NUMBER OF PIDS IN TABLE 00208 M01S00199.listlid +++| MX0 -12 00209 M01S00200.listlid +++| BX7 -X0*X1 00210 M01S00201.listlid +++| NZ X7,LST1 IF TABLE NOT EMPTY 00211 M01S00202.listlid +++| MESSAGE MSG2 * LID TABLE EMPTY.*
Line S00203 Modification History | |
---|---|
M01 (Added by) | listlid |
M02 (Updated by) | listli2 |
Seq # *Modification Id* Act ----------------------------+ 00212 M02S00203.listli2 ---| EQ LST4 * LISTLID COMPLETE.* 00213 M01S00001.listli2 +++| EQ LST4 EXIT 00214 M01S00204.listlid +++| 00215 M01S00205.listlid +++| LST1 SA1 LFST 00216 M01S00206.listlid +++| ZR X1,LST2 IF TERMINAL FILE 00217 M01S00207.listlid +++| WRITEC O,JPRD WRITE PRINT DENSITY 00218 M01S00208.listlid +++| WRITEW O,HDR1,HDR1L WRITE INITIAL PAGE EJECT 00219 M01S00209.listlid +++| LST2 SA1 PIDV 00220 M01S00210.listlid +++| ZR X1,LST3 IF *PID* KEYWORD NOT SPECIFIED 00221 M01S00211.listlid +++| RJ PPD PRINT LID TABLE (FORMAT 2)
Line S00212 Modification History | |
---|---|
M01 (Added by) | listlid |
M02 (Updated by) | listli2 |
Seq # *Modification Id* Act ----------------------------+ 00222 M02S00212.listli2 ---| EQ LST4 * LISTLID COMPLETE.* 00223 M01S00002.listli2 +++| EQ LST4 EXIT 00224 M01S00213.listlid +++| 00225 M01S00214.listlid +++| LST3 RJ PLD PRINT LID TABLE (FORMAT 1)
Line S00215 Modification History | |
---|---|
M01 (Added by) | listlid |
M02 (Updated by) | listli2 |
Seq # *Modification Id* Act ----------------------------+ 00226 M02S00215.listli2 ---| LST4 MESSAGE MSG1 * LISTLID COMPLETE.*
Line S00216 Modification History | |
---|---|
M01 (Added by) | listlid |
M02 (Updated by) | listli2 |
Seq # *Modification Id* Act ----------------------------+ 00227 M02S00216.listli2 ---| ENDRUN 00228 M01S00003.listli2 +++| LST4 ENDRUN 00229 M01S00217.listlid +++| TITLE SUBROUTINES. 00230 M01S00218.listlid +++| FPL SPACE 4,15 00231 M01S00219.listlid +++|** FPL - FORMAT AND PRINT LID LINE (FORMAT 2). 00232 M01S00220.listlid +++|* 00233 M01S00221.listlid +++|* ENTRY (X5) = LID WORD LEFT JUSTIFIED TO NLIST BIT. 00234 M01S00222.listlid +++|* (X1) = LID. 00235 M01S00223.listlid +++|* 00236 M01S00224.listlid +++|* EXIT LID LINE WRITTEN TO OUTPUT FILE. 00237 M01S00225.listlid +++|* 00238 M01S00226.listlid +++|* USES X - 3, 6, 7. 00239 M01S00227.listlid +++|* A - 3, 6, 7. 00240 M01S00228.listlid +++|* B - 7. 00241 M01S00229.listlid +++|* 00242 M01S00230.listlid +++|* CALLS PLA, SFN. 00243 M01S00231.listlid +++|* 00244 M01S00232.listlid +++|* MACROS WRITEH, WRITEW. 00245 M01S00233.listlid +++| 00246 M01S00234.listlid +++| 00247 M01S00235.listlid +++| FPL SUBR ENTRY/EXIT 00248 M01S00236.listlid +++| RJ SFN SPACE FILL LID 00249 M01S00237.listlid +++| LX6 -18 00250 M01S00238.listlid +++| SA3 BLKS 00251 M01S00239.listlid +++| LX5 59-34-59+31 POSITION LID ATTRIBUTES FOR *PLA* 00252 M01S00240.listlid +++| BX7 X3 00253 M01S00241.listlid +++| SA7 WBUF STORE BLANK WORD 00254 M01S00242.listlid +++| SA6 A7+B1 STORE BLANK-FILLED LID 00255 M01S00243.listlid +++| SA7 A6+B1 STORE BLANK WORD 00256 M01S00244.listlid +++| SA7 A7+B1 STORE BLANK WORD 00257 M01S00245.listlid +++| RJ PLA PROCESS LID ATTRIBUTES 00258 M01S00246.listlid +++| SA3 LFST 00259 M01S00247.listlid +++| ZR X3,FPL1 IF TERMINAL FILE 00260 M01S00248.listlid +++| SA3 CLLC 00261 M01S00249.listlid +++| SX7 X3-1 00262 M01S00250.listlid +++| SB7 X3 00263 M01S00251.listlid +++| LE B7,B0,FPL2 IF NO ROOM TO PRINT LID LINE 00264 M01S00252.listlid +++| SA7 A3 00265 M01S00253.listlid +++| FPL1 WRITEH O,WBUF,5 00266 M01S00254.listlid +++| SX7 B1+ INDICATE AT LEAST ONE LID PROCESSED 00267 M01S00255.listlid +++| SA7 LLFD 00268 M01S00256.listlid +++| EQ FPLX RETURN 00269 M01S00257.listlid +++| 00270 M01S00258.listlid +++| FPL2 WRITEW O,HDR4,HDR4L WRITE PID TRAILER 00271 M01S00259.listlid +++| WRITEW O,HDR1,HDR1L 00272 M01S00260.listlid +++| WRITEW O,HDR3,HDR3L 00273 M01S00261.listlid +++| SA3 PAGL SAVE NUMBER OF LINES LEFT ON PAGE 00274 M01S00262.listlid +++| SX7 X3-1 00275 M01S00263.listlid +++| SA7 CLLC 00276 M01S00264.listlid +++| EQ FPL1 PRINT LID LINE 00277 M01S00265.listlid +++| LDP SPACE 4,15 00278 M01S00266.listlid +++|** LDP - PROCESS LID(S) FOR PIDS (FORMAT 2). 00279 M01S00267.listlid +++|* 00280 M01S00268.listlid +++|* ENTRY (A5) = ADDRESS OF PID CURRENTLY BEING PROCESSED. 00281 M01S00269.listlid +++|* (WBUF) = PID LINE TO BE PRINTED WHEN THE FIRST 00282 M01S00270.listlid +++|* LISTABLE LID IS ENCOUNTERED. 00283 M01S00271.listlid +++|* 00284 M01S00272.listlid +++|* EXIT ALL APPROPRIATE LIDS PROCESSED FOR GIVEN PID. 00285 M01S00273.listlid +++|* 00286 M01S00274.listlid +++|* USES X - 0, 1, 2, 5, 6, 7. 00287 M01S00275.listlid +++|* A - 0, 1, 2, 5, 6, 7. 00288 M01S00276.listlid +++|* B - 7. 00289 M01S00277.listlid +++|* 00290 M01S00278.listlid +++|* CALLS FPL. 00291 M01S00279.listlid +++|* 00292 M01S00280.listlid +++|* MACROS WRITEH, WRITEW. 00293 M01S00281.listlid +++| 00294 M01S00282.listlid +++| 00295 M01S00283.listlid +++| LDP SUBR ENTRY/EXIT 00296 M01S00284.listlid +++| SA2 A5+2 OFFSET TO NUMBER OF LID SLOTS 00297 M01S00285.listlid +++| MX0 -12 00298 M01S00286.listlid +++| BX6 -X0*X2 00299 M01S00287.listlid +++| SA6 NLIP 00300 M01S00288.listlid +++| SA0 A5 SAVE ADDRESS OF CURRENT PID 00301 M01S00289.listlid +++| SA5 A2 FWA-1 OF LID ENTRIES 00302 M01S00290.listlid +++| BX6 X6-X6 CLEAR PID LINE PRINTED FLAG 00303 M01S00291.listlid +++| SA6 PDPF 00304 M01S00292.listlid +++| 00305 M01S00293.listlid +++|* PROCESS NEXT LID ENTRY. 00306 M01S00294.listlid +++| 00307 M01S00295.listlid +++| LDP1 SA5 A5+B1 READ NEXT LID ENTRY 00308 M01S00296.listlid +++| MX0 18 00309 M01S00297.listlid +++| BX7 X0*X5 00310 M01S00298.listlid +++| ZR X7,LDP6 IF EMPTY LID SLOT 00311 M01S00299.listlid +++| SA2 LIDV 00312 M01S00300.listlid +++| ZR X2,LDP2 IF NO LID SPECIFIED 00313 M01S00301.listlid +++| BX7 X2-X7 00314 M01S00302.listlid +++| NZ X7,LDP6 IF LID DOES NOT MATCH 00315 M01S00303.listlid +++| LDP2 LX5 59-31 00316 M01S00304.listlid +++| NG X5,LDP6 IF LID NOT LISTABLE 00317 M01S00305.listlid +++| 00318 M01S00306.listlid +++|* PRINT THE PID LINE WHEN THE FIRST LISTABLE LID IS 00319 M01S00307.listlid +++|* ENCOUNTERED. 00320 M01S00308.listlid +++| 00321 M01S00309.listlid +++| SA1 PDPF 00322 M01S00310.listlid +++| NZ X1,LDP5 IF PID LINE ALREADY PRINTED 00323 M01S00311.listlid +++| SX7 B1 INDICATE PID LINE PRINTED 00324 M01S00312.listlid +++| SA7 A1 00325 M01S00313.listlid +++| SA1 LFST 00326 M01S00314.listlid +++| ZR X1,LDP4 IF TERMINAL FILE 00327 M01S00315.listlid +++| SA1 CLLC 00328 M01S00316.listlid +++| SX7 X1-2 00329 M01S00317.listlid +++| NG X7,LDP3 IF NO ROOM TO PRINT PID AND ONE LID 00330 M01S00318.listlid +++| SX7 X1-1 DECREMENT NUMBER OF PAGE LINES REMAINING 00331 M01S00319.listlid +++| SA7 A1+ 00332 M01S00320.listlid +++| EQ LDP4 WRITE PID LINE 00333 M01S00321.listlid +++| 00334 M01S00322.listlid +++| LDP3 WRITEW O,HDR4,HDR4L WRITE ATTRIBUTE TRAILER 00335 M01S00323.listlid +++| WRITEW O,HDR1,HDR1L 00336 M01S00324.listlid +++| WRITEW O,HDR3,HDR3L WRITE HEADER 00337 M01S00325.listlid +++| SA1 PAGL SAVE LINES REMAINING ON PAGE 00338 M01S00326.listlid +++| SX7 X1-1 00339 M01S00327.listlid +++| SA7 CLLC
Line S00328 Modification History | |
---|---|
M01 (Added by) | listlid |
M02 (Updated by) | listli3 |
Seq # *Modification Id* Act ----------------------------+ 00340 M02S00328.listli3 ---| LDP4 WRITEH O,WBUF,9 WRITE PID LINE 00341 M01S00006.listli3 +++| LDP4 WRITEH O,WBUF,8 WRITE PID LINE 00342 M01S00329.listlid +++| 00343 M01S00330.listlid +++|* FORMAT AND PRINT THE LID. 00344 M01S00331.listlid +++| 00345 M01S00332.listlid +++| LDP5 SA1 A5 GET LID 00346 M01S00333.listlid +++| MX0 18 00347 M01S00334.listlid +++| BX1 X0*X1 00348 M01S00335.listlid +++| RJ FPL FORMAT AND PRINT LID LINE 00349 M01S00336.listlid +++| SA1 LIDV 00350 M01S00337.listlid +++| NZ X1,LDP7 IF LID SPECIFIED 00351 M01S00338.listlid +++| 00352 M01S00339.listlid +++|* DECREMENT LID SLOT COUNT AND PROCESS NEXT LID. 00353 M01S00340.listlid +++| 00354 M01S00341.listlid +++| LDP6 SA1 NLIP DECREMENT LID SLOT COUNT 00355 M01S00342.listlid +++| SX7 X1-1 00356 M01S00343.listlid +++| SB7 X7 00357 M01S00344.listlid +++| LE B7,B0,LDP7 IF ALL LID SLOTS PROCESSED 00358 M01S00345.listlid +++| SA7 A1 00359 M01S00346.listlid +++| EQ LDP1 PROCESS NEXT LID ENTRY 00360 M01S00347.listlid +++| 00361 M01S00348.listlid +++| LDP7 SA5 A0+ RESTORE ADDRESS OF PID 00362 M01S00349.listlid +++| EQ LDPX RETURN 00363 M01S00350.listlid +++| PLA SPACE 4,10 00364 M01S00351.listlid +++|** PLA - PROCESS LID ATTRIBUTES (FORMAT 2). 00365 M01S00352.listlid +++|* 00366 M01S00353.listlid +++|* ENTRY (X5) = LID ATTRIBUTES (LEFT JUSTIFIED). 00367 M01S00354.listlid +++|* (A7) = WORKING BUFFER - 1 FOR LID ATTRIBUTES. 00368 M01S00355.listlid +++|* 00369 M01S00356.listlid +++|* EXIT (A6) = LID ATTRIBUTES STORED IN WORKING BUFFER. 00370 M01S00357.listlid +++|* 00371 M01S00358.listlid +++|* USES X - 0, 3, 6. 00372 M01S00359.listlid +++|* A - 3, 6. 00373 M01S00360.listlid +++|* B - 2, 7. 00374 M01S00361.listlid +++| 00375 M01S00362.listlid +++| 00376 M01S00363.listlid +++| PLA SUBR ENTRY/EXIT 00377 M01S00364.listlid +++| MX0 3 00378 M01S00365.listlid +++| BX3 X0*X5 GET LID ATTRIBUTES 00379 M01S00366.listlid +++| LX3 3 00380 M01S00367.listlid +++| SB7 X3 00381 M01S00368.listlid +++| SA3 BLKS+1 00382 M01S00369.listlid +++| ZR B7,PLA1 IF NO ATTRIBUTES 00383 M01S00370.listlid +++| SA3 PLAA 00384 M01S00371.listlid +++| EQ B7,B1,PLA1 IF LOOPBACK BIT SET 00385 M01S00372.listlid +++| SB2 4 00386 M01S00373.listlid +++| SA3 PLAB 00387 M01S00374.listlid +++| EQ B7,B2,PLA1 IF ONLY STORE AND FORWARD BIT SET 00388 M01S00375.listlid +++| SA3 PLAC 00389 M01S00376.listlid +++| PLA1 BX6 X3 STORE LID ATTRIBUTES 00390 M01S00377.listlid +++| SA6 A7+B1 00391 M01S00378.listlid +++| EQ PLAX RETURN 00392 M01S00379.listlid +++| 00393 M01S00380.listlid +++| 00394 M01S00381.listlid +++| PLAA VFD 60/8L B 00395 M01S00382.listlid +++| PLAB VFD 60/8L S 00396 M01S00383.listlid +++| PLAC VFD 60/8L SV 00397 M01S00384.listlid +++| PLD SPACE 4,15 00398 M01S00385.listlid +++|** PLD - PRINT LID TABLE DESCRIPTION. 00399 M01S00386.listlid +++|* 00400 M01S00387.listlid +++|* ENTRY (LIDTAB) = LID TABLE. 00401 M01S00388.listlid +++|* 00402 M01S00389.listlid +++|* EXIT LID TABLE WRITTEN TO OUTPUT FILE. 00403 M01S00390.listlid +++|* 00404 M01S00391.listlid +++|* USES X - ALL. 00405 M01S00392.listlid +++|* A - 1, 2, 3, 5, 6, 7. 00406 M01S00393.listlid +++|* B - 6. 00407 M01S00394.listlid +++|* 00408 M01S00395.listlid +++|* CALLS PLL. 00409 M01S00396.listlid +++|* 00410 M01S00397.listlid +++|* MACROS MESSAGE, WRITER, WRITEW. 00411 M01S00398.listlid +++| 00412 M01S00399.listlid +++| 00413 M01S00400.listlid +++| PLD SUBR ENTRY/EXIT 00414 M01S00401.listlid +++| WRITEW O,HDR2,HDR2L 00415 M01S00402.listlid +++| SA1 LIDTAB+1 READ FIRST PID ENTRY 00416 M01S00403.listlid +++| 00417 M01S00404.listlid +++|* PROCESS NEXT PID. 00418 M01S00405.listlid +++| 00419 M01S00406.listlid +++| PLD1 SA2 LIDV GET LID TO MATCH 00420 M01S00407.listlid +++| BX7 X1 SAVE PID DATA 00421 M01S00408.listlid +++| SA7 PIDA 00422 M01S00409.listlid +++| SA1 A1+B1 00423 M01S00410.listlid +++| BX7 X1 00424 M01S00411.listlid +++| SA7 PIDB 00425 M01S00412.listlid +++| SA5 A1+B1 GET NUMBER OF LID SLOTS 00426 M01S00413.listlid +++| MX4 -12 00427 M01S00414.listlid +++| BX7 -X4*X5 00428 M01S00415.listlid +++| SB6 X7 00429 M01S00416.listlid +++| 00430 M01S00417.listlid +++|* PROCESS NEXT LID. 00431 M01S00418.listlid +++| 00432 M01S00419.listlid +++| PLD2 SA5 A5+B1 GET NEXT LID ENTRY 00433 M01S00420.listlid +++| MX4 18 00434 M01S00421.listlid +++| BX7 X4*X5 00435 M01S00422.listlid +++| ZR X7,PLD5 IF HOLE IN LID TABLE 00436 M01S00423.listlid +++| BX7 X7-X2 00437 M01S00424.listlid +++| ZR X2,PLD3 IF LISTING ALL LIDS 00438 M01S00425.listlid +++| NZ X7,PLD5 IF LID DOES NOT MATCH 00439 M01S00426.listlid +++| 00440 M01S00427.listlid +++|* EITHER ALL LIDS ARE TO BE PROCESSED BY DEFAULT OR THE 00441 M01S00428.listlid +++|* SPECIFIED LID MATCHED AN LDT ENTRY. 00442 M01S00429.listlid +++| 00443 M01S00430.listlid +++| PLD3 BX3 X5 00444 M01S00431.listlid +++| LX3 59-31 00445 M01S00432.listlid +++| NG X3,PLD4 IF LID NOT LISTABLE 00446 M01S00004.listli1 +++| LX3 59-34-59+31 00447 M01S00005.listli1 +++| PL X3,PLD3.1 IF LID IS NOT STORE AND FORWARD 00448 M01S00006.listli1 +++| SA3 PIDA 00449 M01S00007.listli1 +++| LX3 59-41 00450 M01S00008.listli1 +++| NG X3,PLD4 IF LID IS HOST AND STORE AND FORWARD
Line S00433 Modification History | |
---|---|
M01 (Added by) | listlid |
M02 (Updated by) | listli1 |
Seq # *Modification Id* Act ----------------------------+ 00451 M02S00433.listli1 ---| SX7 B6 SAVE REMAINING NUMBER OF LID SLOTS 00452 M01S00009.listli1 +++| PLD3.1 SX7 B6 00453 M01S00434.listlid +++| SA7 NLIP 00454 M01S00435.listlid +++| RJ PLL LIST LID LINE 00455 M01S00436.listlid +++| SX7 B1+ INDICATE LID FOUND 00456 M01S00437.listlid +++| SA7 LLFD 00457 M01S00438.listlid +++| SA2 NLIP RESTORE NUMBER OF LID SLOTS 00458 M01S00439.listlid +++| SB6 X2 00459 M01S00440.listlid +++| SA2 LIDV 00460 M01S00441.listlid +++| PLD4 NZ X2,PLD6 IF NOT PROCESSING ALL LIDS 00461 M01S00442.listlid +++| PLD5 SB6 B6-B1 00462 M01S00443.listlid +++| GT B6,PLD2 IF MORE LIDS FOR PID 00463 M01S00444.listlid +++| SB6 B1 SET INDEX FOR NEXT PID ENTRY 00464 M01S00445.listlid +++| PLD6 SA3 PIDB 00465 M01S00446.listlid +++| MX4 -12 00466 M01S00447.listlid +++| BX7 -X4*X3 00467 M01S00448.listlid +++| ZR X7,PLD7 IF LAST PID 00468 M01S00449.listlid +++| SA1 A5+B6 00469 M01S00450.listlid +++| EQ PLD1 PROCESS NEXT PID ENTRY 00470 M01S00451.listlid +++| 00471 M01S00452.listlid +++| PLD7 SA3 LLFD 00472 M01S00453.listlid +++| ZR X3,PLD8 IF NO LISTABLE LIDS FOUND 00473 M01S00454.listlid +++| WRITER O 00474 M01S00455.listlid +++| EQ PLDX RETURN 00475 M01S00456.listlid +++| 00476 M01S00457.listlid +++| PLD8 ZR X2,PLD9 IF PROCESSING ALL LIDS 00477 M01S00458.listlid +++| SA3 MSG5 ADD NON-MATCHING LID TO MESSAGE 00478 M01S00459.listlid +++| LX2 18 00479 M01S00460.listlid +++| MX0 42 00480 M01S00461.listlid +++| BX3 X0*X3 00481 M01S00462.listlid +++| BX6 X3+X2 00482 M01S00463.listlid +++| SA6 A3+ 00483 M01S00464.listlid +++| MESSAGE MSG5 * LID - XXX DOES NOT EXIST IN LID TABLE.* 00484 M01S00465.listlid +++| EQ PLDX RETURN 00485 M01S00466.listlid +++| 00486 M01S00467.listlid +++| PLD9 MESSAGE MSG3 * NO LIDS FOUND.* 00487 M01S00468.listlid +++| EQ PLDX RETURN 00488 M01S00469.listlid +++| PLL SPACE 4,15 00489 M01S00470.listlid +++|** PLL - PROCESS LID LINE (FORMAT 1). 00490 M01S00471.listlid +++|* 00491 M01S00472.listlid +++|* ENTRY (X5) = LID WORD. 00492 M01S00473.listlid +++|* (PIDA) = PID FIRST WORD (FROM LDT). 00493 M01S00474.listlid +++|* (PIDB) = PID SECOND WORD (FROM LDT). 00494 M01S00475.listlid +++|* 00495 M01S00476.listlid +++|* EXIT LID LINE WRITTEN TO OUTPUT FILE. 00496 M01S00477.listlid +++|* 00497 M01S00478.listlid +++|* USES X - 0, 1, 3, 4, 6, 7. 00498 M01S00479.listlid +++|* A - 1, 3, 4, 6, 7. 00499 M01S00480.listlid +++|* 00500 M01S00481.listlid +++|* CALLS PNS, SFN. 00501 M01S00482.listlid +++|* 00502 M01S00483.listlid +++|* MACROS WRITEH, WRITEW. 00503 M01S00484.listlid +++| 00504 M01S00485.listlid +++| 00505 M01S00486.listlid +++| PLL SUBR ENTRY/EXIT 00506 M01S00487.listlid +++| MX0 18 STORE LID IN WORKING BUFFER 00507 M01S00488.listlid +++| BX1 X0*X5 00508 M01S00489.listlid +++| RJ SFN 00509 M01S00490.listlid +++| LX6 -18 00510 M01S00491.listlid +++| SA6 WBUF 00511 M01S00492.listlid +++| SA1 PIDB STORE MAINFRAME DESCRIPTOR 00512 M01S00493.listlid +++| MX0 42 00513 M01S00494.listlid +++| BX1 X0*X1 00514 M01S00495.listlid +++| RJ SFN SPACE FILL NAME 00515 M01S00496.listlid +++| LX6 -6 00516 M01S00497.listlid +++| SA6 A6+B1 00517 M01S00498.listlid +++| SA3 PLLB PRESET DISABLED 00518 M01S00499.listlid +++| LX5 59-35 00519 M01S00500.listlid +++| PL X5,PLL1 IF LID DISABLED 00520 M01S00501.listlid +++| SA4 PIDA 00521 M01S00502.listlid +++| LX4 59-40 00522 M01S00503.listlid +++| PL X4,PLL1 IF PID DISABLED 00523 M01S00504.listlid +++| SA3 PLLD PRESET STORE AND FORWARD 00524 M01S00505.listlid +++| LX5 59-34-59+35 00525 M01S00506.listlid +++| NG X5,PLL1 IF STORE AND FORWARD BIT SET 00526 M01S00507.listlid +++| SA3 PLLE PRESET LOOPBACK 00527 M01S00508.listlid +++| LX5 59-32-59+34 00528 M01S00509.listlid +++| NG X5,PLL1 IF LOOPBACK BIT SET 00529 M01S00510.listlid +++| SA3 PLLA PRESET HOST 00530 M01S00511.listlid +++| SA1 PIDA 00531 M01S00512.listlid +++| LX1 59-41 00532 M01S00513.listlid +++| NG X1,PLL1 IF HOST PID 00533 M01S00514.listlid +++| SA3 PLLC SET LINKED 00534 M01S00515.listlid +++| PLL1 BX6 X3 00535 M01S00516.listlid +++| SA6 A6+B1 STORE FIRST WORD 00536 M01S00517.listlid +++| SA4 A3+B1 00537 M01S00518.listlid +++| BX6 X4 00538 M01S00519.listlid +++| SA6 A6+B1 STORE SECOND WORD 00539 M01S00520.listlid +++| RJ PNS PROCESS NETWORK STATUS 00540 M01S00007.listli3 +++| SX7 WBUFL 00541 M01S00008.listli3 +++| ZR X4,PLL1.1 IF SECOND NETWORK STATUS WORD IS ZERO 00542 M01S00009.listli3 +++| SX7 WBUFL+1 00543 M01S00010.listli3 +++| PLL1.1 SA7 WBUF+7 SAVE BUFFER LENGTH 00544 M01S00521.listlid +++| SA3 LFST 00545 M01S00522.listlid +++| ZR X3,PLL3 IF TERMINAL FILE 00546 M01S00523.listlid +++| SA3 CLLC 00547 M01S00524.listlid +++| SX7 X3-1 00548 M01S00525.listlid +++| NZ X7,PLL2 IF NO ROOM LEFT ON PAGE 00549 M01S00526.listlid +++| WRITEW O,HDR1,HDR1L PRINT OUTPUT FILE HEADERS 00550 M01S00527.listlid +++| WRITEW O,HDR2,HDR2L 00551 M01S00528.listlid +++| SA3 PAGL SAVE LINES REMAINING ON PAGE 00552 M01S00529.listlid +++| SX7 X3-1 00553 M01S00530.listlid +++| PLL2 SA7 CLLC
Line S00531 Modification History | |
---|---|
M01 (Added by) | listlid |
M02 (Updated by) | listli3 |
Seq # *Modification Id* Act ----------------------------+ 00554 M02S00531.listli3 ---| PLL3 WRITEH O,WBUF,6 WRITE LID LINE 00555 M01S00011.listli3 +++| PLL3 SA1 WBUF+7 RESTORE BUFFER LENGTH 00556 M01S00012.listli3 +++| WRITEH O,WBUF,X1 WRITE LID LINE 00557 M01S00532.listlid +++| EQ PLLX RETURN 00558 M01S00533.listlid +++| 00559 M01S00534.listlid +++| 00560 M01S00535.listlid +++| PLLA DATA 20H HOST 00561 M01S00536.listlid +++| PLLB DATA 20H DISABLED 00562 M01S00537.listlid +++| PLLC DATA 20H LINKED 00563 M01S00538.listlid +++| PLLD DATA 20H STORE FORWARD 00564 M01S00539.listlid +++| PLLE DATA 20H LOOPBACK 00565 M01S00540.listlid +++| PNS SPACE 4,10 00566 M01S00541.listlid +++|** PNS - PROCESS NETWORK STATUS (FORMATS 1 AND 2). 00567 M01S00542.listlid +++|* 00568 M01S00543.listlid +++|* ENTRY (A6+1) = ADDRESS TO STORE NETWORK STATUS. 00569 M01S00544.listlid +++|* (PIDA) = PID WORD, IF FORMAT 1. 00570 M01S00545.listlid +++|* (X5) = PID WORD, IF FORMAT 2. 00571 M01S00546.listlid +++|* 00572 M01S00013.listli3 +++|* EXIT (X4) = SECOND NETWORK STATUS WORD, IF FORMAT 1. 00573 M01S00014.listli3 +++|* 00574 M01S00547.listlid +++|* USES X - 0, 1, 3, 4, 6, 7. 00575 M01S00548.listlid +++|* A - 1, 3, 4, 6. 00576 M01S00549.listlid +++|* B - 2, 3, 5, 6, 7. 00577 M01S00550.listlid +++| 00578 M01S00551.listlid +++| 00579 M01S00552.listlid +++| PNS SUBR ENTRY/EXIT 00580 M01S00553.listlid +++| SA1 PIDV 00581 M01S00554.listlid +++| MX0 -4 00582 M01S00555.listlid +++| NZ X1,PNS4 IF PROCESSING FORMAT 2 00583 M01S00556.listlid +++| SA3 PIDA GET PID WORD 00584 M01S00557.listlid +++| 00585 M01S00558.listlid +++|* PROCESS NETWORK STATUS FOR FORMAT 1. 00586 M01S00559.listlid +++| 00587 M01S00560.listlid +++| SB2 B0 00588 M01S00561.listlid +++| BX7 -X0*X3 00589 M01S00562.listlid +++| SB3 X7 00590 M01S00563.listlid +++| NE B3,B1,PNS1 IF NAM NOT IN SERVICE 00591 M01S00564.listlid +++| SB2 B2+1 SET NAM IN SERVICE 00592 M01S00565.listlid +++| PNS1 LX3 -4 00593 M01S00566.listlid +++| BX7 -X0*X3 00594 M01S00567.listlid +++| SB3 X7 00595 M01S00568.listlid +++| NE B3,B1,PNS2 IF RHF NOT IN SERVICE 00596 M01S00569.listlid +++| SB2 B2+2 SET RHF IN SERVICE 00597 M01S00570.listlid +++| PNS2 LX3 -4 00598 M01S00571.listlid +++| BX7 -X0*X3 00599 M01S00572.listlid +++| SB3 X7 00600 M01S00573.listlid +++| NE B3,B1,PNS3 IF SSF NOT IN SERVICE 00601 M01S00574.listlid +++| SB2 B2+4 SET SSF IN SERVICE 00602 M01S00575.listlid +++| PNS3 SX3 B2 00603 M01S00576.listlid +++| LX3 1 00604 M01S00577.listlid +++| SA3 PNSA+X3 STORE NETWORK STATUS 00605 M01S00578.listlid +++| BX6 X3 00606 M01S00579.listlid +++| SA6 A6+B1 00607 M01S00580.listlid +++| SA4 A3+B1 00608 M01S00581.listlid +++| BX6 X4 00609 M01S00582.listlid +++| SA6 A6+B1 00610 M01S00583.listlid +++| EQ PNSX RETURN 00611 M01S00584.listlid +++| 00612 M01S00585.listlid +++|* PROCESS NETWORK STATUS FOR FORMAT 2. 00613 M01S00586.listlid +++| 00614 M01S00587.listlid +++| PNS4 BX2 X5 00615 M01S00588.listlid +++| LX2 59-40 00616 M01S00589.listlid +++| PL X2,PNS8 IF PID DISABLED 00617 M01S00590.listlid +++| 00618 M01S00591.listlid +++|* PROCESS *NAM* STATUS. 00619 M01S00592.listlid +++| 00620 M01S00593.listlid +++| BX2 -X0*X5 NAM STATUS 00621 M01S00594.listlid +++| SB6 X2+ 00622 M01S00595.listlid +++| LX2 59-3 00623 M01S00596.listlid +++| LE B6,B1,PNS5 IF NOT AVAILABLE OR IN SERVICE 00624 M01S00597.listlid +++| ERRNZ /NTS/NAV ADJUST CODE IF VALUE CHANGES 00625 M01S00598.listlid +++| ERRNZ /NTS/ISV-1 ADJUST CODE IF VALUE CHANGES 00626 M01S00599.listlid +++| SB6 3 00627 M01S00600.listlid +++| NG X2,PNS5 IF DISABLED 00628 M01S00601.listlid +++| ERRNZ /NTS/DAB-10B ADJUST CODE IF VALUE CHANGES 00629 M01S00602.listlid +++| SB6 2 SET OUT 00630 M01S00603.listlid +++| 00631 M01S00604.listlid +++|* PROCESS *RHF* STATUS. 00632 M01S00605.listlid +++| 00633 M01S00606.listlid +++| PNS5 LX5 -4 00634 M01S00607.listlid +++| BX2 -X0*X5 RHF STATUS 00635 M01S00608.listlid +++| SB5 X2 00636 M01S00609.listlid +++| LX2 59-3 00637 M01S00610.listlid +++| LE B5,B1,PNS6 IF NOT AVAILABLE OR IN SERVICE 00638 M01S00611.listlid +++| SB5 3 00639 M01S00612.listlid +++| NG X2,PNS6 IF DISABLED 00640 M01S00613.listlid +++| SB5 2 SET OUT 00641 M01S00614.listlid +++| 00642 M01S00615.listlid +++|* PROCESS *SSF* STATUS. 00643 M01S00616.listlid +++| 00644 M01S00617.listlid +++| PNS6 LX5 -4 00645 M01S00618.listlid +++| BX2 -X0*X5 SSF STATUS 00646 M01S00619.listlid +++| SB7 X2 00647 M01S00620.listlid +++| LX2 59-3 00648 M01S00621.listlid +++| LE B7,B1,PNS7 IF NOT AVAILABLE OR IN SERVICE 00649 M01S00622.listlid +++| SB7 3 00650 M01S00623.listlid +++| NG X2,PNS7 IF DISABLED 00651 M01S00624.listlid +++| SB7 2 SET OUT 00652 M01S00625.listlid +++| 00653 M01S00626.listlid +++|* WRITE STATUS OF NETWORKS TO WORKING BUFFER. 00654 M01S00627.listlid +++| 00655 M01S00628.listlid +++| PNS7 SA1 PNSB+B5 SET RHF STATUS 00656 M01S00629.listlid +++| BX6 X1 00657 M01S00630.listlid +++| SA6 A6+B1 00658 M01S00631.listlid +++| SA1 PNSB+B6 SET NAM STATUS 00659 M01S00632.listlid +++| BX6 X1 00660 M01S00633.listlid +++| SA6 A6+B1 00661 M01S00634.listlid +++| SA1 PNSB+B7 SET SSF STATUS 00662 M01S00635.listlid +++| BX6 X1 00663 M01S00636.listlid +++| SA6 A6+B1 00664 M01S00637.listlid +++| EQ PNS9 SET END OF LINE 00665 M01S00638.listlid +++| 00666 M01S00639.listlid +++| PNS8 SA1 PNSC SET --- FOR NETWORK STATUS 00667 M01S00640.listlid +++| BX6 X1 00668 M01S00641.listlid +++| SA6 A6+B1 00669 M01S00642.listlid +++| SA6 A6+B1 00670 M01S00643.listlid +++| SA6 A6+B1
Line S00644 Modification History | |
---|---|
M01 (Added by) | listlid |
M02 (Updated by) | listli3 |
Seq # *Modification Id* Act ----------------------------+ 00671 M02S00644.listli3 ---| PNS9 SA1 BLKS+1 SET END OF LINE
Line S00645 Modification History | |
---|---|
M01 (Added by) | listlid |
M02 (Updated by) | listli3 |
Seq # *Modification Id* Act ----------------------------+ 00672 M02S00645.listli3 ---| BX6 X1
Line S00646 Modification History | |
---|---|
M01 (Added by) | listlid |
M02 (Updated by) | listli3 |
Seq # *Modification Id* Act ----------------------------+ 00673 M02S00646.listli3 ---| SA6 A6+B1 00674 M01S00015.listli3 +++| PNS9 MX0 48 00675 M01S00016.listli3 +++| BX6 X0*X1 00676 M01S00017.listli3 +++| SA6 A6 INSURE END OF LINE 00677 M01S00647.listlid +++| EQ PNSX RETURN 00678 M01S00648.listlid +++| 00679 M01S00649.listlid +++|* THIS TABLE MUST REMAIN IN THIS ORDER. 00680 M01S00650.listlid +++|* NETWORK STATUS FOR FORMAT 1. 00681 M01S00651.listlid +++| 00682 M01S00652.listlid +++| PNSA BSS 0
Line S00653 Modification History | |
---|---|
M01 (Added by) | listlid |
M02 (Updated by) | listli3 |
Seq # *Modification Id* Act ----------------------------+ 00683 M02S00653.listli3 ---| DATA 18LNONE AVAILABLE
Line S00654 Modification History | |
---|---|
M01 (Added by) | listlid |
M02 (Updated by) | listli3 |
Seq # *Modification Id* Act ----------------------------+ 00684 M02S00654.listli3 ---| DATA 18LNAM
Line S00655 Modification History | |
---|---|
M01 (Added by) | listlid |
M02 (Updated by) | listli3 |
Seq # *Modification Id* Act ----------------------------+ 00685 M02S00655.listli3 ---| DATA 18LRHF
Line S00656 Modification History | |
---|---|
M01 (Added by) | listlid |
M02 (Updated by) | listli3 |
Seq # *Modification Id* Act ----------------------------+ 00686 M02S00656.listli3 ---| DATA 18LNAM, RHF
Line S00657 Modification History | |
---|---|
M01 (Added by) | listlid |
M02 (Updated by) | listli3 |
Seq # *Modification Id* Act ----------------------------+ 00687 M02S00657.listli3 ---| DATA 18LSSF
Line S00658 Modification History | |
---|---|
M01 (Added by) | listlid |
M02 (Updated by) | listli3 |
Seq # *Modification Id* Act ----------------------------+ 00688 M02S00658.listli3 ---| DATA 18LNAM, SSF
Line S00659 Modification History | |
---|---|
M01 (Added by) | listlid |
M02 (Updated by) | listli3 |
Seq # *Modification Id* Act ----------------------------+ 00689 M02S00659.listli3 ---| DATA 18LRHF, SSF
Line S00660 Modification History | |
---|---|
M01 (Added by) | listlid |
M02 (Updated by) | listli3 |
Seq # *Modification Id* Act ----------------------------+ 00690 M02S00660.listli3 ---| DATA 18LNAM, RHF, SSF 00691 M01S00018.listli3 +++| DATA 14LNONE AVAILABLE 00692 M01S00019.listli3 +++| DATA 3LNAM 00693 M01S00020.listli3 +++| DATA 0 00694 M01S00021.listli3 +++| DATA 3LRHF 00695 M01S00022.listli3 +++| DATA 0 00696 M01S00023.listli3 +++| DATA 8LNAM, RHF 00697 M01S00024.listli3 +++| DATA 0 00698 M01S00025.listli3 +++| DATA 3LSSF 00699 M01S00026.listli3 +++| DATA 0 00700 M01S00027.listli3 +++| DATA 8LNAM, SSF 00701 M01S00028.listli3 +++| DATA 0 00702 M01S00029.listli3 +++| DATA 8LRHF, SSF 00703 M01S00030.listli3 +++| DATA 0 00704 M01S00031.listli3 +++| DATA 13LNAM, RHF, SSF 00705 M01S00661.listlid +++| 00706 M01S00662.listlid +++|* NETWORK STATUS FOR FORMAT 2. 00707 M01S00663.listlid +++| 00708 M01S00664.listlid +++| PNSB BSS 0 00709 M01S00665.listlid +++| DATA 10H NA 00710 M01S00666.listlid +++| DATA 10H IN 00711 M01S00667.listlid +++| DATA 10H OUT
Line S00668 Modification History | |
---|---|
M01 (Added by) | listlid |
M02 (Updated by) | listli3 |
Seq # *Modification Id* Act ----------------------------+ 00712 M02S00668.listli3 ---| DATA 10H DISABLED 00713 M01S00032.listli3 +++| DATA 10HDISABLED 00714 M01S00669.listlid +++| PNSC DATA 10H --- 00715 M01S00670.listlid +++| PPD SPACE 4,15 00716 M01S00671.listlid +++|** PPD - PRINT PID TABLE DESCRIPTION. 00717 M01S00672.listlid +++|* 00718 M01S00673.listlid +++|* ENTRY (LIDTAB) = LID TABLE. 00719 M01S00674.listlid +++|* PID SPECIFIED ON COMMAND. 00720 M01S00675.listlid +++|* 00721 M01S00676.listlid +++|* EXIT LID TABLE WRITTEN TO OUTPUT FILE. 00722 M01S00677.listlid +++|* 00723 M01S00678.listlid +++|* USES X - 0, 1, 2, 3, 5, 6, 7. 00724 M01S00679.listlid +++|* A - 1, 2, 3, 5, 6, 7. 00725 M01S00680.listlid +++|* B - 2. 00726 M01S00681.listlid +++|* 00727 M01S00682.listlid +++|* CALLS LDP, PPL. 00728 M01S00683.listlid +++|* 00729 M01S00684.listlid +++|* MACROS MESSAGE, WRITER, WRITEW. 00730 M01S00685.listlid +++| 00731 M01S00686.listlid +++| 00732 M01S00687.listlid +++| PPD SUBR ENTRY/EXIT 00733 M01S00688.listlid +++| WRITEW O,HDR3,HDR3L 00734 M01S00689.listlid +++| SA5 LIDTAB+1 00735 M01S00690.listlid +++| 00736 M01S00691.listlid +++|* PROCESS NEXT PID. 00737 M01S00692.listlid +++| 00738 M01S00693.listlid +++| PPD1 SA2 PIDV USER-SPECIFIED PID VALUE 00739 M01S00694.listlid +++| MX0 18 00740 M01S00695.listlid +++| BX2 X0*X2 00741 M01S00696.listlid +++| ZR X2,PPD2 IF ALL PIDS TO BE PROCESSED 00742 M01S00697.listlid +++| BX1 X0*X5 00743 M01S00698.listlid +++| BX7 X1-X2 00744 M01S00699.listlid +++| SA7 PDFD SAVE PID FOUND FLAG 00745 M01S00700.listlid +++| NZ X7,PPD3 IF PID DOES NOT MATCH 00746 M01S00701.listlid +++| 00747 M01S00702.listlid +++|* EITHER ALL PIDS ARE TO BE PROCESSED BY DEFAULT OR 00748 M01S00703.listlid +++|* THE SPECIFIED PID MATCHED AN LDT ENTRY. 00749 M01S00704.listlid +++| 00750 M01S00705.listlid +++| PPD2 RJ PPL PROCESS PID LINE 00751 M01S00706.listlid +++| RJ LDP PROCESS LID(S) FOR PID 00752 M01S00707.listlid +++| SA1 PIDV 00753 M01S00708.listlid +++| MX0 18 00754 M01S00709.listlid +++| BX1 X0*X1 00755 M01S00710.listlid +++| NZ X1,PPD5 IF PID WAS SPECIFIED 00756 M01S00711.listlid +++| 00757 M01S00712.listlid +++|* DETERMINE IF THERE ARE MORE PIDS TO PROCESS. 00758 M01S00713.listlid +++| 00759 M01S00714.listlid +++| PPD3 SA2 A5+B1 GET OFFSET TO NEXT PID 00760 M01S00715.listlid +++| MX0 -12 00761 M01S00716.listlid +++| BX2 -X0*X2 00762 M01S00717.listlid +++| ZR X2,PPD4 IF NO MORE PIDS 00763 M01S00718.listlid +++| SB2 X2 00764 M01S00719.listlid +++| SA5 A5+B2 NEXT PID ADDRESS 00765 M01S00720.listlid +++| EQ PPD1 PROCESS NEXT PID ENTRY 00766 M01S00721.listlid +++| 00767 M01S00722.listlid +++|* ALL APPROPRIATE PID PROCESSING COMPLETE. 00768 M01S00723.listlid +++| 00769 M01S00724.listlid +++| PPD4 SA1 PIDV 00770 M01S00725.listlid +++| MX0 18 00771 M01S00726.listlid +++| BX1 X0*X1 00772 M01S00727.listlid +++| ZR X1,PPD5 IF PID WAS NOT SPECIFIED 00773 M01S00728.listlid +++| SA2 PDFD 00774 M01S00729.listlid +++| ZR X2,PPD5 IF SPECIFIED PID FOUND IN LDT 00775 M01S00730.listlid +++| SA3 MSG4 00776 M01S00731.listlid +++| LX1 18 POSITION PID 00777 M01S00732.listlid +++| MX0 42 00778 M01S00733.listlid +++| BX3 X0*X3 00779 M01S00734.listlid +++| BX6 X1+X3 MERGE PID IN MESSAGE 00780 M01S00735.listlid +++| SA6 A3+ 00781 M01S00736.listlid +++| MESSAGE MSG4 * PID - XXX DOES NOT EXIST IN LDT.* 00782 M01S00737.listlid +++| EQ PPDX RETURN 00783 M01S00738.listlid +++| 00784 M01S00739.listlid +++| PPD5 SA1 LLFD 00785 M01S00740.listlid +++| NZ X1,PPD6 IF LISTABLE LID WAS FOUND 00786 M01S00741.listlid +++| MESSAGE MSG3 * NO LIDS FOUND.* 00787 M01S00742.listlid +++| EQ PPDX RETURN 00788 M01S00743.listlid +++| 00789 M01S00744.listlid +++| PPD6 WRITEW O,HDR4,HDR4L WRITE PID TRAILER INFORMATION 00790 M01S00745.listlid +++| WRITER O 00791 M01S00746.listlid +++| EQ PPDX RETURN 00792 M01S00747.listlid +++| PPL SPACE 4,15 00793 M01S00748.listlid +++|** PPL - PROCESS PID LINE (FORMAT 2). 00794 M01S00749.listlid +++|* 00795 M01S00750.listlid +++|* ENTRY (A5) = ADDRESS OF PID WORD. 00796 M01S00751.listlid +++|* (X5) = PID WORD. 00797 M01S00752.listlid +++|* 00798 M01S00753.listlid +++|* EXIT PID LINE WRITTEN TO *WBUF*. 00799 M01S00754.listlid +++|* 00800 M01S00755.listlid +++|* USES X - 0, 1, 2, 3, 5, 6. 00801 M01S00756.listlid +++|* A - 1, 2, 3, 5, 6. 00802 M01S00757.listlid +++|* 00803 M01S00758.listlid +++|* CALLS PNS, SFN. 00804 M01S00759.listlid +++| 00805 M01S00760.listlid +++| 00806 M01S00761.listlid +++| PPL SUBR ENTRY/EXIT 00807 M01S00762.listlid +++| 00808 M01S00763.listlid +++|* PROCESS PID NAME AND MAINFRAME DESCRIPTOR. 00809 M01S00764.listlid +++| 00810 M01S00765.listlid +++| MX0 18 00811 M01S00766.listlid +++| BX1 X0*X5 PID NAME 00812 M01S00767.listlid +++| RJ SFN SPACE FILL NAME 00813 M01S00768.listlid +++| LX6 18 00814 M01S00769.listlid +++| LX5 59-38 00815 M01S00770.listlid +++| PL X5,PPL1 IF LISTABLE 00816 M01S00771.listlid +++| SA1 PPLH 00817 M01S00772.listlid +++| BX6 X1 00818 M01S00773.listlid +++| PPL1 SA6 WBUF STORE PID IN WORKING BUFFER 00819 M01S00774.listlid +++| SA3 BLKS STORE BLANK WORD 00820 M01S00775.listlid +++| BX6 X3 00821 M01S00776.listlid +++| SA6 A6+B1 00822 M01S00777.listlid +++| SA2 A5+B1 GET MAINFRAME DESCRIPTOR 00823 M01S00778.listlid +++| MX0 42 00824 M01S00779.listlid +++| BX1 X0*X2 00825 M01S00780.listlid +++| RJ SFN SPACE FILL NAME 00826 M01S00781.listlid +++| LX6 -6 00827 M01S00782.listlid +++| SA6 A6+B1 STORE MAINFRAME DESCRIPTOR 00828 M01S00783.listlid +++| 00829 M01S00784.listlid +++|* PROCESS MAINFRAME TYPE AND PID ATTRIBUTES. 00830 M01S00785.listlid +++| 00831 M01S00786.listlid +++| LX5 59-41-59+38 00832 M01S00787.listlid +++| PL X5,PPL2 IF LINKED PID 00833 M01S00788.listlid +++| SA3 PPLB 00834 M01S00789.listlid +++| BX6 X3 00835 M01S00790.listlid +++| SA6 A6+B1 STORE *HOST* MAINFRAME TYPE 00836 M01S00791.listlid +++| SA3 A3+B1 00837 M01S00792.listlid +++| ERRNZ PPLC-PPLB-1 ADJUST IF WORDS NOT CONTIGUOUS 00838 M01S00793.listlid +++| LX5 59-39-59+41 00839 M01S00794.listlid +++| NG X5,PPL3 IF PRE-VALIDATION REQUIRED 00840 M01S00795.listlid +++| SA3 PPLD ATTRIBUTE IS *H* 00841 M01S00796.listlid +++| EQ PPL3 STORE PID ATTRIBUTES 00842 M01S00797.listlid +++| 00843 M01S00798.listlid +++| PPL2 SA3 PPLE 00844 M01S00799.listlid +++| BX6 X3 00845 M01S00800.listlid +++| SA6 A6+B1 STORE *LINK* MAINFRAME TYPE 00846 M01S00801.listlid +++| SA3 PPLF 00847 M01S00802.listlid +++| LX5 59-39-59+41 00848 M01S00803.listlid +++| NG X5,PPL3 IF PRE-VALIDATION REQUIRED 00849 M01S00804.listlid +++| SA3 PPLG ATTRIBUTE IS *L* 00850 M01S00805.listlid +++| PPL3 BX6 X3 00851 M01S00806.listlid +++| SA6 A6+B1 STORE PID ATTRIBUTE 00852 M01S00807.listlid +++| SA5 A5+ RESTORE PID WORD 00853 M01S00808.listlid +++| RJ PNS PROCESS NETWORK STATUS 00854 M01S00809.listlid +++| EQ PPLX RETURN 00855 M01S00810.listlid +++| 00856 M01S00811.listlid +++| PPLB VFD 60/10L HOST 00857 M01S00812.listlid +++| PPLC VFD 60/10L HV 00858 M01S00813.listlid +++| PPLD VFD 60/10L H 00859 M01S00814.listlid +++| PPLE VFD 60/10L LINKED 00860 M01S00815.listlid +++| PPLF VFD 60/10L LV 00861 M01S00816.listlid +++| PPLG VFD 60/10L L 00862 M01S00817.listlid +++| PPLH VFD 60/10L --- 00863 M01S00818.listlid +++| SPACE 4,10 00864 M01S00819.listlid +++|* COMMON DECKS. 00865 M01S00820.listlid +++| 00866 M01S00821.listlid +++|*CALL COMCARG 00867 M01S00822.listlid +++|*CALL COMCCIO 00868 M01S00823.listlid +++|*CALL COMCCPM 00869 M01S00824.listlid +++|*CALL COMCLFM 00870 M01S00825.listlid +++|*CALL COMCSFM 00871 M01S00826.listlid +++|*CALL COMCSFN 00872 M01S00827.listlid +++|*CALL COMCSTF 00873 M01S00828.listlid +++|*CALL COMCSYS 00874 M01S00829.listlid +++|*CALL COMCWTC 00875 M01S00830.listlid +++|*CALL COMCWTH 00876 M01S00831.listlid +++|*CALL COMCWTW 00877 M01S00832.listlid +++|*CALL COMCZTB 00878 M01S00833.listlid +++| TITLE BUFFERS. 00879 M01S00834.listlid +++| SPACE 4,10 00880 M01S00835.listlid +++|* BUFFERS. 00881 M01S00836.listlid +++| 00882 M01S00837.listlid +++| OBUF BSS OBUFL OUTPUT BUFFER 00883 M01S00838.listlid +++| LIDTAB EQU * LID TABLE 00884 M01S00839.listlid +++| TITLE PRESET. 00885 M01S00840.listlid +++| PRS SPACE 4,15 00886 M01S00841.listlid +++|** PRS - PRESET. 00887 M01S00842.listlid +++|* 00888 M01S00843.listlid +++|* EXIT ABORT IF ERROR ON COMMAND. 00889 M01S00844.listlid +++|* (LFST) = 0, IF OUTPUT BEING SENT TO TERMINAL. 00890 M01S00845.listlid +++|* .NE. 0, OTHERWISE. 00891 M01S00846.listlid +++|* (PAGL) = (CLLC) = NUMBER OF LINES TO BE PRINTED 00892 M01S00847.listlid +++|* ON EACH PAGE (EXCLUDING TRAILER FOR FORMAT 2). 00893 M01S00848.listlid +++|* 00894 M01S00849.listlid +++|* USES X - 0, 1, 2, 4, 5, 6, 7. 00895 M01S00850.listlid +++|* A - 1, 2, 4, 5, 6, 7. 00896 M01S00851.listlid +++|* B - 1, 4, 5. 00897 M01S00852.listlid +++|* 00898 M01S00853.listlid +++|* CALLS ARG, STF. 00899 M01S00854.listlid +++|* 00900 M01S00855.listlid +++|* MACROS ABORT, GETPP, MESSAGE, SETFS. 00901 M01S00856.listlid +++|* 00902 M01S00857.listlid +++|* NOTE PRESET WILL BE OVERLAYED BY THE LID TABLE. 00903 M01S00858.listlid +++| 00904 M01S00859.listlid +++| 00905 M01S00860.listlid +++| PRS SUBR ENTRY/EXIT 00906 M01S00861.listlid +++| SB1 1 00907 M01S00862.listlid +++| SA1 ACTR GET NUMBER OF ARGUMENTS IN COMMAND 00908 M01S00863.listlid +++| MX0 -18 00909 M01S00864.listlid +++| BX1 -X0*X1 00910 M01S00865.listlid +++| ZR X1,PRS3 IF NO ARGUMENTS 00911 M01S00866.listlid +++| SB4 X1 00912 M01S00867.listlid +++| SA4 ARGR GET FIRST ARGUMENT 00913 M01S00868.listlid +++| SB5 TARG SET ARGUMENT TABLE ADDRESS 00914 M01S00869.listlid +++| RJ ARG PROCESS ARGUMENTS 00915 M01S00870.listlid +++| NZ X1,PRS5 IF ARGUMENT ERROR 00916 M01S00871.listlid +++| SA1 LIDV 00917 M01S00872.listlid +++| SA2 STVL 00918 M01S00873.listlid +++| NZ X1,PRS1 IF LID SPECIFIED 00919 M01S00874.listlid +++| ZR X2,PRS2 IF NEITHER LID NOT ST SPECIFIED 00920 M01S00875.listlid +++| BX1 X2 00921 M01S00876.listlid +++| BX2 X2-X2 00922 M01S00877.listlid +++| PRS1 NZ X2,PRS5 IF BOTH LID AND ST SPECIFIED 00923 M01S00878.listlid +++| MX0 42 00924 M01S00879.listlid +++| BX6 X0*X1 00925 M01S00880.listlid +++| ZR X6,PRS8 IF KEYWORD SPECIFIED BUT NOT EQUIVALENCED 00926 M01S00881.listlid +++| SA6 A1 00927 M01S00882.listlid +++| LX6 18 00928 M01S00883.listlid +++| BX7 X0*X6 00929 M01S00884.listlid +++| NZ X7,PRS7 IF MORE THAN 3 CHARACTERS 00930 M01S00885.listlid +++| LX6 -6 00931 M01S00886.listlid +++| BX7 X0*X6 00932 M01S00887.listlid +++| ZR X7,PRS7 IF LESS THAN 3 CHARACTERS 00933 M01S00888.listlid +++| PRS2 SA1 PIDV 00934 M01S00889.listlid +++| ZR X1,PRS3 IF PID NOT SPECIFIED 00935 M01S00890.listlid +++| BX6 X0*X1 00936 M01S00891.listlid +++| ZR X6,PRS3 IF PID SPECIFIED, BUT NOT EQUIVALENCED 00937 M01S00892.listlid +++| LX6 18 00938 M01S00893.listlid +++| BX7 X0*X6 00939 M01S00894.listlid +++| NZ X7,PRS6 IF MORE THAN 3 CHARACTERS 00940 M01S00895.listlid +++| LX6 -6 00941 M01S00896.listlid +++| BX7 X0*X6 00942 M01S00897.listlid +++| ZR X7,PRS6 IF LESS THAN 3 CHARACTERS 00943 M01S00898.listlid +++| PRS3 SX2 O DETERMINE OUTPUT FILE STATUS 00944 M01S00899.listlid +++| RJ STF 00945 M01S00900.listlid +++| SA6 LFST 00946 M01S00901.listlid +++| ZR X6,PRSX IF OUTPUT ASSIGNED TO TERMINAL 00947 M01S00902.listlid +++| GETPP PAGC,PAGL,JPRD GET LINE COUNT 00948 M01S00903.listlid +++| SA5 PAGL 00949 M01S00904.listlid +++| SX7 X5-HDLN ENSURE SPACE FOR HEADERS 00950 M01S00905.listlid +++| SA1 PIDV 00951 M01S00906.listlid +++| ZR X1,PRS4 IF PID NOT SPECIFIED 00952 M01S00907.listlid +++| SX7 X7-TRLN ENSURE SPACE FOR TRAILERS 00953 M01S00908.listlid +++| PRS4 SA7 PAGL 00954 M01S00909.listlid +++| SA7 CLLC 00955 M01S00910.listlid +++| SETFS O,0 PRESERVE OUTPUT FILE 00956 M01S00911.listlid +++| EQ PRSX RETURN 00957 M01S00912.listlid +++| 00958 M01S00913.listlid +++| PRS5 MESSAGE PRSA * LISTLID COMMAND ERROR.*
Line S00914 Modification History | |
---|---|
M01 (Added by) | listlid |
M02 (Updated by) | listli2 |
Seq # *Modification Id* Act ----------------------------+ 00959 M02S00914.listli2 ---| SA1 JOPR
Line S00915 Modification History | |
---|---|
M01 (Added by) | listlid |
M02 (Updated by) | listli2 |
Seq # *Modification Id* Act ----------------------------+ 00960 M02S00915.listli2 ---| MX0 -12
Line S00916 Modification History | |
---|---|
M01 (Added by) | listlid |
M02 (Updated by) | listli2 |
Seq # *Modification Id* Act ----------------------------+ 00961 M02S00916.listli2 ---| LX1 -24
Line S00917 Modification History | |
---|---|
M01 (Added by) | listlid |
M02 (Updated by) | listli2 |
Seq # *Modification Id* Act ----------------------------+ 00962 M02S00917.listli2 ---| BX1 -X0*X1
Line S00918 Modification History | |
---|---|
M01 (Added by) | listlid |
M02 (Updated by) | listli2 |
Seq # *Modification Id* Act ----------------------------+ 00963 M02S00918.listli2 ---| SX2 X1-IAOT
Line S00919 Modification History | |
---|---|
M01 (Added by) | listlid |
M02 (Updated by) | listli2 |
Seq # *Modification Id* Act ----------------------------+ 00964 M02S00919.listli2 ---| NZ X2,PRS9 IF NOT INTERACTIVE ORIGIN TYPE
Line S00920 Modification History | |
---|---|
M01 (Added by) | listlid |
M02 (Updated by) | listli2 |
Seq # *Modification Id* Act ----------------------------+ 00965 M02S00920.listli2 ---| MESSAGE PRSB * ENTER HELPME,LISTLID FOR HELP.* 00966 M01S00921.listlid +++| ABORT 00967 M01S00922.listlid +++| 00968 M01S00923.listlid +++| PRS6 MESSAGE PRSD * SPECIFY EXACTLY 3 CHARACTERS ON PID.* 00969 M01S00924.listlid +++| EQ PRS9 ABORT 00970 M01S00925.listlid +++| 00971 M01S00926.listlid +++| PRS7 MESSAGE PRSE * SPECIFY EXACTLY 3 CHARACTERS ON LID.* 00972 M01S00927.listlid +++| EQ PRS9 ABORT 00973 M01S00928.listlid +++|
Line S00929 Modification History | |
---|---|
M01 (Added by) | listlid |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00974 M02S00929.271l716 ---| PRS8 MESSAGE PRSF * ST=XXX OR LID=XXX IS REQUIRED.* 00975 M01S00001.271l716 +++| PRS8 MESSAGE PRSF * LID=XXX OR ST=XXX IS REQUIRED.*
Line S00930 Modification History | |
---|---|
M01 (Added by) | listlid |
M02 (Updated by) | listli2 |
Seq # *Modification Id* Act ----------------------------+ 00976 M02S00930.listli2 ---| PRS9 MESSAGE PRSC * LISTLID ABORT.*
Line S00931 Modification History | |
---|---|
M01 (Added by) | listlid |
M02 (Updated by) | listli2 |
Seq # *Modification Id* Act ----------------------------+ 00977 M02S00931.listli2 ---| ABORT 00978 M01S00004.listli2 +++| PRS9 ABORT 00979 M01S00932.listlid +++| 00980 M01S00933.listlid +++|* PRESET ERROR MESSAGES. 00981 M01S00934.listlid +++| 00982 M01S00935.listlid +++| PRSA DATA C* LISTLID COMMAND ERROR.*
Line S00936 Modification History | |
---|---|
M01 (Added by) | listlid |
M02 (Updated by) | listli2 |
Seq # *Modification Id* Act ----------------------------+ 00983 M02S00936.listli2 ---| PRSB DATA C* ENTER HELPME,LISTLID FOR HELP.*
Line S00937 Modification History | |
---|---|
M01 (Added by) | listlid |
M02 (Updated by) | listli2 |
Seq # *Modification Id* Act ----------------------------+ 00984 M02S00937.listli2 ---| PRSC DATA C* LISTLID ABORT.* 00985 M01S00938.listlid +++| PRSD DATA C* SPECIFY EXACTLY 3 CHARACTERS ON PID KEYWORD.* 00986 M01S00939.listlid +++| PRSE DATA C* SPECIFY EXACTLY 3 CHARACTERS ON LID KEYWORD.*
Line S00940 Modification History | |
---|---|
M01 (Added by) | listlid |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00987 M02S00940.271l716 ---| PRSF DATA C* ST=XXX OR LID=XXX IS REQUIRED.* 00988 M01S00002.271l716 +++| PRSF DATA C* LID=XXX OR ST=XXX IS REQUIRED.* 00989 M01S00941.listlid +++| SPACE 4,10 00990 M01S00942.listlid +++|* PRESET STORAGE LOCATIONS. 00991 M01S00943.listlid +++| 00992 M01S00944.listlid +++| LID1 CON 1 ASSUMED LID, ST, OR PID VALUE 00993 M01S00945.listlid +++| PAGC BSS 2 PARAMETER BLOCK FOR *GETPAGE* 00994 M01S00946.listlid +++| SPACE 4,10 00995 M01S00947.listlid +++|* ARGUMENT TABLE. 00996 M01S00948.listlid +++| 00997 M01S00949.listlid +++| TARG BSS 0 00998 M01S00950.listlid +++| LID ARG LID1,LIDV,400B 00999 M01S00951.listlid +++| ST ARG LID1,STVL,400B 01000 M01S00952.listlid +++| L ARG O,O 01001 M01S00953.listlid +++| PID ARG LID1,PIDV,400B 01002 M01S00954.listlid +++| ARG 01003 M01S00955.listlid +++| SPACE 4,10 01004 M01S00956.listlid +++|* RESERVE SUFFICIENT SPACE TO HOLD THE MAXIMUM SIZE OF THE LDT. 01005 M01S00957.listlid +++| 01006 M01S00958.listlid +++| LENGTH EQU *-PRS PRESET LENGTH 01007 M01S00959.listlid +++| MAXLTH EQU MXLDT-LENGTH MAX LDT SIZE - PRESET LENGTH 01008 M01S00960.listlid +++| BSSZ MAXLTH ADDITIONAL CM WORDS REQUIRED TO HOLD LDT 01009 M01S00961.listlid +++| RFL= EQU * 01010 M01S00962.listlid +++| SPACE 4,10 01011 M01S00963.listlid +++| END
cdc/nos2.source/opl.opl871/deck/listlid.txt ยท Last modified: by 127.0.0.1