8 Modifications

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.route   +++|          IDENT  ROUTE,ROU,ROUTE
00002  M01S00002.route   +++|          ABS
00003  M01S00003.route   +++|          SST
00004  M01S00004.route   +++|          SYSCOM B1
00005  M01S00005.route   +++|          ENTRY  ROUTE
00006  M01S00006.route   +++|          ENTRY  NPC=
00007  M01S00007.route   +++|          ENTRY  RFL=
00008  M01S00008.route   +++|*COMMENT  ROUTE - ROUTE FILE TO I/O QUEUE.

Seq #  *Modification Id* Act 
----------------------------+
00009  M02S00009.281l803 ---|          COMMENT  COPYRIGHT CONTROL DATA CORP. 1982.
00010  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00011  M01S00010.route   +++|          TITLE  ROUTE COMMAND PROCESSOR.
00012  M01S00011.route   +++|          SPACE  4,10
00013  M01S00012.route   +++|***       ROUTE - PROCESS ROUTE COMMAND.
00014  M01S00013.route   +++|*         R.N. LAGERSTROM    76/01/30.
00015  M01S00014.route   +++|*
00016  M01S00015.route   +++|*         ROUTE IS USED TO PLACE FILES INTO THE INPUT AND
00017  M01S00016.route   +++|*         OUTPUT QUEUES.
00018  M01S00017.route   +++|          SPACE  4,20
00019  M01S00018.route   +++|***       CALL.
00020  M01S00019.route   +++|*
00021  M01S00020.route   +++|*         ROUTE(LFN,P1,P2,...,PN)
00022  M01S00021.route   +++|*
00023  M01S00022.route   +++|*         LFN - FILE NAME TO ROUTE.
00024  M01S00023.route   +++|*
00025  M01S00024.route   +++|*         THE REMAINING PARAMETERS ARE ORDER INDEPENDENT.
00026  M01S00025.route   +++|*
00027  M01S00001.tlrout1 +++|*         CM=XX - *TLF* CONVERSION MODE.
00028  M01S00026.route   +++|*         DC=AA - TWO-CHARACTER DISPOSITION CODE (ALPHA CODE).
00029  M01S00027.route   +++|*         DEF - INDICATES DEFERRED (END-OF-JOB) ROUTING.
00030  M01S00028.route   +++|*         DO=XXX - DEFAULT OUTPUT MAINFRAME LOGICAL ID.
00031  M01S00029.route   +++|*         EC=XX - EXTERNAL CHARACTERISTICS.
00032  M01S00030.route   +++|*         FC=XX - FORMS CODE (TWO-CHARACTER ALPHA-NUMERIC).
00033  M01S00031.route   +++|*         FID=XXXXXXX - FILE ID.  (NOS/BE COMPATIBILITY)
00034  M01S00032.route   +++|*         FM=XXXXXXX - FAMILY NAME.
00035  M01S00033.route   +++|*         FM - IMPLICIT REMOTE ROUTING.
00036  M01S00034.route   +++|*         IC=XX - INTERNAL CHARACTERISTICS.
00037  M01S00035.route   +++|*         ID=NN - SELECT LOCAL DEVICE (0-67 OCTAL DEFAULT).
00038  M01S00036.route   +++|*         ID - IMPLICIT CENTRAL SITE ROUTING.
00039  M01S00037.route   +++|*         JSN=XXX - FORCE A UNIQUE THREE CHARACTER JSN ON A JOB.
00040  M01S00038.route   +++|*         OT=XXXX - SET THE ORIGIN TYPE OF THE FILE.
00041  M01S00039.route   +++|*         PI=N - PRINT IMAGE ORDINAL ( 0 - 7 )
00042  M01S00040.route   +++|*         PI=XXXXXXX - PRINT IMAGE NAME ( 1 TO 7 CHARACTER NAME )
00043  M01S00041.route   +++|*         PRI=NNNN - FILE PRIORITY. IGNORED WITH MESSAGE.

Seq #  *Modification Id* Act 
----------------------------+
00044  M02S00042.ns2591  ---|*         REP=NN - REPEAT COUNT (0-31 DECIMAL DEFAULT).
00045  M01S00001.ns2591  +++|*         REP=NN - REPEAT COUNT (0-63 DECIMAL DEFAULT).
00046  M01S00043.route   +++|*         SC=XX - SPACING CODE (FOR 580-PFC SUPPORT).
00047  M01S00044.route   +++|*         SCL=XX - SELECT SERVICE CLASS FOR OUTPUT FILES (TWO-CHARACTER
00048  M01S00045.route   +++|*                  ALPHA-NUMERIC).
00049  M01S00046.route   +++|*         ST=XXX - LOGICAL ID (LID) OF SYSTEM TO WHICH FILE IS TO
00050  M01S00047.route   +++|*                  BE ROUTED.
00051  M01S00048.route   +++|*         TID=XX - PROCESSED AS UN=XXXXXXX (FOR NOS/BE COMPATIBILITY).
00052  M01S00049.route   +++|*         TID=C - IMPLICIT CENTRAL SITE ROUTING.
00053  M01S00050.route   +++|*         TID - IMPLICIT REMOTE ROUTING.
00054  M01S00051.route   +++|*         UJN=XXXXXXX - USER JOB NAME.
00055  M01S00052.route   +++|*         UN=XXXXXXX - USER NAME.
00056  M01S00053.route   +++|*         UN - IMPLICIT REMOTE ROUTING.
00057  M01S00054.route   +++|*
00058  M01S00055.route   +++|*         NOTE-
00059  M01S00056.route   +++|*
00060  M01S00057.route   +++|*         1. CENTRAL SITE ROUTING WILL BE SELECTED BY DEFAULT FOR ALL
00061  M01S00058.route   +++|*         ORIGIN TYPES EXCEPT *RBOT* UNLESS TID (EXCEPT TID=C), FM,
00062  M01S00059.route   +++|*         OR UN IS INCLUDED.
00063  M01S00060.route   +++|*
00064  M01S00061.route   +++|*         2. FOR *RBOT* ORIGIN JOBS, ROUTING WILL BE TO THE TERMINAL
00065  M01S00062.route   +++|*         OF ORIGIN UNLESS TID, FM, OR UN ARE SPECIFIED WITH A
00066  M01S00063.route   +++|*         PARAMETER. *TID=C* OR *TID* WILL ROUTE TO CENTRAL SITE.
00067  M01S00064.route   +++|*
00068  M01S00065.route   +++|*         3. IMPLICIT REMOTE ROUTING MEANS THAT ROUTING WILL BE TO A
00069  M01S00066.route   +++|*         REMOTE TERMINAL IDENTIFIED BY THE FM-UN OF THE JOB MAKING
00070  M01S00067.route   +++|*         THE REQUEST.
00071  M01S00068.route   +++|*
00072  M01S00069.route   +++|*         4. IMPLICIT CENTRAL SITE ROUTING WILL SUPPLY THE DEFAULT
00073  M01S00070.route   +++|*         LOCAL DEVICE ID AND OVER-RIDE DEFAULT REMOTE ROUTING FOR
00074  M01S00071.route   +++|*         *RBOT* ORIGIN JOBS.
00075  M01S00072.route   +++|          SPACE  4,10
00076  M01S00073.route   +++|**        PROGRAMS CALLED.
00077  M01S00074.route   +++|*
00078  M01S00075.route   +++|*         DSP - ROUTE FILE.
00079  M01S00076.route   +++|          SPACE  4,10
00080  M01S00077.route   +++|**        COMMON DECKS CALLED.
00081  M01S00078.route   +++|*
00082  M01S00079.route   +++|*         COMCDXB
00083  M01S00080.route   +++|*         COMCMAC
00084  M01S00081.route   +++|*         COMCSYS
00085  M01S00082.route   +++|*         COMSBIO
00086  M01S00083.route   +++|*         COMSDSP
00087  M01S00084.route   +++|*         COMSJIO
00088  M01S00085.route   +++|*         COMSSCD
00089  M01S00086.route   +++|*         COMSSSJ
00090  M01S00087.route   +++|          SPACE  4,20
00091  M01S00088.route   +++|***       MESSAGES ISSUED.
00092  M01S00089.route   +++|*
00093  M01S00090.route   +++|*         ROUTE COMMAND ERROR.
00094  M01S00091.route   +++|*         ROUTE COMPLETE.
00095  M01S00092.route   +++|*         ROUTE COMPLETE.  JSN IS XXXX.
00096  M01S00093.route   +++|*         ROUTE *DC* INCOMPATIBLE WITH *EC*.
00097  M01S00002.tlrout1 +++|*         ROUTE INCORRECT *CM* PARAMETER.
00098  M01S00094.route   +++|*         ROUTE INCORRECT *DO* PARAMETER.
00099  M01S00095.route   +++|*         ROUTE INCORRECT *EC* PARAMETER.
00100  M01S00096.route   +++|*         ROUTE INCORRECT *FC* PARAMETER.
00101  M01S00097.route   +++|*         ROUTE INCORRECT *IC* PARAMETER.
00102  M01S00001.271l716 +++|*         ROUTE INCORRECT *JSN* PARAMETER.
00103  M01S00098.route   +++|*         ROUTE INCORRECT KEYWORD.
00104  M01S00099.route   +++|*         ROUTE INCORRECT *OT* PARAMETER.
00105  M01S00100.route   +++|*         ROUTE INCORRECT SPACING CODE.
00106  M01S00101.route   +++|*         ROUTE INCORRECT *ST* PARAMETER.
00107  M01S00002.271l716 +++|*         ROUTE *JSN* NOT ALLOWED.
00108  M01S00102.route   +++|*         ROUTE *OT* NOT ALLOWED.
00109  M01S00103.route   +++|*         ROUTE *PRI* IGNORED.

Seq #  *Modification Id* Act 
----------------------------+
00110  M02S00104.ns2591  ---|*         ROUTE *REP* GT 31. DEFAULT USED.
00111  M01S00002.ns2591  +++|*         ROUTE *REP* .GT. 63. DEFAULT USED.
00112  M01S00105.route   +++|*         ROUTE *TID* AND *FM/UN* CONFLICT.
00113  M01S00106.route   +++|*         ROUTE *TID/FM/UN* AND *ID* CONFLICT.
00114  M01S00107.route   +++|*         ROUTE UNDEFINED SERVICE CLASS.
00115  M01S00108.route   +++|*         ROUTE UNKNOWN *PI* PARAMETER.

Seq #  *Modification Id* Act 
----------------------------+
00116  M02S00109.271l716 ---|*         ROUTE *JSN* NOT ALLOWED.

Seq #  *Modification Id* Act 
----------------------------+
00117  M02S00110.271l716 ---|*         ROUTE INCORRECT *JSN* PARAMETER.
00118  M01S00111.route   +++|          SPACE  4,10
00119  M01S00112.route   +++|**        DEFINE.
00120  M01S00113.route   +++|*         EXTERNAL CHARACTERISTICS (EC), AND
00121  M01S00114.route   +++|*         INTERNAL CHARACTERISTICS (IC).
00122  M01S00115.route   +++|          SPACE  4,10
00123  M01S00116.route   +++|*         SPECIAL ENTRY POINT.
00124  M01S00117.route   +++|
00125  M01S00118.route   +++| NPC=     EQU    0           FORCE OPERATING SYSTEM PARAMETER FORMAT
00126  M01S00119.route   +++|
00127  M01S00120.route   +++|
00128  M01S00121.route   +++|          QUAL   BIO
00129  M01S00122.route   +++|*CALL     COMSBIO
00130  M01S00123.route   +++|          QUAL   *
00131  M01S00124.route   +++|*CALL     COMSDSP
00132  M01S00125.route   +++|*CALL     COMCMAC
00133  M01S00126.route   +++|*CALL     COMSSSJ
00134  M01S00127.route   +++|          LIST   X
00135  M01S00128.route   +++|
00136  M01S00129.route   +++|*CALL     COMSJIO
00137  M01S00130.route   +++|
00138  M01S00131.route   +++|          LIST   *

Seq #  *Modification Id* Act 
----------------------------+
00139  M02S00132.ns2624  ---| SCLASS   SPACE  4,15

Seq #  *Modification Id* Act 
----------------------------+
00140  M02S00133.ns2624  ---|**        SCLASS - DEFINE SERVICE CLASS TABLE.

Seq #  *Modification Id* Act 
----------------------------+
00141  M02S00134.ns2624  ---|*

