cdc:nos2.source:opl.opl871:deck:submit
Deck SUBMIT
14 Modifications
Listing Sections
- Deck SUBMIT Start
- Deck SUBMIT Part 1 (Line 1225)
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.submit +++| IDENT SUBMIT,FETS 00002 M01S00002.submit +++| ABS 00003 M01S00003.submit +++| ENTRY SUBMIT 00004 M01S00004.submit +++| ENTRY RFL= 00005 M01S00005.submit +++| ENTRY SSJ= 00006 M01S00006.submit +++| SYSCOM B1 00007 M01S00007.submit +++| SST 00008 M01S00008.submit +++|*COMMENT SUBMIT - ENTER JOB IN INPUT QUEUE.
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00009 M02S00009.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1970. 00010 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00011 M01S00010.submit +++| TITLE SUBMIT - ENTER JOB IN INPUT QUEUE.
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00012 M02S00011.ns22000 ---| SPACE 4 00013 M01S00001.ns22000 +++| SPACE 4,10 00014 M01S00012.submit +++|*** SUBMIT - ENTER JOB IN INPUT QUEUE. 00015 M01S00013.submit +++|* G. R. MANSFIELD. 70/10/29.
| Line S00014 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00016 M02S00014.ns22000 ---| SPACE 4 00017 M01S00002.ns22000 +++| SPACE 4,10 00018 M01S00015.submit +++|*** SUBMIT PLACES THE REQUESTED FILE IN THE REQUESTED 00019 M01S00016.submit +++|* INPUT QUEUE.
| Line S00017 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00020 M02S00017.ns22000 ---| SPACE 4 00021 M01S00003.ns22000 +++| SPACE 4,25 00022 M01S00018.submit +++|*** CALL. 00023 M01S00019.submit +++|*
| Line S00020 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00024 M02S00020.ns22000 ---|*CALL COMSSSD 00025 M01S00021.submit +++|* SUBMIT (LFN,Q)C 00026 M01S00022.submit +++|* OR 00027 M01S00023.submit +++|* SUBMIT (LFN,Q,NR)C 00028 M01S00024.submit +++|* 00029 M01S00025.submit +++|* LFN SOURCE FILE NAME. 00030 M01S00001.submit8 +++|* Q INPUT QUEUE TYPE. 00031 M01S00002.submit8 +++|* B OR BC = BATCH. 00032 M01S00003.submit8 +++|* N OR NO = BATCH, WITH OUTPUT NOT TO BE PRINTED. 00033 M01S00004.submit8 +++|* E=UN OR RB=UN = REMOTE BATCH, WITH OUTPUT TO BE SENT 00034 M01S00005.submit8 +++|* TO THE SPECIFIED USER NAME. IF OMITTED, *UN* 00035 M01S00006.submit8 +++|* DEFAULTS TO THE USER NAME ASSOCIATED WITH THE 00036 M01S00007.submit8 +++|* SUBMITTING JOB. 00037 M01S00008.submit8 +++|* TO = BATCH, WITH OUTPUT TO BE SENT TO THE WAIT QUEUE. 00038 M01S00026.submit +++|* NR IF SPECIFIED, NO FILES ARE REWOUND UNLESS
| Line S00027 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00039 M02S00027.v23l617 ---|* EXPLICITLY DONE WITH /REWIND CONTROL CARDS. 00040 M01S00001.v23l617 +++|* EXPLICITLY DONE WITH /REWIND DIRECTIVES.
| Line S00028 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | submit8 |
Seq # *Modification Id* Act ----------------------------+ 00041 M02S00028.submit8 ---|* Q INPUT QUEUE TYPE.
| Line S00029 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | submit8 |
Seq # *Modification Id* Act ----------------------------+ 00042 M02S00029.submit8 ---|* B OR BC = BATCH.
| Line S00030 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | submit8 |
Seq # *Modification Id* Act ----------------------------+ 00043 M02S00030.submit8 ---|* N OR NO = BATCH, WITH OUTPUT NOT TO BE PRINTED.
| Line S00031 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | submit8 |
Seq # *Modification Id* Act ----------------------------+ 00044 M02S00031.submit8 ---|* E OR RB = REMOTE BATCH.
| Line S00032 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | submit8 |
Seq # *Modification Id* Act ----------------------------+ 00045 M02S00032.submit8 ---|* TO = BATCH, WITH OUTPUT TO BE HELD IN TT QUEUE. 00046 M01S00033.submit +++|* C ESCAPE CHARACTER FOR REFORMAT. 00047 M01S00034.submit +++|* 00048 M01S00035.submit +++|* ASSUMED -
| Line S00036 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | submit8 |
Seq # *Modification Id* Act ----------------------------+ 00049 M02S00036.submit8 ---|* Q=B OR BC, FOR NON-TXOT JOBS.
| Line S00037 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | submit8 |
Seq # *Modification Id* Act ----------------------------+ 00050 M02S00037.submit8 ---|* Q=N OR NO, FOR TXOT JOBS.
| Line S00038 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | submit8 |
Seq # *Modification Id* Act ----------------------------+ 00051 M02S00038.submit8 ---|* LFN=INPUT 00052 M01S00009.submit8 +++|* Q=B OR BC, IF SUBMITTED FROM NON-*IAOT* JOB. 00053 M01S00010.submit8 +++|* Q=N OR NO, IF SUBMITTED FROM *IAOT* JOB. 00054 M01S00011.submit8 +++|* LFN=NO DEFAULT (HOWEVER, *IAF* WILL EDIT THE COMMAND TO 00055 M01S00012.submit8 +++|* INSERT THE PRIMARY FILE NAME IF *SUBMIT.* IS ENTERED 00056 M01S00013.submit8 +++|* IN RESPONSE TO A COMMAND LINE PROMPT). 00057 M01S00039.submit +++|* C=/
| Line S00040 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00058 M02S00040.ns22000 ---| SPACE 4,25 00059 M01S00004.ns22000 +++| SPACE 4,35 00060 M01S00041.submit +++|*** DAYFILE MESSAGES. 00061 M01S00042.submit +++|*
| Line S00043 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00062 M02S00043.271l716 ---|* *CONFLICTING PARAMETERS.* = INPUT QUEUE TYPE SPECIFIED MORE 00063 M01S00001.271l716 +++|* * CONFLICTING PARAMETERS.* = INPUT QUEUE TYPE SPECIFIED MORE 00064 M01S00044.submit +++|* THAN ONCE. 00065 M01S00045.submit +++|*
| Line S00046 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00066 M02S00046.v23l617 ---|* *ILLEGAL QUEUE SPECIFIED.* = QUEUE TYPE SPECIFIED NOT A LEGAL
| Line S00047 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00067 M02S00047.v23l617 ---|* TYPE FOR *SUBMIT*.
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00068 M02S00002.271l716 ---|* *INCORRECT QUEUE SPECIFIED.* = QUEUE TYPE SPECIFIED NOT A 00069 M01S00002.271l716 +++|* * INCORRECT QUEUE SPECIFIED.* = QUEUE TYPE SPECIFIED NOT A 00070 M01S00003.v23l617 +++|* CORRECT TYPE FOR *SUBMIT*. 00071 M01S00048.submit +++|*
| Line S00049 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00072 M02S00049.v23l617 ---|* *NO READ FILE FOUND- LFN .* = LFN ON /READ CONTROL CARD COULD
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00073 M02S00004.271l716 ---|* *NO READ FILE FOUND- LFN .* = LFN ON /READ DIRECTIVE COULD 00074 M01S00003.271l716 +++|* * NO READ FILE FOUND- LFN .* = LFN ON /READ DIRECTIVE COULD 00075 M01S00050.submit +++|* NOT BE FOUND. 00076 M01S00051.submit +++|*
| Line S00052 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00077 M02S00052.271l716 ---|* *NO SOURCE FILE SPECIFIED.* = NO SOURCE FILE NAME GIVEN. 00078 M01S00004.271l716 +++|* * NO SOURCE FILE SPECIFIED.* = NO SOURCE FILE NAME GIVEN. 00079 M01S00053.submit +++|*
| Line S00054 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00080 M02S00054.v23l617 ---|* *READ FILE BUSY- LFN .* = LFN ON /READ CONTROL CARD WAS BUSY.
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00081 M02S00005.271l716 ---|* *READ FILE BUSY- LFN .* = LFN ON /READ DIRECTIVE WAS BUSY. 00082 M01S00005.271l716 +++|* * READ FILE BUSY- LFN .* = LFN ON /READ DIRECTIVE WAS BUSY. 00083 M01S00055.submit +++|*
| Line S00056 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | submi1 |
Seq # *Modification Id* Act ----------------------------+ 00084 M02S00056.submi1 ---|* *SUBMIT COMPLETE. JOBNAME IS XXXXXXX* = THE JOB WAS
| Line S00057 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | submi1 |
Seq # *Modification Id* Act ----------------------------+ 00085 M02S00057.submi1 ---|* SUBMITTED WITH THE NAME XXXXXXX.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | submi1 |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00086 M02S00001.271l716 ---|* *SUBMIT COMPLETE. JSN IS XXXX.* = THE JOB WAS 00087 M01S00006.271l716 +++|* * SUBMIT COMPLETE. JSN IS XXXX.* = THE JOB WAS 00088 M01S00002.submi1 +++|* SUBMITTED WITH THE JSN XXXX. 00089 M01S00058.submit +++|*
| Line S00059 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00090 M02S00059.271l716 ---|* *SUBMIT FILE EMPTY.* = EOR/EOF FOUND ON FIRST READ OF SUBMIT 00091 M01S00007.271l716 +++|* * SUBMIT FILE EMPTY.* = EOR/EOF FOUND ON FIRST READ OF SUBMIT 00092 M01S00060.submit +++|* FILE. 00093 M01S00061.submit +++|*
| Line S00062 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00094 M02S00062.271l716 ---|* *TOO MANY ARGUMENTS.* = TOO MANY ARGUMENTS WERE PRESENT ON 00095 M01S00008.271l716 +++|* * TOO MANY ARGUMENTS.* = TOO MANY ARGUMENTS WERE PRESENT ON
| Line S00063 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00096 M02S00063.v23l617 ---|* THE CONTROL STATEMENT. 00097 M01S00006.v23l617 +++|* THE COMMAND.
| Line S00064 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00098 M02S00064.ns22000 ---| SPACE 4 00099 M01S00005.ns22000 +++|* 00100 M01S00006.ns22000 +++|* * USER COMMAND HAS NOT BEEN EXECUTED.* = A */USER* DIRECTIVE 00101 M01S00007.ns22000 +++|* HAS BEEN SPECIFIED, BUT THE CALLING JOB HAS NEVER EXECUTED 00102 M01S00008.ns22000 +++|* A *USER* COMMAND. 00103 M01S00009.ns22000 +++|*
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00104 M02S00010.v23l617 ---|* * USER DIRECTIVE NOT VALID.* = A */USER* DIRECTIVE COULD 00105 M01S00007.v23l617 +++|* * USER DIRECTIVE INCORRECT.* = A */USER* DIRECTIVE COULD 00106 M01S00011.ns22000 +++|* NOT BE PROCESSED, EITHER BECAUSE THE CALLING JOB HAS NEVER
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | submi3 |
Seq # *Modification Id* Act ----------------------------+ 00107 M02S00012.submi3 ---|* ISSUED A *USER* COMMAND, OR BECAUSE IT WAS NOT THE THIRD
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | submi3 |
Seq # *Modification Id* Act ----------------------------+ 00108 M02S00013.submi3 ---|* LINE IN THE FILE. 00109 M01S00001.submi3 +++|* ISSUED A *USER* COMMAND, OR BECAUSE THE DIRECTIVE DID NOT 00110 M01S00002.submi3 +++|* FOLLOW BOTH A *JOB* DIRECTIVE AND A *JOB* COMMAND. 00111 M01S00014.ns22000 +++| SPACE 4,10 00112 M01S00065.submit +++|*CALL COMCCMD 00113 M01S00066.submit +++|*CALL COMCMAC 00114 M01S00067.submit +++|*CALL COMSDSP 00115 M01S00068.submit +++|*CALL COMSIOQ 00116 M01S00015.ns22000 +++|*CALL COMSMLS 00117 M01S00016.ns22000 +++|*CALL COMSPFM 00118 M01S00069.submit +++|*CALL COMSSFM 00119 M01S00017.ns22000 +++|*CALL COMSSSD
| Line S00070 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00120 M02S00070.ns22000 ---| SPACE 4 00121 M01S00018.ns22000 +++| SPACE 4,10 00122 M01S00071.submit +++|**** ASSEMBLY CONSTANTS. 00123 M01S00072.submit +++| 00124 M01S00073.submit +++|
| Line S00074 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | submi6 |
Seq # *Modification Id* Act ----------------------------+ 00125 M02S00074.submi6 ---| BUFL EQU 150D WORKING BUFFER 00126 M01S00001.submi6 +++| BUFL EQU 320D WORKING BUFFER 00127 M01S00075.submit +++| IBUFL EQU 2001B INPUT FILE BUFFER 00128 M01S00076.submit +++| FBUFL EQU 2001B 00129 M01S00077.submit +++| RBUFL EQU 2001B READ FILE BUFFER 00130 M01S00001.ns2140 +++| SBUFL EQU 100B *SFM* BUFFER LENGTH 00131 M01S00078.submit +++| TBUFL EQU BUFL/10+1 NO LINE TERMINATOR DATA BUFFER LENGTH 00132 M01S00079.submit +++| WBUFL EQU 1 00133 M01S00080.submit +++|**** 00134 M01S00081.submit +++| TITLE COMMON DATA.
| Line S00082 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00135 M02S00082.ns22000 ---| DATA SPACE 4 00136 M01S00019.ns22000 +++| DATA SPACE 4,10 00137 M01S00083.submit +++|** COMMON DATA. 00138 M01S00084.submit +++| 00139 M01S00085.submit +++| 00140 M01S00086.submit +++| ORG 110B 00141 M01S00087.submit +++| FETS BSS 0 00142 M01S00088.submit +++| 00143 M01S00089.submit +++| I BSS 0 00144 M01S00090.submit +++| INPUT FILEB IBUF,IBUFL,(FET=8) 00145 M01S00091.submit +++| 00146 M01S00092.submit +++| F BSS 0 00147 M01S00093.submit +++| SCR FILEB FBUF,FBUFL,(FET=8) 00148 M01S00094.submit +++| 00149 M01S00095.submit +++| R BSS 0 00150 M01S00096.submit +++| TAPE1 FILEB RBUF,RBUFL,(FET=8) 00151 M01S00097.submit +++| 00152 M01S00098.submit +++| RR BSS 0 00153 M01S00099.submit +++| PFMFIL FILEB RBUF,RBUFL,EPR,(FET=13B) 00154 M01S00100.submit +++| 00155 M01S00101.submit +++| W BSS 0 00156 M01S00102.submit +++| SCR2 FILEB WBUF,WBUFL 00157 M01S00103.submit +++| 00158 M01S00104.submit +++| 00159 M01S00020.ns22000 +++| ALVL CON 0 FILE ACCESS LEVEL 00160 M01S00105.submit +++| EORBIT CON 0 BIT59=EOR BIT, BIT47=/READ ACTIVE BIT 00161 M01S00106.submit +++| FLAGS CON 0 BIT59=NOSEQ, BIT47=TRANS, BIT35=NOPACK 00162 M01S00107.submit +++| NRFLG DATA 2RNR NO REWIND FLAG 00163 M01S00108.submit +++| IPTR CON 0 INPUT FET *IN* POINTER 00164 M01S00109.submit +++| IPTR2 CON 0 READ FILE FET *IN* POINTER 00165 M01S00021.ns22000 +++| LCNT CON 1 LINE COUNTER 00166 M01S00110.submit +++| OPTR CON 0 INPUT FET OUT POINTER 00167 M01S00111.submit +++| OPTR2 CON 0 READ FILE FET OUT POINTER 00168 M01S00112.submit +++| RJ CON 0 RETURN JUMP ADDRESS 00169 M01S00113.submit +++| RJ2 CON 0 READ FILE ORIGINAL RETURN JUMP ADDRESS 00170 M01S00022.ns22000 +++| USRF CON 0 A */USER* DIRECTIVE HAS BEEN PROCESSED 00171 M01S00001.submit2 +++| TFUN SPACE 4,10 00172 M01S00002.submit2 +++|** TFUN - FAMILY NAME AND USER NAME TABLE FOR *DSP*. 00173 M01S00003.submit2 +++|* 00174 M01S00004.submit2 +++|*T W0 42/ FAMILY NAME,18/0
Figure W0
00175 M01S00005.submit2 +++|*T,W1 42/ USER NAME,18/0
Figure W1
00176 M01S00006.submit2 +++| 00177 M01S00007.submit2 +++| 00178 M01S00008.submit2 +++| TFUN BSSZ 2 00179 M01S00114.submit +++| TDSP SPACE 4,10 00180 M01S00115.submit +++|* TDSP - *DSP* PARAMETER BLOCK. 00181 M01S00116.submit +++| 00182 M01S00117.submit +++| 00183 M01S00118.submit +++| TDSP VFD 42/0LSCR,18/0
| Line S00119 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00184 M02S00119.ns22000 ---| VFD 24/0,12/0LIN,6/0,18/FRDC+FRFN+FRCS 00185 M01S00023.ns22000 +++| VFD 24/0,12/0LIN,6/0,18/FRFN+FREB+FRDC+FRCS
| Line S00120 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | submit8 |
Seq # *Modification Id* Act ----------------------------+ 00186 M02S00120.submit8 ---| BSSZ 5 00187 M01S00014.submit8 +++| BSSZ DPBL-*+TDSP 00188 M01S00024.ns22000 +++| VFD 42/0,18/EFNV
| Line S00025 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | submit8 |
Seq # *Modification Id* Act ----------------------------+ 00189 M02S00025.submit8 ---| BSSZ 7 00190 M01S00015.submit8 +++| BSSZ EPBL-*+TDSP 00191 M01S00121.submit +++| TITLE MAIN PROGRAM.
| Line S00122 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00192 M02S00122.ns22000 ---| SUBMIT SPACE 4 00193 M01S00026.ns22000 +++| SUBMIT SPACE 4,100 00194 M01S00123.submit +++|** SUBMIT - MAIN PROGRAM 00195 M01S00124.submit +++|* 00196 M01S00125.submit +++|* THE ESCAPE CODE (*C* PARAMETER) IS A UNIQUE CHARACTER 00197 M01S00126.submit +++|* THAT ENABLES THE SUBMIT PROCESSOR TO RECOGNIZE SPECIAL
| Line S00127 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00198 M02S00127.v23l617 ---|* CONTROL CARDS THAT AFFECT THE FINAL FORMAT OF THE 00199 M01S00008.v23l617 +++|* DIRECTIVES THAT AFFECT THE FINAL FORMAT OF THE 00200 M01S00128.submit +++|* SUBMIT FILE. DEFAULT CHARACTER IS /. 00201 M01S00129.submit +++|* 00202 M01S00130.submit +++|* FUNCTIONS 00203 M01S00131.submit +++|* 00204 M01S00132.submit +++|* 1. READS FIRST UNIT RECORD AND CHECKS FOR *C*JOB
| Line S00133 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00205 M02S00133.v23l617 ---|* A. IF THE FIRST CARD IS NOT *C*JOB THE INPUT
| Line S00134 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00206 M02S00134.v23l617 ---|* FILE IS COPIED AS IS TO BECOME THE ACTUAL
| Line S00135 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00207 M02S00135.v23l617 ---|* SUBMIT FILE.
| Line S00136 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00208 M02S00136.v23l617 ---|*
| Line S00137 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00209 M02S00137.v23l617 ---|* B. IF THE FIRST CARD IS *C*JOB THE INPUT FILE
| Line S00138 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00210 M02S00138.v23l617 ---|* WILL BE REFORMATTED TO BECOME THE SUBMIT
| Line S00139 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00211 M02S00139.v23l617 ---|* FILE. 00212 M01S00009.v23l617 +++|* A. IF THE FIRST DIRECTIVE IS NOT *C*JOB THE 00213 M01S00010.v23l617 +++|* INPUT FILE IS COPIED AS IS TO BECOME THE 00214 M01S00011.v23l617 +++|* ACTUAL SUBMIT FILE. 00215 M01S00012.v23l617 +++|* 00216 M01S00013.v23l617 +++|* B. IF THE FIRST DIRECTIVE IS *C*JOB THE INPUT 00217 M01S00014.v23l617 +++|* FILE WILL BE REFORMATTED TO BECOME THE 00218 M01S00015.v23l617 +++|* SUBMIT FILE. 00219 M01S00140.submit +++|* NOTE REFORMATTING IS ACCOMPLISHED BY PLACING
| Line S00141 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00220 M02S00141.v23l617 ---|* SUBMIT CONTROL CARDS IN THE INPUT FILE. 00221 M01S00016.v23l617 +++|* SUBMIT DIRECTIVES IN THE INPUT FILE. 00222 M01S00142.submit +++|* 2. SETS QUEUE FOR EVENTUAL DISPOSAL OF OUTPUT
| Line S00143 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | dok201 |
Seq # *Modification Id* Act ----------------------------+ 00223 M02S00143.dok201 ---|* 3. SUBMIT FILE IS PASSED TO THE SYSTEM *SUBMIT MACRO* 00224 M01S00001.dok201 +++|* 3. SUBMIT FILE IS PASSED TO THE SYSTEM *ROUTE* MACRO 00225 M01S00144.submit +++|* 4. MESSAGE IS ISSUED TO DAYFILE/INTERACTIVE TERMINAL 00226 M01S00145.submit +++|* 00227 M01S00146.submit +++|*
| Line S00147 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00228 M02S00147.v23l617 ---|* HOW CONTROL CARDS INFLUENCE THE SUBMIT FILE. 00229 M01S00017.v23l617 +++|* HOW DIRECTIVES INFLUENCE THE SUBMIT FILE. 00230 M01S00148.submit +++|* 00231 M01S00149.submit +++|* 1. MODES EDITING IS DONE UNDER TWO MODES 00232 M01S00150.submit +++|* A. NON-TRANSPARENT EACH LINE OF THE INPUT FILE IS
| Line S00151 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00233 M02S00151.v23l617 ---|* EXAMINED FOR CONTROL CARDS.
| Line S00152 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00234 M02S00152.v23l617 ---|* DEFAULT MODE WITH *C*JOB CARD.
| Line S00153 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00235 M02S00153.v23l617 ---|* CONTROL CARD FORMAT *C*NOTRANS 00236 M01S00018.v23l617 +++|* EXAMINED FOR DIRECTIVES. DEFAULT 00237 M01S00019.v23l617 +++|* MODE WITH *C*JOB DIRECTIVE. 00238 M01S00020.v23l617 +++|* DIRECTIVE FORMAT *C*NOTRANS 00239 M01S00154.submit +++|*
| Line S00155 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00240 M02S00155.v23l617 ---|* B. TRANSPARENT ONLY GROUPS OF CONTROL CARDS AT 00241 M01S00021.v23l617 +++|* B. TRANSPARENT ONLY GROUPS OF DIRECTIVES AT 00242 M01S00156.submit +++|* THE BEGINNING OF EACH RECORD MAY 00243 M01S00157.submit +++|* BE EXAMINED.
| Line S00158 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00244 M02S00158.v23l617 ---|* CONTROL CARD FORMAT *C*TRANS 00245 M01S00022.v23l617 +++|* DIRECTIVE FORMAT *C*TRANS 00246 M01S00159.submit +++|*
| Line S00160 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00247 M02S00160.v23l617 ---|* 2. OPTIONS EACH CONTROL CARD ENABLES THE USER TO 00248 M01S00023.v23l617 +++|* 2. OPTIONS EACH DIRECTIVE ENABLES THE USER TO 00249 M01S00161.submit +++|* DICTATE SOME ASPECT OF THE FINAL FORMAT OF 00250 M01S00162.submit +++|* THE SUBMIT FILE. 00251 M01S00024.v23l617 +++|* 00252 M01S00025.v23l617 +++|* DIRECTIVE FORMAT *C*CHARGE 00253 M01S00026.v23l617 +++|* REPLACES THE DIRECTIVE WITH A *CHARGE* 00254 M01S00027.v23l617 +++|* COMMAND USING THE CURRENTLY ACTIVE 00255 M01S00028.v23l617 +++|* CHARGE AND PROJECT NUMBER IF THE CHARGE 00256 M01S00029.v23l617 +++|* AND PROJECT NUMBERS HAVE BEEN VALIDATED. 00257 M01S00030.v23l617 +++|* IF NO CHARGE NUMBER IS IN EFFECT OR IF 00258 M01S00031.v23l617 +++|* THE CURRENT CHARGE AND PROJECT NUMBERS 00259 M01S00032.v23l617 +++|* HAVE NOT BEEN VALIDATED NO ACTION IS 00260 M01S00033.v23l617 +++|* TAKEN. 00261 M01S00163.submit +++|*
| Line S00164 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00262 M02S00164.v23l617 ---|* CONTROL CARD FORMAT *C*EOR 00263 M01S00034.v23l617 +++|* DIRECTIVE FORMAT *C*EOR 00264 M01S00165.submit +++|* END OF RECORD IS WRITTEN ON SUBMIT FILE 00265 M01S00166.submit +++|*
| Line S00167 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00266 M02S00167.v23l617 ---|* CONTROL CARD FORMAT *C*EOF 00267 M01S00035.v23l617 +++|* DIRECTIVE FORMAT *C*EOF 00268 M01S00168.submit +++|* END OF FILE IS WRITTEN ON SUBMIT FILE 00269 M01S00169.submit +++|*
| Line S00170 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00270 M02S00170.v23l617 ---|* CONTROL CARD FORMAT *C*EC=A 00271 M01S00036.v23l617 +++|* DIRECTIVE FORMAT *C*EC=A 00272 M01S00171.submit +++|* CHANGES ESCAPE CHARACTER FROM *C* TO A. 00273 M01S00172.submit +++|*
| Line S00173 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00274 M02S00173.v23l617 ---|* CONTROL CARD FORMAT *C*NOSEQ 00275 M01S00037.v23l617 +++|* DIRECTIVE FORMAT *C*NOSEQ 00276 M01S00174.submit +++|* WILL AFFECT FORMAT ONLY UNDER NON-TRANS- 00277 M01S00175.submit +++|* PARENT MODE. NO ATTEMPT WILL BE MADE TO 00278 M01S00176.submit +++|* STRIP LINE NUMBERS FROM INPUT FILE LINES. 00279 M01S00177.submit +++|*
| Line S00178 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00280 M02S00178.v23l617 ---|* CONTROL CARD FORMAT *C*SEQ 00281 M01S00038.v23l617 +++|* DIRECTIVE FORMAT *C*SEQ 00282 M01S00179.submit +++|* WILL AFFECT FORMAT ONLY UNDER NON-TRANS- 00283 M01S00180.submit +++|* PARENT MODE. LINE NUMBERS WILL BE 00284 M01S00181.submit +++|* STRIPPED OFF INPUT FILE LINES. DEFAULT
| Line S00182 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00285 M02S00182.v23l617 ---|* WITH *C*JOB CARD. 00286 M01S00039.v23l617 +++|* WITH *C*JOB DIRECTIVE. 00287 M01S00183.submit +++|*
| Line S00184 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00288 M02S00184.v23l617 ---|* CONTROL CARD FORMAT *C*REWIND,FILENAME 00289 M01S00040.v23l617 +++|* DIRECTIVE FORMAT *C*REWIND,FILENAME 00290 M01S00185.submit +++|* REWINDS ONE OF USER S LOCAL FILES 00291 M01S00186.submit +++|*
| Line S00187 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00292 M02S00187.v23l617 ---|* CONTROL CARD FORMAT *C*READ,FILENAME 00293 M01S00041.v23l617 +++|* DIRECTIVE FORMAT *C*READ,FILENAME 00294 M01S00188.submit +++|* COPIES USER,S LOCAL FILE TO SUBMIT FILE. 00295 M01S00189.submit +++|* EDITING IS DONE ON THE FILE AS THOUGH IT 00296 M01S00190.submit +++|* WERE SOURCE CODE OF THE INPUT FILE. 00297 M01S00191.submit +++|*
| Line S00192 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00298 M02S00192.v23l617 ---|* CONTROL CARD FORMAT *C*PACK
| Line S00193 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00299 M02S00193.v23l617 ---|* DEFAULT WHEN *C*JOB CARD IS DETECTED. 00300 M01S00042.v23l617 +++|* DIRECTIVE FORMAT *C*PACK 00301 M01S00043.v23l617 +++|* DEFAULT WHEN *C*JOB DIRECTIVE IS DETECTED. 00302 M01S00194.submit +++|* ALL EOR MARKS ARE REMOVED FROM A FILE. 00303 M01S00195.submit +++|* ALL EOF MARKS REMOVED FROM A MULTI-FILE 00304 M01S00196.submit +++|* FILE. AN EOF MARK WILL BE WRITTEN TO THE 00305 M01S00197.submit +++|* SUBMIT FILE ONLY WHEN EOI IS ENCOUNTERED 00306 M01S00198.submit +++|* IN THE INPUT FILE. EDITING STOPS AT THAT 00307 M01S00199.submit +++|* POINT. 00308 M01S00200.submit +++|*
| Line S00201 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00309 M02S00201.v23l617 ---|* CONTROL CARD FORMAT *C*NOPACK 00310 M01S00044.v23l617 +++|* DIRECTIVE FORMAT *C*NOPACK 00311 M01S00202.submit +++|* INTERNAL FILE STRUCTURES ARE PRESERVED 00312 M01S00203.submit +++|* INTACT. EACH INTERNAL EOR OR EOF MARK IS 00313 M01S00204.submit +++|* COPIED TO THE SUBMIT FILE. FILES COPIED 00314 M01S00205.submit +++|* WITH *C*READ HAVE EOF AND EOI MARKS 00315 M01S00206.submit +++|* CONVERTED TO EOR MARKS. WHEN EOI IS 00316 M01S00207.submit +++|* ENCOUNTERED ON THE INPUT FILE AN EOF IS 00317 M01S00208.submit +++|* WRITTEN TO THE SUBMIT FILE AND EDITING 00318 M01S00209.submit +++|* STOPS. 00319 M01S00210.submit +++|*
| Line S00211 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00320 M02S00211.v23l617 ---|* CONTROL CARD FORMAT *C*USER 00321 M01S00045.v23l617 +++|* DIRECTIVE FORMAT *C*USER 00322 M01S00212.submit +++|* READS *VALIDUS* FILE FOR THE PASSWORD OF
| Line S00213 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00323 M02S00213.v23l617 ---|* THE USER NUMBER CURRENTLY IN EFFECT AND 00324 M01S00046.v23l617 +++|* THE USER NAME CURRENTLY IN EFFECT AND 00325 M01S00214.submit +++|* REPLACES THE DIRECTIVE WITH A *USER*
| Line S00215 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00326 M02S00215.v23l617 ---|* STATEMENT USING THE CURRENT USER NUMBER 00327 M01S00047.v23l617 +++|* DIRECTIVE USING THE CURRENT USER NAME 00328 M01S00216.submit +++|* AND PASSWORD. 00329 M01S00217.submit +++| 00330 M01S00218.submit +++|
| Line S00219 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00331 M02S00219.ns22000 ---| SUBMIT SB1 1 PRESET PROGRAM 00332 M01S00027.ns22000 +++| SUBMIT BSS 0 ENTRY 00333 M01S00028.ns22000 +++| SB1 1 00334 M01S00220.submit +++| MX6 0 SET NO READ FILE YET 00335 M01S00221.submit +++| SA6 RR 00336 M01S00222.submit +++| RJ PRS 00337 M01S00223.submit +++| RETURN F,R 00338 M01S00224.submit +++| SA2 NRFLG 00339 M01S00225.submit +++| ZR X2,SBM0 IF NO REWIND 00340 M01S00226.submit +++| REWIND I 00341 M01S00227.submit +++| SBM0 READ I 00342 M01S00228.submit +++| READS I,BUF,BUFL READ FIRST LINE
| Line S00229 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00343 M02S00229.271l716 ---| SX0 =C*SUBMIT FILE EMPTY.* 00344 M01S00009.271l716 +++| SX0 =C* SUBMIT FILE EMPTY.* 00345 M01S00230.submit +++| NZ X1,ABT IF EOR/EOF 00346 M01S00231.submit +++| SA1 BUF SKIP SEQUENCE NUMBERS 00347 M01S00232.submit +++| RJ SSN 00348 M01S00233.submit +++| RJ CSF CHECK SPECIAL FORMAT 00349 M01S00234.submit +++| SA1 F+1 ASSIGN FILE TO INPUT DEVICE 00350 M01S00235.submit +++| MX0 -48 00351 M01S00236.submit +++| BX6 -X0*X1 00352 M01S00237.submit +++| SX1 2RIN 00353 M01S00029.ns22000 +++| MX0 1 FILE ACCESS LEVEL BIT 00354 M01S00030.ns22000 +++| LX0 39-59 00355 M01S00238.submit +++| LX1 59-11 00356 M01S00239.submit +++| BX7 X6+X1 00357 M01S00031.ns22000 +++| BX7 X0+X7 MERGE ACCESS LEVEL BIT 00358 M01S00240.submit +++| SA7 A1 00359 M01S00032.ns22000 +++| SA1 F+CFAL GET ACCESS LEVEL FIELD 00360 M01S00033.ns22000 +++| MX0 -3 00361 M01S00034.ns22000 +++| LX0 36 00362 M01S00035.ns22000 +++| SA2 ALVL 00363 M01S00036.ns22000 +++| BX1 X0*X1 CLEAR OLD ACCESS LEVEL 00364 M01S00037.ns22000 +++| LX2 36 00365 M01S00038.ns22000 +++| BX6 X1+X2 MERGE NEW ACCESS LEVEL 00366 M01S00039.ns22000 +++| SA6 A1 00367 M01S00241.submit +++| REQUEST F,U,N REQUEST EQUIPMENT WITH NO DAYFILE MESSAGE 00368 M01S00242.submit +++| SX6 B2-JOB 00369 M01S00243.submit +++| NZ X6,SBM1 IF NOT JOB IDENTIFIER 00370 M01S00244.submit +++| RJ RFM REFORMAT 00371 M01S00245.submit +++| EQ SBM2 00372 M01S00246.submit +++| 00373 M01S00247.submit +++| SBM1 RJ CPF COPY FILE 00374 M01S00248.submit +++| SBM2 RECALL F
| Line S00249 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00375 M02S00249.ns22000 ---| ROUTE TDSP,RECALL 00376 M01S00040.ns22000 +++| SA1 USRF 00377 M01S00041.ns22000 +++| NZ X1,SBM3 IF */USER* SPECIFIED 00378 M01S00042.ns22000 +++| SX6 B0+ 00379 M01S00043.ns22000 +++| SA6 TDSP+7 CLEAR *NO VALIDATE* BIT 00380 M01S00044.ns22000 +++| SBM3 ROUTE TDSP,RECALL 00381 M01S00250.submit +++| CLOCK SBMA BUILD OUTPUT MESSAGE FOR TERMINAL 00382 M01S00251.submit +++| SA1 TDSP 00383 M01S00252.submit +++| SA2 =0LOUTPUT
| Line S00253 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | submi1 |
Seq # *Modification Id* Act ----------------------------+ 00384 M02S00253.submi1 ---| MX3 42 00385 M01S00003.submi1 +++| MX3 24 00386 M01S00254.submit +++| BX6 X3*X1
| Line S00255 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | submi1 |
Seq # *Modification Id* Act ----------------------------+ 00387 M02S00255.submi1 ---| SX3 B1
| Line S00256 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | submi1 |
Seq # *Modification Id* Act ----------------------------+ 00388 M02S00256.submi1 ---| SA6 SBMC 00389 M01S00004.submi1 +++| SA1 SBMB+2 00390 M01S00005.submi1 +++| LX3 24 00391 M01S00006.submi1 +++| BX1 -X3*X1 00392 M01S00007.submi1 +++| LX6 24 00393 M01S00008.submi1 +++| BX6 X1+X6 00394 M01S00009.submi1 +++| SA6 SBMB+2 00395 M01S00010.submi1 +++| SX3 B1 00396 M01S00257.submit +++| BX6 X2+X3 00397 M01S00258.submit +++| SA6 F 00398 M01S00259.submit +++| WRITEW F,SBMA,5
| Line S00260 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | submi1 |
Seq # *Modification Id* Act ----------------------------+ 00399 M02S00260.submi1 ---| MESSAGE SBMB,3,R SEND JOBNAME MESSAGE 00400 M01S00011.submi1 +++| MESSAGE SBMB,3,R SEND JSN MESSAGE 00401 M01S00261.submit +++| MX0 -6 00402 M01S00262.submit +++| SA1 FWPR 00403 M01S00263.submit +++| AX1 24 00404 M01S00264.submit +++| BX3 -X0*X1
| Line S00265 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00405 M02S00265.ns22000 ---| SX6 X3-TXOT
| Line S00266 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00406 M02S00266.ns22000 ---| NZ X6,SBM5 IF NOT *TXOT* ORIGIN 00407 M01S00045.ns22000 +++| SX6 X3-IAOT 00408 M01S00046.ns22000 +++| NZ X6,SBM5 IF NOT INTERACTIVE JOB 00409 M01S00267.submit +++| MESSAGE NOFIL+2,1 CLEAR CONTROL POINT MESSAGE 00410 M01S00268.submit +++| WRITER F 00411 M01S00269.submit +++| SBM5 ENDRUN 00412 M01S00270.submit +++| 00413 M01S00271.submit +++| 00414 M01S00272.submit +++| SBMA BSS 1
| Line S00273 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | submi1 |
Seq # *Modification Id* Act ----------------------------+ 00415 M02S00273.submi1 ---| SBMB DATA H* SUBMIT COMPLETE. JOBNAME IS*
| Line S00274 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | submi1 |
Seq # *Modification Id* Act ----------------------------+ 00416 M02S00274.submi1 ---| SBMC DATA 1C 00417 M01S00012.submi1 +++| SBMB DATA C* SUBMIT COMPLETE. JSN IS XXXX.* 00418 M01S00275.submit +++| TITLE SUBROUTINES.
| Line S00276 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00419 M02S00276.ns22000 ---| ABT SPACE 4 00420 M01S00047.ns22000 +++| ABT SPACE 4,10 00421 M01S00277.submit +++|** ABT - ABORT JOB. 00422 M01S00278.submit +++|* 00423 M01S00279.submit +++|* ENTRY (X0) = MESSAGE ADDRESS. 00424 M01S00280.submit +++| 00425 M01S00281.submit +++|
| Line S00282 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00426 M02S00282.271l716 ---| ABT RECALL
| Line S00283 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00427 M02S00283.271l716 ---| MESSAGE X0 00428 M01S00010.271l716 +++| ABT BSS 0 00429 M01S00011.271l716 +++| MESSAGE X0,,R 00430 M01S00284.submit +++| ABORT
| Line S00285 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00431 M02S00285.ns22000 ---| CPF SPACE 4 00432 M01S00048.ns22000 +++| CPF SPACE 4,10 00433 M01S00286.submit +++|** CPF - COPY INPUT FILE TO SUBMIT FILE. 00434 M01S00287.submit +++|*
| Line S00288 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | submi5 |
Seq # *Modification Id* Act ----------------------------+ 00435 M02S00288.submi5 ---|* USES X - 1.
| Line S00289 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | submi5 |
Seq # *Modification Id* Act ----------------------------+ 00436 M02S00289.submi5 ---|* A - 1. 00437 M01S00001.submi5 +++|* USES X - 0, 1, 5. 00438 M01S00002.submi5 +++|* B - 1, 6. 00439 M01S00290.submit +++| 00440 M01S00291.submit +++|
| Line S00292 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00441 M02S00292.ns22000 ---| CPF PS ENTRY/EXIT 00442 M01S00049.ns22000 +++| CPF SUBR ENTRY/EXIT 00443 M01S00293.submit +++| WRITES F,BUF,BUFL 00444 M01S00294.submit +++| EQ CPF2 00445 M01S00295.submit +++| 00446 M01S00296.submit +++| CPF1 READ I 00447 M01S00297.submit +++| RECALL F 00448 M01S00298.submit +++| CPF2 READW I,BUF,BUFL
| Line S00299 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | submi5 |
Seq # *Modification Id* Act ----------------------------+ 00449 M02S00299.submi5 ---| NG X1,CPF4 IF EOF
| Line S00300 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | submi5 |
Seq # *Modification Id* Act ----------------------------+ 00450 M02S00300.submi5 ---| NZ X1,CPF3 IF EOR
| Line S00301 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | submi5 |
Seq # *Modification Id* Act ----------------------------+ 00451 M02S00301.submi5 ---| WRITEW F,BUF,BUFL 00452 M01S00003.submi5 +++| SX0 X1 00453 M01S00004.submi5 +++| SX5 B6-BUF 00454 M01S00005.submi5 +++| WRITEW F,BUF,X5 00455 M01S00006.submi5 +++| NG X0,CPF4 IF EOF/EOI 00456 M01S00007.submi5 +++| NZ X0,CPF3 IF EOR 00457 M01S00302.submit +++| EQ CPF2 00458 M01S00303.submit +++|
| Line S00304 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | submi5 |
Seq # *Modification Id* Act ----------------------------+ 00459 M02S00304.submi5 ---| CPF3 WRITEW F,BUF,X1-BUF
| Line S00305 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | submi5 |
Seq # *Modification Id* Act ----------------------------+ 00460 M02S00305.submi5 ---| WRITER F 00461 M01S00008.submi5 +++| CPF3 WRITER F 00462 M01S00009.submi5 +++| NG X0,CPFX IF EOI 00463 M01S00306.submit +++| EQ CPF1 00464 M01S00307.submit +++|
| Line S00308 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | submi5 |
Seq # *Modification Id* Act ----------------------------+ 00465 M02S00308.submi5 ---| CPF4 SA1 I CHECK STATUS
| Line S00309 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | submi5 |
Seq # *Modification Id* Act ----------------------------+ 00466 M02S00309.submi5 ---| LX1 59-9
| Line S00310 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | ns22000 |
M03 (Updated by) | submi5 |
Seq # *Modification Id* Act ----------------------------+ 00467 M03S00310.submi5 ---| NG X1,CPF RETURN IF EOI
| Line S00050 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | submi5 |
Seq # *Modification Id* Act ----------------------------+ 00468 M02S00050.submi5 ---| NG X1,CPFX IF EOI 00469 M01S00010.submi5 +++| CPF4 SX0 X0+B1 00470 M01S00011.submi5 +++| NG X0,CPF5 IF EOI 00471 M01S00311.submit +++| WRITEF F 00472 M01S00312.submit +++| EQ CPF1 00473 M01S00012.submi5 +++| 00474 M01S00013.submi5 +++| CPF5 NZ X5,CPF3 IF DATA IN BUFFER 00475 M01S00014.submi5 +++| EQ CPFX RETURN
| Line S00313 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00476 M02S00313.ns22000 ---| CSF SPACE 4 00477 M01S00051.ns22000 +++| CSF SPACE 4,15 00478 M01S00314.submit +++|** CSF - CHECK SPECIAL FORMAT. 00479 M01S00315.submit +++|* 00480 M01S00316.submit +++|* ENTRY (A1) = ADDRESS OF FIRST CHARACTER. 00481 M01S00317.submit +++|* (X1) = FIRST CHARACTER. 00482 M01S00318.submit +++|* 00483 M01S00319.submit +++|* EXIT (B2) = 0 IF NOT SPECIAL FORMAT. 00484 M01S00320.submit +++|* = ADDRESS OF PROCESSOR OTHERWISE. 00485 M01S00321.submit +++|* 00486 M01S00322.submit +++|* USES X - 2, 3, 4, 5, 6, 7. 00487 M01S00323.submit +++|* B - 2, 5, 7. 00488 M01S00324.submit +++|* A - 2, 3, 5. 00489 M01S00325.submit +++| 00490 M01S00326.submit +++|
| Line S00327 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | submi3 |
Seq # *Modification Id* Act ----------------------------+ 00491 M02S00327.submi3 ---| CSF6 BX7 X3-X6 00492 M01S00003.submi3 +++| CSF7 BX7 X3-X6 00493 M01S00328.submit +++| BX4 X2*X7 00494 M01S00329.submit +++| MX2 48D 00495 M01S00330.submit +++| BX7 -X2*X7 00496 M01S00331.submit +++| SA3 A3+1 00497 M01S00332.submit +++| SA5 A5+1 00498 M01S00333.submit +++| ZR X4,CSF4 IF MATCH FOUND
| Line S00334 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00499 M02S00334.ns22000 ---| NZ X3,CSF1 LOOP TO END OF TABLE
| Line S00335 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00500 M02S00335.ns22000 ---| SPACE 1
| Line S00336 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00501 M02S00336.ns22000 ---| CSF PS 0 ENTRY/EXIT 00502 M01S00052.ns22000 +++| NZ X3,CSF1 IF NOT END OF TABLE 00503 M01S00053.ns22000 +++| 00504 M01S00054.ns22000 +++| 00505 M01S00055.ns22000 +++| CSF SUBR ENTRY/EXIT 00506 M01S00337.submit +++| SA5 TCCFL 00507 M01S00338.submit +++| SA3 TCCF 00508 M01S00339.submit +++| CSF1 BX6 X6-X6 CLEAR ASSEMBLY 00509 M01S00340.submit +++| SA2 A1 FIRST CHARACTER 00510 M01S00341.submit +++| MX4 48D 00511 M01S00342.submit +++| BX4 -X4*X5 00512 M01S00343.submit +++| SB7 X4 SAVE SHIFT COUNT PER CC FORMAT 00513 M01S00344.submit +++| SB2 B0 CLEAR RESPONSE 00514 M01S00345.submit +++| CSF2 LX6 6 ADVANCE ASSEMBLY 00515 M01S00346.submit +++| BX6 X6+X2 00516 M01S00347.submit +++| LX5 1 SHIFT CHARACTER COUNT 00517 M01S00348.submit +++| SA2 A2+B1 NEXT CHARACTER 00518 M01S00349.submit +++| NG X5,CSF2 LOOP FOR X5 CHARACTERS 00519 M01S00350.submit +++| SB5 A3-TCCFR
| Line S00351 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00520 M02S00351.ns22000 ---| PL B5,CSF3 SKIP TEST FOR BLANK IF /EC=,/READ,/REWIND 00521 M01S00056.ns22000 +++| PL B5,CSF3 IF /EC=,/READ,/REWIND 00522 M01S00352.submit +++| SX2 X2-1R
| Line S00353 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00523 M02S00353.ns22000 ---| ZR X2,CSF3 00524 M01S00057.ns22000 +++| ZR X2,CSF3 IF BLANK 00525 M01S00354.submit +++| SA3 A3+1 00526 M01S00355.submit +++| SA5 A5+1
| Line S00356 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00527 M02S00356.ns22000 ---| ZR X3,CSF RETURN
| Line S00357 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00528 M02S00357.ns22000 ---| EQ CSF1 00529 M01S00058.ns22000 +++| ZR X3,CSFX IF END OF LINE 00530 M01S00059.ns22000 +++| EQ CSF1 LOOP 00531 M01S00358.submit +++| 00532 M01S00359.submit +++| CSF3 LX6 B7,X6 00533 M01S00360.submit +++| SX4 59D 00534 M01S00361.submit +++| SX2 B7 00535 M01S00362.submit +++| IX4 X4-X2 00536 M01S00363.submit +++| SB7 X4 00537 M01S00364.submit +++| MX2 1 00538 M01S00365.submit +++| AX2 B7,X2
| Line S00366 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | submi3 |
Seq # *Modification Id* Act ----------------------------+ 00539 M02S00366.submi3 ---| EQ CSF6 00540 M01S00004.submi3 +++| EQ CSF7 CHECK FOR DIRECTIVE FORMAT 00541 M01S00367.submit +++| 00542 M01S00368.submit +++| CSF4 SB5 A3-1-TCCFR TEST FOR /READ
| Line S00369 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00543 M02S00369.ns22000 ---| NZ B5,CSF5 NOT /READ 00544 M01S00060.ns22000 +++| NZ B5,CSF5 IF NOT /READ 00545 M01S00370.submit +++| SA3 EORBIT TEST READ ACTIVE BIT 00546 M01S00371.submit +++| LX3 12D
| Line S00372 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00547 M02S00372.ns22000 ---| NG X3,CSF READ ALREADY ACTIVE, DISREGARD 2ND /READ
| Line S00061 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | submi3 |
Seq # *Modification Id* Act ----------------------------+ 00548 M02S00061.submi3 ---| NG X3,CSFX IF READ ALREADY ACTIVE (DISREGARD /READ)
| Line S00373 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | submi3 |
Seq # *Modification Id* Act ----------------------------+ 00549 M02S00373.submi3 ---| CSF5 SB2 X7 SET PROCESSOR 00550 M01S00005.submi3 +++| NG X3,CSF6 IF READ ALREADY ACTIVE (DISREGARD /READ) 00551 M01S00006.submi3 +++| CSF5 SB2 X7+ SET PROCESSOR ADDRESS 00552 M01S00007.submi3 +++| CSF6 SA1 LCNT DECREMENT COUNT OF COMMANDS 00553 M01S00008.submi3 +++| SX6 X1-1 00554 M01S00009.submi3 +++| SA6 A1
| Line S00374 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00555 M02S00374.ns22000 ---| EQ CSF RETURN 00556 M01S00062.ns22000 +++| EQ CSFX RETURN 00557 M01S00375.submit +++| NLT SPACE 4,10 00558 M01S00376.submit +++|** NLT - WRITE NO LINE TERMINATOR DATA TO BUFFER. 00559 M01S00377.submit +++|* 00560 M01S00378.submit +++|* ENTRY (X1) = STATUS FROM *READS*. 00561 M01S00379.submit +++|* (B6) = LWA+1 OF DATA TRANSFERRED ON *READS*. 00562 M01S00380.submit +++|* 00563 M01S00381.submit +++|* EXIT (X1) = SAME AS ENTRY. 00564 M01S00382.submit +++|* 00565 M01S00383.submit +++|* USES A - 2, 3, 7. 00566 M01S00384.submit +++|* B - 4, 5, 7. 00567 M01S00385.submit +++|* X - 0, 1, 2, 3, 7. 00568 M01S00386.submit +++| 00569 M01S00387.submit +++| 00570 M01S00388.submit +++| NLT SUBR ENTRY/EXIT 00571 M01S00389.submit +++| SB7 B6-BUF 00572 M01S00390.submit +++| ZR B7,NLTX IF NO DATA TRANSFERRED 00573 M01S00391.submit +++| SB7 BUF SET CHARACTER BUFFER ADDRESS 00574 M01S00392.submit +++| SB4 TBUF SET WORD BUFFER ADDRESS 00575 M01S00393.submit +++| NLT1 SB5 10 INITIALIZE NUMBER OF CHARACTERS IN WORD 00576 M01S00394.submit +++| SX7 B0+ CLEAR CHARACTER BUFFER WORD 00577 M01S00395.submit +++| NLT2 SA2 B7+ MERGE NEXT CHARACTER 00578 M01S00396.submit +++| LX7 6 00579 M01S00397.submit +++| SB7 B7+B1 INCREMENT CHARACTER BUFFER ADDRESS 00580 M01S00398.submit +++| BX7 X7+X2 00581 M01S00399.submit +++| EQ B7,B6,NLT3 IF ALL CHARACTERS PROCESSED 00582 M01S00400.submit +++| SB5 B5-B1 DECREMENT CHARACTERS IN WORD 00583 M01S00401.submit +++| NZ B5,NLT2 IF NOT END OF WORD 00584 M01S00402.submit +++| SA7 B4 STORE WORD 00585 M01S00403.submit +++| SB4 B4+B1 INCREMENT WORD BUFFER ADDRESS 00586 M01S00404.submit +++| EQ NLT1 PROCESS NEXT 10 CHARACTERS 00587 M01S00405.submit +++| 00588 M01S00406.submit +++| NLT3 SA7 B4 STORE LAST WORD 00589 M01S00407.submit +++| SB4 B4+B1 SET NUMBER OF WORDS 00590 M01S00408.submit +++| SB7 B4-TBUF 00591 M01S00409.submit +++| BX0 X1 SAVE READ STATUS 00592 M01S00410.submit +++| WRITEW F,TBUF,B7 WRITE DATA WITH NO TERMINATOR 00593 M01S00411.submit +++| SA2 FLAGS CHECK PACK MODE 00594 M01S00412.submit +++| SA3 I CHECK EOI STATUS 00595 M01S00413.submit +++| LX2 59-35 00596 M01S00414.submit +++| LX3 59-9 00597 M01S00415.submit +++| PL X2,NLT4 IF PACK MODE 00598 M01S00416.submit +++| PL X3,NLT4 IF NOT EOI 00599 M01S00417.submit +++| WRITEF F FLUSH BUFFER IF EOI IN NOPACK MODE 00600 M01S00418.submit +++| NLT4 BX1 X0 RESTORE READ STATUS 00601 M01S00419.submit +++| EQ NLTX RETURN
| Line S00420 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00602 M02S00420.ns22000 ---| RFM SPACE 4,10 00603 M01S00063.ns22000 +++| RFM SPACE 4,40 00604 M01S00421.submit +++|** RFM - REFORMAT FILE.
| Line S00422 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00605 M02S00422.v23l617 ---|* RFM PROCESSES THE INPUT FILE WHENEVER A *C*JOB CARD
| Line S00423 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00606 M02S00423.v23l617 ---|* IS DETECTED AS THE FIRST UNIT RECORD OF THE FILE. 00607 M01S00048.v23l617 +++|* *RFM* PROCESSES THE INPUT FILE WHENEVER A *C*JOB 00608 M01S00049.v23l617 +++|* DIRECTIVE IS DETECTED AS THE FIRST UNIT RECORD OF 00609 M01S00050.v23l617 +++|* THE FILE. 00610 M01S00424.submit +++|* PROCESSING IS DONE IN ONE OF TWO MODES 00611 M01S00425.submit +++|* 1. NONTRANSPARENT MODE
| Line S00426 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00612 M02S00426.v23l617 ---|* AFTER *C*JOB CARD OR *C*NOTRANS* CARD
| Line S00427 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00613 M02S00427.v23l617 ---|* EACH UNIT RECORD OF THE INPUT FILE IS CHECKED FOR
| Line S00428 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00614 M02S00428.v23l617 ---|* SPECIAL SUBMIT CONTROL CARDS 00615 M01S00051.v23l617 +++|* AFTER *C*JOB DIRECTIVE OR *C*NOTRANS* 00616 M01S00052.v23l617 +++|* DIRECTIVE EACH UNIT RECORD OF THE INPUT FILE IS 00617 M01S00053.v23l617 +++|* CHECKED FOR SPECIAL SUBMIT DIRECTIVES 00618 M01S00429.submit +++|* A. *C*TRANS FOUND 00619 M01S00430.submit +++|* EDITING REVERTS IMMEDIATELY TO TRANSPARENT 00620 M01S00431.submit +++|* MODE. (SEE BELOW).
| Line S00432 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00621 M02S00432.v23l617 ---|* B. OTHER CONTROL CARDS
| Line S00433 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00622 M02S00433.v23l617 ---|* THE CONTROL CARD APPEARANCE IS MARKED AND 00623 M01S00054.v23l617 +++|* B. OTHER DIRECTIVES 00624 M01S00055.v23l617 +++|* THE DIRECTIVE APPEARANCE IS MARKED AND 00625 M01S00434.submit +++|* IT TAKES EFFECT WITH THE NEXT UNIT RECORD 00626 M01S00435.submit +++|* C. TEXT LINE 00627 M01S00436.submit +++|* TEXT LINES ARE EDITED ACCORDING TO THE 00628 M01S00437.submit +++|* CURRENT SETTING OF THE SUBMIT CONTROL 00629 M01S00438.submit +++|* OPTIONS. 00630 M01S00439.submit +++|* D. EOR/EOF/EOI 00631 M01S00440.submit +++|* SEE COMMENTS IN SUBROUTINE *SUBEO*. 00632 M01S00441.submit +++|* 00633 M01S00442.submit +++|* 2. TRANSPARENT MODE
| Line S00443 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00634 M02S00443.v23l617 ---|* AFTER *C*TRANS CARD HAS BEEN PROCESSED
| Line S00444 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00635 M02S00444.v23l617 ---|* THE FIRST UNIT RECORD IS EXAMINED 00636 M01S00056.v23l617 +++|* AFTER *C*TRANS DIRECTIVE HAS BEEN 00637 M01S00057.v23l617 +++|* PROCESSED THE FIRST UNIT RECORD IS EXAMINED 00638 M01S00445.submit +++|* A. TEXT 00639 M01S00446.submit +++|* THE WHOLE RECORD IS TRANSFERED TO THE 00640 M01S00447.submit +++|* SUBMIT FILE AS IS 00641 M01S00448.submit +++|* B. *C*NOTRANS FOUND 00642 M01S00449.submit +++|* PROCESSING REVERTS IMMEDIATELY TO 00643 M01S00450.submit +++|* NON-TRANSPARENT MODE. (SEE ABOVE). 00644 M01S00451.submit +++|* C. SUBMIT CONTROL OPTION 00645 M01S00452.submit +++|* THE CONTROL OPTION OCCURENCE IS MARKED 00646 M01S00453.submit +++|* EVEN IF IT MAY NOT INFLUENCE THE EDITING 00647 M01S00454.submit +++|* UNDER THIS MODE. IF MODE REVERTS TO NON- 00648 M01S00455.submit +++|* TRANSPARENT, ALL OPTIONS USED UNDER 00649 M01S00456.submit +++|* TRANSPARENT MODE WILL TAKE EFFECT. 00650 M01S00457.submit +++|* D. EOR/EOF/EOI 00651 M01S00458.submit +++|* SEE COMMENTS IN SUBROUTINE *SUBEO*. 00652 M01S00459.submit +++| 00653 M01S00460.submit +++|
| Line S00461 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00654 M02S00461.ns22000 ---| RFM PS 00655 M01S00064.ns22000 +++| RFM SUBR ENTRY/EXIT 00656 M01S00462.submit +++| 00657 M01S00463.submit +++|* PROCESS NONTRANSPARENT MODE 00658 M01S00464.submit +++| 00659 M01S00465.submit +++| PNM BSS 0 NOTRANS 00660 M01S00466.submit +++| EQ PNM2 SKIP ADDITIONAL READ 00661 M01S00467.submit +++| 00662 M01S00468.submit +++| PNM1 READ I,R 00663 M01S00469.submit +++| RECALL F 00664 M01S00470.submit +++| PNM2 SA1 I+3 SAVE OUTPTR(I) 00665 M01S00471.submit +++| SA2 I+2 SAVE INPUT FET *IN* POINTER 00666 M01S00472.submit +++| BX6 X1 00667 M01S00473.submit +++| LX7 X2 00668 M01S00474.submit +++| SA6 OPTR 00669 M01S00475.submit +++| SA7 IPTR 00670 M01S00476.submit +++| READS I,BUF,BUFL READ UNIT RECORD 00671 M01S00477.submit +++| ZR X1,PNM2.1 IF NO EOR/EOF/EOI 00672 M01S00478.submit +++| SB7 B6-BUF 00673 M01S00479.submit +++| ZR B7,PNM2.0 IF END OF RECORD 00674 M01S00480.submit +++| SA2 FLAGS CHECK TRANS MODE BIT 00675 M01S00481.submit +++| LX2 59-47 00676 M01S00482.submit +++| PL X2,PNM2.0 IF TRANS NOT SET 00677 M01S00483.submit +++| SA2 OPTR RESTORE POINTERS FOR TRANS DATA 00678 M01S00484.submit +++| SA3 IPTR 00679 M01S00485.submit +++| BX6 X2 00680 M01S00486.submit +++| LX7 X3 00681 M01S00487.submit +++| SA6 I+3 00682 M01S00488.submit +++| SA7 I+2 00683 M01S00489.submit +++| EQ PTM6 SWITCH TO TRANS MODE 00684 M01S00490.submit +++| 00685 M01S00491.submit +++| PNM2.0 RJ NLT WRITE NO LINE TERMINATOR DATA TO BUFFER 00686 M01S00492.submit +++| SX0 B0 INPUT FILE 00687 M01S00493.submit +++| SX7 B0 NO WRITE REMAINDER
| Line S00494 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00688 M02S00494.ns22000 ---| SX5 RFM RETURN ADDRESS FOR EOI 00689 M01S00065.ns22000 +++| SX5 RFMX RETURN ADDRESS FOR EOI 00690 M01S00495.submit +++| RJ SUBEO PROCESS EOF/EOR 00691 M01S00496.submit +++| EQ PNM1 PROCESS NEXT RECORD 00692 M01S00497.submit +++|
| Line S00498 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00693 M02S00498.ns22000 ---| PNM2.1 SA1 BUF SET BEGINNING ADDRESS 00694 M01S00066.ns22000 +++| PNM2.1 SA1 LCNT INCREMENT LINE COUNT 00695 M01S00067.ns22000 +++| SX6 X1+B1 00696 M01S00068.ns22000 +++| SA6 A1 00697 M01S00069.ns22000 +++| SA1 BUF SET BEGINNING ADDRESS 00698 M01S00499.submit +++| RJ CSF CHECK SPECIAL FORMAT 00699 M01S00500.submit +++| NZ B2,PNM3 IF SPECIAL FORMAT 00700 M01S00501.submit +++| RJ SSN STRIP SEQUENCE NUMBER 00701 M01S00502.submit +++| SB6 A1 SAVE BEGINNING ADDRESS AFTER STRIPPING 00702 M01S00503.submit +++| SB3 B2 SAVE BEGINNING ADDRESS BEFORE STRIPPING 00703 M01S00504.submit +++| RJ CSF CHECK SPECIAL FORMAT 00704 M01S00505.submit +++| ZR B2,PNM4 IF NOT SPECIAL FORMAT 00705 M01S00506.submit +++| PNM3 SX7 PNM2 SAVE RETURN ADDRESS 00706 M01S00507.submit +++| SA7 RJ 00707 M01S00508.submit +++| JP B2 00708 M01S00509.submit +++| 00709 M01S00510.submit +++| PNM4 SA2 FLAGS TEST TRANS BIT 00710 M01S00511.submit +++| LX2 12D 00711 M01S00512.submit +++| PL X2,PNM5 TRANS NOT SET 00712 M01S00513.submit +++| SA1 OPTR RESTORE *IN* AND *OUT* POINTERS 00713 M01S00514.submit +++| SA2 IPTR 00714 M01S00515.submit +++| BX6 X1 00715 M01S00516.submit +++| LX7 X2 00716 M01S00517.submit +++| SA6 I+3 00717 M01S00518.submit +++| SA7 I+2 00718 M01S00519.submit +++| EQ PTM6 SWITCH TO TRANS MODE 00719 M01S00520.submit +++| 00720 M01S00521.submit +++| PNM5 SB2 BUF+BUFL 00721 M01S00522.submit +++| SA2 FLAGS TEST NOSEQ BIT 00722 M01S00523.submit +++| PL X2,PNM6 STRIP SEQUENCE NUMBERS 00723 M01S00524.submit +++| SB6 B3 NO SEQUENCE NUMBER STRIPPING 00724 M01S00525.submit +++| PNM6 SB7 B2-B6 CALCULATE WRITE LENGTH 00725 M01S00526.submit +++| WRITES F,B6,B7 00726 M01S00527.submit +++| EQ PNM2 LOOP TO NEXT RECORD 00727 M01S00528.submit +++| 00728 M01S00529.submit +++|* PROCESS TRANSPARENT MODE 00729 M01S00530.submit +++| 00730 M01S00531.submit +++| PTM BSS 0 00731 M01S00532.submit +++| PTM1 READ I 00732 M01S00533.submit +++| RECALL F 00733 M01S00534.submit +++| PTM2 SA1 I+3 SAVE OUTPTR(I) 00734 M01S00535.submit +++| BX6 X1 00735 M01S00536.submit +++| SA6 OPTR 00736 M01S00537.submit +++| SA1 X6 CHECK FOR END OF LINE BYTE 00737 M01S00538.submit +++| MX7 -12 00738 M01S00539.submit +++| BX7 -X7*X1
| Line S00540 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00739 M02S00540.v23l617 ---| NZ X7,PTM5 IF NOT A POSSIBLE SPECIAL FORMAT CARD 00740 M01S00058.v23l617 +++| NZ X7,PTM5 IF NOT A POSSIBLE SPECIAL FORMAT DIRECTIVE 00741 M01S00541.submit +++| READS I,BUF,BUFL READ UNIT RECORD FROM INPUT FILE 00742 M01S00542.submit +++| ZR X1,PTM3 IF NO EOR/EOF 00743 M01S00543.submit +++| SX0 B0 INPUT FILE 00744 M01S00544.submit +++| SX7 B0 NO RECORD REMAINDER
| Line S00545 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00745 M02S00545.ns22000 ---| SX5 RFM RETURN ADDRESS FOR EOI 00746 M01S00070.ns22000 +++| SX5 RFMX RETURN ADDRESS FOR EOI 00747 M01S00546.submit +++| RJ SUBEO PROCESS TERMINATION CONDITION 00748 M01S00547.submit +++| EQ PTM1 PROCESS NEXT RECORD 00749 M01S00548.submit +++|
| Line S00549 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00750 M02S00549.ns22000 ---| PTM3 SA1 BUF SET STARTING ADDRESS 00751 M01S00071.ns22000 +++| PTM3 SA1 LCNT INCREMENT LINE COUNT 00752 M01S00072.ns22000 +++| SX6 X1+B1 00753 M01S00073.ns22000 +++| SA6 A1 00754 M01S00074.ns22000 +++| SA1 BUF SET BEGINNING ADDRESS 00755 M01S00550.submit +++| RJ CSF CHECK SPECIAL FORMAT WITH NO SEQ NO STRIP 00756 M01S00551.submit +++| NZ B2,PTM4 IF SPECIAL FORMAT 00757 M01S00552.submit +++| RJ SSN STRIP SEQUENCE NUMBER 00758 M01S00553.submit +++| SB6 A1 SAVE BEGINNING ADDRESS AFTER STRIPPING 00759 M01S00554.submit +++| SB3 B2 SAVE BEGINNING ADDRESS BEFORE STRIPPING 00760 M01S00555.submit +++| RJ CSF CHECK SPECIAL FORMAT 00761 M01S00556.submit +++| ZR B2,PTM5 IF NOT SPECIAL FORMAT 00762 M01S00557.submit +++| PTM4 SX7 PTM2 SAVE RETURN ADDRESS 00763 M01S00558.submit +++| SA7 RJ 00764 M01S00559.submit +++| JP B2 00765 M01S00560.submit +++| 00766 M01S00561.submit +++| PTM5 SA2 FLAGS TEST FOR TRANS BIT SET 00767 M01S00562.submit +++| LX2 12D 00768 M01S00563.submit +++| SA3 OPTR RESTORE OUT POINTER 00769 M01S00564.submit +++| BX6 X3 00770 M01S00565.submit +++| SA6 I+3 00771 M01S00566.submit +++| PL X2,PNM2 IF NOT SET, SWITCH TO NONTRANSPARENT MODE 00772 M01S00567.submit +++| PTM6 READW I,BUF,BUFL 00773 M01S00568.submit +++| RJ SUBUFS SET TRANSFER TO BUF 00774 M01S00569.submit +++| ZR X1,PTM7 IF NO EOR/EOF 00775 M01S00570.submit +++| SX0 B0 INPUT FILE 00776 M01S00571.submit +++| SX7 B1 PROCESS INCOMPLETE RECORD
| Line S00572 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00777 M02S00572.ns22000 ---| SX5 RFM RETURN ADDRESS FOR EOI 00778 M01S00075.ns22000 +++| SX5 RFMX RETURN ADDRESS FOR EOI 00779 M01S00573.submit +++| RJ SUBEO PROCESS TERMINATION CONDITION 00780 M01S00574.submit +++| EQ PTM1 PROCESS NEXT RECORD 00781 M01S00575.submit +++| 00782 M01S00576.submit +++| PTM7 WRITEW F,BUF,BUFL 00783 M01S00577.submit +++| RJ SUBUFR CLEAR TRANSFER TO BUF 00784 M01S00578.submit +++| EQ PTM6 LOOP
| Line S00579 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00785 M02S00579.ns22000 ---| SUBEO SPACE 4 00786 M01S00076.ns22000 +++| SUBEO SPACE 4,40 00787 M01S00580.submit +++|** SUBEO PROCESS FILE TERMINATION CONDITION. 00788 M01S00581.submit +++|*
| Line S00582 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00789 M02S00582.ns22000 ---|* ENTRY I FILE FET ADDRESS 00790 M01S00077.ns22000 +++|* ENTRY (I) = FILE FET ADDRESS. 00791 M01S00583.submit +++|* (X1) = EOR/EOF/EOI STATUS FROM READW OR READS 00792 M01S00584.submit +++|* (X0) IF 0 - FILE IS INPUT FILE 00793 M01S00585.submit +++|* 1 - FILE FROM /READ,.... 00794 M01S00586.submit +++|* (X5) = ALTERNATE RETURN ADDRESS 00795 M01S00587.submit +++|* (X7) = 0 IF ENTIRE RECORD. 00796 M01S00588.submit +++|* = 1 IF PARTIAL RECORD POSSIBLE. 00797 M01S00589.submit +++|* 00798 M01S00590.submit +++|* EXIT THE ROUTINE WILL RETURN VIA REGULAR LINKAGE WHEN 00799 M01S00591.submit +++|* EOR/EOF ON INPUT FILE 00800 M01S00592.submit +++|* EOR ON READ FILE 00801 M01S00593.submit +++|* THE ROUTINE WILL RETURN TO THE ALTERNATE RETURN 00802 M01S00594.submit +++|* ADDRESS WHEN 00803 M01S00595.submit +++|* EOI ON INPUT FILE 00804 M01S00596.submit +++|* EOF ON READ FILE 00805 M01S00597.submit +++|* 00806 M01S00598.submit +++|* 00807 M01S00599.submit +++|* THIS ROUTINE PROCESSES A TERMINAL CONDITION FOR A FILE 00808 M01S00600.submit +++|* AS FOLLOWS 00809 M01S00601.submit +++|* 1. END-OF-INFORMATION 00810 M01S00602.submit +++|* A. INPUT FILE 00811 M01S00603.submit +++|* THE REFORMATTING ROUTINE IS TERMINATED BUT 00812 M01S00604.submit +++|* THE SUBMIT BUFFER F IS FLUSHED IF NOT 00813 M01S00605.submit +++|* EMPTY WITH A WRITEF MACRO. 00814 M01S00606.submit +++|* 2. END OF FILE 00815 M01S00607.submit +++|* A. INPUT FILE 00816 M01S00608.submit +++|* IF THE PACK CONTROL OPTION IS 00817 M01S00609.submit +++|* IN EFFECT THE FILE MARK IS IGNORED. 00818 M01S00610.submit +++|* ELSE A FILE MARK IS WRITTEN TO THE OUTPUT 00819 M01S00611.submit +++|* FILE F 00820 M01S00612.submit +++|* B. READ FILE 00821 M01S00613.submit +++|* READING FROM FILE IS TERMINATED, EDITING 00822 M01S00614.submit +++|* WILL BE THE SAME AS IF EOR WAS DETECTED. 00823 M01S00615.submit +++|* 3. END OF RECORD 00824 M01S00616.submit +++|* A. INPUT FILE 00825 M01S00617.submit +++|* B. READ FILE 00826 M01S00618.submit +++|* IF THE PACK OPTION IS IN EFFECT THE RECORD 00827 M01S00619.submit +++|* MARK IS IGNORED, ELSE A RECORD MARK IS 00828 M01S00620.submit +++|* WRITTEN TO THE OUTPUT FILE F. 00829 M01S00621.submit +++| 00830 M01S00622.submit +++|
| Line S00623 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00831 M02S00623.ns22000 ---| SUBEO PS ENTRY/EXIT 00832 M01S00078.ns22000 +++| SUBEO SUBR ENTRY/EXIT 00833 M01S00624.submit +++| SA2 FLAGS PACK/NOPAK 00834 M01S00625.submit +++| LX2 59-35 00835 M01S00626.submit +++| 00836 M01S00627.submit +++|* SEPARATE EOR FROM EOF. 00837 M01S00628.submit +++| 00838 M01S00629.submit +++| PL X1,SUB6 IF EOR 00839 M01S00630.submit +++| NZ X0,SUB4 IF EOF ON READ FILE 00840 M01S00631.submit +++| 00841 M01S00632.submit +++|* END OF FILE. 00842 M01S00633.submit +++| 00843 M01S00634.submit +++| SA4 SUBTR 00844 M01S00001.submi4 +++| BX0 X2 00845 M01S00635.submit +++| ZR X4,SUB1 IF BUFFER EMPTY
| Line S00636 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | submi4 |
Seq # *Modification Id* Act ----------------------------+ 00846 M02S00636.submi4 ---| BX0 X2 00847 M01S00637.submit +++| WRITEW F,BUF,X4 00848 M01S00638.submit +++| RJ SUBUFR CLEAR TRANSFER COUNT 00849 M01S00639.submit +++| SUB1 SA3 I CHECK EOI STATUS 00850 M01S00640.submit +++| LX3 59-9 00851 M01S00641.submit +++| PL X0,SUB2 IF PACK MODE 00852 M01S00642.submit +++| NG X3,SUB3 IF EOI/INPUT/NOPACK 00853 M01S00643.submit +++| WRITEF F EOF/NOPACK, FLUSH FILE
| Line S00644 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00854 M02S00644.ns22000 ---| EQ SUBEO REGULAR RETURN 00855 M01S00079.ns22000 +++| EQ SUBEOX REGULAR RETURN 00856 M01S00645.submit +++|
| Line S00646 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00857 M02S00646.ns22000 ---| SUB2 PL X3,SUBEO IF NOT EOI 00858 M01S00080.ns22000 +++| SUB2 PL X3,SUBEOX IF NOT EOI 00859 M01S00647.submit +++| WRITEF F ON EOI,FLUSH OUTPUT BUFFER 00860 M01S00648.submit +++| SUB3 SB7 X5 SET ALTERNATE RETURN ADDRESS 00861 M01S00649.submit +++| JP B7 00862 M01S00650.submit +++| 00863 M01S00651.submit +++|* READ FILE EOF OR EOI. 00864 M01S00652.submit +++| 00865 M01S00653.submit +++| SUB4 ZR X7,SUB5 IF NO PARTIAL RECORD READ 00866 M01S00654.submit +++| SA4 SUBTR 00867 M01S00655.submit +++| ZR X4,SUB5 IF NO DATA 00868 M01S00656.submit +++| BX0 X2 00869 M01S00657.submit +++| WRITEW F,BUF,X4 WRITE LAST AMOUNT OF DATA 00870 M01S00658.submit +++| RJ SUBUFR CLEAR TRANSFER COUNT 00871 M01S00659.submit +++| BX2 X0 00872 M01S00660.submit +++| SX0 B0 SET EOF 00873 M01S00661.submit +++| EQ SUB8 00874 M01S00662.submit +++| 00875 M01S00663.submit +++| SUB5 SA3 F+2 *IN* 00876 M01S00664.submit +++| SX0 B0 X0 SET TO EOF 00877 M01S00665.submit +++| SA4 A3+B1 OUT 00878 M01S00666.submit +++| BX6 X3-X4 IN-OUT 00879 M01S00667.submit +++| ZR X6,SUB9 IF OUTPUT BUFFER EMPTY 00880 M01S00668.submit +++| EQ SUB8 READ FILE TERMINATED WITH EOR 00881 M01S00669.submit +++| 00882 M01S00670.submit +++|* END OF RECORD. 00883 M01S00671.submit +++| 00884 M01S00672.submit +++| SUB6 ZR X7,SUB7 IF NO PARTIAL RECORD READ 00885 M01S00673.submit +++| BX0 X2 00886 M01S00674.submit +++| SA4 SUBTR 00887 M01S00675.submit +++| ZR X4,SUB6.1 IF NO DATA 00888 M01S00676.submit +++| WRITEW F,BUF,X1-BUF 00889 M01S00677.submit +++| RJ SUBUFR CLEAR TRANSFER TO BUF 00890 M01S00678.submit +++| BX2 X0 00891 M01S00679.submit +++| SUB6.1 SX1 B1 FORCE EOR FLAG 00892 M01S00680.submit +++| 00893 M01S00681.submit +++|* PROCESS READ FILE EOR OR EOF. 00894 M01S00682.submit +++| 00895 M01S00683.submit +++| SUB7 SX0 X1+ RESTORE EOR/EOF FLAG 00896 M01S00684.submit +++| SUB8 PL X2,SUB9 IF PACK MODE 00897 M01S00685.submit +++| WRITER F NOPACK PRESERVES THE RECORD MARK 00898 M01S00686.submit +++| SUB9 ZR X0,SUB3 IF EOF ON READ FILE
| Line S00687 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00899 M02S00687.ns22000 ---| EQ SUBEO IF EOR 00900 M01S00081.ns22000 +++| EQ SUBEOX EOR 00901 M01S00688.submit +++| SUBUFS SPACE 4,10 00902 M01S00689.submit +++|** SUBUFS - SET NUMBER OF WORDS TRANSFERRED TO BUF FROM I. 00903 M01S00690.submit +++|* 00904 M01S00691.submit +++|* ENTRY (B6) = LWA+1 OF DATA TRANSFERRED. 00905 M01S00692.submit +++|* 00906 M01S00693.submit +++|* EXIT (SUBTR) = NUMBER OF WORDS TRANSFERRED. 00907 M01S00694.submit +++|*
| Line S00695 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00908 M02S00695.ns22000 ---|* USES A - 6
| Line S00696 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00909 M02S00696.ns22000 ---|* X - 4, 6 00910 M01S00082.ns22000 +++|* USES A - 6. 00911 M01S00083.ns22000 +++|* X - 4, 6. 00912 M01S00697.submit +++| 00913 M01S00698.submit +++|
| Line S00699 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00914 M02S00699.ns22000 ---| SUBUFS PS ENTRY/EXIT 00915 M01S00084.ns22000 +++| SUBUFS SUBR ENTRY/EXIT 00916 M01S00700.submit +++| SX4 B6 00917 M01S00701.submit +++| SX6 BUF 00918 M01S00702.submit +++| IX6 X4-X6 00919 M01S00703.submit +++| SA6 SUBTR
| Line S00704 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00920 M02S00704.ns22000 ---| EQ SUBUFS
| Line S00705 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00921 M02S00705.ns22000 ---| SUBUFR SPACE 4 00922 M01S00085.ns22000 +++| EQ SUBUFSX RETURN 00923 M01S00086.ns22000 +++| SUBUFR SPACE 4,10 00924 M01S00706.submit +++|** SUBUFR - RESET TRANSFER CELL TO ZERO. 00925 M01S00707.submit +++|* 00926 M01S00708.submit +++|* EXIT (SUBTR) = 0. 00927 M01S00709.submit +++|* 00928 M01S00710.submit +++|* USES A - 6. 00929 M01S00711.submit +++|* X - 6. 00930 M01S00712.submit +++| 00931 M01S00713.submit +++|
| Line S00714 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00932 M02S00714.ns22000 ---| SUBUFR PS 0 00933 M01S00087.ns22000 +++| SUBUFR SUBR ENTRY/EXIT 00934 M01S00715.submit +++| SX6 B0+ 00935 M01S00716.submit +++| SA6 SUBTR
| Line S00717 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00936 M02S00717.ns22000 ---| EQ SUBUFR 00937 M01S00088.ns22000 +++| EQ SUBUFRX RETURN 00938 M01S00718.submit +++| 00939 M01S00719.submit +++| SUBTR BSSZ 1
| Line S00720 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00940 M02S00720.ns22000 ---| TITLE SPECIAL CONTROL STATEMENT PROCESSORS.
| Line S00721 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00941 M02S00721.ns22000 ---| JOB TITLE SPECIAL CONTROL CARD PROCESSOR SUBROUTINES. 00942 M01S00089.ns22000 +++| TITLE SPECIAL DIRECTIVE PROCESSORS. 00943 M01S00059.v23l617 +++| CHARGE SPACE 4,10 00944 M01S00060.v23l617 +++|** CHARGE - PROCESS CHARGE. 00945 M01S00061.v23l617 +++|* 00946 M01S00062.v23l617 +++|* USES A - 1, 2. 00947 M01S00063.v23l617 +++|* X - 1, 2. 00948 M01S00064.v23l617 +++|* B - 2, 5. 00949 M01S00065.v23l617 +++|* 00950 M01S00066.v23l617 +++|* CALLS SNM. 00951 M01S00067.v23l617 +++|* 00952 M01S00068.v23l617 +++|* MACROS GETCN, WRITEC. 00953 M01S00069.v23l617 +++| 00954 M01S00070.v23l617 +++| 00955 M01S00071.v23l617 +++| CHARGE BSS 0 00956 M01S00072.v23l617 +++| SA1 CHGA 00957 M01S00073.v23l617 +++| NZ X1,CHG1 IF NOT FIRST *CHARGE* DIRECTIVE 00958 M01S00074.v23l617 +++| GETCN CHGA GET CHARGE INFORMATION 00959 M01S00075.v23l617 +++| SA1 CHGA READ CHARGE NUMBER 00960 M01S00076.v23l617 +++| SB5 CHGB SET COMMAND TEMPLATE ADDRESS 00961 M01S00077.v23l617 +++| SB2 1R# 00962 M01S00078.v23l617 +++| RJ SNM SET CHARGE NUMBER 00963 M01S00079.v23l617 +++| SA1 CHGA+1 READ FIRST PART OF PROJECT NUMBER 00964 M01S00080.v23l617 +++| SB2 1R< 00965 M01S00081.v23l617 +++| RJ SNM SET PROJECT NUMBER 00966 M01S00082.v23l617 +++| SA1 CHGA+2 READ SECOND PART OF PROJECT NUMBER 00967 M01S00083.v23l617 +++| SB2 1R> 00968 M01S00084.v23l617 +++| RJ SNM SET PROJECT NUMBER 00969 M01S00085.v23l617 +++| CHG1 SA1 CHGA+3 00970 M01S00086.v23l617 +++| PL X1,CHG2 IF CHARGE NOT VALIDATED 00971 M01S00087.v23l617 +++| WRITEC F,CHGB WRITE COMMAND TO SUBMIT FILE 00972 M01S00088.v23l617 +++| CHG2 SA2 RJ SET RETURN ADDRESS 00973 M01S00089.v23l617 +++| SB2 X2 00974 M01S00090.v23l617 +++| JP B2 RETURN 00975 M01S00091.v23l617 +++| 00976 M01S00092.v23l617 +++| CHGA BSSZ 4 *GETCN* BLOCK 00977 M01S00093.v23l617 +++| CHGB DATA C/$CHARGE,##########,<<<<<<<<<<>>>>>>>>>>./ 00978 M01S00090.ns22000 +++| JOB SPACE 4,10 00979 M01S00722.submit +++|** JOB - PROCESS JOB. 00980 M01S00723.submit +++| 00981 M01S00724.submit +++| 00982 M01S00725.submit +++| JOB BSS 0 00983 M01S00726.submit +++| WRITER F,R 00984 M01S00727.submit +++| SA2 RJ 00985 M01S00728.submit +++| SB2 X2 00986 M01S00729.submit +++| JP B2
| Line S00730 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00987 M02S00730.ns22000 ---| EOR SPACE 4 00988 M01S00091.ns22000 +++| EOR SPACE 4,10 00989 M01S00731.submit +++|** EOR - PROCESS EOR. 00990 M01S00732.submit +++| 00991 M01S00733.submit +++| 00992 M01S00734.submit +++| EOR BSS 0 00993 M01S00735.submit +++| WRITER F,R 00994 M01S00736.submit +++| SA2 RJ 00995 M01S00737.submit +++| SB2 X2 00996 M01S00738.submit +++| JP B2
| Line S00739 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00997 M02S00739.ns22000 ---| EOF SPACE 4 00998 M01S00092.ns22000 +++| EOF SPACE 4,10 00999 M01S00740.submit +++|** EOF - PROCESS EOF. 01000 M01S00741.submit +++| 01001 M01S00742.submit +++| 01002 M01S00743.submit +++| EOF BSS 0 01003 M01S00744.submit +++| WRITEF F,R 01004 M01S00745.submit +++| SA2 RJ 01005 M01S00746.submit +++| SB2 X2 01006 M01S00747.submit +++| JP B2
| Line S00748 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01007 M02S00748.ns22000 ---| TCCF SPACE 4 01008 M01S00093.ns22000 +++| SEQ SPACE 4,10 01009 M01S00749.submit +++|** SEQ - PROCESS SEQ. 01010 M01S00750.submit +++| 01011 M01S00751.submit +++| 01012 M01S00752.submit +++| SEQ BSS 0 01013 M01S00753.submit +++| SA1 FLAGS 01014 M01S00754.submit +++| MX2 1 01015 M01S00755.submit +++| BX6 -X2*X1 01016 M01S00756.submit +++| SA6 FLAGS 01017 M01S00757.submit +++| SA2 RJ 01018 M01S00758.submit +++| SB2 X2 01019 M01S00759.submit +++| JP B2
| Line S00760 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01020 M02S00760.ns22000 ---| NOSEQ SPACE 4 01021 M01S00094.ns22000 +++| NOSEQ SPACE 4,10 01022 M01S00761.submit +++|** NOSEQ - PROCESS NOSEQ. 01023 M01S00762.submit +++| 01024 M01S00763.submit +++| 01025 M01S00764.submit +++| NOSEQ BSS 0 01026 M01S00765.submit +++| SA1 FLAGS 01027 M01S00766.submit +++| MX2 1 01028 M01S00767.submit +++| BX6 X2+X1 01029 M01S00768.submit +++| SA6 FLAGS 01030 M01S00769.submit +++| SA2 RJ 01031 M01S00770.submit +++| SB2 X2 01032 M01S00771.submit +++| JP B2
| Line S00772 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01033 M02S00772.ns22000 ---| TRANS SPACE 4 01034 M01S00095.ns22000 +++| TRANS SPACE 4,10 01035 M01S00773.submit +++|** TRANS - PROCESS TRANS. 01036 M01S00774.submit +++| 01037 M01S00775.submit +++| 01038 M01S00776.submit +++| TRANS BSS 0 01039 M01S00777.submit +++| SA1 FLAGS 01040 M01S00778.submit +++| LX1 12D 01041 M01S00779.submit +++| MX2 1 01042 M01S00780.submit +++| BX6 X2+X1 01043 M01S00781.submit +++| LX6 48D 01044 M01S00782.submit +++| SA6 FLAGS 01045 M01S00783.submit +++| SA2 RJ 01046 M01S00784.submit +++| SB2 X2 01047 M01S00785.submit +++| JP B2
| Line S00786 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01048 M02S00786.ns22000 ---| NOTRANS SPACE 4 01049 M01S00096.ns22000 +++| NOTRANS SPACE 4,10 01050 M01S00787.submit +++|** NOTRANS - PROCESS NOTRANS. 01051 M01S00788.submit +++| 01052 M01S00789.submit +++| 01053 M01S00790.submit +++| NOTRANS BSS 0 01054 M01S00791.submit +++| SA1 FLAGS 01055 M01S00792.submit +++| LX1 12D 01056 M01S00793.submit +++| MX2 1 01057 M01S00794.submit +++| BX6 -X2*X1 01058 M01S00795.submit +++| LX6 48D 01059 M01S00796.submit +++| SA6 FLAGS 01060 M01S00797.submit +++| SA2 RJ 01061 M01S00798.submit +++| SB2 X2 01062 M01S00799.submit +++| JP B2
| Line S00800 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01063 M02S00800.ns22000 ---| NOPACK SPACE 4 01064 M01S00097.ns22000 +++| NOPACK SPACE 4,10 01065 M01S00801.submit +++|** NOPACK - PROCESS NOPACK. 01066 M01S00802.submit +++| 01067 M01S00803.submit +++| 01068 M01S00804.submit +++| NOPACK BSS 0 01069 M01S00805.submit +++| SA1 FLAGS 01070 M01S00806.submit +++| LX1 24D 01071 M01S00807.submit +++| MX2 1 01072 M01S00808.submit +++| BX6 X2+X1 01073 M01S00809.submit +++| LX6 36D 01074 M01S00810.submit +++| SA6 FLAGS 01075 M01S00811.submit +++| SA2 RJ 01076 M01S00812.submit +++| SB2 X2 01077 M01S00813.submit +++| JP B2
| Line S00814 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01078 M02S00814.ns22000 ---| PACK SPACE 4 01079 M01S00098.ns22000 +++| PACK SPACE 4,10 01080 M01S00815.submit +++|** PACK - PROCESS PACK. 01081 M01S00816.submit +++| 01082 M01S00817.submit +++| 01083 M01S00818.submit +++| PACK BSS 0 01084 M01S00819.submit +++| SA1 FLAGS 01085 M01S00820.submit +++| LX1 24D 01086 M01S00821.submit +++| MX2 1 01087 M01S00822.submit +++| BX6 -X2*X1 01088 M01S00823.submit +++| LX6 36D 01089 M01S00824.submit +++| SA6 FLAGS 01090 M01S00825.submit +++| SA2 RJ 01091 M01S00826.submit +++| SB2 X2 01092 M01S00827.submit +++| JP B2
| Line S00828 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01093 M02S00828.ns22000 ---| REWIND SPACE 4 01094 M01S00099.ns22000 +++| REWIND SPACE 4,10 01095 M01S00829.submit +++|** REWIND - REWIND FILE. 01096 M01S00830.submit +++|* 01097 M01S00831.submit +++|* USES A - 1, 2, 6. 01098 M01S00832.submit +++|* B - 2. 01099 M01S00833.submit +++|* X - 1, 2, 3, 6. 01100 M01S00834.submit +++|* 01101 M01S00835.submit +++|* CALLS GLF, SFN. 01102 M01S00836.submit +++| 01103 M01S00837.submit +++| 01104 M01S00838.submit +++| REWIND BSS 0
| Line S00100 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | submi3 |
Seq # *Modification Id* Act ----------------------------+ 01105 M02S00100.submi3 ---| SA1 LCNT DECREMENT LINE COUNT (DON-T COUNT /REWIND)
| Line S00101 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | submi3 |
Seq # *Modification Id* Act ----------------------------+ 01106 M02S00101.submi3 ---| SX6 X1-1
| Line S00102 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | submi3 |
Seq # *Modification Id* Act ----------------------------+ 01107 M02S00102.submi3 ---| SA6 A1 01108 M01S00839.submit +++| RJ GLF GET LOCAL FILE NEME
| Line S00840 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01109 M02S00840.ns22000 ---| NZ X4,RWD6 IF NOT BLANK,PUT OUT AS DATA
| Line S00103 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01110 M02S00103.v23l617 ---| NZ X4,RWD6 IF ILLEGAL SEPARATOR, PUT OUT AS DATA 01111 M01S00094.v23l617 +++| NZ X4,RWD6 IF INCORRECT SEPARATOR, PUT OUT AS DATA 01112 M01S00841.submit +++| NZ B2,RWD1 IF VALID CHARACTERS IN FILEMAME 01113 M01S00842.submit +++| SA2 =0LTAPE1 SET DEFAULT FILENAME IN FET 01114 M01S00843.submit +++| BX6 X2 01115 M01S00844.submit +++| SA1 EORBIT TEST READ ACTIVE BIT 01116 M01S00845.submit +++| LX1 12D 01117 M01S00846.submit +++| PL X1,RWD3 NOT ACTIVE 01118 M01S00847.submit +++| EQ RWD6 ACTIVE,PUT OUT AS DATA 01119 M01S00848.submit +++| 01120 M01S00849.submit +++| RWD1 RJ SFN SHIFT FILENAME, TEST FOR SUBMIT FILENAME 01121 M01S00850.submit +++| ZR X2,RWD6 IF EQUAL,PUT OUT AS DATA 01122 M01S00851.submit +++| RWD2 SA1 EORBIT TEST FOR READ ACTIVE 01123 M01S00852.submit +++| LX1 12D 01124 M01S00853.submit +++| PL X1,RWD3 READ NOT ACTIVE 01125 M01S00854.submit +++| SA1 R TEST FOR READ FILENAME 01126 M01S00855.submit +++| MX3 42D 01127 M01S00856.submit +++| BX2 X3*X1 01128 M01S00857.submit +++| BX2 X2-X6 01129 M01S00858.submit +++| ZR X2,RWD6 IF EQUAL,PUT OUT AS DATA 01130 M01S00859.submit +++| RWD3 SX1 1 01131 M01S00860.submit +++| IX6 X6+X1 01132 M01S00861.submit +++| SA6 W STORE FILENAME IN FET 01133 M01S00862.submit +++| REWIND W,R REWIND FILE 01134 M01S00863.submit +++| SA1 RJ GET RETURN ADDRESS 01135 M01S00864.submit +++| SB2 X1 01136 M01S00865.submit +++| JP B2 RETURN 01137 M01S00866.submit +++| 01138 M01S00867.submit +++| RWD6 SA1 RJ TEST RETURN ADDRESS = TO NONTRANS 01139 M01S00868.submit +++| PARENT MODE ROUTINE 01140 M01S00869.submit +++| SX2 PNM2 01141 M01S00870.submit +++| BX2 X1-X2 01142 M01S00871.submit +++| ZR X2,PNM4 RETURN TO NONTRANSPARENT MODE ROUTINE 01143 M01S00872.submit +++| SX2 PTM2 01144 M01S00873.submit +++| BX2 X1-X2 01145 M01S00874.submit +++| ZR X2,PTM5 01146 M01S00875.submit +++| SX2 RTM1 01147 M01S00876.submit +++| BX2 X1-X2 01148 M01S00877.submit +++| ZR X2,RTM5 01149 M01S00878.submit +++| EQ RNM3
| Line S00879 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01150 M02S00879.ns22000 ---| USER SPACE 4
| Line S00880 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01151 M02S00880.ns22000 ---|** USER - PROCESS USER STATEMENT. 01152 M01S00104.ns22000 +++| USER SPACE 4,10 01153 M01S00105.ns22000 +++|** USER - PROCESS USER. 01154 M01S00881.submit +++|*
| Line S00882 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01155 M02S00882.ns22000 ---|* USES X - 0, 1, 2.
| Line S00883 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01156 M02S00883.ns22000 ---|* A - 1, 2. 01157 M01S00106.ns22000 +++|* USES X - 0, 1, 2, 6. 01158 M01S00107.ns22000 +++|* A - 1, 2, 6. 01159 M01S00884.submit +++|* B - 2, 5. 01160 M01S00885.submit +++|* 01161 M01S00886.submit +++|* CALLS SNM. 01162 M01S00887.submit +++|*
| Line S00888 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01163 M02S00888.ns22000 ---|* MACROS RECALL, WRITEC.
| Line S00108 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | ns2140 |
Seq # *Modification Id* Act ----------------------------+ 01164 M02S00108.ns2140 ---|* MACROS ABORT, MESSAGE, RECALL, WRITEC. 01165 M01S00002.ns2140 +++|* MACROS ABORT, MESSAGE, RECALL, SYSTEM, WRITEC. 01166 M01S00889.submit +++| 01167 M01S00890.submit +++| 01168 M01S00891.submit +++| USER BSS 0 ENTRY
| Line S00892 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01169 M02S00892.ns22000 ---| SA1 USEB
| Line S00893 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01170 M02S00893.ns22000 ---| ZR X1,USE1 IF USER STATEMENT EXECUTED 01171 M01S00109.ns22000 +++| SA1 PFPB+2 01172 M01S00110.ns22000 +++| MX0 42
| Line S00111 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | ns2140 |
Seq # *Modification Id* Act ----------------------------+ 01173 M02S00111.ns2140 ---| BX1 X0*X1
| Line S00894 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | ns22000 |
M03 (Updated by) | ns2140 |
Seq # *Modification Id* Act ----------------------------+ 01174 M03S00894.ns2140 ---| MESSAGE (=C* USER STATEMENT NOT EXECUTED.*),,R
| Line S00895 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | ns22000 |
M03 (Updated by) | ns2140 |
Seq # *Modification Id* Act ----------------------------+ 01175 M03S00895.ns2140 ---| MESSAGE (=C* USER DIRECTIVE INVALID.*),,R
| Line S00112 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | ns2140 |
Seq # *Modification Id* Act ----------------------------+ 01176 M02S00112.ns2140 ---| NZ X1,USE2 IF *USER* COMMAND HAS BEEN EXECUTED 01177 M01S00003.ns2140 +++| BX5 X0*X1 01178 M01S00004.ns2140 +++| NZ X5,USE2 IF *USER* COMMAND HAS BEEN EXECUTED 01179 M01S00113.ns22000 +++| MESSAGE (=C* USER COMMAND HAS NOT BEEN EXECUTED.*),,R
| Line S00114 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01180 M02S00114.v23l617 ---| USE1 MESSAGE (=C* USER DIRECTIVE NOT VALID.*),,R 01181 M01S00095.v23l617 +++| USE1 MESSAGE (=C* USER DIRECTIVE INCORRECT.*),,R 01182 M01S00896.submit +++| ABORT 01183 M01S00897.submit +++|
| Line S00898 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01184 M02S00898.ns22000 ---| USE1 MX0 42
| Line S00899 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01185 M02S00899.ns22000 ---| SA1 GJSB+UNI SET USER NUMBER IN CONTROL STATEMENT
| Line S00900 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01186 M02S00900.ns22000 ---| BX1 X0*X1
| Line S00901 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01187 M02S00901.ns22000 ---| SB2 1R*
| Line S00902 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01188 M02S00902.ns22000 ---| SB5 USEA 01189 M01S00115.ns22000 +++| USE2 SA2 LCNT CHECK LINE COUNT
| Line S00116 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | submi3 |
Seq # *Modification Id* Act ----------------------------+ 01190 M02S00116.submi3 ---| SX6 X2-3
| Line S00117 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | submi3 |
Seq # *Modification Id* Act ----------------------------+ 01191 M02S00117.submi3 ---| NZ X6,USE1 IF NOT THE THIRD LINE IN THE FILE
| Line S00118 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | submi3 |
Seq # *Modification Id* Act ----------------------------+ 01192 M02S00118.submi3 ---| SX6 B1+ SET */USER* FLAG
| Line S00119 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | submi3 |
Seq # *Modification Id* Act ----------------------------+ 01193 M02S00119.submi3 ---| SA6 USRF 01194 M01S00010.submi3 +++| SX6 X2-1 01195 M01S00011.submi3 +++| NZ X6,USE1 IF MORE THAN ONE COMMAND PROCESSED 01196 M01S00012.submi3 +++| SA2 USRF 01197 M01S00013.submi3 +++| NZ X2,USE1 IF USER DIRECTIVE ALREADY PROCESSED 01198 M01S00014.submi3 +++| SX6 B1 SET */USER* FLAG 01199 M01S00015.submi3 +++| SA6 A2
| Line S00120 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | ns2140 |
Seq # *Modification Id* Act ----------------------------+ 01200 M02S00120.ns2140 ---| SA2 PFPB+0 CHECK FOR DEFAULT FAMILY 01201 M01S00005.ns2140 +++| SYSTEM SFM,R,USEC,RSDF*100B GET FAMILY ORDINAL TABLE 01202 M01S00006.ns2140 +++| SA1 SBUF+0 GET SYSTEM DEFAULT FAMILY NAME 01203 M01S00007.ns2140 +++| SA2 PFPB+0 CHECK FOR DEFAULT FAMILY 01204 M01S00121.ns22000 +++| SB5 USEB SET ADDRESS OF DEFAULT FAMILY TEMPLATE
| Line S00122 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | ns2140 |
Seq # *Modification Id* Act ----------------------------+ 01205 M02S00122.ns2140 ---| LX2 59-17
| Line S00123 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | ns2140 |
Seq # *Modification Id* Act ----------------------------+ 01206 M02S00123.ns2140 ---| NG X2,USE3 IF CURRENT FAMILY IS THE DEFAULT FAMILY 01207 M01S00008.ns2140 +++| BX2 X1-X2 01208 M01S00009.ns2140 +++| BX2 X0*X2 01209 M01S00010.ns2140 +++| ZR X2,USE3 IF CURRENT FAMILY IS THE DEFAULT FAMILY 01210 M01S00124.ns22000 +++| SB5 USEA SET ADDRESS OF ALTERNATE FAMILY TEMPLATE
| Line S00125 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | ns2140 |
Seq # *Modification Id* Act ----------------------------+ 01211 M02S00125.ns2140 ---| USE3 SB2 1R* SET USER NAME IN *USER* COMMAND
| Line S00903 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | ns2140 |
Seq # *Modification Id* Act ----------------------------+ 01212 M02S00903.ns2140 ---| RJ SNM SET NAME IN MESSAGE
| Line S00126 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | ns2140 |
Seq # *Modification Id* Act ----------------------------+ 01213 M02S00126.ns2140 ---| SX6 B5-USEB
| Line S00127 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | ns2140 |
Seq # *Modification Id* Act ----------------------------+ 01214 M02S00127.ns2140 ---| ZR X6,USE4 IF CURRENT FAMILY IS THE DEFAULT FAMILY
| Line S00904 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01215 M02S00904.ns22000 ---| SA1 GJSB+PSW SET PASSWORD IN CONTROL STATEMENT 01216 M01S00128.ns22000 +++| SA1 PFPB+0 SET FAMILY NAME IN *USER* COMMAND 01217 M01S00905.submit +++| BX1 X0*X1
| Line S00906 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01218 M02S00906.ns22000 ---| SB2 1R$ 01219 M01S00129.ns22000 +++| SB2 1R# 01220 M01S00011.ns2140 +++| RJ SNM SET NAME IN MESSAGE 01221 M01S00012.ns2140 +++| USE3 SB2 1R* SET USER NAME IN *USER* COMMAND 01222 M01S00013.ns2140 +++| BX1 X5 01223 M01S00907.submit +++| RJ SNM SET NAME IN MESSAGE
| Line S00908 Modification History | |
|---|---|
M01 (Added by) | submit |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01224 M02S00908.ns22000 ---| WRITEC F,USEA
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/submit.txt · Last modified: by 127.0.0.1