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