Seq #  *Modification Id* Act 
----------------------------+
00142  M02S00135.ns2624  ---|*         SCLASS NM,MN,DF,ST,TX

Seq #  *Modification Id* Act 
----------------------------+
00143  M02S00136.ns2624  ---|*

Seq #  *Modification Id* Act 
----------------------------+
00144  M02S00137.ns2624  ---|*         ENTRY  *NM* = SERVICE CLASS NAME.

Seq #  *Modification Id* Act 
----------------------------+
00145  M02S00138.ns2624  ---|*                *MN* = TWO CHARACTER MNEMONIC.

Seq #  *Modification Id* Act 
----------------------------+
00146  M02S00139.ns2624  ---|*                *DF* = DAYFILE MESSAGE CHARACTER.

Seq #  *Modification Id* Act 
----------------------------+
00147  M02S00140.ns2624  ---|*                *ST* = SHORT TEXT FOR *QFTLIST*.

Seq #  *Modification Id* Act 
----------------------------+
00148  M02S00141.ns2624  ---|*                *TX* = TEXT OF SERVICE CLASS NAME FOR BANNER PAGE.

Seq #  *Modification Id* Act 
----------------------------+
00149  M02S00142.ns2624  ---|*

Seq #  *Modification Id* Act 
----------------------------+
00150  M02S00143.ns2624  ---|*         NOTE - THE CALL TO *COMSSCD* MUST FOLLOW THE DEFINITION OF

Seq #  *Modification Id* Act 
----------------------------+
00151  M02S00144.ns2624  ---|*                THIS MACRO.

Seq #  *Modification Id* Act 
----------------------------+
00152  M02S00145.ns2624  ---|

Seq #  *Modification Id* Act 
----------------------------+
00153  M02S00146.ns2624  ---|

Seq #  *Modification Id* Act 
----------------------------+
00154  M02S00147.ns2624  ---|          PURGMAC  SCLASS

Seq #  *Modification Id* Act 
----------------------------+
00155  M02S00148.ns2624  ---|

Seq #  *Modification Id* Act 
----------------------------+
00156  M02S00149.ns2624  ---| SCLASS   MACRO  NM,MN,DF,ST,TX

Seq #  *Modification Id* Act 
----------------------------+
00157  M02S00150.ns2624  ---| .SCL     RMT

Seq #  *Modification Id* Act 
----------------------------+
00158  M02S00151.ns2624  ---|          VFD    12/0L_MN,48/0  TX

Seq #  *Modification Id* Act 
----------------------------+
00159  M02S00152.ns2624  ---| .SCL     RMT

Seq #  *Modification Id* Act 
----------------------------+
00160  M02S00153.ns2624  ---| SCLASS   ENDM

Seq #  *Modification Id* Act 
----------------------------+
00161  M02S00154.ns2624  ---|

Seq #  *Modification Id* Act 
----------------------------+
00162  M02S00155.ns2624  ---|

Seq #  *Modification Id* Act 
----------------------------+
00163  M02S00156.ns2624  ---| SCL$     EQU    0           ONLY PROCESS CLASSES WITH JCB-S

Seq #  *Modification Id* Act 
----------------------------+
00164  M02S00157.ns2624  ---|*CALL     COMSSCD
00165  M01S00158.route   +++|          TITLE  TABLE DEFINITIONS.
00166  M01S00159.route   +++|          ORG    103B
00167  M01S00160.route   +++| ROU      BSS    0
00168  M01S00161.route   +++| TDSP     SPACE  4,30
00169  M01S00162.route   +++|**        TDSP - DSP PARAMETER BLOCK.
00170  M01S00163.route   +++|*
00171  M01S00164.route   +++|*T  W0    42/ FILE NAME,6/ ,1/F,4/ ,6/ OT,1/C

Figure W0

00172  M01S00165.route   +++|*T, W1    12/ ,12/ FC,12/ DC,3/ EC,3/ IC,18/ FLAGS

Figure W1

00173  M01S00166.route   +++|*T, W2    18/ SLID,18/ DLID,24/ DA

Figure W2

00174  M01S00167.route   +++|*T, W3    42/ UJN,18/

Figure W3

Seq #  *Modification Id* Act 
----------------------------+
00175  M02S00168.ns2591  ---|*T, W4    2/ 0,1/ P,3/ PI,6/ SC,12/ SCL,12/ FA,7/ ,5/ RC,12/

Figure W4

00176  M01S00003.ns2591  +++|*T, W4    2/ 0,1/ P,3/ PI,6/ SC,12/ SCL,12/ FA,6/ ,6/ RC,12/

Figure W4

00177  M01S00169.route   +++|*T, W5    60/

Figure W5

00178  M01S00170.route   +++|*T, W6    60/

Figure W6

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  M01S00171.route   +++|*
00182  M01S00172.route   +++|*         F  - FORCE ORIGIN TYPE FLAG.
00183  M01S00173.route   +++|*         OT - DESIRED ORIGIN TYPE.
00184  M01S00174.route   +++|*         C  - COMPLETE BIT.
00185  M01S00175.route   +++|*         FC - FORMS CODE
00186  M01S00176.route   +++|*         DC - DISPOSITION CODE
00187  M01S00177.route   +++|*         EC - EXTERNAL CHARACTERISTICS
00188  M01S00178.route   +++|*         IC - INTERNAL CHARACTERISTICS
00189  M01S00179.route   +++|*         SLID - LOGICAL ID (LID) TO RECEIVE OUTPUT FROM INPUT FILES.
00190  M01S00180.route   +++|*         DLID - DESTINATION LOGICAL ID OF MAINFRAME TO RECEIVE FILES.
00191  M01S00181.route   +++|*         DA - TID OR POINTER TO FM/UN
00192  M01S00182.route   +++|*         P - PRINT IMAGE FLAG (INDICATES PRINT IMAGE CODE PRESENT).
00193  M01S00183.route   +++|*         PI - PRINT IMAGE CODE (0-7) IF PRINT IMAGE FLAG SET.
00194  M01S00184.route   +++|*         SC - SPACING CODE
00195  M01S00185.route   +++|*         SCL - SERVICE CLASS
00196  M01S00186.route   +++|*         FA - ABORT CODE
00197  M01S00187.route   +++|*         RC - REPEAT COUNT
00198  M01S00188.route   +++|*         UJN - USER JOB NAME
00199  M01S00005.tlrout1 +++|*         DD - DATA DECLARATION.
00200  M01S00006.tlrout1 +++|*         EFLAGS - EXTENDED *DSP* FLAGS.
00201  M01S00189.route   +++|
00202  M01S00190.route   +++|
00203  M01S00191.route   +++| TDSP     BSS    0
00204  M01S00192.route   +++|          CON    0
00205  M01S00193.route   +++|          VFD    42/0,18/FRFN
00206  M01S00194.route   +++|          VFD    36/0,24/-0
00207  M01S00195.route   +++|          CON    0
00208  M01S00196.route   +++|          CON    0
00209  M01S00197.route   +++|          CON    0
00210  M01S00198.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  M01S00199.route   +++| TFUN     SPACE  4,10
00225  M01S00200.route   +++|**        TFUN - FAMILY NAME, USER NAME TABLE
00226  M01S00201.route   +++|*
00227  M01S00202.route   +++|*T  W0    42/ FAMILY NAME,18/

Figure W0

00228  M01S00203.route   +++|*T, W1    42/ USER NAME,18/

Figure W1

00229  M01S00204.route   +++|
00230  M01S00205.route   +++|
00231  M01S00206.route   +++| TFUN     BSSZ   2           FAMILY NAME - USER NAME
00232  M01S00207.route   +++|
00233  M01S00208.route   +++|          SPACE  4,10
00234  M01S00209.route   +++|*         INTERNAL FLAGS.
00235  M01S00210.route   +++|
00236  M01S00211.route   +++| PTID     CON    0           TID PROCESSED
00237  M01S00212.route   +++| PFUN     CON    0           FM-UN PROCESSED
00238  M01S00213.route   +++| PDID     CON    0           DEVICE ID PROCESSED
00239  M01S00214.route   +++| PDEF     CON    0           DEF PROCESSED
00240  M01S00215.route   +++| PJSN     CON    0           JSN PROCESSED
00241  M01S00216.route   +++| PUJN     CON    0           UJN PROCESSED
00242  M01S00217.route   +++| PDCT     CON    0           DISPOSITION TYPE - SEE *TDCC*
00243  M01S00218.route   +++| PECT     CON    0           EXTERNAL CHARACTERISTICS TYPE - SEE *TECC*
00244  M01S00219.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

Seq #  *Modification Id* Act 
----------------------------+
00264  M02S00220.ns2624  ---| TDCC     SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
00265  M02S00221.ns2624  ---|**        TDCC - DISPOSITION CODE TYPE TABLE.

Seq #  *Modification Id* Act 
----------------------------+
00266  M02S00222.ns2624  ---|*

Seq #  *Modification Id* Act 
----------------------------+
00267  M02S00223.ns2624  ---|*T        12/ CODE,42/ ,3/ T,3/

Figure

Seq #  *Modification Id* Act 
----------------------------+
00268  M02S00224.ns2624  ---|*

Seq #  *Modification Id* Act 
----------------------------+
00269  M02S00225.ns2624  ---|*         T - TYPE INDICATOR

Seq #  *Modification Id* Act 
----------------------------+
00270  M02S00226.ns2624  ---|*                0 = NO TYPE.

Seq #  *Modification Id* Act 
----------------------------+
00271  M02S00227.ns2624  ---|*                1 = PRINT TYPE.

Seq #  *Modification Id* Act 
----------------------------+
00272  M02S00228.ns2624  ---|*                2 = PUNCH TYPE.

Seq #  *Modification Id* Act 
----------------------------+
00273  M02S00229.ns2624  ---|*                3 = PLOT TYPE.

Seq #  *Modification Id* Act 
----------------------------+
00274  M02S00230.ns2624  ---|

Seq #  *Modification Id* Act 
----------------------------+
00275  M02S00231.ns2624  ---|

Seq #  *Modification Id* Act 
----------------------------+
00276  M02S00232.ns2624  ---| TDCC     BSS    0

Seq #  *Modification Id* Act 
----------------------------+
00277  M02S00233.ns2624  ---|          VFD    12/0LFL,42/,3/3,3/0

Seq #  *Modification Id* Act 
----------------------------+
00278  M02S00234.ns2624  ---|          VFD    12/0LFR,42/,3/3,3/0

Seq #  *Modification Id* Act 
----------------------------+
00279  M02S00235.ns2624  ---|          VFD    12/0LHL,42/,3/3,3/0

Seq #  *Modification Id* Act 
----------------------------+
00280  M02S00236.ns2624  ---|          VFD    12/0LHR,42/,3/3,3/0

Seq #  *Modification Id* Act 
----------------------------+
00281  M02S00237.ns2624  ---|          VFD    12/0LIN,42/,3/0,3/0

Seq #  *Modification Id* Act 
----------------------------+
00282  M02S00238.ns2624  ---|          VFD    12/0LLP,42/,3/1,3/0

Seq #  *Modification Id* Act 
----------------------------+
00283  M02S00239.ns2624  ---|          VFD    12/0LLQ,42/,3/1,3/0

Seq #  *Modification Id* Act 
----------------------------+
00284  M02S00240.ns2624  ---|          VFD    12/0LLR,42/,3/1,3/0

Seq #  *Modification Id* Act 
----------------------------+
00285  M02S00241.ns2624  ---|          VFD    12/0LLS,42/,3/1,3/0

Seq #  *Modification Id* Act 
----------------------------+
00286  M02S00242.ns2624  ---|          VFD    12/0LLT,42/,3/1,3/0

Seq #  *Modification Id* Act 
----------------------------+
00287  M02S00243.ns2624  ---|          VFD    12/0LLX,42/,3/1,3/0

Seq #  *Modification Id* Act 
----------------------------+
00288  M02S00244.ns2624  ---|          VFD    12/0LLY,42/,3/1,3/0

Seq #  *Modification Id* Act 
----------------------------+
00289  M02S00245.ns2624  ---|          VFD    12/0LNO,42/,3/0,3/0

Seq #  *Modification Id* Act 
----------------------------+
00290  M02S00246.ns2624  ---|          VFD    12/0LPB,42/,3/2,3/0

