cdc:nos2.source:opl.opl871:deck:route
Deck ROUTE
Library Member Format: MODIFY
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.route +++| IDENT ROUTE,ROU,ROUTE 00002 M00S00002.route +++| ABS 00003 M00S00003.route +++| SST 00004 M00S00004.route +++| SYSCOM B1 00005 M00S00005.route +++| ENTRY ROUTE 00006 M00S00006.route +++| ENTRY NPC= 00007 M00S00007.route +++| ENTRY RFL= 00008 M00S00008.route +++|*COMMENT ROUTE - ROUTE FILE TO I/O QUEUE.
| Line S00009 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00009 M01S00009.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1982.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00010 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00011 M00S00010.route +++| TITLE ROUTE COMMAND PROCESSOR. 00012 M00S00011.route +++| SPACE 4,10 00013 M00S00012.route +++|*** ROUTE - PROCESS ROUTE COMMAND. 00014 M00S00013.route +++|* R.N. LAGERSTROM 76/01/30. 00015 M00S00014.route +++|* 00016 M00S00015.route +++|* ROUTE IS USED TO PLACE FILES INTO THE INPUT AND 00017 M00S00016.route +++|* OUTPUT QUEUES. 00018 M00S00017.route +++| SPACE 4,20 00019 M00S00018.route +++|*** CALL. 00020 M00S00019.route +++|* 00021 M00S00020.route +++|* ROUTE(LFN,P1,P2,...,PN) 00022 M00S00021.route +++|* 00023 M00S00022.route +++|* LFN - FILE NAME TO ROUTE. 00024 M00S00023.route +++|* 00025 M00S00024.route +++|* THE REMAINING PARAMETERS ARE ORDER INDEPENDENT. 00026 M00S00025.route +++|*
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | tlrout1 |
Seq # *Modification Id* Act ----------------------------+ 00027 M01S00001.tlrout1 +++|* CM=XX - *TLF* CONVERSION MODE. 00028 M00S00026.route +++|* DC=AA - TWO-CHARACTER DISPOSITION CODE (ALPHA CODE). 00029 M00S00027.route +++|* DEF - INDICATES DEFERRED (END-OF-JOB) ROUTING. 00030 M00S00028.route +++|* DO=XXX - DEFAULT OUTPUT MAINFRAME LOGICAL ID. 00031 M00S00029.route +++|* EC=XX - EXTERNAL CHARACTERISTICS. 00032 M00S00030.route +++|* FC=XX - FORMS CODE (TWO-CHARACTER ALPHA-NUMERIC). 00033 M00S00031.route +++|* FID=XXXXXXX - FILE ID. (NOS/BE COMPATIBILITY) 00034 M00S00032.route +++|* FM=XXXXXXX - FAMILY NAME. 00035 M00S00033.route +++|* FM - IMPLICIT REMOTE ROUTING. 00036 M00S00034.route +++|* IC=XX - INTERNAL CHARACTERISTICS. 00037 M00S00035.route +++|* ID=NN - SELECT LOCAL DEVICE (0-67 OCTAL DEFAULT). 00038 M00S00036.route +++|* ID - IMPLICIT CENTRAL SITE ROUTING. 00039 M00S00037.route +++|* JSN=XXX - FORCE A UNIQUE THREE CHARACTER JSN ON A JOB. 00040 M00S00038.route +++|* OT=XXXX - SET THE ORIGIN TYPE OF THE FILE. 00041 M00S00039.route +++|* PI=N - PRINT IMAGE ORDINAL ( 0 - 7 ) 00042 M00S00040.route +++|* PI=XXXXXXX - PRINT IMAGE NAME ( 1 TO 7 CHARACTER NAME ) 00043 M00S00041.route +++|* PRI=NNNN - FILE PRIORITY. IGNORED WITH MESSAGE.
| Line S00042 Modification History | |
|---|---|
M01 (Removed by) | ns2591 |
Seq # *Modification Id* Act ----------------------------+ 00044 M01S00042.ns2591 ---|* REP=NN - REPEAT COUNT (0-31 DECIMAL DEFAULT).
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2591 |
Seq # *Modification Id* Act ----------------------------+ 00045 M01S00001.ns2591 +++|* REP=NN - REPEAT COUNT (0-63 DECIMAL DEFAULT). 00046 M00S00043.route +++|* SC=XX - SPACING CODE (FOR 580-PFC SUPPORT). 00047 M00S00044.route +++|* SCL=XX - SELECT SERVICE CLASS FOR OUTPUT FILES (TWO-CHARACTER 00048 M00S00045.route +++|* ALPHA-NUMERIC). 00049 M00S00046.route +++|* ST=XXX - LOGICAL ID (LID) OF SYSTEM TO WHICH FILE IS TO 00050 M00S00047.route +++|* BE ROUTED. 00051 M00S00048.route +++|* TID=XX - PROCESSED AS UN=XXXXXXX (FOR NOS/BE COMPATIBILITY). 00052 M00S00049.route +++|* TID=C - IMPLICIT CENTRAL SITE ROUTING. 00053 M00S00050.route +++|* TID - IMPLICIT REMOTE ROUTING. 00054 M00S00051.route +++|* UJN=XXXXXXX - USER JOB NAME. 00055 M00S00052.route +++|* UN=XXXXXXX - USER NAME. 00056 M00S00053.route +++|* UN - IMPLICIT REMOTE ROUTING. 00057 M00S00054.route +++|* 00058 M00S00055.route +++|* NOTE- 00059 M00S00056.route +++|* 00060 M00S00057.route +++|* 1. CENTRAL SITE ROUTING WILL BE SELECTED BY DEFAULT FOR ALL 00061 M00S00058.route +++|* ORIGIN TYPES EXCEPT *RBOT* UNLESS TID (EXCEPT TID=C), FM, 00062 M00S00059.route +++|* OR UN IS INCLUDED. 00063 M00S00060.route +++|* 00064 M00S00061.route +++|* 2. FOR *RBOT* ORIGIN JOBS, ROUTING WILL BE TO THE TERMINAL 00065 M00S00062.route +++|* OF ORIGIN UNLESS TID, FM, OR UN ARE SPECIFIED WITH A 00066 M00S00063.route +++|* PARAMETER. *TID=C* OR *TID* WILL ROUTE TO CENTRAL SITE. 00067 M00S00064.route +++|* 00068 M00S00065.route +++|* 3. IMPLICIT REMOTE ROUTING MEANS THAT ROUTING WILL BE TO A 00069 M00S00066.route +++|* REMOTE TERMINAL IDENTIFIED BY THE FM-UN OF THE JOB MAKING 00070 M00S00067.route +++|* THE REQUEST. 00071 M00S00068.route +++|* 00072 M00S00069.route +++|* 4. IMPLICIT CENTRAL SITE ROUTING WILL SUPPLY THE DEFAULT 00073 M00S00070.route +++|* LOCAL DEVICE ID AND OVER-RIDE DEFAULT REMOTE ROUTING FOR 00074 M00S00071.route +++|* *RBOT* ORIGIN JOBS. 00075 M00S00072.route +++| SPACE 4,10 00076 M00S00073.route +++|** PROGRAMS CALLED. 00077 M00S00074.route +++|* 00078 M00S00075.route +++|* DSP - ROUTE FILE. 00079 M00S00076.route +++| SPACE 4,10 00080 M00S00077.route +++|** COMMON DECKS CALLED. 00081 M00S00078.route +++|* 00082 M00S00079.route +++|* COMCDXB 00083 M00S00080.route +++|* COMCMAC 00084 M00S00081.route +++|* COMCSYS 00085 M00S00082.route +++|* COMSBIO 00086 M00S00083.route +++|* COMSDSP 00087 M00S00084.route +++|* COMSJIO 00088 M00S00085.route +++|* COMSSCD 00089 M00S00086.route +++|* COMSSSJ 00090 M00S00087.route +++| SPACE 4,20 00091 M00S00088.route +++|*** MESSAGES ISSUED. 00092 M00S00089.route +++|* 00093 M00S00090.route +++|* ROUTE COMMAND ERROR. 00094 M00S00091.route +++|* ROUTE COMPLETE. 00095 M00S00092.route +++|* ROUTE COMPLETE. JSN IS XXXX. 00096 M00S00093.route +++|* ROUTE *DC* INCOMPATIBLE WITH *EC*.
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | tlrout1 |
Seq # *Modification Id* Act ----------------------------+ 00097 M01S00002.tlrout1 +++|* ROUTE INCORRECT *CM* PARAMETER. 00098 M00S00094.route +++|* ROUTE INCORRECT *DO* PARAMETER. 00099 M00S00095.route +++|* ROUTE INCORRECT *EC* PARAMETER. 00100 M00S00096.route +++|* ROUTE INCORRECT *FC* PARAMETER. 00101 M00S00097.route +++|* ROUTE INCORRECT *IC* PARAMETER.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00102 M01S00001.271l716 +++|* ROUTE INCORRECT *JSN* PARAMETER. 00103 M00S00098.route +++|* ROUTE INCORRECT KEYWORD. 00104 M00S00099.route +++|* ROUTE INCORRECT *OT* PARAMETER. 00105 M00S00100.route +++|* ROUTE INCORRECT SPACING CODE. 00106 M00S00101.route +++|* ROUTE INCORRECT *ST* PARAMETER. 00107 M01S00002.271l716 +++|* ROUTE *JSN* NOT ALLOWED. 00108 M00S00102.route +++|* ROUTE *OT* NOT ALLOWED. 00109 M00S00103.route +++|* ROUTE *PRI* IGNORED.
| Line S00104 Modification History | |
|---|---|
M01 (Removed by) | ns2591 |
Seq # *Modification Id* Act ----------------------------+ 00110 M01S00104.ns2591 ---|* ROUTE *REP* GT 31. DEFAULT USED.
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2591 |
Seq # *Modification Id* Act ----------------------------+ 00111 M01S00002.ns2591 +++|* ROUTE *REP* .GT. 63. DEFAULT USED. 00112 M00S00105.route +++|* ROUTE *TID* AND *FM/UN* CONFLICT. 00113 M00S00106.route +++|* ROUTE *TID/FM/UN* AND *ID* CONFLICT. 00114 M00S00107.route +++|* ROUTE UNDEFINED SERVICE CLASS. 00115 M00S00108.route +++|* ROUTE UNKNOWN *PI* PARAMETER.
| Line S00109 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00116 M01S00109.271l716 ---|* ROUTE *JSN* NOT ALLOWED. 00117 M01S00110.271l716 ---|* ROUTE INCORRECT *JSN* PARAMETER. 00118 M00S00111.route ---| SPACE 4,10 00119 M00S00112.route ---|** DEFINE. 00120 M00S00113.route ---|* EXTERNAL CHARACTERISTICS (EC), AND 00121 M00S00114.route ---|* INTERNAL CHARACTERISTICS (IC). 00122 M00S00115.route ---| SPACE 4,10 00123 M00S00116.route ---|* SPECIAL ENTRY POINT. 00124 M00S00117.route ---| 00125 M00S00118.route ---| NPC= EQU 0 FORCE OPERATING SYSTEM PARAMETER FORMAT 00126 M00S00119.route ---| 00127 M00S00120.route ---| 00128 M00S00121.route ---| QUAL BIO 00129 M00S00122.route ---|*CALL COMSBIO 00130 M00S00123.route ---| QUAL * 00131 M00S00124.route ---|*CALL COMSDSP 00132 M00S00125.route ---|*CALL COMCMAC 00133 M00S00126.route ---|*CALL COMSSSJ 00134 M00S00127.route ---| LIST X 00135 M00S00128.route ---| 00136 M00S00129.route ---|*CALL COMSJIO 00137 M00S00130.route ---| 00138 M00S00131.route ---| LIST *
| Line S00132 Modification History | |
|---|---|
M01 (Removed by) | ns2624 |
Seq # *Modification Id* Act ----------------------------+ 00139 M01S00132.ns2624 ---| SCLASS SPACE 4,15 00140 M01S00133.ns2624 ---|** SCLASS - DEFINE SERVICE CLASS TABLE. 00141 M01S00134.ns2624 ---|* 00142 M01S00135.ns2624 ---|* SCLASS NM,MN,DF,ST,TX 00143 M01S00136.ns2624 ---|* 00144 M01S00137.ns2624 ---|* ENTRY *NM* = SERVICE CLASS NAME. 00145 M01S00138.ns2624 ---|* *MN* = TWO CHARACTER MNEMONIC. 00146 M01S00139.ns2624 ---|* *DF* = DAYFILE MESSAGE CHARACTER. 00147 M01S00140.ns2624 ---|* *ST* = SHORT TEXT FOR *QFTLIST*. 00148 M01S00141.ns2624 ---|* *TX* = TEXT OF SERVICE CLASS NAME FOR BANNER PAGE. 00149 M01S00142.ns2624 ---|* 00150 M01S00143.ns2624 ---|* NOTE - THE CALL TO *COMSSCD* MUST FOLLOW THE DEFINITION OF 00151 M01S00144.ns2624 ---|* THIS MACRO. 00152 M01S00145.ns2624 ---| 00153 M01S00146.ns2624 ---| 00154 M01S00147.ns2624 ---| PURGMAC SCLASS 00155 M01S00148.ns2624 ---| 00156 M01S00149.ns2624 ---| SCLASS MACRO NM,MN,DF,ST,TX 00157 M01S00150.ns2624 ---| .SCL RMT 00158 M01S00151.ns2624 ---| VFD 12/0L_MN,48/0 TX 00159 M01S00152.ns2624 ---| .SCL RMT 00160 M01S00153.ns2624 ---| SCLASS ENDM 00161 M01S00154.ns2624 ---| 00162 M01S00155.ns2624 ---| 00163 M01S00156.ns2624 ---| SCL$ EQU 0 ONLY PROCESS CLASSES WITH JCB-S 00164 M01S00157.ns2624 ---|*CALL COMSSCD 00165 M00S00158.route ---| TITLE TABLE DEFINITIONS. 00166 M00S00159.route ---| ORG 103B 00167 M00S00160.route ---| ROU BSS 0 00168 M00S00161.route ---| TDSP SPACE 4,30 00169 M00S00162.route ---|** TDSP - DSP PARAMETER BLOCK. 00170 M00S00163.route ---|* 00171 M00S00164.route ---|*T W0 42/ FILE NAME,6/ ,1/F,4/ ,6/ OT,1/C
Figure W0
00172 M00S00165.route ---|*T, W1 12/ ,12/ FC,12/ DC,3/ EC,3/ IC,18/ FLAGS
Figure W1
00173 M00S00166.route ---|*T, W2 18/ SLID,18/ DLID,24/ DA
Figure W2
00174 M00S00167.route ---|*T, W3 42/ UJN,18/
Figure W3
| Line S00168 Modification History | |
|---|---|
M01 (Removed by) | ns2591 |
Seq # *Modification Id* Act ----------------------------+ 00175 M01S00168.ns2591 ---|*T, W4 2/ 0,1/ P,3/ PI,6/ SC,12/ SCL,12/ FA,7/ ,5/ RC,12/
Figure W4
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | ns2591 |
Seq # *Modification Id* Act ----------------------------+ 00176 M01S00003.ns2591 +++|*T, W4 2/ 0,1/ P,3/ PI,6/ SC,12/ SCL,12/ FA,6/ ,6/ RC,12/
Figure W4
00177 M00S00169.route +++|*T, W5 60/
Figure W5
00178 M00S00170.route +++|*T, W6 60/
Figure W6
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | tlrout1 |
Seq # *Modification Id* Act ----------------------------+ 00179 M01S00003.tlrout1 +++|*T, W7 12/ DD, 24/ , 6/0, 18/ EFLAGS
Figure W7
00180 M01S00004.tlrout1 +++|*T,W10-16 60/
Figure W10-16
00181 M00S00171.route +++|* 00182 M00S00172.route +++|* F - FORCE ORIGIN TYPE FLAG. 00183 M00S00173.route +++|* OT - DESIRED ORIGIN TYPE. 00184 M00S00174.route +++|* C - COMPLETE BIT. 00185 M00S00175.route +++|* FC - FORMS CODE 00186 M00S00176.route +++|* DC - DISPOSITION CODE 00187 M00S00177.route +++|* EC - EXTERNAL CHARACTERISTICS 00188 M00S00178.route +++|* IC - INTERNAL CHARACTERISTICS 00189 M00S00179.route +++|* SLID - LOGICAL ID (LID) TO RECEIVE OUTPUT FROM INPUT FILES. 00190 M00S00180.route +++|* DLID - DESTINATION LOGICAL ID OF MAINFRAME TO RECEIVE FILES. 00191 M00S00181.route +++|* DA - TID OR POINTER TO FM/UN 00192 M00S00182.route +++|* P - PRINT IMAGE FLAG (INDICATES PRINT IMAGE CODE PRESENT). 00193 M00S00183.route +++|* PI - PRINT IMAGE CODE (0-7) IF PRINT IMAGE FLAG SET. 00194 M00S00184.route +++|* SC - SPACING CODE 00195 M00S00185.route +++|* SCL - SERVICE CLASS 00196 M00S00186.route +++|* FA - ABORT CODE 00197 M00S00187.route +++|* RC - REPEAT COUNT 00198 M00S00188.route +++|* UJN - USER JOB NAME 00199 M01S00005.tlrout1 +++|* DD - DATA DECLARATION. 00200 M01S00006.tlrout1 +++|* EFLAGS - EXTENDED *DSP* FLAGS. 00201 M00S00189.route +++| 00202 M00S00190.route +++| 00203 M00S00191.route +++| TDSP BSS 0 00204 M00S00192.route +++| CON 0 00205 M00S00193.route +++| VFD 42/0,18/FRFN 00206 M00S00194.route +++| VFD 36/0,24/-0 00207 M00S00195.route +++| CON 0 00208 M00S00196.route +++| CON 0 00209 M00S00197.route +++| CON 0 00210 M00S00198.route +++| CON 0 00211 M01S00007.tlrout1 +++| CON 0 00212 M01S00008.tlrout1 +++| CON 0 00213 M01S00009.tlrout1 +++| CON 0 00214 M01S00010.tlrout1 +++| CON 0 00215 M01S00011.tlrout1 +++| CON 0 00216 M01S00012.tlrout1 +++| CON 0 00217 M01S00013.tlrout1 +++| CON 0 00218 M01S00014.tlrout1 +++| CON 0 00219 M01S00015.tlrout1 +++| CON 0 00220 M01S00016.tlrout1 +++| CON 0 00221 M01S00017.tlrout1 +++| CON 0 00222 M01S00018.tlrout1 +++| TDSPL EQU *-TDSP 00223 M01S00019.tlrout1 +++| ERRNZ TDSPL-EPBL *DSP* EXTENDED BLOCK LENGTH ERROR 00224 M00S00199.route +++| TFUN SPACE 4,10 00225 M00S00200.route +++|** TFUN - FAMILY NAME, USER NAME TABLE 00226 M00S00201.route +++|* 00227 M00S00202.route +++|*T W0 42/ FAMILY NAME,18/
Figure W0
00228 M00S00203.route +++|*T, W1 42/ USER NAME,18/
Figure W1
00229 M00S00204.route +++| 00230 M00S00205.route +++| 00231 M00S00206.route +++| TFUN BSSZ 2 FAMILY NAME - USER NAME 00232 M00S00207.route +++| 00233 M00S00208.route +++| SPACE 4,10 00234 M00S00209.route +++|* INTERNAL FLAGS. 00235 M00S00210.route +++| 00236 M00S00211.route +++| PTID CON 0 TID PROCESSED 00237 M00S00212.route +++| PFUN CON 0 FM-UN PROCESSED 00238 M00S00213.route +++| PDID CON 0 DEVICE ID PROCESSED 00239 M00S00214.route +++| PDEF CON 0 DEF PROCESSED 00240 M00S00215.route +++| PJSN CON 0 JSN PROCESSED 00241 M00S00216.route +++| PUJN CON 0 UJN PROCESSED 00242 M00S00217.route +++| PDCT CON 0 DISPOSITION TYPE - SEE *TDCC* 00243 M00S00218.route +++| PECT CON 0 EXTERNAL CHARACTERISTICS TYPE - SEE *TECC* 00244 M00S00219.route +++| PJOT CON 0 ORIGIN OF JOB 00245 M01S00020.tlrout1 +++| TCDD SPACE 4,15 00246 M01S00021.tlrout1 +++|** TCDD - *TLF* CONVERSION MODE/DATA DECLARATION TABLE. 00247 M01S00022.tlrout1 +++|* 00248 M01S00023.tlrout1 +++|* 42/ CM, 6/ 0, 12/ DD 00249 M01S00024.tlrout1 +++|* 00250 M01S00025.tlrout1 +++|* CM = *TLF* CONVERSION MODE (DISPLAY CODE). 00251 M01S00026.tlrout1 +++|* DD = DATA DECLARATION (DISPLAY CODE). 00252 M01S00027.tlrout1 +++| 00253 M01S00028.tlrout1 +++| 00254 M01S00029.tlrout1 +++| TCDD BSS 00255 M01S00030.tlrout1 +++| VFD 42/0LUC,6/0,12/0LC6 UPPER CASE DISPLAY CODE 00256 M01S00031.tlrout1 +++| VFD 42/0LUCDC,6/0,12/0LC6 UPPER CASE DISPLAY CODE 00257 M01S00032.tlrout1 +++| VFD 42/0LUL,6/0,12/0LC8 UPPER/LOWER CASE DISPLAY CODE 00258 M01S00033.tlrout1 +++| VFD 42/0LULDC,6/0,12/0LC8 UPPER/LOWER CASE DISPLAY CODE 00259 M01S00034.tlrout1 +++| VFD 42/0LAS,6/0,12/0LUS ASCII8 (7/12) 00260 M01S00035.tlrout1 +++| VFD 42/0LASCII8,6/0,12/0LUS ASCII8 (7/12) 00261 M01S00036.tlrout1 +++| VFD 42/0LEB,6/0,12/0LUU EBCDIC (8/12) 00262 M01S00037.tlrout1 +++| VFD 42/0LEBCDIC,6/0,12/0LUU EBCDIC (8/12) 00263 M01S00038.tlrout1 +++| TCDDL EQU *-TCDD
| Line S00220 Modification History | |
|---|---|
M01 (Removed by) | ns2624 |
Seq # *Modification Id* Act ----------------------------+ 00264 M01S00220.ns2624 ---| TDCC SPACE 4,10 00265 M01S00221.ns2624 ---|** TDCC - DISPOSITION CODE TYPE TABLE. 00266 M01S00222.ns2624 ---|* 00267 M01S00223.ns2624 ---|*T 12/ CODE,42/ ,3/ T,3/
Figure
00268 M01S00224.ns2624 ---|* 00269 M01S00225.ns2624 ---|* T - TYPE INDICATOR 00270 M01S00226.ns2624 ---|* 0 = NO TYPE. 00271 M01S00227.ns2624 ---|* 1 = PRINT TYPE. 00272 M01S00228.ns2624 ---|* 2 = PUNCH TYPE. 00273 M01S00229.ns2624 ---|* 3 = PLOT TYPE. 00274 M01S00230.ns2624 ---| 00275 M01S00231.ns2624 ---| 00276 M01S00232.ns2624 ---| TDCC BSS 0 00277 M01S00233.ns2624 ---| VFD 12/0LFL,42/,3/3,3/0 00278 M01S00234.ns2624 ---| VFD 12/0LFR,42/,3/3,3/0 00279 M01S00235.ns2624 ---| VFD 12/0LHL,42/,3/3,3/0 00280 M01S00236.ns2624 ---| VFD 12/0LHR,42/,3/3,3/0 00281 M01S00237.ns2624 ---| VFD 12/0LIN,42/,3/0,3/0 00282 M01S00238.ns2624 ---| VFD 12/0LLP,42/,3/1,3/0 00283 M01S00239.ns2624 ---| VFD 12/0LLQ,42/,3/1,3/0 00284 M01S00240.ns2624 ---| VFD 12/0LLR,42/,3/1,3/0 00285 M01S00241.ns2624 ---| VFD 12/0LLS,42/,3/1,3/0 00286 M01S00242.ns2624 ---| VFD 12/0LLT,42/,3/1,3/0 00287 M01S00243.ns2624 ---| VFD 12/0LLX,42/,3/1,3/0 00288 M01S00244.ns2624 ---| VFD 12/0LLY,42/,3/1,3/0 00289 M01S00245.ns2624 ---| VFD 12/0LNO,42/,3/0,3/0 00290 M01S00246.ns2624 ---| VFD 12/0LPB,42/,3/2,3/0 00291 M01S00247.ns2624 ---| VFD 12/0LPH,42/,3/2,3/0 00292 M01S00248.ns2624 ---| VFD 12/0LPL,42/,3/3,3/0 00293 M01S00249.ns2624 ---| VFD 12/0LPR,42/,3/1,3/0 00294 M01S00250.ns2624 ---| VFD 12/0LPU,42/,3/2,3/0 00295 M01S00251.ns2624 ---| VFD 12/0LP1,42/,3/1,3/0 00296 M01S00252.ns2624 ---| VFD 12/0LP2,42/,3/1,3/0 00297 M01S00253.ns2624 ---| VFD 12/0LP8,42/,3/2,3/0 00298 M01S00254.ns2624 ---| VFD 12/0LSB,42/,3/2,3/0 00299 M01S00255.ns2624 ---| VFD 12/0LSC,42/,3/0,3/0 00300 M01S00256.ns2624 ---| VFD 12/0LTO,42/,3/0,3/0 00301 M01S00257.ns2624 ---| VFD 12/0LTT,42/,3/0,3/0 00302 M01S00258.ns2624 ---| VFD 12/0LWT,42/,3/0,3/0 00303 M01S00259.ns2624 ---| CON 0 END OF TABLE 00304 M01S00260.ns2624 ---| TECC SPACE 4,10 00305 M01S00261.ns2624 ---|** TECC - EXTERNAL CHARACTERISTICS CONVERSION TABLE 00306 M01S00262.ns2624 ---|* 00307 M01S00263.ns2624 ---|*T 30/ CODE,24/ ,3/ T,3 EC
Figure
Bitfield Rendering Failure ======== ========= ======= The field description [ { "name": "", "bits": 3 EC, "type": 4 }, { "name": " T", "bits": 3, "type": 3 }, { "name": " ", "bits": 24, "type": 2 }, { "name": " CODE", "bits": 30, "type": 1 } ] is invalid. Please check your syntax and try again.
00308 M01S00264.ns2624 ---|* 00309 M01S00265.ns2624 ---|* T - TYPE INDICATOR 00310 M01S00266.ns2624 ---|* 0 = NO TYPE. 00311 M01S00267.ns2624 ---|* 1 = PRINT TYPE. 00312 M01S00268.ns2624 ---|* 2 = PUNCH TYPE. 00313 M01S00269.ns2624 ---|* 3 = PLOT TYPE. 00314 M01S00270.ns2624 ---|* EC - INTERFACE CODE. 00315 M01S00271.ns2624 ---| 00316 M01S00272.ns2624 ---| 00317 M01S00273.ns2624 ---| TECC BSS 0 00318 M01S00274.ns2624 ---| VFD 30/0LA4,24/,3/1,3/A4EX 00319 M01S00275.ns2624 ---| VFD 30/0LA6,24/,3/1,3/A6EX 00320 M01S00276.ns2624 ---| VFD 30/0LA9,24/,3/1,3/A9EX 00321 M01S00277.ns2624 ---| VFD 30/0LB4,24/,3/1,3/B4EX 00322 M01S00278.ns2624 ---| VFD 30/0LB6,24/,3/1,3/B6EX 00323 M01S00279.ns2624 ---| VFD 30/0LASCII,24/,3/2,3/ASFR 00324 M01S00280.ns2624 ---| VFD 30/0LO26,24/,3/2,3/PHFR 00325 M01S00281.ns2624 ---| VFD 30/0L026,24/,3/2,3/PHFR 00326 M01S00282.ns2624 ---| VFD 30/0LO29,24/,3/2,3/P9FR 00327 M01S00283.ns2624 ---| VFD 30/0L029,24/,3/2,3/P9FR 00328 M01S00284.ns2624 ---| VFD 30/0LSB,24/,3/2,3/PBFR 00329 M01S00285.ns2624 ---| VFD 30/0L80COL,24/,3/2,3/P8FR 00330 M01S00286.ns2624 ---| VFD 30/0LT6,24/,3/3,3/T6EX 00331 M01S00287.ns2624 ---| VFD 30/0LT8,24/,3/3,3/T8EX 00332 M01S00288.ns2624 ---| CON 0 END OF TABLE 00333 M01S00289.ns2624 ---| TICC SPACE 4,10 00334 M01S00290.ns2624 ---|** TICC - INTERNAL CHARACTERISTICS CONVERSION TABLE 00335 M01S00291.ns2624 ---|* 00336 M01S00292.ns2624 ---|*T 30/ CODE,28/,2/ I
Figure
00337 M01S00293.ns2624 ---|* 00338 M01S00294.ns2624 ---|* I - INTERFACE CODE. 00339 M01S00295.ns2624 ---| 00340 M01S00296.ns2624 ---| 00341 M01S00297.ns2624 ---| TICC BSS 0 00342 M01S00298.ns2624 ---| VFD 30/0LDIS,28/,2/DCIC 00343 M01S00299.ns2624 ---| VFD 30/0LASCII,28/,2/ASIC 00344 M01S00300.ns2624 ---| VFD 30/0LBIN,28/,2/BNIC 00345 M01S00301.ns2624 ---| CON 0 END OF TABLE 00346 M01S00302.ns2624 ---| TKEY SPACE 4,10 00347 M01S00303.ns2624 ---|** KEYWORD TABLE. 00348 M01S00304.ns2624 ---|* 00349 M01S00305.ns2624 ---|*T 36/ KEYWORD,6/ NEP,18/ PROCESSOR
Figure
00350 M01S00306.ns2624 ---|* NEP = 1 IF NONEQUIVALENCED PARAMETER ALLOWED. 00351 M01S00307.ns2624 ---| 00352 M01S00308.ns2624 ---| TKEY BSS 0 00353 M01S00309.ns2624 ---| VFD 36/0LDC,6/,18/KDC 00354 M01S00310.ns2624 ---| VFD 36/0LDEF,6/1,18/KDE 00355 M01S00311.ns2624 ---| VFD 36/0LDO,6/,18/KDO 00356 M01S00312.ns2624 ---| VFD 36/0LEC,6/,18/KEC 00357 M01S00313.ns2624 ---| VFD 36/0LFC,6/,18/KFC 00358 M01S00314.ns2624 ---| VFD 36/0LFID,6/,18/KUJ 00359 M01S00315.ns2624 ---| VFD 36/0LFM,6/1,18/KFM 00360 M01S00316.ns2624 ---| VFD 36/0LIC,6/,18/KIC 00361 M01S00317.ns2624 ---| VFD 36/0LID,6/1,18/KID 00362 M01S00318.ns2624 ---| VFD 18/0LJSN,24/,18/KJS 00363 M01S00319.ns2624 ---| VFD 36/0LOT,6/,18/KOT 00364 M01S00320.ns2624 ---| VFD 36/0LPI,6/,18/KPI 00365 M01S00321.ns2624 ---| VFD 36/0LPRI,6/1,18/KPR 00366 M01S00322.ns2624 ---| VFD 36/0LREP,6/,18/KRE 00367 M01S00323.ns2624 ---| VFD 36/0LSC,6/,18/KSC 00368 M01S00324.ns2624 ---| VFD 36/0LST,6/,18/KST 00369 M01S00325.ns2624 ---| VFD 36/0LSCL,6/,18/KSV 00370 M01S00326.ns2624 ---| VFD 36/0LTID,6/1,18/KTD 00371 M01S00327.ns2624 ---| VFD 36/0LUJN,6/,18/KUJ 00372 M01S00328.ns2624 ---| VFD 36/0LUN,6/1,18/KUN 00373 M01S00329.ns2624 ---| CON 0 END OF TABLE 00374 M01S00330.ns2624 ---| TLOT SPACE 4,10 00375 M01S00331.ns2624 ---|** TLOT - LEGAL ORIGIN TYPE TABLE. 00376 M01S00332.ns2624 ---|* 00377 M01S00333.ns2624 ---|* FOR USE WITH THE *OT* PARAMETER. 00378 M01S00334.ns2624 ---|* 00379 M01S00335.ns2624 ---|*T 24/ ORIGIN TYPE,29/ ,6/ VALUE,1/
Figure
00380 M01S00336.ns2624 ---| 00381 M01S00337.ns2624 ---| 00382 M01S00338.ns2624 ---| TLOT BSS 0 00383 M01S00339.ns2624 ---| VFD 24/0LBCOT,29/,6/BCOT,1/0 00384 M01S00340.ns2624 ---| VFD 24/0LEIOT,29/,6/EIOT,1/0 00385 M01S00341.ns2624 ---| VFD 24/0LRBOT,29/,6/RBOT,1/0 00386 M01S00342.ns2624 ---| VFD 24/0LSYOT,29/,6/SYOT,1/0 00387 M01S00343.ns2624 ---| CON 0 END OF TABLE 00388 M01S00344.ns2624 ---| TPIN SPACE 4,10 00389 M01S00345.ns2624 ---|** TPIN - TABLE OF PRINT IMAGE NAMES. 00390 M01S00346.ns2624 ---|* 00391 M01S00347.ns2624 ---|*T 42/ NAME,12/ MASK,6/ CODE
Figure
00392 M01S00348.ns2624 ---|* 00393 M01S00349.ns2624 ---|* NAME - PRINT IMAGE NAME. 00394 M01S00350.ns2624 ---|* MASK - CHARACTER MASK SIZE - 1. 00395 M01S00351.ns2624 ---|* CODE - PRINT IMAGE ORDINAL ( 0 - 7 ). 00396 M01S00352.ns2624 ---| 00397 M01S00353.ns2624 ---| 00398 M01S00354.ns2624 ---| LIST G 00399 M01S00355.ns2624 ---| 00400 M01S00356.ns2624 ---| TPIN TPIN 00401 M01S00357.ns2624 ---| 00402 M01S00358.ns2624 ---| PISD EQU /BIO/PISD 00403 M01S00359.ns2624 ---| 00404 M01S00360.ns2624 ---| LIST * 00405 M01S00361.ns2624 ---| TSCT SPACE 4,10 00406 M01S00362.ns2624 ---|** TSCT - SERVICE CLASS TABLE. 00407 M01S00363.ns2624 ---|* 00408 M01S00364.ns2624 ---|*T 12/PARAM,48/
Figure
00409 M01S00365.ns2624 ---|* 00410 M01S00366.ns2624 ---|* PARAM - SERVICE CLASS MNEMONIC. 00411 M01S00367.ns2624 ---|* 00412 M01S00368.ns2624 ---|* NOTE - ONLY SERVICE CLASSES WITH JOB CONTROL BLOCKS RESIDE 00413 M01S00369.ns2624 ---|* IN THIS TABLE. *TSCT* ENTRIES MUST BE CONTIGUOUS. 00414 M01S00370.ns2624 ---| 00415 M01S00371.ns2624 ---| TSCT BSS 0 00416 M01S00372.ns2624 ---| LIST D 00417 M01S00373.ns2624 ---| .SCL HERE 00418 M01S00374.ns2624 ---| LIST * 00419 M01S00375.ns2624 ---| VFD 12/0LDF,48/ SELECTS USER DEFAULT 00420 M01S00376.ns2624 ---| CON 0 00421 M01S00377.ns2624 ---| TSCTL EQU *-TSCT-2 00422 M01S00378.ns2624 ---| ERRNZ TSCTL-MXJC+1 ENSURE ALL SERVICE CLASSES PRESENT
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2624 |
Seq # *Modification Id* Act ----------------------------+ 00423 M01S00001.ns2624 +++| LIST X 00424 M01S00002.ns2624 +++|*CALL COMTDSP 00425 M01S00003.ns2624 +++| LIST -X 00426 M00S00379.route +++| ROUTE TITLE MAIN PROGRAM 00427 M00S00380.route +++|** ROUTE - PROCESS COMMAND. 00428 M00S00381.route +++| 00429 M00S00382.route +++| 00430 M00S00383.route +++| ROUTE BSS 0 ENTRY 00431 M00S00384.route +++| SB1 1 00432 M00S00385.route +++| SA1 ACTR 00433 M00S00386.route +++| R= A0,ARGR FIRST ARGUMENT ADDRESS 00434 M00S00387.route +++| SB6 X1 SET ARGUMENT COUNT 00435 M00S00388.route +++| MX0 -18 00436 M00S00389.route +++| SA1 A0 00437 M00S00390.route +++| ZR B6,ABT IF NOT AT LEAST ONE ARGUMENT 00438 M00S00391.route +++| 00439 M00S00392.route +++|* GET FILE NAME. 00440 M00S00393.route +++| 00441 M00S00394.route +++| BX6 -X0*X1 00442 M00S00395.route +++| AX6 1 00443 M00S00396.route +++| NZ X6,ABT IF FILE NAME NOT FIRST PARAMETER 00444 M00S00397.route +++| BX7 X0*X1 00445 M00S00398.route +++| SA7 TDSP STORE FILE NAME 00446 M00S00399.route +++| 00447 M00S00400.route +++|* PROCESS NEXT PARAMETER. 00448 M00S00401.route +++| 00449 M00S00402.route +++| EPRX BSS 0 END-OF-PROCESSING PARAMETER EXIT 00450 M00S00403.route +++| SB6 B6-B1 REDUCE REMAINING PARAMETER COUNT 00451 M00S00404.route +++| SA0 A0+B1 00452 M00S00405.route +++| LE B6,B0,DSP IF END OF PARAMETERS 00453 M00S00406.route +++| SA2 A0 GET NEXT ARGUMENT 00454 M00S00407.route +++| MX3 0 ZERO PARAMETER 00455 M00S00408.route +++| SX7 X2-1R= 00456 M00S00409.route +++| ZR X7,ROU1 IF *=* SEPARATOR 00457 M00S00410.route +++| SX7 X2-2 00458 M00S00411.route +++| NZ X7,ROU3 IF NOT *=* SEPARATOR (NOS/BE FORMAT) 00459 M00S00412.route +++| 00460 M00S00413.route +++|* PROCESS EQUIVALENCED PARAMETER, IF PRESENT. 00461 M00S00414.route +++| 00462 M00S00415.route +++| ROU1 SA0 A0+B1 00463 M00S00416.route +++| SB6 B6-B1 00464 M00S00417.route +++| SA3 A0 GET NEXT PARAMETER 00465 M00S00418.route +++| SB2 X3 00466 M00S00419.route +++| LE B2,B1,ROU2 IF 0 OR 1 TERMINATOR 00467 M00S00420.route +++| SB2 B2-17B 00468 M00S00421.route +++| ZR B2,ROU2 IF 17B TERMINATOR 00469 M00S00422.route +++| EQ ABT ABORT 00470 M00S00423.route +++| 00471 M00S00424.route +++| ROU2 MX0 42 CHECK FOR NULL PARAMETER 00472 M00S00425.route +++| BX3 X0*X3 00473 M00S00426.route +++| NZ X3,ROU3 IF NOT NULL PARAMETER 00474 M00S00427.route +++| SX3 -1 SET NULL PARAMETER FLAG 00475 M00S00428.route +++| 00476 M00S00429.route +++|* SEARCH FOR KEYWORD. 00477 M00S00430.route +++| 00478 M00S00431.route +++| ROU3 SA1 TKEY-1 00479 M00S00432.route +++| MX0 36 00480 M00S00433.route +++| ROU4 SA1 A1+B1 00481 M00S00434.route +++| BX7 X1-X2 COMPARE KEYWORD 00482 M00S00435.route +++| BX7 X0*X7 00483 M00S00436.route +++| SB2 X1 SET PROCESSOR ADDRESS 00484 M00S00437.route +++| ZR X1,ROU6 IF KEYWORD NOT FOUND IN TABLE 00485 M00S00438.route +++| NZ X7,ROU4 IF NOT THIS KEYWORD 00486 M00S00439.route +++| SX7 -B1 DELETE KEYWORD FROM TABLE 00487 M00S00440.route +++| SA7 A1 00488 M00S00441.route +++| MX0 42 00489 M00S00442.route +++| BX7 X3-X7 00490 M00S00443.route +++| ZR X7,EPRX IF NULL PARAMETER, IGNORE 00491 M00S00444.route +++| BX3 X0*X3 00492 M00S00445.route +++| LX1 59-18 00493 M00S00446.route +++| NG X1,ROU5 IF NONEQUIVALENCED PARAMETER ALLOWED 00494 M00S00447.route +++| ZR X3,ABT IF NONEQUIVALENCED PARAMETER 00495 M00S00448.route +++| ROU5 JP B2 EXECUTE KEYWORD PROCESSOR 00496 M00S00449.route +++| 00497 M00S00450.route +++| ROU6 MESSAGE (=C* ROUTE INCORRECT KEYWORD.*),0,RECALL 00498 M00S00451.route +++| EQ ABT1 ABORT 00499 M00S00452.route +++| 00500 M00S00453.route +++| ABT MESSAGE (=C* ROUTE COMMAND ERROR.*),0,RECALL 00501 M00S00454.route +++| ABT1 ABORT 00502 M00S00455.route +++| 00503 M00S00456.route +++|* MAKE *DSP* CALL. 00504 M00S00457.route +++| 00505 M00S00458.route +++| DSP SA1 TDSP+1 00506 M00S00459.route +++| MX0 -12 EXTRACT DISPOSITION CODE 00507 M00S00460.route +++| BX2 X1 00508 M00S00461.route +++| AX1 24 00509 M00S00462.route +++| BX7 -X0*X1 00510 M00S00463.route +++| SB3 B0 INITIALIZE POINTER 00511 M00S00464.route +++| AX1 12 00512 M00S00465.route +++| BX1 -X0*X1 00513 M00S00466.route +++| SX3 X7-2RSC 00514 M00S00467.route +++| NZ X3,DSP0 IF NOT *DC=SC* 00515 M00S00468.route +++| SA0 B1 SET * ROUTE COMPLETE.* MESSAGE 00516 M00S00469.route +++| EQ DSP1 CONTINUE 00517 M00S00470.route +++| 00518 M00S00471.route +++| DSP0 SA3 DSPB+B3 GET INPUT MNEMONIC 00519 M00S00472.route +++| ZR X3,DSP0.2 IF END OF TABLE 00520 M00S00473.route +++| IX3 X7-X3 00521 M00S00474.route +++| ZR X3,DSP0.1 IF MATCH 00522 M00S00475.route +++| SB3 B3+B1 GET NEXT MNEMONIC 00523 M00S00476.route +++| EQ DSP0 CONTINUE 00524 M00S00477.route +++| 00525 M00S00478.route +++| DSP0.1 NZ X1,ABT IF *FC=XX* ON INPUT DISPOSITION 00526 M00S00479.route +++| SA1 PDEF CHECK FOR *DEF* PARAMETER 00527 M00S00480.route +++| NZ X1,ABT IF DEFERRED INPUT FILE 00528 M00S00481.route +++| DSP0.2 SA0 0 SET *ROUTE COMPLETE. JSN IS XXXX.* 00529 M00S00482.route +++| DSP1 SA1 PFUN 00530 M00S00483.route +++| SA3 PTID 00531 M00S00484.route +++| SX4 FRTI 00532 M00S00485.route +++| BX6 X3+X1 00533 M00S00486.route +++| BX7 X4+X2 00534 M00S00487.route +++| ZR X6,DSP2 IF NOT REMOTE ROUTING 00535 M00S00488.route +++| SA7 TDSP+1 SET *TID* FLAG BIT 00536 M00S00489.route +++| SA1 TFUN 00537 M00S00490.route +++| SA2 A1+B1 00538 M00S00491.route +++| BX2 X2+X1 00539 M00S00492.route +++| ZR X2,DSP2 IF IMPLICIT REMOTE ROUTING 00540 M00S00493.route +++| SA2 TDSP+2 00541 M00S00494.route +++| SX3 A1 SET ADDRESS OF FAMILY/USERNUMBER BLOCK 00542 M00S00495.route +++| MX0 36 00543 M00S00496.route +++| BX3 -X3 00544 M00S00497.route +++| BX6 -X0*X3 00545 M00S00498.route +++| BX2 X0*X2 00546 M00S00499.route +++| BX6 X2+X6 00547 M00S00500.route +++| SA6 TDSP+2 00548 M00S00501.route +++| DSP2 MX0 -3 00549 M00S00502.route +++| SA1 PDCT 00550 M00S00503.route +++| LX0 3 00551 M00S00504.route +++| SA2 PECT 00552 M00S00505.route +++| BX1 -X0*X1 GET *DC* TYPE 00553 M00S00506.route +++| BX2 -X0*X2 GET *EC* TYPE 00554 M00S00507.route +++| ZR X1,DSP3 IF NO *DC* TYPE 00555 M00S00508.route +++| ZR X2,DSP3 IF NO *EC* TYPE 00556 M00S00509.route +++| BX1 X1-X2 00557 M00S00510.route +++| ZR X1,DSP3 IF TYPES COMPARE 00558 M00S00511.route +++| MESSAGE (=C/ ROUTE *DC* INCOMPATIBLE WITH *EC*./),3,RECALL 00559 M00S00512.route +++| EQ ABT1 ABORT 00560 M00S00513.route +++| 00561 M00S00514.route +++| DSP3 ROUTE TDSP,RECALL 00562 M00S00515.route +++| SX1 A0 00563 M00S00516.route +++| SA2 TDSP 00564 M00S00517.route +++| MX0 -1 00565 M00S00518.route +++| SA3 A2+B1 GET FLAGS FIELD 00566 M00S00519.route +++| BX3 -X0*X3 00567 M00S00520.route +++| NZ X3,DSP5 IF THIS WAS A DEFERRED ROUTE 00568 M00S00521.route +++| NZ X1,DSP5 IF JSN NOT TO BE RETURNED 00569 M00S00522.route +++| SA3 DSPA+2 POSITION JSN 00570 M00S00523.route +++| MX0 24 00571 M00S00524.route +++| BX6 X0*X2 00572 M00S00525.route +++| ZR X6,DSP5 IF NO JSN RETURNED 00573 M00S00526.route +++| LX0 30 00574 M00S00527.route +++| BX3 -X0*X3 00575 M00S00528.route +++| LX6 30 00576 M00S00529.route +++| BX6 X3+X6 00577 M00S00530.route +++| SA6 DSPA+2 STORE JSN IN MESSAGE 00578 M00S00531.route +++| MESSAGE DSPA,3,RECALL 00579 M00S00532.route +++| DSP4 ENDRUN 00580 M00S00533.route +++| 00581 M00S00534.route +++| DSP5 MESSAGE (=C* ROUTE COMPLETE.*),3,RECALL 00582 M00S00535.route +++| EQ DSP4 00583 M00S00536.route +++| 00584 M00S00537.route +++| DSPA DATA H/ ROUTE COMPLETE. JSN IS XXXX./ 00585 M00S00538.route +++| DSPB DATA 2RIN *DC=IN* 00586 M00S00539.route +++| DATA 2RNO *DC=NO* 00587 M00S00540.route +++| DATA 2RTO *DC=TO* 00588 M00S00541.route +++| DATA 0 00589 M00S00542.route +++| TITLE KEYWORD PROCESSORS. 00590 M00S00543.route +++|** ALL OF THE FOLLOWING ROUTINES HAVE COMMON ENTRY AND EXIT 00591 M00S00544.route +++|* CONDITIONS- 00592 M00S00545.route +++|* 00593 M00S00546.route +++|* ENTRY X3 = PARAMETER WHEN *KW=PP* IS THE FORMAT. 00594 M00S00547.route +++|* X3 = ZERO IF NO PARAMETER WITH KEYWORD. 00595 M00S00548.route +++|* 00596 M00S00549.route +++|* EXIT CORRECT ENTRIES MADE IN *TDSP*. 00597 M00S00550.route +++|* RETURN IN ALL NORMAL CASES TO *EPRX* 00598 M00S00551.route +++|* 00599 M00S00552.route +++|* USES ALL REGISTERS EXCEPT A0, B6.
| Line S00553 Modification History | |
|---|---|
M01 (Removed by) | tlrout1 |
Seq # *Modification Id* Act ----------------------------+ 00600 M01S00553.tlrout1 ---| 00601 M01S00554.tlrout1 ---|
| Line S00039 Modification History | |
|---|---|
M01 (Added by) | tlrout1 |
Seq # *Modification Id* Act ----------------------------+ 00602 M01S00039.tlrout1 +++| KCM SPACE 4,10 00603 M01S00040.tlrout1 +++|** KCM - PROCESS *CM=XX* (CONVERSION MODE). 00604 M01S00041.tlrout1 +++|* 00605 M01S00042.tlrout1 +++|* EXIT DATA DECLARATION EQUIVALENCE STORED. 00606 M01S00043.tlrout1 +++| 00607 M01S00044.tlrout1 +++| 00608 M01S00045.tlrout1 +++| KCM BSS 00609 M01S00046.tlrout1 +++| SB2 TCDD SET EQUIVALENCE TABLE FWA 00610 M01S00047.tlrout1 +++| SB3 TCDD+TCDDL SET EQUIVALENCE TABLE LWA+1 00611 M01S00048.tlrout1 +++| SX0 7777B 00612 M01S00049.tlrout1 +++| SA5 TDSP+1 00613 M01S00050.tlrout1 +++| KCM1 GE B2,B3,KCM2 IF CONVERSION MODE NOT FOUND 00614 M01S00051.tlrout1 +++| SA1 B2 GET TABLE ENTRY 00615 M01S00052.tlrout1 +++| BX2 -X0*X1 00616 M01S00053.tlrout1 +++| SB2 B2+B1 ADVANCE TABLE ADDRESS 00617 M01S00054.tlrout1 +++| BX2 X2-X3 00618 M01S00055.tlrout1 +++| NZ X2,KCM1 IF NAMES DO NOT COMPARE 00619 M01S00056.tlrout1 +++| R= X3,FREB SET EXTENDED FLAG 00620 M01S00057.tlrout1 +++| BX6 X5+X3 00621 M01S00058.tlrout1 +++| SA6 A5 00622 M01S00059.tlrout1 +++| BX2 X0*X1 EXTRACT DATA DECLARATION 00623 M01S00060.tlrout1 +++| R= X3,EFDD SET DATA DECLARATION EXTENDED FLAG 00624 M01S00061.tlrout1 +++| SA5 TDSP+7 00625 M01S00062.tlrout1 +++| LX2 48 POSITION DATA DECLARATION 00626 M01S00063.tlrout1 +++| BX6 X5+X3 00627 M01S00064.tlrout1 +++| BX6 X6+X2 INSERT DATA DECLARATION 00628 M01S00065.tlrout1 +++| SA6 A5 00629 M01S00066.tlrout1 +++| EQ EPRX RETURN 00630 M01S00067.tlrout1 +++| 00631 M01S00068.tlrout1 +++| KCM2 MESSAGE (=C+ ROUTE INCORRECT *CM* PARAMETER.+),3,R 00632 M01S00069.tlrout1 +++| EQ ABT1 ABORT 00633 M00S00555.route +++| KDC SPACE 4,10 00634 M00S00556.route +++|** KDC - PROCESS DC=XX. DISPOSITION CODE. 00635 M00S00557.route +++|* 00636 M00S00558.route +++|* EXIT *DC* FIELD SET IN *TDSP+1* 00637 M00S00559.route +++|* *FLAGS* ENTERED WITH *FRDC* IN *TDSP+1*. 00638 M00S00560.route +++| 00639 M00S00561.route +++| 00640 M00S00562.route +++| KDC BSS 0 ENTRY 00641 M00S00563.route +++| SA1 TDCC-1 00642 M00S00564.route +++| MX0 12 00643 M00S00565.route +++| 00644 M00S00566.route +++|* FIND CODE IN TABLE. 00645 M00S00567.route +++| 00646 M00S00568.route +++| KDC1 SA1 A1+1 00647 M00S00569.route +++| BX7 X1-X3 COMPARE CODES 00648 M00S00570.route +++| BX7 X0*X7 00649 M00S00571.route +++| ZR X1,KDC2 IF END OF TABLE 00650 M00S00572.route +++| NZ X7,KDC1 IF NO MATCH 00651 M00S00573.route +++| KDC2 BX7 X1 00652 M00S00574.route +++| SA7 PDCT SET TYPE PROCESSED 00653 M00S00575.route +++| LX3 -24 POSITION PARAMETER 00654 M00S00576.route +++| SA1 TDSP+1 00655 M00S00577.route +++| SX7 FRDC 00656 M00S00578.route +++| LX0 -24 POSITION MASK 00657 M00S00579.route +++| BX3 X0*X3 00658 M00S00580.route +++| BX1 -X0*X1 00659 M00S00581.route +++| BX3 X1+X3 ENTER *DC* PARAMETER 00660 M00S00582.route +++| BX7 X3+X7 ENTER FLAG BIT 00661 M00S00583.route +++| SA7 A1 00662 M00S00584.route +++| EQ EPRX RETURN 00663 M00S00585.route +++| KDE SPACE 4,10 00664 M00S00586.route +++|** KDE - PROCESS *DEF*. DEFERRED ROUTE 00665 M00S00587.route +++|* 00666 M00S00588.route +++|* EXIT *FLAGS* IN *TDSP+1* ENTERED WITH *FRDR*. 00667 M00S00589.route +++| 00668 M00S00590.route +++| 00669 M00S00591.route +++| KDE BSS 0 ENTRY 00670 M00S00592.route +++| NZ X3,ABT IF EQUIVALENCED PARAMETER 00671 M00S00593.route +++| SA1 TDSP+1 00672 M00S00594.route +++| SX7 FRDR 00673 M00S00595.route +++| SA7 PDEF SET *DEF* PARAMETER ENTERED FLAG 00674 M00S00596.route +++| BX7 X1+X7 ENTER FLAG 00675 M00S00597.route +++| SA7 A1 00676 M00S00598.route +++| EQ EPRX RETURN 00677 M00S00599.route +++| KDO SPACE 4,10 00678 M00S00600.route +++|** KDO - PROCESS *DO=XXX*. DEFAULT OUTPUT MAINFRAME. 00679 M00S00601.route +++|* 00680 M00S00602.route +++|* EXIT SOURCE LOGICAL ID IS PLACED IN *TDSP+2*. 00681 M00S00603.route +++|* 00682 M00S00604.route +++|* ERROR IF INCORRECT *DO* PARAMETER OR *LID* IS 00683 M00S00605.route +++|* GREATER THAN THREE CHARACTERS. 00684 M00S00606.route +++| 00685 M00S00607.route +++| 00686 M00S00608.route +++| KDO BSS 0 ENTRY 00687 M00S00609.route +++| MX0 18 00688 M00S00610.route +++| BX2 -X0*X3 00689 M00S00611.route +++| AX2 18 00690 M00S00612.route +++| NZ X2,KDO2 IF *LID* GREATER THAN THREE CHARACTERS 00691 M00S00613.route +++| BX6 X0*X3 EXTRACT OUTPUT MAINFRAME *LID* 00692 M00S00614.route +++| SA5 =1L* CHECK FOR ASTERISK 00693 M00S00615.route +++| R= X4,LCPD SET SLID TO PID 00694 M00S00616.route +++| LX6 18 00695 M00S00617.route +++| IX3 X4-X6 00696 M00S00618.route +++| PL X3,KDO2 IF .LE. SPECIAL SLID VALUES 00697 M00S00619.route +++| LX5 18 00698 M00S00620.route +++| BX5 X5-X6 00699 M00S00621.route +++| NZ X5,KDO1 IF NOT ASTERISK 00700 M00S00622.route +++| BX6 X4 SET SLID=PID 00701 M00S00623.route +++| KDO1 SA2 TDSP+2 SET SLID IN TDSP 00702 M00S00624.route +++| BX2 -X0*X2 00703 M00S00625.route +++| LX6 42 00704 M00S00626.route +++| BX6 X2+X6 00705 M00S00627.route +++| SA6 A2 00706 M00S00628.route +++| SX6 FRLD 00707 M00S00629.route +++| SA1 A2-B1 SET SLID/DLID FLAG 00708 M00S00630.route +++| BX6 X1+X6 00709 M00S00631.route +++| SA6 A1+ STORE FLAG 00710 M00S00632.route +++| EQ EPRX RETURN 00711 M00S00633.route +++| 00712 M00S00634.route +++| KDO2 MESSAGE (=C+ ROUTE INCORRECT *DO* PARAMETER.+),3,RECALL 00713 M00S00635.route +++| EQ ABT1 ABORT 00714 M00S00636.route +++| KEC SPACE 4,10 00715 M00S00637.route +++|** KEC - PROCESS *EC=XX*. EXTERNAL CHARACTERISTICS. 00716 M00S00638.route +++|* 00717 M00S00639.route +++|* EXIT *EC* FIELD SET IN *TDSP+1*. 00718 M00S00640.route +++|* *FLAGS* FIELD IN *TDSP+1* ENTERED WITH *FREC*. 00719 M00S00641.route +++| 00720 M00S00642.route +++| 00721 M00S00643.route +++| KEC BSS 0 ENTRY 00722 M00S00644.route +++| SA1 TECC-1 00723 M00S00645.route +++| MX0 36 00724 M00S00646.route +++| SA2 TDSP+1 00725 M00S00647.route +++| MX7 -3 00726 M00S00648.route +++| 00727 M00S00649.route +++| KEC1 SA1 A1+B1 00728 M00S00650.route +++| ZR X1,KEC2 IF *EC* NOT FOUND 00729 M00S00651.route +++| BX6 X3-X1 00730 M00S00652.route +++| BX6 X0*X6 00731 M00S00653.route +++| NZ X6,KEC1 IF NOT CORRECT *EC* 00732 M00S00654.route +++| BX6 X1 00733 M00S00655.route +++| SA6 PECT SET TYPE PROCESSED 00734 M00S00656.route +++| LX7 23-2 POSITION MASK 00735 M00S00657.route +++| LX1 23-2 POSITION ENTRY FROM *EC* TABLE 00736 M00S00658.route +++| SX6 FREC 00737 M00S00659.route +++| BX2 X7*X2 00738 M00S00660.route +++| BX1 -X7*X1 00739 M00S00661.route +++| BX6 X2+X6 ENTER FLAG BIT 00740 M00S00662.route +++| BX6 X1+X6 ENTER *EC* CODE 00741 M00S00663.route +++| SA6 A2+ 00742 M00S00664.route +++| EQ EPRX RETURN 00743 M00S00665.route +++| 00744 M00S00666.route +++| KEC2 MESSAGE (=C+ ROUTE INCORRECT *EC* PARAMETER.+),3,RECALL 00745 M00S00667.route +++| EQ ABT1 ABORT 00746 M00S00668.route +++| KFC SPACE 4,10 00747 M00S00669.route +++|** KFC - PROCESS *FC=XX. FORMS CODE. 00748 M00S00670.route +++|* 00749 M00S00671.route +++|* EXIT *FC* FIELD SET IN *TDSP+1*. 00750 M00S00672.route +++|* *FLAGS* FIELD IN *TDSP+1* ENTERED WITH *FRFC*. 00751 M00S00673.route +++|* 00752 M00S00674.route +++|* ERROR TO *ABT1*. 00753 M00S00675.route +++|* 00754 M00S00676.route +++|* MACROS MESSAGE. 00755 M00S00677.route +++| 00756 M00S00678.route +++| 00757 M00S00679.route +++| KFC BSS 0 ENTRY 00758 M00S00680.route +++| SA1 TDSP+1 00759 M00S00681.route +++| MX0 -48 00760 M00S00682.route +++| SX6 FRFC 00761 M00S00683.route +++| BX2 -X0*X3 00762 M00S00684.route +++| LX3 -12 00763 M00S00685.route +++| NZ X2,KFC1 IF FORMS CODE GREATER THAN TWO CHARACTERS 00764 M00S00686.route +++| LX0 -12 00765 M00S00687.route +++| BX1 X1+X6 ENTER FLAG BIT 00766 M00S00688.route +++| BX3 X0*X3 00767 M00S00689.route +++| BX6 X1+X3 ENTER FORMS CODE 00768 M00S00690.route +++| SA6 A1 00769 M00S00691.route +++| EQ EPRX RETURN 00770 M00S00692.route +++| 00771 M00S00693.route +++| KFC1 MESSAGE (=C+ ROUTE INCORRECT *FC* PARAMETER.+),0,RECALL 00772 M00S00694.route +++| EQ ABT1 ABORT 00773 M00S00695.route +++| KFM SPACE 4,10 00774 M00S00696.route +++|** KFM - PROCESS *FM=XXXXXXX* PARAMETER. 00775 M00S00697.route +++|* 00776 M00S00698.route +++|* EXIT FAMILY NAME ENTERED IN *TFUN*. 00777 M00S00699.route +++|* FLAG SET IN *PFUN* IF *PTID* AND *PDID* ARE ZERO. 00778 M00S00700.route +++| 00779 M00S00701.route +++| 00780 M00S00702.route +++| KFM BSS 0 ENTRY 00781 M00S00703.route +++| SA1 PDID 00782 M00S00704.route +++| NZ X1,KFM2 IF *FM* AND *ID* CONFLICT 00783 M00S00705.route +++| SA1 PTID 00784 M00S00706.route +++| SX7 FRTI 00785 M00S00707.route +++| NZ X1,KFM1 IF *TID* PROCESSED 00786 M00S00708.route +++| SA7 PFUN SET *FM-UN* FLAG 00787 M00S00709.route +++| ZR X3,EPRX IF IMPLICIT REMOTE ROUTING 00788 M00S00710.route +++| MX0 42 00789 M00S00711.route +++| BX7 X0*X3 00790 M00S00712.route +++| SA7 TFUN STORE FAMILY NAME IN *TFUN* 00791 M00S00713.route +++| EQ EPRX RETURN 00792 M00S00714.route +++| 00793 M00S00715.route +++| KFM1 MESSAGE (=C+ ROUTE *TID* AND *FM/UN* CONFLICT.+),3,RECALL 00794 M00S00716.route +++| EQ ABT1 ABORT 00795 M00S00717.route +++| 00796 M00S00718.route +++| KFM2 MESSAGE (=C+ ROUTE *TID/FM/UN* AND *ID* CONFLICT.+),3,RECALL 00797 M00S00719.route +++| EQ ABT1 ABORT 00798 M00S00720.route +++| KIC SPACE 4,10 00799 M00S00721.route +++|** KIC - PROCESS *IC=XX* (INTERNAL CHARACTERISTICS) 00800 M00S00722.route +++|*
| Line S00723 Modification History | |
|---|---|
M01 (Removed by) | ns2597 |
Seq # *Modification Id* Act ----------------------------+ 00801 M01S00723.ns2597 ---|* EXIT *EC* FIELD SET IN *TDSP+1*.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2597 |
Seq # *Modification Id* Act ----------------------------+ 00802 M01S00001.ns2597 +++|* EXIT *IC* FIELD SET IN *TDSP+1*. 00803 M00S00724.route +++|* *FLAGS* FIELD IN *TDSP+1* ENTERED WITH *FRIC*. 00804 M00S00725.route +++| 00805 M00S00726.route +++| 00806 M00S00727.route +++| KIC BSS 0 ENTRY 00807 M00S00728.route +++| SA1 TDSP+1 00808 M00S00729.route +++| SA2 TICC-1 00809 M00S00730.route +++| SX6 FRIC 00810 M00S00731.route +++| MX7 -2 00811 M00S00732.route +++| MX0 36 00812 M00S00733.route +++| LX7 19-1 POSITION MASK 00813 M00S00734.route +++| BX6 X1+X6 ENTER FLAG BIT 00814 M00S00735.route +++| 00815 M00S00736.route +++| KIC1 SA2 A2+B1 00816 M00S00737.route +++| ZR X2,KIC2 IF UNKNOWN *IC* CODE 00817 M00S00738.route +++| BX1 X3-X2 00818 M00S00739.route +++| BX1 X0*X1 00819 M00S00740.route +++| NZ X1,KIC1 IF NOT FOUND 00820 M00S00741.route +++| LX2 19-1 00821 M00S00742.route +++| BX6 X7*X6 00822 M00S00743.route +++| BX2 -X7*X2 00823 M00S00744.route +++| BX6 X6+X2 ENTER IC CODE 00824 M00S00745.route +++| SA6 A1 00825 M00S00746.route +++| EQ EPRX RETURN 00826 M00S00747.route +++| 00827 M00S00748.route +++| KIC2 MESSAGE (=C+ ROUTE INCORRECT *IC* PARAMETER.+),3,RECALL 00828 M00S00749.route +++| EQ ABT1 ABORT 00829 M00S00750.route +++| KID SPACE 4,10 00830 M00S00751.route +++|** KID - PROCESS *ID=NN* (LOCAL DEVICE ID). 00831 M00S00752.route +++|* 00832 M00S00753.route +++|* EXIT DEVICE ID STORED IN *TDSP+2* (TID FIELD). 00833 M00S00754.route +++|* *FLAGS* FIELD IN *TDSP+1* ENTERED WITH *FRTI*. 00834 M00S00755.route +++|* *PDID* SET IF *PTID* AND *PFUN* ARE ZERO. 00835 M00S00756.route +++| 00836 M00S00757.route +++| 00837 M00S00758.route +++| KID BSS 0 ENTRY 00838 M00S00759.route +++| SA1 PTID 00839 M00S00760.route +++| SA2 PFUN 00840 M00S00761.route +++| SX7 B1 00841 M00S00762.route +++| BX1 X1+X2 00842 M00S00763.route +++| NZ X1,KFM2 IF *ID* - *TID*/*FM*/*UN* CONFLICT 00843 M00S00764.route +++| SA7 PDID 00844 M00S00765.route +++| ZR X3,KID1 IF NONEQUIVALENCED PARAMETER 00845 M00S00766.route +++| SB7 B0 SET OCTAL CONVERSION DEFAULT 00846 M00S00767.route +++| BX5 X3 00847 M00S00768.route +++| RJ =XDXB 00848 M00S00769.route +++| NZ X4,ABT IF CONVERSION ERROR 00849 M00S00770.route +++| SA1 TDSP+2 00850 M00S00771.route +++| MX0 36 00851 M00S00772.route +++| SX2 X6-IDLM 00852 M00S00773.route +++| BX7 X0*X1 00853 M00S00774.route +++| PL X2,ABT IF ID .GE. IDLM 00854 M00S00775.route +++| BX7 X7+X6 00855 M00S00776.route +++| SA7 A1 00856 M00S00777.route +++| SX3 FRTI 00857 M00S00778.route +++| 00858 M00S00779.route +++| KID1 SA2 TDSP+1 00859 M00S00780.route +++| SX6 FRCS 00860 M00S00781.route +++| BX6 X2+X6 SET CENTRAL SITE ROUTING FLAG 00861 M00S00782.route +++| BX6 X3+X6 OPTIONALLY SET *TID* FLAG 00862 M00S00783.route +++| SA6 A2+ 00863 M00S00784.route +++| EQ EPRX RETURN 00864 M00S00785.route +++| KJS SPACE 4,10 00865 M00S00786.route +++|** KJS - PROCESS *JSN=XXX* (UNIQUE JSN). 00866 M00S00787.route +++|*
| Line S00788 Modification History | |
|---|---|
M01 (Removed by) | ns2556 |
Seq # *Modification Id* Act ----------------------------+ 00867 M01S00788.ns2556 ---|* EXIT SUBSYSTEM NAME FIELD SET IN *TDSP+6*.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2556 |
Seq # *Modification Id* Act ----------------------------+ 00868 M01S00001.ns2556 +++|* EXIT FORCED JSN FIELD SET IN *TDSP+6*. 00869 M00S00789.route +++|* *FLAGS* FIELD IN *TDSP+1* ENTERED WITH *FRFJ*. 00870 M00S00790.route +++| 00871 M00S00791.route +++| 00872 M00S00792.route +++| KJS BSS 0 ENTRY 00873 M00S00793.route +++| ZR X3,ABT IF NULL PARAMETER
| Line S00794 Modification History | |
|---|---|
M01 (Removed by) | ns2556 |
Seq # *Modification Id* Act ----------------------------+ 00874 M01S00794.ns2556 ---| SA1 PUJN 00875 M01S00795.ns2556 ---| NZ X1,ABT IF BOTH *JSN* AND *UJN* SPECIFIED 00876 M00S00796.route ---| SX6 B1+ 00877 M00S00797.route ---| SA6 PJSN 00878 M00S00798.route ---| SA1 JOPR CHECK JOB ORIGIN TYPE 00879 M00S00799.route ---| MX0 -12 00880 M00S00800.route ---| LX1 0-24 00881 M00S00801.route ---| BX1 -X0*X1 00882 M00S00802.route ---| MX0 42 00883 M00S00803.route ---| IFNE SYOT,0,1 00884 M00S00804.route ---| SX1 X1-SYOT 00885 M00S00805.route ---| ZR X1,KJS1 IF SYSTEM ORIGIN JOB 00886 M00S00806.route ---| MESSAGE (=C+ ROUTE *JSN* NOT ALLOWED.+),3 00887 M00S00807.route ---| EQ ABT1 ABORT 00888 M00S00808.route ---| 00889 M00S00809.route ---| KJS1 LX3 18 00890 M00S00810.route ---| BX1 X0*X3 00891 M00S00811.route ---| NZ X1,KJS2 IF JSN TOO LONG 00892 M00S00812.route ---| MX7 -6 00893 M00S00813.route ---| BX1 -X7*X3 00894 M00S00814.route ---| ZR X1,KJS2 IF JSN TOO SHORT 00895 M00S00815.route ---| SA1 TDSP+6 00896 M00S00816.route ---| SA2 TDSP+1 00897 M00S00817.route ---| BX6 X0*X1 00898 M01S00818.ns2556 ---| BX6 X6+X3 SET JSN IN UJN FIELD
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2556 |
Seq # *Modification Id* Act ----------------------------+ 00899 M01S00002.ns2556 +++| BX6 X6+X3 SET JSN IN FORCED JSN FIELD 00900 M00S00819.route +++| SX7 FRFJ 00901 M00S00820.route +++| BX7 X2+X7 SET FORCED JSN FLAG 00902 M00S00821.route +++| SA6 A1 00903 M00S00822.route +++| SA7 A2+ 00904 M00S00823.route +++| EQ EPRX RETURN 00905 M00S00824.route +++| 00906 M00S00825.route +++| KJS2 MESSAGE (=C+ ROUTE INCORRECT *JSN* PARAMETER.+),3 00907 M00S00826.route +++| EQ ABT1 ABORT 00908 M00S00827.route +++| KOT SPACE 4,10 00909 M00S00828.route +++|** KOT - PROCESS *OT=XXXX* (ORIGIN TYPE). 00910 M00S00829.route +++|* 00911 M00S00830.route +++|* EXIT *F* AND *OT* FIELDS SET IN *TDSP*. 00912 M00S00831.route +++| 00913 M00S00832.route +++| 00914 M00S00833.route +++| KOT BSS 0 ENTRY 00915 M00S00834.route +++| SA1 JOPR CHECK JOB ORIGIN TYPE 00916 M00S00835.route +++| MX0 -12 00917 M00S00836.route +++| LX1 11-35 00918 M00S00837.route +++| BX1 -X0*X1 00919 M00S00838.route +++| MX0 30 00920 M00S00839.route +++| SA2 TLOT-1 00921 M00S00840.route +++| SX1 X1-SYOT 00922 M00S00841.route +++| ZR X1,KOT1 IF *SYOT* JOB ORIGIN 00923 M00S00842.route +++| MESSAGE (=C/ ROUTE *OT* NOT ALLOWED./),3,RECALL 00924 M00S00843.route +++| EQ ABT1 ABORT 00925 M00S00844.route +++| 00926 M00S00845.route +++| KOT1 SA2 A2+1 00927 M00S00846.route +++| BX6 X3-X2 00928 M00S00847.route +++| BX6 X0*X6 00929 M00S00848.route +++| ZR X2,KOT2 IF END OF TABLE 00930 M00S00849.route +++| NZ X6,KOT1 IF NOT A MATCH 00931 M00S00850.route +++| MX0 -7 00932 M00S00851.route +++| SA1 TDSP 00933 M00S00852.route +++| BX2 -X0*X2 EXTRACT ORIGIN VALUE 00934 M00S00853.route +++| SX2 X2+4000B SET FLAG BIT 00935 M00S00854.route +++| BX1 X0*X1 00936 M00S00855.route +++| BX7 X1+X2 ENTER ORIGIN VALUE 00937 M00S00856.route +++| SA7 TDSP 00938 M00S00857.route +++| EQ EPRX RETURN 00939 M00S00858.route +++| 00940 M00S00859.route +++| KOT2 MESSAGE (=C+ ROUTE INCORRECT *OT* PARAMETER.+),3,RECALL 00941 M00S00860.route +++| EQ ABT1 ABORT 00942 M00S00861.route +++| KPI SPACE 4,10 00943 M00S00862.route +++|** KPI - PROCESS *PI=NNNNNNN* (PRINT IMAGE). 00944 M00S00863.route +++|* 00945 M00S00864.route +++|* EXIT- *P* FLAG AND *PI* FIELD SET IN *TDSP+4* 00946 M00S00865.route +++|* 00947 M00S00866.route +++| 00948 M00S00867.route +++| 00949 M00S00868.route +++| KPI BSS 0 ENTRY 00950 M00S00869.route +++| ZR X3,EPRX IF NULL PARAMETER 00951 M00S00870.route +++| SA1 TPIN-1 00952 M00S00871.route +++| MX0 1 00953 M00S00872.route +++| 00954 M00S00873.route +++|* CHECK FOR VALID PRINT IMAGE NAME. 00955 M00S00874.route +++| 00956 M00S00875.route +++| KPI1 SA1 A1+B1 CHECK NEXT ENTRY 00957 M00S00876.route +++| ZR X1,KPI2 IF END OF TABLE 00958 M00S00877.route +++| SX6 X1 ISOLATE MASK SIZE 00959 M00S00878.route +++| BX7 X1-X3 00960 M00S00879.route +++| AX6 6 00961 M00S00880.route +++| SB4 X6 00962 M00S00881.route +++| AX6 X0,B4 FORM MASK 00963 M00S00882.route +++| BX2 X6*X7 00964 M00S00883.route +++| NZ X2,KPI1 IF NO MATCH 00965 M00S00884.route +++| SA2 TDSP+4B 00966 M00S00885.route +++| MX0 -6 ISOLATE PRINT IMAGE ORDINAL 00967 M00S00886.route +++| LX2 6 00968 M00S00887.route +++| BX6 -X0*X1 00969 M00S00888.route +++| BX7 X0*X2
| Line S00889 Modification History | |
|---|---|
M01 (Removed by) | route9 |
Seq # *Modification Id* Act ----------------------------+ 00970 M01S00889.route9 ---| SX6 X6+40B SET PRINT IMAGE FLAG
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | route9 |
Seq # *Modification Id* Act ----------------------------+ 00971 M01S00001.route9 +++| SX6 X6+10B SET PRINT IMAGE FLAG 00972 M00S00890.route +++| BX7 X6+X7 SET PRINT IMAGE CODE INTO PARAMETER BLOCK 00973 M00S00891.route +++| LX7 -6 00974 M00S00892.route +++| SA7 A2 00975 M00S00893.route +++| EQ EPRX RETURN 00976 M00S00894.route +++| 00977 M00S00895.route +++| KPI2 MESSAGE (=C/ ROUTE UNKNOWN *PI* PARAMETER./),3,R 00978 M00S00896.route +++| EQ ABT1 ABORT 00979 M00S00897.route +++| KPR SPACE 4,10 00980 M00S00898.route +++|** KPR - PROCESS *PRI=NNNN* (PRIORITY) 00981 M00S00899.route +++|* 00982 M00S00900.route +++|* EXIT MESSAGE ISSUED, PARAMETER IGNORED. 00983 M00S00901.route +++| 00984 M00S00902.route +++| 00985 M00S00903.route +++| KPR BSS 0 ENTRY 00986 M00S00904.route +++| MESSAGE (=C/ ROUTE *PRI* IGNORED./),3,RECALL 00987 M00S00905.route +++| EQ EPRX RETURN 00988 M00S00906.route +++| KRE SPACE 4,10 00989 M00S00907.route +++|** KRE - PROCESS *REP=NN* (REPEAT COUNT) 00990 M00S00908.route +++|* 00991 M00S00909.route +++|* EXIT REPEAT COUNT SET IN *TDSP+4* - *RC* FIELD. 00992 M00S00910.route +++|* *FLAGS* IN *TDSP+1* ENTERED WITH *FRRC*. 00993 M00S00911.route +++| 00994 M00S00912.route +++| 00995 M00S00913.route +++| KRE BSS 0 ENTRY 00996 M00S00914.route +++| SB7 B1 SET DECIMAL CONVERSION 00997 M00S00915.route +++| BX5 X3 00998 M00S00916.route +++| RJ =XDXB CONVERT VALUE 00999 M00S00917.route +++| NZ X4,ABT IF CONVERSION ERROR 01000 M00S00918.route +++| SA1 TDSP+1
| Line S00919 Modification History | |
|---|---|
M01 (Removed by) | ns2591 |
Seq # *Modification Id* Act ----------------------------+ 01001 M01S00919.ns2591 ---| MX0 -5
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | ns2591 |
Seq # *Modification Id* Act ----------------------------+ 01002 M01S00004.ns2591 +++| MX0 -6 01003 M00S00920.route +++| BX2 X0*X6
| Line S00921 Modification History | |
|---|---|
M01 (Removed by) | ns2591 |
Seq # *Modification Id* Act ----------------------------+ 01004 M01S00921.ns2591 ---| NZ X2,KRE1 IF VALUE GT 31D (37B)
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | ns2591 |
Seq # *Modification Id* Act ----------------------------+ 01005 M01S00005.ns2591 +++| NZ X2,KRE1 IF VALUE .GT. 63D (77B) 01006 M00S00922.route +++| SA2 TDSP+4 01007 M00S00923.route +++| SX7 FRRC
| Line S00924 Modification History | |
|---|---|
M01 (Removed by) | ns2591 |
Seq # *Modification Id* Act ----------------------------+ 01008 M01S00924.ns2591 ---| LX0 16-4 POSITION MASK 01009 M01S00925.ns2591 ---| LX6 16-4 POSITION VALUE
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | ns2591 |
Seq # *Modification Id* Act ----------------------------+ 01010 M01S00006.ns2591 +++| LX0 12 POSITION MASK 01011 M01S00007.ns2591 +++| LX6 12 POSITION VALUE 01012 M00S00926.route +++| BX2 X0*X2 01013 M00S00927.route +++| BX7 X1+X7 SET FLAG BIT 01014 M00S00928.route +++| SA7 A1 01015 M00S00929.route +++| BX6 X6+X2 ENTER REPEAT COUNT 01016 M00S00930.route +++| SA6 A2+ 01017 M00S00931.route +++| EQ EPRX RETURN 01018 M00S00932.route +++|
| Line S00933 Modification History | |
|---|---|
M01 (Removed by) | ns2591 |
Seq # *Modification Id* Act ----------------------------+ 01019 M01S00933.ns2591 ---| KRE1 MESSAGE (=C/ ROUTE *REP* GT 31. DEFAULT USED./),3,RECALL
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | ns2591 |
Seq # *Modification Id* Act ----------------------------+ 01020 M01S00008.ns2591 +++| KRE1 MESSAGE (=C/ ROUTE *REP* GT 63. DEFAULT USED./),3,RECALL 01021 M00S00934.route +++| EQ EPRX RETURN 01022 M00S00935.route +++| KSC SPACE 4,10 01023 M00S00936.route +++|** KSC - PROCESS *SC=XX* (SPACING CODE). 01024 M00S00937.route +++|* 01025 M00S00938.route +++|* EXIT SPACING CODE ENTERED IN *TDSP+4*. 01026 M00S00939.route +++| 01027 M00S00940.route +++| 01028 M00S00941.route +++| KSC BSS 0 ENTRY 01029 M00S00942.route +++| SB7 B0 SET OCTAL CONVERSION 01030 M00S00943.route +++| BX5 X3 01031 M00S00944.route +++| RJ =XDXB CONVERT VALUE 01032 M00S00945.route +++| NZ X4,ABT IF CONVERSION ERROR 01033 M00S00946.route +++| MX0 -6 ENTER SPACING CODE 01034 M00S00947.route +++| BX3 -X0*X6 01035 M00S00948.route +++| BX1 X0*X6 01036 M00S00949.route +++| ZR X1,KSC1 IF SC .LE. 77B 01037 M00S00950.route +++| MESSAGE (=C* ROUTE INCORRECT SPACING CODE.*),3,R 01038 M00S00951.route +++| EQ ABT1 ABORT 01039 M00S00952.route +++| 01040 M00S00953.route +++| KSC1 SA1 TDSP+4 01041 M00S00954.route +++| LX0 48 01042 M00S00955.route +++| BX1 X0*X1 01043 M00S00956.route +++| LX3 48 01044 M00S00957.route +++| BX6 X1+X3 01045 M00S00958.route +++| SA6 A1+ 01046 M00S00959.route +++| SA1 TDSP+1 SET SPACING CODE FLAG 01047 M00S00960.route +++| SX6 FRSC 01048 M00S00961.route +++| BX6 X6+X1 01049 M00S00962.route +++| SA6 A1 01050 M00S00963.route +++| EQ EPRX RETURN 01051 M00S00964.route +++| KST SPACE 4,10 01052 M00S00965.route +++|** KST - PROCESS *ST=XXX*. DESTINATION LID. 01053 M00S00966.route +++|* 01054 M00S00967.route +++|* EXIT THE LOGICAL ID IS PLACED IN *TDSP+2*. 01055 M00S00968.route +++|* 01056 M00S00969.route +++|* ERROR IF INCORRECT *ST* PARAMETER OR *LID* IS 01057 M00S00970.route +++|* GREATER THAN THREE CHARACTERS. 01058 M00S00971.route +++| 01059 M00S00972.route +++| 01060 M00S00973.route +++| KST BSS 0 ENTRY 01061 M00S00974.route +++| MX0 18 01062 M00S00975.route +++| BX2 -X0*X3 01063 M00S00976.route +++| AX2 18 01064 M00S00977.route +++| NZ X2,KST2 IF *LID* GREATER THAN THREE CHARACTERS 01065 M00S00978.route +++| BX6 X0*X3 01066 M00S00979.route +++| SA5 =1L* CHECK FOR ASTERISK 01067 M00S00980.route +++| R= X4,LCPD SET DLID TO PID 01068 M00S00981.route +++| LX6 18 01069 M00S00982.route +++| IX3 X4-X6 01070 M00S00983.route +++| PL X3,KST2 IF .LE. SPECIAL DLID VALUES 01071 M00S00984.route +++| LX5 18 01072 M00S00985.route +++| BX5 X5-X6 01073 M00S00986.route +++| NZ X5,KST1 IF NOT ASTERISK 01074 M00S00987.route +++| BX6 X4 SET DLID=PID 01075 M00S00988.route +++| KST1 LX6 24 01076 M00S00989.route +++| SA2 TDSP+2 SET DLID IN TDSP 01077 M00S00990.route +++| LX0 -18 01078 M00S00991.route +++| BX2 -X0*X2 01079 M00S00992.route +++| BX6 X6+X2 01080 M00S00993.route +++| SX1 FRLD SET SLID/DLID FLAG 01081 M00S00994.route +++| SA6 A2 01082 M00S00995.route +++| SA2 A2-B1 01083 M00S00996.route +++| BX6 X2+X1 01084 M00S00997.route +++| SA6 A2 STORE FLAG 01085 M00S00998.route +++| EQ EPRX RETURN 01086 M00S00999.route +++| 01087 M00S01000.route +++| KST2 MESSAGE (=C+ ROUTE INCORRECT *ST* PARAMETER.+),3,RECALL 01088 M00S01001.route +++| EQ ABT1 ABORT 01089 M00S01002.route +++| KSV SPACE 4,10 01090 M00S01003.route +++|** KSV - PROCESS *SCL=XX* (SERVICE CLASS). 01091 M00S01004.route +++|* 01092 M00S01005.route +++|* EXIT SERVICE CLASS ENTERED IN *TDSP+4*. 01093 M00S01006.route +++| 01094 M00S01007.route +++| 01095 M00S01008.route +++| KSV BSS 0 ENTRY 01096 M00S01009.route +++| SA1 TSCT-1 01097 M00S01010.route +++| 01098 M00S01011.route +++|* CHECK FOR VALID SERVICE CLASS. 01099 M00S01012.route +++| 01100 M00S01013.route +++| KSV1 SA1 A1+B1 01101 M00S01014.route +++| ZR X1,KSV2 IF END OF TABLE 01102 M00S01015.route +++| BX7 X1-X3 01103 M00S01016.route +++| NZ X7,KSV1 IF NO MATCH 01104 M00S01017.route +++| SA1 TDSP+4 01105 M00S01018.route +++| MX0 12 01106 M00S01019.route +++| BX7 X0*X3 SET SERVICE CLASS INTO PARAMETER BLOCK 01107 M00S01020.route +++| LX7 -12 01108 M00S01021.route +++| BX7 X7+X1 01109 M00S01022.route +++| SA7 A1 01110 M00S01023.route +++| SA1 TDSP+1 SET FORCED SERVICE CLASS FLAG 01111 M00S01024.route +++| MX0 -1 01112 M00S01025.route +++| LX0 20 01113 M00S01026.route +++| BX7 -X0+X1 01114 M00S01027.route +++| SA7 A1+ 01115 M00S01028.route +++| EQ EPRX RETURN 01116 M00S01029.route +++| 01117 M00S01030.route +++| KSV2 MESSAGE (=C+ ROUTE UNDEFINED SERVICE CLASS.+),3,RECALL 01118 M00S01031.route +++| EQ ABT1 ABORT 01119 M00S01032.route +++| KTD SPACE 4,10 01120 M00S01033.route +++|** KTD - PROCESS *TID=XX* (TERMINAL ID). 01121 M00S01034.route +++|* 01122 M00S01035.route +++|* EXIT *PTID* SET NON-ZERO IF *PFUN* AND *PDID* EQUAL ZERO. 01123 M00S01036.route +++|* *TID=C* PROCESSED AS *ID*. 01124 M00S01037.route +++|* *TID=XX* PROCESSED AS *UN*. 01125 M00S01038.route +++| 01126 M00S01039.route +++| 01127 M00S01040.route +++| KTD BSS 0 ENTRY 01128 M00S01041.route +++| SX6 1RC 01129 M00S01042.route +++| LX6 59-5 01130 M00S01043.route +++| BX6 X6-X3 01131 M00S01044.route +++| ZR X6,KTD1 IF *TID=C* - ROUTE TO CENTRAL SITE 01132 M00S01045.route +++| SA1 PDID 01133 M00S01046.route +++| NZ X1,KFM2 IF *TID* - *ID* CONFLICT 01134 M00S01047.route +++| SA1 PFUN 01135 M00S01048.route +++| NZ X1,KFM1 IF TID - FM/UN CONFLICT 01136 M00S01049.route +++| PL X3,KUN IF *TID=XX* 01137 M00S01050.route +++| SX7 FRTI 01138 M00S01051.route +++| SA7 PTID 01139 M00S01052.route +++| EQ EPRX RETURN 01140 M00S01053.route +++| 01141 M00S01054.route +++| KTD1 SX3 0 01142 M00S01055.route +++| EQ KID PROCESS AS *ID* 01143 M00S01056.route +++| KUJ SPACE 4,10 01144 M00S01057.route +++|** KUJ - PROCESS *UJN=XXXXXXX* (USER JOB NAME). 01145 M00S01058.route +++|* 01146 M00S01059.route +++|* EXIT *UJN* FIELD SET IN *TDSP+3*. 01147 M00S01060.route +++|* *FLAGS* IN *TDSP+1* ENTERED WITH *FRUJ*. 01148 M00S01061.route +++| 01149 M00S01062.route +++| 01150 M00S01063.route +++| KUJ BSS 0 ENTRY
| Line S01064 Modification History | |
|---|---|
M01 (Removed by) | ns2556 |
Seq # *Modification Id* Act ----------------------------+ 01151 M01S01064.ns2556 ---| SA1 PJSN 01152 M01S01065.ns2556 ---| NZ X1,ABT IF BOTH *JSN* AND *UJN* SPECIFIED 01153 M00S01066.route ---| SX6 B1+ 01154 M00S01067.route ---| SA6 PUJN 01155 M00S01068.route ---| SA1 TDSP+1 ENTER FLAG BIT 01156 M00S01069.route ---| SX7 FRUJ 01157 M00S01070.route ---| BX7 X1+X7 01158 M00S01071.route ---| SA7 A1 01159 M00S01072.route ---| SA1 TDSP+3 ENTER *UJN* PARAMETER 01160 M00S01073.route ---| BX1 -X0*X1 01161 M00S01074.route ---| BX6 X1+X3 01162 M00S01075.route ---| SA6 A1 01163 M00S01076.route ---| EQ EPRX RETURN 01164 M00S01077.route ---| KUN SPACE 4,10 01165 M00S01078.route ---|** KUN - PROCESS *UN=XXXXXXX* (USER NAME). 01166 M00S01079.route ---|* 01167 M00S01080.route ---|* EXIT USER NAME ENTERED IN *TFUN+1*. 01168 M00S01081.route ---|* FLAG SET IN *PFUN* IF *PTID* AND *PDID* ARE ZERO. 01169 M00S01082.route ---| 01170 M00S01083.route ---| 01171 M00S01084.route ---| KUN BSS 0 ENTRY 01172 M00S01085.route ---| SA1 PDID 01173 M00S01086.route ---| NZ X1,KFM2 IF *UN* - *ID* CONFLICT 01174 M00S01087.route ---| SA1 PTID 01175 M00S01088.route ---| SX7 FRTI 01176 M00S01089.route ---| NZ X1,KFM1 IF FM/UN - TID CONFLICT 01177 M00S01090.route ---| SA7 PFUN 01178 M00S01091.route ---| ZR X3,EPRX IF IMPLICIT REMOTE ROUTING 01179 M00S01092.route ---| MX0 42 01180 M00S01093.route ---| BX6 X0*X3 01181 M00S01094.route ---| SA6 TFUN+1 STORE USER NAME 01182 M00S01095.route ---| EQ EPRX RETURN 01183 M00S01096.route ---| SPACE 4,10 01184 M00S01097.route ---| USE LITERALS 01185 M00S01098.route ---| 01186 M00S01099.route ---|** COMMON DECKS. 01187 M00S01100.route ---| 01188 M00S01101.route ---|*CALL COMCDXB 01189 M00S01102.route ---|*CALL COMCSYS 01190 M00S01103.route ---| 01191 M00S01104.route ---| BSS 0 01192 M00S01105.route ---| RFL= EQU *+8 01193 M00S01106.route ---| 01194 M00S01107.route ---| END
cdc/nos2.source/opl.opl871/deck/route.txt · Last modified: (external edit)