Seq #  *Modification Id* Act 
----------------------------+
00291  M02S00247.ns2624  ---|          VFD    12/0LPH,42/,3/2,3/0

Seq #  *Modification Id* Act 
----------------------------+
00292  M02S00248.ns2624  ---|          VFD    12/0LPL,42/,3/3,3/0

Seq #  *Modification Id* Act 
----------------------------+
00293  M02S00249.ns2624  ---|          VFD    12/0LPR,42/,3/1,3/0

Seq #  *Modification Id* Act 
----------------------------+
00294  M02S00250.ns2624  ---|          VFD    12/0LPU,42/,3/2,3/0

Seq #  *Modification Id* Act 
----------------------------+
00295  M02S00251.ns2624  ---|          VFD    12/0LP1,42/,3/1,3/0

Seq #  *Modification Id* Act 
----------------------------+
00296  M02S00252.ns2624  ---|          VFD    12/0LP2,42/,3/1,3/0

Seq #  *Modification Id* Act 
----------------------------+
00297  M02S00253.ns2624  ---|          VFD    12/0LP8,42/,3/2,3/0

Seq #  *Modification Id* Act 
----------------------------+
00298  M02S00254.ns2624  ---|          VFD    12/0LSB,42/,3/2,3/0

Seq #  *Modification Id* Act 
----------------------------+
00299  M02S00255.ns2624  ---|          VFD    12/0LSC,42/,3/0,3/0

Seq #  *Modification Id* Act 
----------------------------+
00300  M02S00256.ns2624  ---|          VFD    12/0LTO,42/,3/0,3/0

Seq #  *Modification Id* Act 
----------------------------+
00301  M02S00257.ns2624  ---|          VFD    12/0LTT,42/,3/0,3/0

Seq #  *Modification Id* Act 
----------------------------+
00302  M02S00258.ns2624  ---|          VFD    12/0LWT,42/,3/0,3/0

Seq #  *Modification Id* Act 
----------------------------+
00303  M02S00259.ns2624  ---|          CON    0           END OF TABLE

Seq #  *Modification Id* Act 
----------------------------+
00304  M02S00260.ns2624  ---| TECC     SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
00305  M02S00261.ns2624  ---|**        TECC - EXTERNAL CHARACTERISTICS CONVERSION TABLE

Seq #  *Modification Id* Act 
----------------------------+
00306  M02S00262.ns2624  ---|*

Seq #  *Modification Id* Act 
----------------------------+
00307  M02S00263.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.

Seq #  *Modification Id* Act 
----------------------------+
00308  M02S00264.ns2624  ---|*

Seq #  *Modification Id* Act 
----------------------------+
00309  M02S00265.ns2624  ---|*         T - TYPE INDICATOR

Seq #  *Modification Id* Act 
----------------------------+
00310  M02S00266.ns2624  ---|*                0 = NO TYPE.

Seq #  *Modification Id* Act 
----------------------------+
00311  M02S00267.ns2624  ---|*                1 = PRINT TYPE.

Seq #  *Modification Id* Act 
----------------------------+
00312  M02S00268.ns2624  ---|*                2 = PUNCH TYPE.

Seq #  *Modification Id* Act 
----------------------------+
00313  M02S00269.ns2624  ---|*                3 = PLOT TYPE.

Seq #  *Modification Id* Act 
----------------------------+
00314  M02S00270.ns2624  ---|*         EC - INTERFACE CODE.

Seq #  *Modification Id* Act 
----------------------------+
00315  M02S00271.ns2624  ---|

Seq #  *Modification Id* Act 
----------------------------+
00316  M02S00272.ns2624  ---|

Seq #  *Modification Id* Act 
----------------------------+
00317  M02S00273.ns2624  ---| TECC     BSS    0

Seq #  *Modification Id* Act 
----------------------------+
00318  M02S00274.ns2624  ---|          VFD    30/0LA4,24/,3/1,3/A4EX

Seq #  *Modification Id* Act 
----------------------------+
00319  M02S00275.ns2624  ---|          VFD    30/0LA6,24/,3/1,3/A6EX

Seq #  *Modification Id* Act 
----------------------------+
00320  M02S00276.ns2624  ---|          VFD    30/0LA9,24/,3/1,3/A9EX

Seq #  *Modification Id* Act 
----------------------------+
00321  M02S00277.ns2624  ---|          VFD    30/0LB4,24/,3/1,3/B4EX

Seq #  *Modification Id* Act 
----------------------------+
00322  M02S00278.ns2624  ---|          VFD    30/0LB6,24/,3/1,3/B6EX

Seq #  *Modification Id* Act 
----------------------------+
00323  M02S00279.ns2624  ---|          VFD    30/0LASCII,24/,3/2,3/ASFR

Seq #  *Modification Id* Act 
----------------------------+
00324  M02S00280.ns2624  ---|          VFD    30/0LO26,24/,3/2,3/PHFR

Seq #  *Modification Id* Act 
----------------------------+
00325  M02S00281.ns2624  ---|          VFD    30/0L026,24/,3/2,3/PHFR

Seq #  *Modification Id* Act 
----------------------------+
00326  M02S00282.ns2624  ---|          VFD    30/0LO29,24/,3/2,3/P9FR

Seq #  *Modification Id* Act 
----------------------------+
00327  M02S00283.ns2624  ---|          VFD    30/0L029,24/,3/2,3/P9FR

Seq #  *Modification Id* Act 
----------------------------+
00328  M02S00284.ns2624  ---|          VFD    30/0LSB,24/,3/2,3/PBFR

Seq #  *Modification Id* Act 
----------------------------+
00329  M02S00285.ns2624  ---|          VFD    30/0L80COL,24/,3/2,3/P8FR

Seq #  *Modification Id* Act 
----------------------------+
00330  M02S00286.ns2624  ---|          VFD    30/0LT6,24/,3/3,3/T6EX

Seq #  *Modification Id* Act 
----------------------------+
00331  M02S00287.ns2624  ---|          VFD    30/0LT8,24/,3/3,3/T8EX

Seq #  *Modification Id* Act 
----------------------------+
00332  M02S00288.ns2624  ---|          CON    0           END OF TABLE

Seq #  *Modification Id* Act 
----------------------------+
00333  M02S00289.ns2624  ---| TICC     SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
00334  M02S00290.ns2624  ---|**        TICC - INTERNAL CHARACTERISTICS CONVERSION TABLE

Seq #  *Modification Id* Act 
----------------------------+
00335  M02S00291.ns2624  ---|*

Seq #  *Modification Id* Act 
----------------------------+
00336  M02S00292.ns2624  ---|*T        30/ CODE,28/,2/ I

Figure

Seq #  *Modification Id* Act 
----------------------------+
00337  M02S00293.ns2624  ---|*

Seq #  *Modification Id* Act 
----------------------------+
00338  M02S00294.ns2624  ---|*         I - INTERFACE CODE.

Seq #  *Modification Id* Act 
----------------------------+
00339  M02S00295.ns2624  ---|

Seq #  *Modification Id* Act 
----------------------------+
00340  M02S00296.ns2624  ---|

Seq #  *Modification Id* Act 
----------------------------+
00341  M02S00297.ns2624  ---| TICC     BSS    0

Seq #  *Modification Id* Act 
----------------------------+
00342  M02S00298.ns2624  ---|          VFD    30/0LDIS,28/,2/DCIC

Seq #  *Modification Id* Act 
----------------------------+
00343  M02S00299.ns2624  ---|          VFD    30/0LASCII,28/,2/ASIC

Seq #  *Modification Id* Act 
----------------------------+
00344  M02S00300.ns2624  ---|          VFD    30/0LBIN,28/,2/BNIC

Seq #  *Modification Id* Act 
----------------------------+
00345  M02S00301.ns2624  ---|          CON    0           END OF TABLE

Seq #  *Modification Id* Act 
----------------------------+
00346  M02S00302.ns2624  ---| TKEY     SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
00347  M02S00303.ns2624  ---|**        KEYWORD TABLE.

Seq #  *Modification Id* Act 
----------------------------+
00348  M02S00304.ns2624  ---|*

Seq #  *Modification Id* Act 
----------------------------+
00349  M02S00305.ns2624  ---|*T        36/ KEYWORD,6/ NEP,18/ PROCESSOR

Figure

Seq #  *Modification Id* Act 
----------------------------+
00350  M02S00306.ns2624  ---|*                NEP = 1 IF NONEQUIVALENCED PARAMETER ALLOWED.

Seq #  *Modification Id* Act 
----------------------------+
00351  M02S00307.ns2624  ---|

Seq #  *Modification Id* Act 
----------------------------+
00352  M02S00308.ns2624  ---| TKEY     BSS    0

Seq #  *Modification Id* Act 
----------------------------+
00353  M02S00309.ns2624  ---|          VFD    36/0LDC,6/,18/KDC

Seq #  *Modification Id* Act 
----------------------------+
00354  M02S00310.ns2624  ---|          VFD    36/0LDEF,6/1,18/KDE

Seq #  *Modification Id* Act 
----------------------------+
00355  M02S00311.ns2624  ---|          VFD    36/0LDO,6/,18/KDO

Seq #  *Modification Id* Act 
----------------------------+
00356  M02S00312.ns2624  ---|          VFD    36/0LEC,6/,18/KEC

Seq #  *Modification Id* Act 
----------------------------+
00357  M02S00313.ns2624  ---|          VFD    36/0LFC,6/,18/KFC

Seq #  *Modification Id* Act 
----------------------------+
00358  M02S00314.ns2624  ---|          VFD    36/0LFID,6/,18/KUJ

Seq #  *Modification Id* Act 
----------------------------+
00359  M02S00315.ns2624  ---|          VFD    36/0LFM,6/1,18/KFM

Seq #  *Modification Id* Act 
----------------------------+
00360  M02S00316.ns2624  ---|          VFD    36/0LIC,6/,18/KIC

Seq #  *Modification Id* Act 
----------------------------+
00361  M02S00317.ns2624  ---|          VFD    36/0LID,6/1,18/KID

Seq #  *Modification Id* Act 
----------------------------+
00362  M02S00318.ns2624  ---|          VFD    18/0LJSN,24/,18/KJS

Seq #  *Modification Id* Act 
----------------------------+
00363  M02S00319.ns2624  ---|          VFD    36/0LOT,6/,18/KOT

Seq #  *Modification Id* Act 
----------------------------+
00364  M02S00320.ns2624  ---|          VFD    36/0LPI,6/,18/KPI

Seq #  *Modification Id* Act 
----------------------------+
00365  M02S00321.ns2624  ---|          VFD    36/0LPRI,6/1,18/KPR

Seq #  *Modification Id* Act 
----------------------------+
00366  M02S00322.ns2624  ---|          VFD    36/0LREP,6/,18/KRE

Seq #  *Modification Id* Act 
----------------------------+
00367  M02S00323.ns2624  ---|          VFD    36/0LSC,6/,18/KSC

Seq #  *Modification Id* Act 
----------------------------+
00368  M02S00324.ns2624  ---|          VFD    36/0LST,6/,18/KST

Seq #  *Modification Id* Act 
----------------------------+
00369  M02S00325.ns2624  ---|          VFD    36/0LSCL,6/,18/KSV

Seq #  *Modification Id* Act 
----------------------------+
00370  M02S00326.ns2624  ---|          VFD    36/0LTID,6/1,18/KTD

Seq #  *Modification Id* Act 
----------------------------+
00371  M02S00327.ns2624  ---|          VFD    36/0LUJN,6/,18/KUJ

Seq #  *Modification Id* Act 
----------------------------+
00372  M02S00328.ns2624  ---|          VFD    36/0LUN,6/1,18/KUN

Seq #  *Modification Id* Act 
----------------------------+
00373  M02S00329.ns2624  ---|          CON    0           END OF TABLE

Seq #  *Modification Id* Act 
----------------------------+
00374  M02S00330.ns2624  ---| TLOT     SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
00375  M02S00331.ns2624  ---|**        TLOT - LEGAL ORIGIN TYPE TABLE.

Seq #  *Modification Id* Act 
----------------------------+
00376  M02S00332.ns2624  ---|*

Seq #  *Modification Id* Act 
----------------------------+
00377  M02S00333.ns2624  ---|*         FOR USE WITH THE *OT* PARAMETER.

Seq #  *Modification Id* Act 
----------------------------+
00378  M02S00334.ns2624  ---|*

Seq #  *Modification Id* Act 
----------------------------+
00379  M02S00335.ns2624  ---|*T        24/ ORIGIN TYPE,29/ ,6/ VALUE,1/

Figure

Seq #  *Modification Id* Act 
----------------------------+
00380  M02S00336.ns2624  ---|

Seq #  *Modification Id* Act 
----------------------------+
00381  M02S00337.ns2624  ---|

Seq #  *Modification Id* Act 
----------------------------+
00382  M02S00338.ns2624  ---| TLOT     BSS    0

Seq #  *Modification Id* Act 
----------------------------+
00383  M02S00339.ns2624  ---|          VFD    24/0LBCOT,29/,6/BCOT,1/0

Seq #  *Modification Id* Act 
----------------------------+
00384  M02S00340.ns2624  ---|          VFD    24/0LEIOT,29/,6/EIOT,1/0

Seq #  *Modification Id* Act 
----------------------------+
00385  M02S00341.ns2624  ---|          VFD    24/0LRBOT,29/,6/RBOT,1/0

Seq #  *Modification Id* Act 
----------------------------+
00386  M02S00342.ns2624  ---|          VFD    24/0LSYOT,29/,6/SYOT,1/0

Seq #  *Modification Id* Act 
----------------------------+
00387  M02S00343.ns2624  ---|          CON    0           END OF TABLE

Seq #  *Modification Id* Act 
----------------------------+
00388  M02S00344.ns2624  ---| TPIN     SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
00389  M02S00345.ns2624  ---|**        TPIN - TABLE OF PRINT IMAGE NAMES.

Seq #  *Modification Id* Act 
----------------------------+
00390  M02S00346.ns2624  ---|*

Seq #  *Modification Id* Act 
----------------------------+
00391  M02S00347.ns2624  ---|*T        42/ NAME,12/ MASK,6/ CODE

Figure

Seq #  *Modification Id* Act 
----------------------------+
00392  M02S00348.ns2624  ---|*

Seq #  *Modification Id* Act 
----------------------------+
00393  M02S00349.ns2624  ---|*         NAME - PRINT IMAGE NAME.

Seq #  *Modification Id* Act 
----------------------------+
00394  M02S00350.ns2624  ---|*         MASK - CHARACTER MASK SIZE - 1.

Seq #  *Modification Id* Act 
----------------------------+
00395  M02S00351.ns2624  ---|*         CODE - PRINT IMAGE ORDINAL ( 0 - 7 ).

Seq #  *Modification Id* Act 
----------------------------+
00396  M02S00352.ns2624  ---|

Seq #  *Modification Id* Act 
----------------------------+
00397  M02S00353.ns2624  ---|

Seq #  *Modification Id* Act 
----------------------------+
00398  M02S00354.ns2624  ---|          LIST   G

Seq #  *Modification Id* Act 
----------------------------+
00399  M02S00355.ns2624  ---|

Seq #  *Modification Id* Act 
----------------------------+
00400  M02S00356.ns2624  ---| TPIN     TPIN

Seq #  *Modification Id* Act 
----------------------------+
00401  M02S00357.ns2624  ---|

Seq #  *Modification Id* Act 
----------------------------+
00402  M02S00358.ns2624  ---| PISD     EQU    /BIO/PISD

Seq #  *Modification Id* Act 
----------------------------+
00403  M02S00359.ns2624  ---|

Seq #  *Modification Id* Act 
----------------------------+
00404  M02S00360.ns2624  ---|          LIST   *

Seq #  *Modification Id* Act 
----------------------------+
00405  M02S00361.ns2624  ---| TSCT     SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
00406  M02S00362.ns2624  ---|**        TSCT - SERVICE CLASS TABLE.

Seq #  *Modification Id* Act 
----------------------------+
00407  M02S00363.ns2624  ---|*

Seq #  *Modification Id* Act 
----------------------------+
00408  M02S00364.ns2624  ---|*T        12/PARAM,48/

Figure

Seq #  *Modification Id* Act 
----------------------------+
00409  M02S00365.ns2624  ---|*

Seq #  *Modification Id* Act 
----------------------------+
00410  M02S00366.ns2624  ---|*         PARAM - SERVICE CLASS MNEMONIC.

Seq #  *Modification Id* Act 
----------------------------+
00411  M02S00367.ns2624  ---|*

Seq #  *Modification Id* Act 
----------------------------+
00412  M02S00368.ns2624  ---|*         NOTE - ONLY SERVICE CLASSES WITH JOB CONTROL BLOCKS RESIDE

Seq #  *Modification Id* Act 
----------------------------+
00413  M02S00369.ns2624  ---|*         IN THIS TABLE.  *TSCT* ENTRIES MUST BE CONTIGUOUS.

Seq #  *Modification Id* Act 
----------------------------+
00414  M02S00370.ns2624  ---|

Seq #  *Modification Id* Act 
----------------------------+
00415  M02S00371.ns2624  ---| TSCT     BSS    0

Seq #  *Modification Id* Act 
----------------------------+
00416  M02S00372.ns2624  ---|          LIST   D

Seq #  *Modification Id* Act 
----------------------------+
00417  M02S00373.ns2624  ---| .SCL     HERE

Seq #  *Modification Id* Act 
----------------------------+
00418  M02S00374.ns2624  ---|          LIST   *

Seq #  *Modification Id* Act 
----------------------------+
00419  M02S00375.ns2624  ---|          VFD    12/0LDF,48/ SELECTS USER DEFAULT

Seq #  *Modification Id* Act 
----------------------------+
00420  M02S00376.ns2624  ---|          CON    0

Seq #  *Modification Id* Act 
----------------------------+
00421  M02S00377.ns2624  ---| TSCTL    EQU    *-TSCT-2

Seq #  *Modification Id* Act 
----------------------------+
00422  M02S00378.ns2624  ---|          ERRNZ  TSCTL-MXJC+1  ENSURE ALL SERVICE CLASSES PRESENT
00423  M01S00001.ns2624  +++|          LIST   X
00424  M01S00002.ns2624  +++|*CALL     COMTDSP
00425  M01S00003.ns2624  +++|          LIST   -X
00426  M01S00379.route   +++| ROUTE    TITLE  MAIN PROGRAM
00427  M01S00380.route   +++|**        ROUTE - PROCESS COMMAND.
00428  M01S00381.route   +++|
00429  M01S00382.route   +++|
00430  M01S00383.route   +++| ROUTE    BSS    0           ENTRY
00431  M01S00384.route   +++|          SB1    1
00432  M01S00385.route   +++|          SA1    ACTR
00433  M01S00386.route   +++|          R=     A0,ARGR     FIRST ARGUMENT ADDRESS
00434  M01S00387.route   +++|          SB6    X1          SET ARGUMENT COUNT
00435  M01S00388.route   +++|          MX0    -18
00436  M01S00389.route   +++|          SA1    A0
00437  M01S00390.route   +++|          ZR     B6,ABT      IF NOT AT LEAST ONE ARGUMENT
00438  M01S00391.route   +++|
00439  M01S00392.route   +++|*         GET FILE NAME.
00440  M01S00393.route   +++|
00441  M01S00394.route   +++|          BX6    -X0*X1
00442  M01S00395.route   +++|          AX6    1
00443  M01S00396.route   +++|          NZ     X6,ABT      IF FILE NAME NOT FIRST PARAMETER
00444  M01S00397.route   +++|          BX7    X0*X1
00445  M01S00398.route   +++|          SA7    TDSP        STORE FILE NAME
00446  M01S00399.route   +++|
00447  M01S00400.route   +++|*         PROCESS NEXT PARAMETER.
00448  M01S00401.route   +++|
00449  M01S00402.route   +++| EPRX     BSS    0           END-OF-PROCESSING PARAMETER EXIT
00450  M01S00403.route   +++|          SB6    B6-B1       REDUCE REMAINING PARAMETER COUNT
00451  M01S00404.route   +++|          SA0    A0+B1
00452  M01S00405.route   +++|          LE     B6,B0,DSP   IF END OF PARAMETERS
00453  M01S00406.route   +++|          SA2    A0          GET NEXT ARGUMENT
00454  M01S00407.route   +++|          MX3    0           ZERO PARAMETER
00455  M01S00408.route   +++|          SX7    X2-1R=
00456  M01S00409.route   +++|          ZR     X7,ROU1     IF *=* SEPARATOR
00457  M01S00410.route   +++|          SX7    X2-2
00458  M01S00411.route   +++|          NZ     X7,ROU3     IF NOT *=* SEPARATOR (NOS/BE FORMAT)
00459  M01S00412.route   +++|
00460  M01S00413.route   +++|*         PROCESS EQUIVALENCED PARAMETER, IF PRESENT.
00461  M01S00414.route   +++|
00462  M01S00415.route   +++| ROU1     SA0    A0+B1
00463  M01S00416.route   +++|          SB6    B6-B1
00464  M01S00417.route   +++|          SA3    A0          GET NEXT PARAMETER
00465  M01S00418.route   +++|          SB2    X3
00466  M01S00419.route   +++|          LE     B2,B1,ROU2  IF 0 OR 1 TERMINATOR
00467  M01S00420.route   +++|          SB2    B2-17B
00468  M01S00421.route   +++|          ZR     B2,ROU2     IF 17B TERMINATOR
00469  M01S00422.route   +++|          EQ     ABT         ABORT
00470  M01S00423.route   +++|
00471  M01S00424.route   +++| ROU2     MX0    42          CHECK FOR NULL PARAMETER
00472  M01S00425.route   +++|          BX3    X0*X3
00473  M01S00426.route   +++|          NZ     X3,ROU3     IF NOT NULL PARAMETER
00474  M01S00427.route   +++|          SX3    -1          SET NULL PARAMETER FLAG
00475  M01S00428.route   +++|
00476  M01S00429.route   +++|*         SEARCH FOR KEYWORD.
00477  M01S00430.route   +++|
00478  M01S00431.route   +++| ROU3     SA1    TKEY-1
00479  M01S00432.route   +++|          MX0    36
00480  M01S00433.route   +++| ROU4     SA1    A1+B1
00481  M01S00434.route   +++|          BX7    X1-X2       COMPARE KEYWORD
00482  M01S00435.route   +++|          BX7    X0*X7
00483  M01S00436.route   +++|          SB2    X1          SET PROCESSOR ADDRESS
00484  M01S00437.route   +++|          ZR     X1,ROU6     IF KEYWORD NOT FOUND IN TABLE
00485  M01S00438.route   +++|          NZ     X7,ROU4     IF NOT THIS KEYWORD
00486  M01S00439.route   +++|          SX7    -B1         DELETE KEYWORD FROM TABLE
00487  M01S00440.route   +++|          SA7    A1
00488  M01S00441.route   +++|          MX0    42
00489  M01S00442.route   +++|          BX7    X3-X7
00490  M01S00443.route   +++|          ZR     X7,EPRX     IF NULL PARAMETER, IGNORE
00491  M01S00444.route   +++|          BX3    X0*X3
00492  M01S00445.route   +++|          LX1    59-18
00493  M01S00446.route   +++|          NG     X1,ROU5     IF NONEQUIVALENCED PARAMETER ALLOWED
00494  M01S00447.route   +++|          ZR     X3,ABT      IF NONEQUIVALENCED PARAMETER
00495  M01S00448.route   +++| ROU5     JP     B2          EXECUTE KEYWORD PROCESSOR
00496  M01S00449.route   +++|
00497  M01S00450.route   +++| ROU6     MESSAGE (=C* ROUTE INCORRECT KEYWORD.*),0,RECALL
00498  M01S00451.route   +++|          EQ     ABT1        ABORT
00499  M01S00452.route   +++|
00500  M01S00453.route   +++| ABT      MESSAGE (=C* ROUTE COMMAND ERROR.*),0,RECALL
00501  M01S00454.route   +++| ABT1     ABORT
00502  M01S00455.route   +++|
00503  M01S00456.route   +++|*         MAKE *DSP* CALL.
00504  M01S00457.route   +++|
00505  M01S00458.route   +++| DSP      SA1    TDSP+1
00506  M01S00459.route   +++|          MX0    -12         EXTRACT DISPOSITION CODE
00507  M01S00460.route   +++|          BX2    X1
00508  M01S00461.route   +++|          AX1    24
00509  M01S00462.route   +++|          BX7    -X0*X1
00510  M01S00463.route   +++|          SB3    B0          INITIALIZE POINTER
00511  M01S00464.route   +++|          AX1    12
00512  M01S00465.route   +++|          BX1    -X0*X1
00513  M01S00466.route   +++|          SX3    X7-2RSC
00514  M01S00467.route   +++|          NZ     X3,DSP0     IF NOT *DC=SC*
00515  M01S00468.route   +++|          SA0    B1          SET * ROUTE COMPLETE.* MESSAGE
00516  M01S00469.route   +++|          EQ     DSP1        CONTINUE
00517  M01S00470.route   +++|
00518  M01S00471.route   +++| DSP0     SA3    DSPB+B3     GET INPUT MNEMONIC
00519  M01S00472.route   +++|          ZR     X3,DSP0.2   IF END OF TABLE
00520  M01S00473.route   +++|          IX3    X7-X3
00521  M01S00474.route   +++|          ZR     X3,DSP0.1   IF MATCH
00522  M01S00475.route   +++|          SB3    B3+B1       GET NEXT MNEMONIC
00523  M01S00476.route   +++|          EQ     DSP0        CONTINUE
00524  M01S00477.route   +++|
00525  M01S00478.route   +++| DSP0.1   NZ     X1,ABT      IF *FC=XX* ON INPUT DISPOSITION
00526  M01S00479.route   +++|          SA1    PDEF        CHECK FOR *DEF* PARAMETER
00527  M01S00480.route   +++|          NZ     X1,ABT      IF DEFERRED INPUT FILE
00528  M01S00481.route   +++| DSP0.2   SA0    0           SET *ROUTE COMPLETE. JSN IS XXXX.*
00529  M01S00482.route   +++| DSP1     SA1    PFUN
00530  M01S00483.route   +++|          SA3    PTID
00531  M01S00484.route   +++|          SX4    FRTI
00532  M01S00485.route   +++|          BX6    X3+X1
00533  M01S00486.route   +++|          BX7    X4+X2
00534  M01S00487.route   +++|          ZR     X6,DSP2     IF NOT REMOTE ROUTING
00535  M01S00488.route   +++|          SA7    TDSP+1      SET *TID* FLAG BIT
00536  M01S00489.route   +++|          SA1    TFUN
00537  M01S00490.route   +++|          SA2    A1+B1
00538  M01S00491.route   +++|          BX2    X2+X1
00539  M01S00492.route   +++|          ZR     X2,DSP2     IF IMPLICIT REMOTE ROUTING
00540  M01S00493.route   +++|          SA2    TDSP+2
00541  M01S00494.route   +++|          SX3    A1          SET ADDRESS OF FAMILY/USERNUMBER BLOCK
00542  M01S00495.route   +++|          MX0    36
00543  M01S00496.route   +++|          BX3    -X3
00544  M01S00497.route   +++|          BX6    -X0*X3
00545  M01S00498.route   +++|          BX2    X0*X2
00546  M01S00499.route   +++|          BX6    X2+X6
00547  M01S00500.route   +++|          SA6    TDSP+2
00548  M01S00501.route   +++| DSP2     MX0    -3
00549  M01S00502.route   +++|          SA1    PDCT
00550  M01S00503.route   +++|          LX0    3
00551  M01S00504.route   +++|          SA2    PECT
00552  M01S00505.route   +++|          BX1    -X0*X1      GET *DC* TYPE
00553  M01S00506.route   +++|          BX2    -X0*X2      GET *EC* TYPE
00554  M01S00507.route   +++|          ZR     X1,DSP3     IF NO *DC* TYPE
00555  M01S00508.route   +++|          ZR     X2,DSP3     IF NO *EC* TYPE
00556  M01S00509.route   +++|          BX1    X1-X2
00557  M01S00510.route   +++|          ZR     X1,DSP3     IF TYPES COMPARE
00558  M01S00511.route   +++|          MESSAGE (=C/ ROUTE *DC* INCOMPATIBLE WITH *EC*./),3,RECALL
00559  M01S00512.route   +++|          EQ     ABT1        ABORT
00560  M01S00513.route   +++|
00561  M01S00514.route   +++| DSP3     ROUTE  TDSP,RECALL
00562  M01S00515.route   +++|          SX1    A0
00563  M01S00516.route   +++|          SA2    TDSP
00564  M01S00517.route   +++|          MX0    -1
00565  M01S00518.route   +++|          SA3    A2+B1       GET FLAGS FIELD
00566  M01S00519.route   +++|          BX3    -X0*X3
00567  M01S00520.route   +++|          NZ     X3,DSP5     IF THIS WAS A DEFERRED ROUTE
00568  M01S00521.route   +++|          NZ     X1,DSP5     IF JSN NOT TO BE RETURNED
00569  M01S00522.route   +++|          SA3    DSPA+2      POSITION JSN
00570  M01S00523.route   +++|          MX0    24
00571  M01S00524.route   +++|          BX6    X0*X2
00572  M01S00525.route   +++|          ZR     X6,DSP5     IF NO JSN RETURNED
00573  M01S00526.route   +++|          LX0    30
00574  M01S00527.route   +++|          BX3    -X0*X3
00575  M01S00528.route   +++|          LX6    30
00576  M01S00529.route   +++|          BX6    X3+X6
00577  M01S00530.route   +++|          SA6    DSPA+2      STORE JSN IN MESSAGE
00578  M01S00531.route   +++|          MESSAGE DSPA,3,RECALL
00579  M01S00532.route   +++| DSP4     ENDRUN
00580  M01S00533.route   +++|
00581  M01S00534.route   +++| DSP5     MESSAGE (=C* ROUTE COMPLETE.*),3,RECALL
00582  M01S00535.route   +++|          EQ     DSP4
00583  M01S00536.route   +++|
00584  M01S00537.route   +++| DSPA     DATA   H/ ROUTE COMPLETE.  JSN IS XXXX./
00585  M01S00538.route   +++| DSPB     DATA   2RIN        *DC=IN*
00586  M01S00539.route   +++|          DATA   2RNO        *DC=NO*
00587  M01S00540.route   +++|          DATA   2RTO        *DC=TO*
00588  M01S00541.route   +++|          DATA   0
00589  M01S00542.route   +++|          TITLE  KEYWORD PROCESSORS.
00590  M01S00543.route   +++|**        ALL OF THE FOLLOWING ROUTINES HAVE COMMON ENTRY AND EXIT
00591  M01S00544.route   +++|*         CONDITIONS-
00592  M01S00545.route   +++|*
00593  M01S00546.route   +++|*         ENTRY  X3 = PARAMETER WHEN  *KW=PP* IS THE FORMAT.
00594  M01S00547.route   +++|*                X3 = ZERO IF NO PARAMETER WITH KEYWORD.
00595  M01S00548.route   +++|*
00596  M01S00549.route   +++|*         EXIT   CORRECT ENTRIES MADE IN *TDSP*.
00597  M01S00550.route   +++|*                RETURN IN ALL NORMAL CASES TO *EPRX*
00598  M01S00551.route   +++|*
00599  M01S00552.route   +++|*         USES   ALL REGISTERS EXCEPT A0, B6.

Seq #  *Modification Id* Act 
----------------------------+
00600  M02S00553.tlrout1 ---|

Seq #  *Modification Id* Act 
----------------------------+
00601  M02S00554.tlrout1 ---|
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  M01S00555.route   +++| KDC      SPACE  4,10
00634  M01S00556.route   +++|**        KDC - PROCESS DC=XX.  DISPOSITION CODE.
00635  M01S00557.route   +++|*
00636  M01S00558.route   +++|*         EXIT   *DC* FIELD SET IN *TDSP+1*
00637  M01S00559.route   +++|*                *FLAGS* ENTERED WITH *FRDC* IN *TDSP+1*.
00638  M01S00560.route   +++|
00639  M01S00561.route   +++|
00640  M01S00562.route   +++| KDC      BSS    0           ENTRY
00641  M01S00563.route   +++|          SA1    TDCC-1
00642  M01S00564.route   +++|          MX0    12
00643  M01S00565.route   +++|
00644  M01S00566.route   +++|*         FIND CODE IN TABLE.
00645  M01S00567.route   +++|
00646  M01S00568.route   +++| KDC1     SA1    A1+1
00647  M01S00569.route   +++|          BX7    X1-X3       COMPARE CODES
00648  M01S00570.route   +++|          BX7    X0*X7
00649  M01S00571.route   +++|          ZR     X1,KDC2     IF END OF TABLE
00650  M01S00572.route   +++|          NZ     X7,KDC1     IF NO MATCH
00651  M01S00573.route   +++| KDC2     BX7    X1
00652  M01S00574.route   +++|          SA7    PDCT        SET TYPE PROCESSED
00653  M01S00575.route   +++|          LX3    -24         POSITION PARAMETER
00654  M01S00576.route   +++|          SA1    TDSP+1
00655  M01S00577.route   +++|          SX7    FRDC
00656  M01S00578.route   +++|          LX0    -24         POSITION MASK
00657  M01S00579.route   +++|          BX3    X0*X3
00658  M01S00580.route   +++|          BX1    -X0*X1
00659  M01S00581.route   +++|          BX3    X1+X3       ENTER *DC* PARAMETER
00660  M01S00582.route   +++|          BX7    X3+X7       ENTER FLAG BIT
00661  M01S00583.route   +++|          SA7    A1
00662  M01S00584.route   +++|          EQ     EPRX        RETURN
00663  M01S00585.route   +++| KDE      SPACE  4,10
00664  M01S00586.route   +++|**        KDE - PROCESS *DEF*. DEFERRED ROUTE
00665  M01S00587.route   +++|*
00666  M01S00588.route   +++|*         EXIT   *FLAGS* IN *TDSP+1* ENTERED WITH *FRDR*.
00667  M01S00589.route   +++|
00668  M01S00590.route   +++|
00669  M01S00591.route   +++| KDE      BSS    0           ENTRY
00670  M01S00592.route   +++|          NZ     X3,ABT      IF EQUIVALENCED PARAMETER
00671  M01S00593.route   +++|          SA1    TDSP+1
00672  M01S00594.route   +++|          SX7    FRDR
00673  M01S00595.route   +++|          SA7    PDEF        SET *DEF* PARAMETER ENTERED FLAG
00674  M01S00596.route   +++|          BX7    X1+X7       ENTER FLAG
00675  M01S00597.route   +++|          SA7    A1
00676  M01S00598.route   +++|          EQ     EPRX        RETURN
00677  M01S00599.route   +++| KDO      SPACE  4,10
00678  M01S00600.route   +++|**        KDO - PROCESS *DO=XXX*.  DEFAULT OUTPUT MAINFRAME.
00679  M01S00601.route   +++|*
00680  M01S00602.route   +++|*         EXIT   SOURCE LOGICAL ID IS PLACED IN *TDSP+2*.
00681  M01S00603.route   +++|*
00682  M01S00604.route   +++|*         ERROR  IF INCORRECT *DO* PARAMETER OR *LID* IS
00683  M01S00605.route   +++|*                GREATER THAN THREE CHARACTERS.
00684  M01S00606.route   +++|
00685  M01S00607.route   +++|
00686  M01S00608.route   +++| KDO      BSS    0           ENTRY
00687  M01S00609.route   +++|          MX0    18
00688  M01S00610.route   +++|          BX2    -X0*X3
00689  M01S00611.route   +++|          AX2    18
00690  M01S00612.route   +++|          NZ     X2,KDO2     IF *LID* GREATER THAN THREE CHARACTERS
00691  M01S00613.route   +++|          BX6    X0*X3       EXTRACT OUTPUT MAINFRAME *LID*
00692  M01S00614.route   +++|          SA5    =1L*        CHECK FOR ASTERISK
00693  M01S00615.route   +++|          R=     X4,LCPD     SET SLID TO PID
00694  M01S00616.route   +++|          LX6    18
00695  M01S00617.route   +++|          IX3    X4-X6
00696  M01S00618.route   +++|          PL     X3,KDO2     IF .LE. SPECIAL SLID VALUES
00697  M01S00619.route   +++|          LX5    18
00698  M01S00620.route   +++|          BX5    X5-X6
00699  M01S00621.route   +++|          NZ     X5,KDO1     IF NOT ASTERISK
00700  M01S00622.route   +++|          BX6    X4          SET SLID=PID
00701  M01S00623.route   +++| KDO1     SA2    TDSP+2      SET SLID IN TDSP
00702  M01S00624.route   +++|          BX2    -X0*X2
00703  M01S00625.route   +++|          LX6    42
00704  M01S00626.route   +++|          BX6    X2+X6
00705  M01S00627.route   +++|          SA6    A2
00706  M01S00628.route   +++|          SX6    FRLD
00707  M01S00629.route   +++|          SA1    A2-B1       SET SLID/DLID FLAG
00708  M01S00630.route   +++|          BX6    X1+X6
00709  M01S00631.route   +++|          SA6    A1+         STORE FLAG
00710  M01S00632.route   +++|          EQ     EPRX        RETURN
00711  M01S00633.route   +++|
00712  M01S00634.route   +++| KDO2     MESSAGE  (=C+ ROUTE INCORRECT *DO* PARAMETER.+),3,RECALL
00713  M01S00635.route   +++|          EQ     ABT1        ABORT
00714  M01S00636.route   +++| KEC      SPACE  4,10
00715  M01S00637.route   +++|**        KEC - PROCESS *EC=XX*. EXTERNAL CHARACTERISTICS.
00716  M01S00638.route   +++|*
00717  M01S00639.route   +++|*         EXIT   *EC* FIELD SET IN *TDSP+1*.
00718  M01S00640.route   +++|*                *FLAGS* FIELD IN *TDSP+1* ENTERED WITH *FREC*.
00719  M01S00641.route   +++|
00720  M01S00642.route   +++|
00721  M01S00643.route   +++| KEC      BSS    0           ENTRY
00722  M01S00644.route   +++|          SA1    TECC-1
00723  M01S00645.route   +++|          MX0    36
00724  M01S00646.route   +++|          SA2    TDSP+1
00725  M01S00647.route   +++|          MX7    -3
00726  M01S00648.route   +++|
00727  M01S00649.route   +++| KEC1     SA1    A1+B1
00728  M01S00650.route   +++|          ZR     X1,KEC2     IF *EC* NOT FOUND
00729  M01S00651.route   +++|          BX6    X3-X1
00730  M01S00652.route   +++|          BX6    X0*X6
00731  M01S00653.route   +++|          NZ     X6,KEC1     IF NOT CORRECT *EC*
00732  M01S00654.route   +++|          BX6    X1
00733  M01S00655.route   +++|          SA6    PECT        SET TYPE PROCESSED
00734  M01S00656.route   +++|          LX7    23-2        POSITION MASK
00735  M01S00657.route   +++|          LX1    23-2        POSITION ENTRY FROM *EC* TABLE
00736  M01S00658.route   +++|          SX6    FREC
00737  M01S00659.route   +++|          BX2    X7*X2
00738  M01S00660.route   +++|          BX1    -X7*X1
00739  M01S00661.route   +++|          BX6    X2+X6       ENTER FLAG BIT
00740  M01S00662.route   +++|          BX6    X1+X6       ENTER *EC* CODE
00741  M01S00663.route   +++|          SA6    A2+
00742  M01S00664.route   +++|          EQ     EPRX        RETURN
00743  M01S00665.route   +++|
00744  M01S00666.route   +++| KEC2     MESSAGE (=C+ ROUTE INCORRECT *EC* PARAMETER.+),3,RECALL
00745  M01S00667.route   +++|          EQ     ABT1        ABORT
00746  M01S00668.route   +++| KFC      SPACE  4,10
00747  M01S00669.route   +++|**        KFC - PROCESS *FC=XX. FORMS CODE.
00748  M01S00670.route   +++|*
00749  M01S00671.route   +++|*         EXIT   *FC* FIELD SET IN *TDSP+1*.
00750  M01S00672.route   +++|*                *FLAGS* FIELD IN *TDSP+1* ENTERED WITH *FRFC*.
00751  M01S00673.route   +++|*
00752  M01S00674.route   +++|*         ERROR  TO *ABT1*.
00753  M01S00675.route   +++|*
00754  M01S00676.route   +++|*         MACROS MESSAGE.
00755  M01S00677.route   +++|
00756  M01S00678.route   +++|
00757  M01S00679.route   +++| KFC      BSS    0           ENTRY
00758  M01S00680.route   +++|          SA1    TDSP+1
00759  M01S00681.route   +++|          MX0    -48
00760  M01S00682.route   +++|          SX6    FRFC
00761  M01S00683.route   +++|          BX2    -X0*X3
00762  M01S00684.route   +++|          LX3    -12
00763  M01S00685.route   +++|          NZ     X2,KFC1     IF FORMS CODE GREATER THAN TWO CHARACTERS
00764  M01S00686.route   +++|          LX0    -12
00765  M01S00687.route   +++|          BX1    X1+X6       ENTER FLAG BIT
00766  M01S00688.route   +++|          BX3    X0*X3
00767  M01S00689.route   +++|          BX6    X1+X3       ENTER FORMS CODE
00768  M01S00690.route   +++|          SA6    A1
00769  M01S00691.route   +++|          EQ     EPRX        RETURN
00770  M01S00692.route   +++|
00771  M01S00693.route   +++| KFC1     MESSAGE (=C+ ROUTE INCORRECT *FC* PARAMETER.+),0,RECALL
00772  M01S00694.route   +++|          EQ     ABT1        ABORT
00773  M01S00695.route   +++| KFM      SPACE  4,10
00774  M01S00696.route   +++|**        KFM - PROCESS *FM=XXXXXXX* PARAMETER.
00775  M01S00697.route   +++|*
00776  M01S00698.route   +++|*         EXIT   FAMILY NAME ENTERED IN *TFUN*.
00777  M01S00699.route   +++|*                FLAG SET IN *PFUN* IF *PTID* AND *PDID* ARE ZERO.
00778  M01S00700.route   +++|
00779  M01S00701.route   +++|
00780  M01S00702.route   +++| KFM      BSS    0           ENTRY
00781  M01S00703.route   +++|          SA1    PDID
00782  M01S00704.route   +++|          NZ     X1,KFM2     IF *FM* AND *ID* CONFLICT
00783  M01S00705.route   +++|          SA1    PTID
00784  M01S00706.route   +++|          SX7    FRTI
00785  M01S00707.route   +++|          NZ     X1,KFM1     IF *TID* PROCESSED
00786  M01S00708.route   +++|          SA7    PFUN        SET *FM-UN* FLAG
00787  M01S00709.route   +++|          ZR     X3,EPRX     IF IMPLICIT REMOTE ROUTING
00788  M01S00710.route   +++|          MX0    42
00789  M01S00711.route   +++|          BX7    X0*X3
00790  M01S00712.route   +++|          SA7    TFUN        STORE FAMILY NAME IN *TFUN*
00791  M01S00713.route   +++|          EQ     EPRX        RETURN
00792  M01S00714.route   +++|
00793  M01S00715.route   +++| KFM1     MESSAGE (=C+ ROUTE *TID* AND *FM/UN* CONFLICT.+),3,RECALL
00794  M01S00716.route   +++|          EQ     ABT1        ABORT
00795  M01S00717.route   +++|
00796  M01S00718.route   +++| KFM2     MESSAGE (=C+ ROUTE *TID/FM/UN* AND *ID* CONFLICT.+),3,RECALL
00797  M01S00719.route   +++|          EQ     ABT1        ABORT
00798  M01S00720.route   +++| KIC      SPACE  4,10
00799  M01S00721.route   +++|**        KIC - PROCESS *IC=XX* (INTERNAL CHARACTERISTICS)
00800  M01S00722.route   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00801  M02S00723.ns2597  ---|*         EXIT   *EC* FIELD SET IN *TDSP+1*.
00802  M01S00001.ns2597  +++|*         EXIT   *IC* FIELD SET IN *TDSP+1*.
00803  M01S00724.route   +++|*                *FLAGS* FIELD IN *TDSP+1* ENTERED WITH *FRIC*.
00804  M01S00725.route   +++|
00805  M01S00726.route   +++|
00806  M01S00727.route   +++| KIC      BSS    0           ENTRY
00807  M01S00728.route   +++|          SA1    TDSP+1
00808  M01S00729.route   +++|          SA2    TICC-1
00809  M01S00730.route   +++|          SX6    FRIC
00810  M01S00731.route   +++|          MX7    -2
00811  M01S00732.route   +++|          MX0    36
00812  M01S00733.route   +++|          LX7    19-1        POSITION MASK
00813  M01S00734.route   +++|          BX6    X1+X6       ENTER FLAG BIT
00814  M01S00735.route   +++|
00815  M01S00736.route   +++| KIC1     SA2    A2+B1
00816  M01S00737.route   +++|          ZR     X2,KIC2     IF UNKNOWN *IC* CODE
00817  M01S00738.route   +++|          BX1    X3-X2
00818  M01S00739.route   +++|          BX1    X0*X1
00819  M01S00740.route   +++|          NZ     X1,KIC1     IF NOT FOUND
00820  M01S00741.route   +++|          LX2    19-1
00821  M01S00742.route   +++|          BX6    X7*X6
00822  M01S00743.route   +++|          BX2    -X7*X2
00823  M01S00744.route   +++|          BX6    X6+X2       ENTER IC CODE
00824  M01S00745.route   +++|          SA6    A1
00825  M01S00746.route   +++|          EQ     EPRX        RETURN
00826  M01S00747.route   +++|
00827  M01S00748.route   +++| KIC2     MESSAGE (=C+ ROUTE INCORRECT *IC* PARAMETER.+),3,RECALL
00828  M01S00749.route   +++|          EQ     ABT1        ABORT
00829  M01S00750.route   +++| KID      SPACE  4,10
00830  M01S00751.route   +++|**        KID - PROCESS *ID=NN* (LOCAL DEVICE ID).
00831  M01S00752.route   +++|*
00832  M01S00753.route   +++|*         EXIT   DEVICE ID STORED IN *TDSP+2* (TID FIELD).
00833  M01S00754.route   +++|*                *FLAGS* FIELD IN *TDSP+1* ENTERED WITH *FRTI*.
00834  M01S00755.route   +++|*                *PDID* SET IF *PTID* AND *PFUN* ARE ZERO.
00835  M01S00756.route   +++|
00836  M01S00757.route   +++|
00837  M01S00758.route   +++| KID      BSS    0           ENTRY
00838  M01S00759.route   +++|          SA1    PTID
00839  M01S00760.route   +++|          SA2    PFUN
00840  M01S00761.route   +++|          SX7    B1
00841  M01S00762.route   +++|          BX1    X1+X2
00842  M01S00763.route   +++|          NZ     X1,KFM2     IF *ID* - *TID*/*FM*/*UN* CONFLICT
00843  M01S00764.route   +++|          SA7    PDID
00844  M01S00765.route   +++|          ZR     X3,KID1     IF NONEQUIVALENCED PARAMETER
00845  M01S00766.route   +++|          SB7    B0          SET OCTAL CONVERSION DEFAULT
00846  M01S00767.route   +++|          BX5    X3
00847  M01S00768.route   +++|          RJ     =XDXB
00848  M01S00769.route   +++|          NZ     X4,ABT      IF CONVERSION ERROR
00849  M01S00770.route   +++|          SA1    TDSP+2
00850  M01S00771.route   +++|          MX0    36
00851  M01S00772.route   +++|          SX2    X6-IDLM
00852  M01S00773.route   +++|          BX7    X0*X1
00853  M01S00774.route   +++|          PL     X2,ABT      IF ID .GE. IDLM
00854  M01S00775.route   +++|          BX7    X7+X6
00855  M01S00776.route   +++|          SA7    A1
00856  M01S00777.route   +++|          SX3    FRTI
00857  M01S00778.route   +++|
00858  M01S00779.route   +++| KID1     SA2    TDSP+1
00859  M01S00780.route   +++|          SX6    FRCS
00860  M01S00781.route   +++|          BX6    X2+X6       SET CENTRAL SITE ROUTING FLAG
00861  M01S00782.route   +++|          BX6    X3+X6       OPTIONALLY SET *TID* FLAG
00862  M01S00783.route   +++|          SA6    A2+
00863  M01S00784.route   +++|          EQ     EPRX        RETURN
00864  M01S00785.route   +++| KJS      SPACE  4,10
00865  M01S00786.route   +++|**        KJS - PROCESS *JSN=XXX* (UNIQUE JSN).
00866  M01S00787.route   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00867  M02S00788.ns2556  ---|*         EXIT   SUBSYSTEM NAME FIELD SET IN *TDSP+6*.
00868  M01S00001.ns2556  +++|*         EXIT   FORCED JSN FIELD SET IN *TDSP+6*.
00869  M01S00789.route   +++|*                *FLAGS* FIELD IN *TDSP+1* ENTERED WITH *FRFJ*.
00870  M01S00790.route   +++|
00871  M01S00791.route   +++|
00872  M01S00792.route   +++| KJS      BSS    0           ENTRY
00873  M01S00793.route   +++|          ZR     X3,ABT      IF NULL PARAMETER

Seq #  *Modification Id* Act 
----------------------------+
00874  M02S00794.ns2556  ---|          SA1    PUJN

Seq #  *Modification Id* Act 
----------------------------+
00875  M02S00795.ns2556  ---|          NZ     X1,ABT      IF BOTH *JSN* AND *UJN* SPECIFIED
00876  M01S00796.route   +++|          SX6    B1+
00877  M01S00797.route   +++|          SA6    PJSN
00878  M01S00798.route   +++|          SA1    JOPR        CHECK JOB ORIGIN TYPE
00879  M01S00799.route   +++|          MX0    -12
00880  M01S00800.route   +++|          LX1    0-24
00881  M01S00801.route   +++|          BX1    -X0*X1
00882  M01S00802.route   +++|          MX0    42
00883  M01S00803.route   +++|          IFNE   SYOT,0,1
00884  M01S00804.route   +++|          SX1    X1-SYOT
00885  M01S00805.route   +++|          ZR     X1,KJS1     IF SYSTEM ORIGIN JOB
00886  M01S00806.route   +++|          MESSAGE  (=C+ ROUTE *JSN* NOT ALLOWED.+),3
00887  M01S00807.route   +++|          EQ     ABT1        ABORT
00888  M01S00808.route   +++|
00889  M01S00809.route   +++| KJS1     LX3    18
00890  M01S00810.route   +++|          BX1    X0*X3
00891  M01S00811.route   +++|          NZ     X1,KJS2     IF JSN TOO LONG
00892  M01S00812.route   +++|          MX7    -6
00893  M01S00813.route   +++|          BX1    -X7*X3
00894  M01S00814.route   +++|          ZR     X1,KJS2     IF JSN TOO SHORT
00895  M01S00815.route   +++|          SA1    TDSP+6
00896  M01S00816.route   +++|          SA2    TDSP+1
00897  M01S00817.route   +++|          BX6    X0*X1

Seq #  *Modification Id* Act 
----------------------------+
00898  M02S00818.ns2556  ---|          BX6    X6+X3       SET JSN IN UJN FIELD
00899  M01S00002.ns2556  +++|          BX6    X6+X3       SET JSN IN FORCED JSN FIELD
00900  M01S00819.route   +++|          SX7    FRFJ
00901  M01S00820.route   +++|          BX7    X2+X7       SET FORCED JSN FLAG
00902  M01S00821.route   +++|          SA6    A1
00903  M01S00822.route   +++|          SA7    A2+
00904  M01S00823.route   +++|          EQ     EPRX        RETURN
00905  M01S00824.route   +++|
00906  M01S00825.route   +++| KJS2     MESSAGE  (=C+ ROUTE INCORRECT *JSN* PARAMETER.+),3
00907  M01S00826.route   +++|          EQ     ABT1        ABORT
00908  M01S00827.route   +++| KOT      SPACE  4,10
00909  M01S00828.route   +++|**        KOT - PROCESS *OT=XXXX* (ORIGIN TYPE).
00910  M01S00829.route   +++|*
00911  M01S00830.route   +++|*         EXIT   *F* AND *OT* FIELDS SET IN *TDSP*.
00912  M01S00831.route   +++|
00913  M01S00832.route   +++|
00914  M01S00833.route   +++| KOT      BSS    0           ENTRY
00915  M01S00834.route   +++|          SA1    JOPR        CHECK JOB ORIGIN TYPE
00916  M01S00835.route   +++|          MX0    -12
00917  M01S00836.route   +++|          LX1    11-35
00918  M01S00837.route   +++|          BX1    -X0*X1
00919  M01S00838.route   +++|          MX0    30
00920  M01S00839.route   +++|          SA2    TLOT-1
00921  M01S00840.route   +++|          SX1    X1-SYOT
00922  M01S00841.route   +++|          ZR     X1,KOT1     IF *SYOT* JOB ORIGIN
00923  M01S00842.route   +++|          MESSAGE (=C/ ROUTE *OT* NOT ALLOWED./),3,RECALL
00924  M01S00843.route   +++|          EQ     ABT1        ABORT
00925  M01S00844.route   +++|
00926  M01S00845.route   +++| KOT1     SA2    A2+1
00927  M01S00846.route   +++|          BX6    X3-X2
00928  M01S00847.route   +++|          BX6    X0*X6
00929  M01S00848.route   +++|          ZR     X2,KOT2     IF END OF TABLE
00930  M01S00849.route   +++|          NZ     X6,KOT1     IF NOT A MATCH
00931  M01S00850.route   +++|          MX0    -7
00932  M01S00851.route   +++|          SA1    TDSP
00933  M01S00852.route   +++|          BX2    -X0*X2      EXTRACT ORIGIN VALUE
00934  M01S00853.route   +++|          SX2    X2+4000B    SET FLAG BIT
00935  M01S00854.route   +++|          BX1    X0*X1
00936  M01S00855.route   +++|          BX7    X1+X2       ENTER ORIGIN VALUE
00937  M01S00856.route   +++|          SA7    TDSP
00938  M01S00857.route   +++|          EQ     EPRX        RETURN
00939  M01S00858.route   +++|
00940  M01S00859.route   +++| KOT2     MESSAGE (=C+ ROUTE INCORRECT *OT* PARAMETER.+),3,RECALL
00941  M01S00860.route   +++|          EQ     ABT1        ABORT
00942  M01S00861.route   +++| KPI      SPACE  4,10
00943  M01S00862.route   +++|**        KPI - PROCESS *PI=NNNNNNN* (PRINT IMAGE).
00944  M01S00863.route   +++|*
00945  M01S00864.route   +++|*         EXIT-  *P* FLAG AND *PI* FIELD SET IN *TDSP+4*
00946  M01S00865.route   +++|*
00947  M01S00866.route   +++|
00948  M01S00867.route   +++|
00949  M01S00868.route   +++| KPI      BSS    0           ENTRY
00950  M01S00869.route   +++|          ZR     X3,EPRX     IF NULL PARAMETER
00951  M01S00870.route   +++|          SA1    TPIN-1
00952  M01S00871.route   +++|          MX0    1
00953  M01S00872.route   +++|
00954  M01S00873.route   +++|*         CHECK FOR VALID PRINT IMAGE NAME.
00955  M01S00874.route   +++|
00956  M01S00875.route   +++| KPI1     SA1    A1+B1       CHECK NEXT ENTRY
00957  M01S00876.route   +++|          ZR     X1,KPI2     IF END OF TABLE
00958  M01S00877.route   +++|          SX6    X1          ISOLATE MASK SIZE
00959  M01S00878.route   +++|          BX7    X1-X3
00960  M01S00879.route   +++|          AX6    6
00961  M01S00880.route   +++|          SB4    X6
00962  M01S00881.route   +++|          AX6    X0,B4       FORM MASK
00963  M01S00882.route   +++|          BX2    X6*X7
00964  M01S00883.route   +++|          NZ     X2,KPI1     IF NO MATCH
00965  M01S00884.route   +++|          SA2    TDSP+4B
00966  M01S00885.route   +++|          MX0    -6          ISOLATE PRINT IMAGE ORDINAL
00967  M01S00886.route   +++|          LX2    6
00968  M01S00887.route   +++|          BX6    -X0*X1
00969  M01S00888.route   +++|          BX7    X0*X2

Seq #  *Modification Id* Act 
----------------------------+
00970  M02S00889.route9  ---|          SX6    X6+40B      SET PRINT IMAGE FLAG
00971  M01S00001.route9  +++|          SX6    X6+10B      SET PRINT IMAGE FLAG
00972  M01S00890.route   +++|          BX7    X6+X7       SET PRINT IMAGE CODE INTO PARAMETER BLOCK
00973  M01S00891.route   +++|          LX7    -6
00974  M01S00892.route   +++|          SA7    A2
00975  M01S00893.route   +++|          EQ     EPRX        RETURN
00976  M01S00894.route   +++|
00977  M01S00895.route   +++| KPI2     MESSAGE (=C/ ROUTE UNKNOWN *PI* PARAMETER./),3,R
00978  M01S00896.route   +++|          EQ     ABT1        ABORT
00979  M01S00897.route   +++| KPR      SPACE  4,10
00980  M01S00898.route   +++|**        KPR - PROCESS *PRI=NNNN* (PRIORITY)
00981  M01S00899.route   +++|*
00982  M01S00900.route   +++|*         EXIT   MESSAGE ISSUED, PARAMETER IGNORED.
00983  M01S00901.route   +++|
00984  M01S00902.route   +++|
00985  M01S00903.route   +++| KPR      BSS    0           ENTRY
00986  M01S00904.route   +++|          MESSAGE (=C/ ROUTE *PRI* IGNORED./),3,RECALL
00987  M01S00905.route   +++|          EQ     EPRX        RETURN
00988  M01S00906.route   +++| KRE      SPACE  4,10
00989  M01S00907.route   +++|**        KRE - PROCESS *REP=NN* (REPEAT COUNT)
00990  M01S00908.route   +++|*
00991  M01S00909.route   +++|*         EXIT   REPEAT COUNT SET IN *TDSP+4* - *RC* FIELD.
00992  M01S00910.route   +++|*                *FLAGS* IN *TDSP+1* ENTERED WITH *FRRC*.
00993  M01S00911.route   +++|
00994  M01S00912.route   +++|
00995  M01S00913.route   +++| KRE      BSS    0           ENTRY
00996  M01S00914.route   +++|          SB7    B1          SET DECIMAL CONVERSION
00997  M01S00915.route   +++|          BX5    X3
00998  M01S00916.route   +++|          RJ     =XDXB       CONVERT VALUE
00999  M01S00917.route   +++|          NZ     X4,ABT      IF CONVERSION ERROR
01000  M01S00918.route   +++|          SA1    TDSP+1

Seq #  *Modification Id* Act 
----------------------------+
01001  M02S00919.ns2591  ---|          MX0    -5
01002  M01S00004.ns2591  +++|          MX0    -6
01003  M01S00920.route   +++|          BX2    X0*X6

Seq #  *Modification Id* Act 
----------------------------+
01004  M02S00921.ns2591  ---|          NZ     X2,KRE1     IF VALUE GT 31D (37B)
01005  M01S00005.ns2591  +++|          NZ     X2,KRE1     IF VALUE .GT. 63D (77B)
01006  M01S00922.route   +++|          SA2    TDSP+4
01007  M01S00923.route   +++|          SX7    FRRC

Seq #  *Modification Id* Act 
----------------------------+
01008  M02S00924.ns2591  ---|          LX0    16-4        POSITION MASK

Seq #  *Modification Id* Act 
----------------------------+
01009  M02S00925.ns2591  ---|          LX6    16-4        POSITION VALUE
01010  M01S00006.ns2591  +++|          LX0    12          POSITION MASK
01011  M01S00007.ns2591  +++|          LX6    12          POSITION VALUE
01012  M01S00926.route   +++|          BX2    X0*X2
01013  M01S00927.route   +++|          BX7    X1+X7       SET FLAG BIT
01014  M01S00928.route   +++|          SA7    A1
01015  M01S00929.route   +++|          BX6    X6+X2       ENTER REPEAT COUNT
01016  M01S00930.route   +++|          SA6    A2+
01017  M01S00931.route   +++|          EQ     EPRX        RETURN
01018  M01S00932.route   +++|

Seq #  *Modification Id* Act 
----------------------------+
01019  M02S00933.ns2591  ---| KRE1     MESSAGE (=C/ ROUTE *REP* GT 31. DEFAULT USED./),3,RECALL
01020  M01S00008.ns2591  +++| KRE1     MESSAGE (=C/ ROUTE *REP* GT 63. DEFAULT USED./),3,RECALL
01021  M01S00934.route   +++|          EQ     EPRX        RETURN
01022  M01S00935.route   +++| KSC      SPACE  4,10
01023  M01S00936.route   +++|**        KSC - PROCESS *SC=XX* (SPACING CODE).
01024  M01S00937.route   +++|*
01025  M01S00938.route   +++|*         EXIT   SPACING CODE ENTERED IN *TDSP+4*.
01026  M01S00939.route   +++|
01027  M01S00940.route   +++|
01028  M01S00941.route   +++| KSC      BSS    0           ENTRY
01029  M01S00942.route   +++|          SB7    B0          SET OCTAL CONVERSION
01030  M01S00943.route   +++|          BX5    X3
01031  M01S00944.route   +++|          RJ     =XDXB       CONVERT VALUE
01032  M01S00945.route   +++|          NZ     X4,ABT      IF CONVERSION ERROR
01033  M01S00946.route   +++|          MX0    -6          ENTER SPACING CODE
01034  M01S00947.route   +++|          BX3    -X0*X6
01035  M01S00948.route   +++|          BX1    X0*X6
01036  M01S00949.route   +++|          ZR     X1,KSC1     IF SC .LE. 77B
01037  M01S00950.route   +++|          MESSAGE  (=C* ROUTE INCORRECT SPACING CODE.*),3,R
01038  M01S00951.route   +++|          EQ     ABT1        ABORT
01039  M01S00952.route   +++|
01040  M01S00953.route   +++| KSC1     SA1    TDSP+4
01041  M01S00954.route   +++|          LX0    48
01042  M01S00955.route   +++|          BX1    X0*X1
01043  M01S00956.route   +++|          LX3    48
01044  M01S00957.route   +++|          BX6    X1+X3
01045  M01S00958.route   +++|          SA6    A1+
01046  M01S00959.route   +++|          SA1    TDSP+1      SET SPACING CODE FLAG
01047  M01S00960.route   +++|          SX6    FRSC
01048  M01S00961.route   +++|          BX6    X6+X1
01049  M01S00962.route   +++|          SA6    A1
01050  M01S00963.route   +++|          EQ     EPRX        RETURN
01051  M01S00964.route   +++| KST      SPACE  4,10
01052  M01S00965.route   +++|**        KST - PROCESS *ST=XXX*.  DESTINATION LID.
01053  M01S00966.route   +++|*
01054  M01S00967.route   +++|*         EXIT   THE LOGICAL ID IS PLACED IN *TDSP+2*.
01055  M01S00968.route   +++|*
01056  M01S00969.route   +++|*         ERROR  IF INCORRECT *ST* PARAMETER OR *LID* IS
01057  M01S00970.route   +++|*                GREATER THAN THREE CHARACTERS.
01058  M01S00971.route   +++|
01059  M01S00972.route   +++|
01060  M01S00973.route   +++| KST      BSS    0           ENTRY
01061  M01S00974.route   +++|          MX0    18
01062  M01S00975.route   +++|          BX2    -X0*X3
01063  M01S00976.route   +++|          AX2    18
01064  M01S00977.route   +++|          NZ     X2,KST2     IF *LID* GREATER THAN THREE CHARACTERS
01065  M01S00978.route   +++|          BX6    X0*X3
01066  M01S00979.route   +++|          SA5    =1L*        CHECK FOR ASTERISK
01067  M01S00980.route   +++|          R=     X4,LCPD     SET DLID TO PID
01068  M01S00981.route   +++|          LX6    18
01069  M01S00982.route   +++|          IX3    X4-X6
01070  M01S00983.route   +++|          PL     X3,KST2     IF .LE. SPECIAL DLID VALUES
01071  M01S00984.route   +++|          LX5    18
01072  M01S00985.route   +++|          BX5    X5-X6
01073  M01S00986.route   +++|          NZ     X5,KST1     IF NOT ASTERISK
01074  M01S00987.route   +++|          BX6    X4          SET DLID=PID
01075  M01S00988.route   +++| KST1     LX6    24
01076  M01S00989.route   +++|          SA2    TDSP+2      SET DLID IN TDSP
01077  M01S00990.route   +++|          LX0    -18
01078  M01S00991.route   +++|          BX2    -X0*X2
01079  M01S00992.route   +++|          BX6    X6+X2
01080  M01S00993.route   +++|          SX1    FRLD        SET SLID/DLID FLAG
01081  M01S00994.route   +++|          SA6    A2
01082  M01S00995.route   +++|          SA2    A2-B1
01083  M01S00996.route   +++|          BX6    X2+X1
01084  M01S00997.route   +++|          SA6    A2          STORE FLAG
01085  M01S00998.route   +++|          EQ     EPRX        RETURN
01086  M01S00999.route   +++|
01087  M01S01000.route   +++| KST2     MESSAGE  (=C+ ROUTE INCORRECT *ST* PARAMETER.+),3,RECALL
01088  M01S01001.route   +++|          EQ     ABT1        ABORT
01089  M01S01002.route   +++| KSV      SPACE  4,10
01090  M01S01003.route   +++|**        KSV -  PROCESS *SCL=XX* (SERVICE CLASS).
01091  M01S01004.route   +++|*
01092  M01S01005.route   +++|*         EXIT   SERVICE CLASS ENTERED IN *TDSP+4*.
01093  M01S01006.route   +++|
01094  M01S01007.route   +++|
01095  M01S01008.route   +++| KSV      BSS    0           ENTRY
01096  M01S01009.route   +++|          SA1    TSCT-1
01097  M01S01010.route   +++|
01098  M01S01011.route   +++|*         CHECK FOR VALID SERVICE CLASS.
01099  M01S01012.route   +++|
01100  M01S01013.route   +++| KSV1     SA1    A1+B1
01101  M01S01014.route   +++|          ZR     X1,KSV2     IF END OF TABLE
01102  M01S01015.route   +++|          BX7    X1-X3
01103  M01S01016.route   +++|          NZ     X7,KSV1     IF NO MATCH
01104  M01S01017.route   +++|          SA1    TDSP+4
01105  M01S01018.route   +++|          MX0    12
01106  M01S01019.route   +++|          BX7    X0*X3       SET SERVICE CLASS INTO PARAMETER BLOCK
01107  M01S01020.route   +++|          LX7    -12
01108  M01S01021.route   +++|          BX7    X7+X1
01109  M01S01022.route   +++|          SA7    A1
01110  M01S01023.route   +++|          SA1    TDSP+1      SET FORCED SERVICE CLASS FLAG
01111  M01S01024.route   +++|          MX0    -1
01112  M01S01025.route   +++|          LX0    20
01113  M01S01026.route   +++|          BX7    -X0+X1
01114  M01S01027.route   +++|          SA7    A1+
01115  M01S01028.route   +++|          EQ     EPRX        RETURN
01116  M01S01029.route   +++|
01117  M01S01030.route   +++| KSV2     MESSAGE  (=C+ ROUTE UNDEFINED SERVICE CLASS.+),3,RECALL
01118  M01S01031.route   +++|          EQ     ABT1        ABORT
01119  M01S01032.route   +++| KTD      SPACE  4,10
01120  M01S01033.route   +++|**        KTD - PROCESS *TID=XX* (TERMINAL ID).
01121  M01S01034.route   +++|*
01122  M01S01035.route   +++|*         EXIT   *PTID* SET NON-ZERO IF *PFUN* AND *PDID* EQUAL ZERO.
01123  M01S01036.route   +++|*                *TID=C* PROCESSED AS *ID*.
01124  M01S01037.route   +++|*                *TID=XX* PROCESSED AS *UN*.
01125  M01S01038.route   +++|
01126  M01S01039.route   +++|
01127  M01S01040.route   +++| KTD      BSS    0           ENTRY
01128  M01S01041.route   +++|          SX6    1RC
01129  M01S01042.route   +++|          LX6    59-5
01130  M01S01043.route   +++|          BX6    X6-X3
01131  M01S01044.route   +++|          ZR     X6,KTD1     IF *TID=C* - ROUTE TO CENTRAL SITE
01132  M01S01045.route   +++|          SA1    PDID
01133  M01S01046.route   +++|          NZ     X1,KFM2     IF *TID* - *ID* CONFLICT
01134  M01S01047.route   +++|          SA1    PFUN
01135  M01S01048.route   +++|          NZ     X1,KFM1     IF TID - FM/UN CONFLICT
01136  M01S01049.route   +++|          PL     X3,KUN      IF *TID=XX*
01137  M01S01050.route   +++|          SX7    FRTI
01138  M01S01051.route   +++|          SA7    PTID
01139  M01S01052.route   +++|          EQ     EPRX        RETURN
01140  M01S01053.route   +++|
01141  M01S01054.route   +++| KTD1     SX3    0
01142  M01S01055.route   +++|          EQ     KID         PROCESS AS *ID*
01143  M01S01056.route   +++| KUJ      SPACE  4,10
01144  M01S01057.route   +++|**        KUJ - PROCESS *UJN=XXXXXXX* (USER JOB NAME).
01145  M01S01058.route   +++|*
01146  M01S01059.route   +++|*         EXIT   *UJN* FIELD SET IN *TDSP+3*.
01147  M01S01060.route   +++|*                *FLAGS* IN *TDSP+1* ENTERED WITH *FRUJ*.
01148  M01S01061.route   +++|
01149  M01S01062.route   +++|
01150  M01S01063.route   +++| KUJ      BSS    0           ENTRY

Seq #  *Modification Id* Act 
----------------------------+
01151  M02S01064.ns2556  ---|          SA1    PJSN

Seq #  *Modification Id* Act 
----------------------------+
01152  M02S01065.ns2556  ---|          NZ     X1,ABT      IF BOTH *JSN* AND *UJN* SPECIFIED
01153  M01S01066.route   +++|          SX6    B1+
01154  M01S01067.route   +++|          SA6    PUJN
01155  M01S01068.route   +++|          SA1    TDSP+1      ENTER FLAG BIT
01156  M01S01069.route   +++|          SX7    FRUJ
01157  M01S01070.route   +++|          BX7    X1+X7
01158  M01S01071.route   +++|          SA7    A1
01159  M01S01072.route   +++|          SA1    TDSP+3      ENTER *UJN* PARAMETER
01160  M01S01073.route   +++|          BX1    -X0*X1
01161  M01S01074.route   +++|          BX6    X1+X3
01162  M01S01075.route   +++|          SA6    A1
01163  M01S01076.route   +++|          EQ     EPRX        RETURN
01164  M01S01077.route   +++| KUN      SPACE  4,10
01165  M01S01078.route   +++|**        KUN - PROCESS *UN=XXXXXXX* (USER NAME).
01166  M01S01079.route   +++|*
01167  M01S01080.route   +++|*         EXIT   USER NAME ENTERED IN *TFUN+1*.
01168  M01S01081.route   +++|*                FLAG SET IN *PFUN* IF *PTID* AND *PDID* ARE ZERO.
01169  M01S01082.route   +++|
01170  M01S01083.route   +++|
01171  M01S01084.route   +++| KUN      BSS    0           ENTRY
01172  M01S01085.route   +++|          SA1    PDID
01173  M01S01086.route   +++|          NZ     X1,KFM2     IF *UN* - *ID* CONFLICT
01174  M01S01087.route   +++|          SA1    PTID
01175  M01S01088.route   +++|          SX7    FRTI
01176  M01S01089.route   +++|          NZ     X1,KFM1     IF FM/UN - TID CONFLICT
01177  M01S01090.route   +++|          SA7    PFUN
01178  M01S01091.route   +++|          ZR     X3,EPRX     IF IMPLICIT REMOTE ROUTING
01179  M01S01092.route   +++|          MX0    42
01180  M01S01093.route   +++|          BX6    X0*X3
01181  M01S01094.route   +++|          SA6    TFUN+1      STORE USER NAME
01182  M01S01095.route   +++|          EQ     EPRX        RETURN
01183  M01S01096.route   +++|          SPACE  4,10
01184  M01S01097.route   +++|          USE    LITERALS
01185  M01S01098.route   +++|
01186  M01S01099.route   +++|**        COMMON DECKS.
01187  M01S01100.route   +++|
01188  M01S01101.route   +++|*CALL     COMCDXB
01189  M01S01102.route   +++|*CALL     COMCSYS
01190  M01S01103.route   +++|
01191  M01S01104.route   +++|          BSS    0
01192  M01S01105.route   +++| RFL=     EQU    *+8
01193  M01S01106.route   +++|
01194  M01S01107.route   +++|          END