cdc:nos2.source:opl.opl871:deck:dfterm
Deck DFTERM
Library Member Format: MODIFY
Listing Sections
- Deck DFTERM Start
- Deck DFTERM Part 1 (Line 1587)
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.dfterm +++| IDENT DFTERM1,OVLA,DFTERM,01,00 00002 M00S00002.dfterm +++| ABS 00003 M00S00003.dfterm +++| SST 00004 M00S00004.dfterm +++| SYSCOM B1 00005 M00S00005.dfterm +++|*COMMENT DFTERM - DAYFILE TERMINATION PROCESSOR.
| Line S00006 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00006 M01S00006.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1975.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00007 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00008 M00S00007.dfterm +++| TITLE DFTERM - DAYFILE TERMINATION PROCESSOR. 00009 M00S00008.dfterm +++| SPACE 4 00010 M00S00009.dfterm +++|*** DFTERM - DAYFILE TERMINATION PROCESSOR. 00011 M00S00010.dfterm +++|* A. J. BEEKMAN. 75/03/07. 00012 M00S00011.dfterm +++|* R. J. THIELEN. 75/03/07. 00013 M00S00012.dfterm +++| SPACE 4 00014 M00S00013.dfterm +++|*** *DFTERM* IS A UTILITY PROGRAM THAT TERMINATES INACTIVE OR 00015 M00S00014.dfterm +++|* ACTIVE DAYFILES AND MAKES THEM PERMANENT ON THE DEVICE ON 00016 M00S00015.dfterm +++|* WHICH THEY CURRENTLY RESIDE AND/OR PROVIDES A LIST OF ALL 00017 M00S00016.dfterm +++|* PERMANENT DAYFILES WITH INFORMATION RELATIVE TO EACH. 00018 M00S00017.dfterm +++| SPACE 4 00019 M00S00018.dfterm +++|*** *DFTERM* MAY BE CALLED FROM THE CONSOLE BY THE QUEUED FILE 00020 M00S00019.dfterm +++|* SUPERVISOR PROGRAM (X.QFSP.) OR BY CONTROL CARD FROM SYSTEM 00021 M00S00020.dfterm +++|* ORIGIN. *DFTERM* WILL ALSO BE CALLED BY A CONTROL CARD CALL 00022 M00S00021.dfterm +++|* TO *DFLIST*. THE CONTROL CARD FORMATS ARE - 00023 M00S00022.dfterm +++|* DFLIST.
| Line S00023 Modification History | |
|---|---|
M01 (Removed by) | ns2018 |
Seq # *Modification Id* Act ----------------------------+ 00024 M01S00023.ns2018 ---|* DFTERM(P1=A1,P2=A2,...,PN=AN,NK) 00025 M01S00024.ns2018 ---|* WHERE NK IS A PARAMETER THAT DISALLOWS *K* DISPLAY INPUT,
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2018 |
Seq # *Modification Id* Act ----------------------------+ 00026 M01S00001.ns2018 +++|* DFTERM(P1=A1,P2=A2,...,PN=AN,PO=N) 00027 M01S00002.ns2018 +++|* WHERE *PO=N* IS A PARAMETER THAT DISALLOWS *K* DISPLAY INPUT, 00028 M00S00025.dfterm +++|* AND P1 - PN ARE ANY OF THE FOLLOWING VALID PARAMETERS - 00029 M00S00026.dfterm +++|* 00030 M00S00027.dfterm +++|* FT = FILE TYPE TO TERMINATE (DEFAULT IS DAYFILE). 00031 M00S00028.dfterm +++|* DAYFILE = SYSTEM DAYFILE. 00032 M00S00029.dfterm +++|* ACCOUNT = SYSTEM ACCOUNT FILE. 00033 M00S00030.dfterm +++|* ERRLOG = SYSTEM ERROR LOG FILE. 00034 M00S00031.dfterm +++|* MAINLOG = SYSTEM MAINTENANCE LOG FILE. 00035 M00S00032.dfterm +++|* I = ALTERNATE DIRECTIVE INPUT FILE. THIS IS A CONTROL 00036 M00S00033.dfterm +++|* STATEMENT PARAMETER SPECIFYING WHAT FILE SHOULD 00037 M00S00034.dfterm +++|* BE READ FOR INPUT DIRECTIVES. THESE DIRECTIVES 00038 M00S00035.dfterm +++|* CONSIST OF ANY LEGAL K-DISPLAY INPUT OR COMMANDS. 00039 M00S00036.dfterm +++|* THESE DIRECTIVES WILL BE PROCESSED AFTER THE 00040 M00S00037.dfterm +++|* CONTROL STATEMENT DIRECTIVES BUT BEFORE ANY 00041 M00S00038.dfterm +++|* K-DISPLAY INPUT IS ACCEPTED. 00042 M00S00039.dfterm +++|* FM = FAMILY/PACK NAME (DEFAULT IS SYSTEM DAYFILE FAMILY/PACK). 00043 M00S00040.dfterm +++|* DN = DEVICE NUMBER (DEFAULT IS SYSTEM DAYFILE DEVICE). 00044 M00S00041.dfterm +++|* THE FM AND DN PARAMETERS ARE USED TO DEFINE ON WHICH 00045 M00S00042.dfterm +++|* DEVICE THE FILE RESIDES WHEN TERMINATING AN INACTIVE 00046 M00S00043.dfterm +++|* DAYFILE OR ON WHICH DEVICE THE NEW DAYFILE WILL RESIDE 00047 M00S00044.dfterm +++|* WHEN TERMINATING AN ACTIVE DAYFILE. IF FM OR DN IS 00048 M00S00045.dfterm +++|* NOT DEFINED WHEN TERMINATING AN ACTIVE DAYFILE, THE 00049 M00S00046.dfterm +++|* NEW DAYFILE WILL RESIDE ON THE SAME FAMILY/PACK AND 00050 M00S00047.dfterm +++|* SAME DEVICE AS THE OLD ONE. 00051 M00S00048.dfterm +++|* OP = FILE MODE OPTION (DEFAULT IS A). 00052 M00S00049.dfterm +++|* A = TERMINATE ACTIVE DAYFILE. 00053 M00S00050.dfterm +++|* I = TERMINATE INACTIVE DAYFILE. 00054 M00S00051.dfterm +++|* NM = NAME OF PERMANENT FILE (1 - 5 CHARACTERS). 00055 M00S00052.dfterm +++|* THE CHARACTERS SPECIFIED BY NM WILL BE ADDED TO ONE 00056 M00S00053.dfterm +++|* OF THE PREFIXES DF, AC, OR ER ACCORDING TO THE TYPE 00057 M00S00054.dfterm +++|* OF DAYFILE SPECIFIED. IF NM IS NOT SPECIFIED, OR THE 00058 M00S00055.dfterm +++|* SPECIFIED NAME IS A DUPLICATE NAME, *DFTERM* WILL 00059 M00S00056.dfterm +++|* AUTOMATICALLY ASSIGN A NAME FOR THE FILE. THE 00060 M00S00057.dfterm +++|* ASSIGNED NAME WILL CONSIST OF ONE OF THE PREVIOUSLY 00061 M00S00058.dfterm +++|* MENTIONED PREFIXES ACCORDING TO DAYFILE TYPE FOLLOWED 00062 M00S00059.dfterm +++|* BY A ONE CHARACTER SEQUENCE CHARACTER (A - 9) AND 00063 M00S00060.dfterm +++|* A FOUR DIGIT DATE (MONTH AND DAY) OF CREATION. 00064 M00S00061.dfterm +++|* *DFTERM* WILL SEARCH THE CATALOG FOR ALL PERMANENT 00065 M00S00062.dfterm +++|* DAYFILE NAMES OF THIS TYPE, THEN ASSIGN THE SEQUENCE 00066 M00S00063.dfterm +++|* CHARACTER ONE HIGHER THAN THE HIGHEST CHARACTER 00067 M00S00064.dfterm +++|* FOUND. IF THE HIGHEST CHARACTER (9) IS NOT AVAILABLE, 00068 M00S00065.dfterm +++|* *DFTERM* WILL SEARCH FOR THE LOWEST CHARACTER 00069 M00S00066.dfterm +++|* AVAILABLE AND ASSIGN THAT CHARACTER. 00070 M00S00067.dfterm +++|* L = FILE NAME TO RECEIVE OUTPUT (DEFAULT IS OUTPUT). 00071 M00S00068.dfterm +++|* 00072 M00S00069.dfterm +++|* THE *USRN* MICRO CAN BE DEFINED AS ANY SEVEN CHARACTER OR 00073 M00S00070.dfterm +++|* LESS USER NUMBER WHICH SHOULD BE PERMITTED IN WRITE MODE TO 00074 M00S00071.dfterm +++|* ALL TERMINATED DAYFILES. IF *USRN* IS NULL, NO PERMITS WILL 00075 M00S00072.dfterm +++|* BE ISSUED. IF USING A PRIVATE PACK, *USRN* MUST BE SPECIFIED 00076 M00S00073.dfterm +++|* AND MUST BE THE SAME USER NUMBER AS THAT OF THE PRIVATE PACK 00077 M00S00074.dfterm +++|* IF NEW ACTIVE DAYFILES ARE TO BE STARTED ON THE PACK. 00078 M00S00075.dfterm +++|* WITHOUT THIS CONDITION SATISFIED, CURRENT DAYFILES MAY BE 00079 M00S00076.dfterm +++|* TERMINATED ON THE PACK, BUT NO NEW DAYFILES ACTIVATED ON 00080 M00S00077.dfterm +++|* IT. THE TAG *PDUI* CAN BE SET TO THE USER INDEX ON WHICH 00081 M00S00078.dfterm +++|* PERMANENT DAYFILES SHOULD BE DEFINED (MUST BE GREATER THAN 00082 M00S00079.dfterm +++|* 377700B). *USRN* AND *PDUI* ARE FOUND IN *COMSIOQ*. 00083 M00S00080.dfterm +++| SPACE 4 00084 M00S00081.dfterm +++|** ENTRY CONDITIONS. 00085 M00S00082.dfterm +++|* 00086 M00S00083.dfterm +++|* DFTERM IS ENTERED VIA RETURN JUMP FROM *QFSP*. 00087 M00S00084.dfterm +++|* 00088 M00S00085.dfterm +++|* *TARA* = FWA OF THE PARAMETER TABLE. 00089 M00S00086.dfterm +++|* *TEQA* = FWA OF THE MASS STORAGE EQUIPMENT TABLE. 00090 M00S00087.dfterm +++|* *TSDA* = FWA OF THE SECONDARY DEVICE MASK TABLE. 00091 M00S00088.dfterm +++| SPACE 4 00092 M00S00089.dfterm +++|*** DAYFILE MESSAGES. 00093 M00S00090.dfterm +++|* 00094 M00S00091.dfterm +++|* THE FOLLOWING MESSAGES ARE ISSUED BOTH TO THE DAYFILE AND 00095 M00S00092.dfterm +++|* THE *K* DISPLAY. SPECIAL CASES FOR ISSUANCE OF THE MESSAGE
| Line S00093 Modification History | |
|---|---|
M01 (Removed by) | ns2018 |
Seq # *Modification Id* Act ----------------------------+ 00096 M01S00093.ns2018 ---|* ARE IN PARENTHESES. IF (*NK* ONLY) FOLLOWS THE MESSAGE 00097 M01S00094.ns2018 ---|* EXPLANATION, THE MESSAGE IS ISSUED TO THE DAYFILE ONLY IF 00098 M01S00095.ns2018 ---|* THE *NK* PARAMETER IS SPECIFIED ON THE *DFTERM* CALL.
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | ns2018 |
Seq # *Modification Id* Act ----------------------------+ 00099 M01S00003.ns2018 +++|* ARE IN PARENTHESES. 00100 M00S00096.dfterm +++|* 00101 M00S00097.dfterm +++|* 00102 M00S00098.dfterm +++|* * AUTOMATIC NAME ASSIGNMENT IMPOSSIBLE.* = *DFTERM* WAS 00103 M00S00099.dfterm +++|* UNABLE TO DETERMINE AN AVAILABLE NAME FOR THE TERMINATED 00104 M00S00100.dfterm +++|* DAYFILE. ENTER A VALID NAME FOR THE FILE VIA THE *K*
| Line S00101 Modification History | |
|---|---|
M01 (Removed by) | ns2018 |
Seq # *Modification Id* Act ----------------------------+ 00105 M01S00101.ns2018 ---|* DISPLAY. (*NK* ONLY).
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | ns2018 |
Seq # *Modification Id* Act ----------------------------+ 00106 M01S00004.ns2018 +++|* DISPLAY. 00107 M00S00102.dfterm +++|* 00108 M00S00103.dfterm +++|* * CANNOT CATLIST FAMILY/PACK - FAMPCK.* = *DFTERM* WAS UNABLE 00109 M00S00104.dfterm +++|* TO CATLIST THE FAMILY/PACK. CHECK THAT CATALOGS EXIST ON THE
| Line S00105 Modification History | |
|---|---|
M01 (Removed by) | ns2018 |
Seq # *Modification Id* Act ----------------------------+ 00110 M01S00105.ns2018 ---|* FAMILY/PACK, THEN RETRY OPERATION. (*NK* ONLY OR *DFLIST*).
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | ns2018 |
Seq # *Modification Id* Act ----------------------------+ 00111 M01S00005.ns2018 +++|* FAMILY/PACK AND RETRY OPERATION. (*DFLIST*). 00112 M00S00106.dfterm +++|* 00113 M00S00107.dfterm +++|* * DAYFILE BUSY.* = DAYFILE TO BE TERMINATED WAS FOUND TO
| Line S00108 Modification History | |
|---|---|
M01 (Removed by) | ns2018 |
Seq # *Modification Id* Act ----------------------------+ 00114 M01S00108.ns2018 ---|* BE ATTACHED TO ANOTHER JOB. RETRY OPERATION. (*NK* ONLY).
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | ns2018 |
Seq # *Modification Id* Act ----------------------------+ 00115 M01S00006.ns2018 +++|* BE ATTACHED TO ANOTHER JOB. RETRY OPERATION. 00116 M00S00109.dfterm +++|* 00117 M00S00110.dfterm +++|* * DAYFILE STATUS INDEFINITE.* = AN ERROR EXIT HAS OCCURED 00118 M00S00111.dfterm +++|* CAUSING *DFTERM* TO ABORT WHILE IN THE PROCESS OF 00119 M00S00112.dfterm +++|* TERMINATING A DAYFILE. THE STATUS OF THE DAYFILE IS 00120 M00S00113.dfterm +++|* QUESTIONABLE. CONTACT AN ANALYST IMMEDIATELY. (DAYFILE 00121 M00S00114.dfterm +++|* ONLY). 00122 M00S00115.dfterm +++|* 00123 M00S00116.dfterm +++|* * DFTERM ABORTED.* = AN ERROR EXIT HAS CAUSED *DFTERM* 00124 M00S00117.dfterm +++|* TO ABORT. CHECK THE DAYFILE FOR MORE INFORMATION. 00125 M00S00118.dfterm +++|* (DAYFILE ONLY). 00126 M00S00119.dfterm +++|*
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | ns2018 |
M02 (Removed by) | dfterm4 |
Seq # *Modification Id* Act ----------------------------+ 00127 M02S00007.dfterm4 ---|* * ERROR-TERMINATED DAYFILE ON LOCAL FILE.* = AN ERROR 00128 M02S00008.dfterm4 ---|* OCCURRED WHILE DEFINING THE PERMANENT FILE FOR THE 00129 M02S00009.dfterm4 ---|* TERMINATED DAYFILE WHICH REMAINS ON LOCAL FILE 00130 M02S00010.dfterm4 ---|* *DAYFILE*. SEE DAYFILE FOR *PFM* ERROR MESSAGE.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | dfterm4 |
Seq # *Modification Id* Act ----------------------------+ 00131 M01S00001.dfterm4 +++|* * ERROR - TERMINATED DAYFILE ON LOCAL FILE ZZZDAYF.* = AN 00132 M01S00002.dfterm4 +++|* ERROR OCCURRED WHILE DEFINING THE PERMANENT FILE FOR THE 00133 M01S00003.dfterm4 +++|* TERMINATED DAYFILE WHICH REMAINS ON LOCAL FILE *ZZZDAYF*. 00134 M01S00004.dfterm4 +++|* SEE DAYFILE FOR *PFM* ERROR MESSAGE.
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | ns2018 |
Seq # *Modification Id* Act ----------------------------+ 00135 M01S00011.ns2018 +++|* 00136 M00S00120.dfterm +++|* * INACTIVE DAYFILE NOT FOUND ON DEVICE.* = NO INACTIVE 00137 M00S00121.dfterm +++|* DAYFILE OF THE SPECIFIED TYPE WAS FOUND ON THE SPECIFIED 00138 M00S00122.dfterm +++|* DEVICE. ENTER THE CORRECT FAMILY AND DEVICE NUMBER VIA THE
| Line S00123 Modification History | |
|---|---|
M01 (Removed by) | ns2018 |
Seq # *Modification Id* Act ----------------------------+ 00139 M01S00123.ns2018 ---|* *K* DISPLAY. (*NK* ONLY).
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | ns2018 |
Seq # *Modification Id* Act ----------------------------+ 00140 M01S00012.ns2018 +++|* *K* DISPLAY. 00141 M00S00124.dfterm +++|* 00142 M00S00125.dfterm +++|* * INACTIVE DAYFILE ON DEVICE.* = INACTIVE DAYFILE ALREADY 00143 M00S00126.dfterm +++|* EXISTS ON DEVICE ON WHICH NEW ACTIVE DAYFILE IS TO BE 00144 M00S00127.dfterm +++|* CREATED. ENTER ANOTHER DEVICE VIA *K* DISPLAY PARAMETERS.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | dfterm1 |
Seq # *Modification Id* Act ----------------------------+ 00145 M01S00001.dfterm1 +++|* 00146 M01S00002.dfterm1 +++|* * INVALID DEVICE SPECIFIED.* = THE DEVICE SPECIFIED BY THE 00147 M01S00003.dfterm1 +++|* CONTROL PARAMETERS IS NOT A VALID DAYFILE DEVICE.
| Line S00128 Modification History | |
|---|---|
M01 (Removed by) | ns2018 |
Seq # *Modification Id* Act ----------------------------+ 00148 M01S00128.ns2018 ---|* (*NK* ONLY). 00149 M00S00129.dfterm +++|* 00150 M00S00130.dfterm +++|* * NO ACTIVE DAYFILE FOUND.* = NO ACTIVE DAYFILE OF SPECIFIED 00151 M00S00131.dfterm +++|* TYPE FOUND IN *QFSP* EQUIPMENT TABLE. STOP THIS *DFTERM* 00152 M00S00132.dfterm +++|* RUN, START UP ANOTHER *DFTERM*, AND RETRY OPERATION. IF 00153 M00S00133.dfterm +++|* ERROR STILL EXISTS, CHECK SYSTEM FOR LOSS OF DAYFILE.
| Line S00134 Modification History | |
|---|---|
M01 (Removed by) | ns2018 |
Seq # *Modification Id* Act ----------------------------+ 00154 M01S00134.ns2018 ---|* (*NK* ONLY). 00155 M00S00135.dfterm +++|* 00156 M00S00136.dfterm +++|* * NO PERMANENT DAYFILES.* = NO PERMANENT DAYFILES EXIST ON 00157 M00S00137.dfterm +++|* ANY PERMANENT FILE DEVICE. 00158 M00S00138.dfterm +++|* 00159 M00S00139.dfterm +++|* * NOT ENOUGH MASS STORAGE.* = NOT ENOUGH MASS STORAGE 00160 M00S00140.dfterm +++|* EXISTS ON SPECIFIED DEVICE TO ENABLE CREATION OF NEW
| Line S00141 Modification History | |
|---|---|
M01 (Removed by) | ns2018 |
Seq # *Modification Id* Act ----------------------------+ 00161 M01S00141.ns2018 ---|* ACTIVE DAYFILE. ENTER NEW DEVICE VIA *K* DISPLAY. (*NK* 00162 M01S00142.ns2018 ---|* ONLY).
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | ns2018 |
Seq # *Modification Id* Act ----------------------------+ 00163 M01S00013.ns2018 +++|* ACTIVE DAYFILE. ENTER NEW DEVICE VIA *K* DISPLAY. 00164 M00S00143.dfterm +++|* 00165 M00S00144.dfterm +++|* * PERMANENT DAYFILE DEFINED AS XXXXXXX.* = DAYFILE HAS BEEN 00166 M00S00145.dfterm +++|* TERMINATED AND DEFINED UNDER NAME XXXXXXX. 00167 M00S00146.dfterm +++|* 00168 M00S00147.dfterm +++|* * PRIVATE PACK/PERMIT UN CONFLICT.* = USER NUMBER OF 00169 M00S00148.dfterm +++|* PRIVATE PACK IS NOT THE SAME AS THE USER NUMBER SPECIFIED 00170 M00S00149.dfterm +++|* FOR PERMITS. NO NEW ACTIVE DAYFILES MAY BE STARTED ON THIS
| Line S00150 Modification History | |
|---|---|
M01 (Removed by) | ns2018 |
Seq # *Modification Id* Act ----------------------------+ 00171 M01S00150.ns2018 ---|* PRIVATE PACK IN THIS CASE. (*NK* ONLY).
| Line S00014 Modification History | |
|---|---|
M01 (Added by) | ns2018 |
Seq # *Modification Id* Act ----------------------------+ 00172 M01S00014.ns2018 +++|* PRIVATE PACK IN THIS CASE. 00173 M00S00151.dfterm +++|* 00174 M00S00152.dfterm +++|* * REMOVABLE DEVICE/NO ACTIVE DAYFILES.* = DEVICE SPECIFIED 00175 M00S00153.dfterm +++|* BY *K* DISPLAY PARAMETERS IS A REMOVABLE DEVICE, AND OPTION 00176 M00S00154.dfterm +++|* IS TO TERMINATE AN ACTIVE DAYFILE. NO ACTIVE DAYFILES ARE 00177 M00S00155.dfterm +++|* ALLOWED TO RESIDE ON REMOVABLE DEVICES. ENTER NEW DEVICE
| Line S00156 Modification History | |
|---|---|
M01 (Removed by) | ns2018 |
Seq # *Modification Id* Act ----------------------------+ 00178 M01S00156.ns2018 ---|* VIA *K* DISPLAY PARAMETERS. (*NK* ONLY).
| Line S00015 Modification History | |
|---|---|
M01 (Added by) | ns2018 |
Seq # *Modification Id* Act ----------------------------+ 00179 M01S00015.ns2018 +++|* VIA *K* DISPLAY PARAMETERS. 00180 M00S00157.dfterm +++|* 00181 M00S00158.dfterm +++|* * UNCORRECTABLE RMS ERROR.* = ERROR WAS DETECTED READING
| Line S00159 Modification History | |
|---|---|
M01 (Removed by) | ns2018 |
Seq # *Modification Id* Act ----------------------------+ 00182 M01S00159.ns2018 ---|* THE EOI. RETRY OPERATION. (*NK* ONLY).
| Line S00016 Modification History | |
|---|---|
M01 (Added by) | ns2018 |
Seq # *Modification Id* Act ----------------------------+ 00183 M01S00016.ns2018 +++|* THE EOI. RETRY OPERATION. 00184 M00S00160.dfterm +++|* 00185 M00S00161.dfterm +++|* * WAITING FOR PF UTILITY.* = PF UTILITY IN OPERATION WHEN 00186 M00S00162.dfterm +++|* *PFM* CALLED. *DFTERM* WILL RETRY OPERATION UNTIL 00187 M00S00163.dfterm +++|* UTILITY IS COMPLETED. (CONTROL POINT AREA MESSAGE ONLY). 00188 M00S00164.dfterm +++| SPACE 4 00189 M00S00165.dfterm +++|*** *K* DISPLAY OPERATOR MESSAGES. 00190 M00S00166.dfterm +++|* 00191 M00S00167.dfterm +++|* *NO OUTPUT FILE EXISTING.* = NO OUTPUT FILE HAS BEEN 00192 M00S00168.dfterm +++|* CREATED PREVIOUS TO ENTERING *OUT* COMMAND. 00193 M00S00169.dfterm +++|* 00194 M00S00170.dfterm +++|* *OUTPUT FILE RELEASED.* = OUTPUT FILE RELEASED TO PRINTER. 00195 M00S00171.dfterm +++|* 00196 M00S00172.dfterm +++|* *PERMANENT DAYFILE LIST COMPLETE.* = PERMANENT DAYFILE LIST 00197 M00S00173.dfterm +++|* WRITTEN TO OUTPUT FOR *DFLIST* OR TO *K* DISPLAY BUFFER 00198 M00S00174.dfterm +++|* FOR *DFTERM*. 00199 M00S00175.dfterm +++| SPACE 4 00200 M00S00176.dfterm +++|* COMMON DECKS. 00201 M00S00177.dfterm +++| 00202 M00S00178.dfterm +++|*CALL COMCMAC 00203 M00S00179.dfterm +++|*CALL COMCCMD 00204 M00S00180.dfterm +++|*CALL COMSPFM 00205 M00S00181.dfterm +++|*CALL COMSSFM 00206 M00S00182.dfterm +++| LIST X 00207 M00S00183.dfterm +++|*CALL COMSIOQ 00208 M00S00184.dfterm +++|*CALL COMSQFS 00209 M00S00185.dfterm +++| LIST -X 00210 M00S00186.dfterm +++| TITLE PROGRAM CONSTANTS. 00211 M00S00187.dfterm +++|* CONSTANTS. 00212 M00S00188.dfterm +++| 00213 M00S00189.dfterm +++| CBUFL EQU 101B CATALOG BUFFER LENGTH 00214 M00S00190.dfterm +++| DBUFL EQU 1 DAYFILE BUFFER LENGTH 00215 M00S00191.dfterm +++| KBUFL EQU 300B *K* DISPLAY BUFFER LENGTH 00216 M00S00192.dfterm +++| OBUFL EQU 1001B OUTPUT BUFFER LENGTH
| Line S00193 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00217 M01S00193.ns22000 ---| PDCBL EQU NMSD+2 PERMANENT DAYFILE CONTROL BUFFER LENGTH
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00218 M01S00001.ns22000 +++| PDCBL EQU MSMX+2 PERMANENT DAYFILE CONTROL BUFFER LENGTH 00219 M00S00194.dfterm +++| PDLBL EQU 7 PERMANENT DAYFILE LIST LINE BUFFER LENGTH 00220 M00S00195.dfterm +++| DSPBL EQU 7 *DSP* PARAMETER BLOCK LENGTH
| Line S00196 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00221 M01S00196.ns22000 ---| PPLN EQU LINP PRINTER PAGE LENGTH
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00222 M01S00002.ns22000 +++| PPOS EQU TPPA+PPLN PAGE POSITION (LINE NUMBER) 00223 M01S00003.ns22000 +++| PDFE EQU TPPA+PPPD PRINT DENSITY FORMAT EFFECTOR
| Line S00197 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00224 M01S00197.241l630 ---| KDLC EQU 32 *K* DISPLAY LINE COUNT
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00225 M01S00001.241l630 +++| KDLC EQU KMLL-6 *K* DISPLAY LINE COUNT 00226 M00S00198.dfterm +++| FRDC EQU 20B *DSP* DISPOSITION CODE FLAG 00227 M00S00199.dfterm +++| TITLE RESERVED LOCATIONS AND FETS. 00228 M00S00200.dfterm +++|* RESERVED LOCATIONS. 00229 M00S00201.dfterm +++| 00230 M00S00202.dfterm +++| ORG OVLA 00231 M00S00203.dfterm +++| 00232 M00S00204.dfterm +++| DNUM CON 0 DAYFILE NUMBER 00233 M00S00205.dfterm +++| PNUM CON 0 PAGE NUMBER
| Line S00206 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00234 M01S00206.ns22000 ---| PPOS CON 0 PAGE POSITION (LINE NUMBER) 00235 M00S00207.dfterm +++| LIST CON 0 RECORD COUNT ON OUTPUT 00236 M00S00208.dfterm +++| ANAM CON 0 AUTOMATICALLY ASSIGNED DAYFILE NAME 00237 M00S00209.dfterm +++| SNAM CON 0 SPECIFIED DAYFILE NAME 00238 M00S00210.dfterm +++| FMPC CON 0 FAMILY/PACK NAME OF TERMINATION DEVICE 00239 M00S00211.dfterm +++| APIN CON 0 AUXILIARY PACK INFORMATION 00240 M00S00212.dfterm +++| CFAM CON 0 CURRENT USER FAMILY NAME 00241 M00S00213.dfterm +++| CPCK CON 0 CURRENT USER PACK NAME
| Line S00017 Modification History | |
|---|---|
M01 (Added by) | ns2018 |
Seq # *Modification Id* Act ----------------------------+ 00242 M01S00017.ns2018 +++| DFSF CON 0 DAYFILE STATUS FLAG 00243 M00S00214.dfterm +++| SPACE 4 00244 M00S00215.dfterm +++|* FETS. 00245 M00S00216.dfterm +++| 00246 M00S00217.dfterm +++| C BSS 0 CATALOG READ FILE 00247 M00S00218.dfterm +++| CATALOG FILEB CBUF,CBUFL,EPR,(FET=15) 00248 M00S00219.dfterm +++| 00249 M00S00220.dfterm +++| D BSS 0 DAYFILE TERMINATION FILE
| Line S00221 Modification History | |
|---|---|
M01 (Removed by) | dfterm2 |
Seq # *Modification Id* Act ----------------------------+ 00250 M01S00221.dfterm2 ---| DAYFILE FILEB DBUF,DBUFL,EPR,(FET=13)
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | dfterm2 |
M02 (Removed by) | dfterm4 |
Seq # *Modification Id* Act ----------------------------+ 00251 M02S00001.dfterm4 ---| DAYFILE FILEB DBUF,DBUFL,EPR,(FET=20B)
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | dfterm4 |
Seq # *Modification Id* Act ----------------------------+ 00252 M01S00005.dfterm4 +++| ZZZDAYF FILEB DBUF,DBUFL,EPR,(FET=20B) 00253 M00S00222.dfterm +++| 00254 M00S00223.dfterm +++| O BSS 0 OUTPUT FILE 00255 M00S00224.dfterm +++| OUTPUT FILEB OBUF,OBUFL,(FET=7) 00256 M00S00225.dfterm +++| DFTERM TITLE MAIN ROUTINE. 00257 M00S00226.dfterm +++|** DFTERM - MAIN ROUTINE. 00258 M00S00227.dfterm +++|* 00259 M00S00228.dfterm +++|* ENTRY PARAMETER TABLE FWA - *TARA*. 00260 M00S00229.dfterm +++|* MASS STORAGE TABLE FWA - *TEQA*. 00261 M00S00230.dfterm +++|* SECONDARY DEVICE MASK TABLE FWA - *TSDA*. 00262 M00S00231.dfterm +++|* 00263 M00S00232.dfterm +++|* EXIT (X5) = *K* DISPLAY MESSAGE ADDRESS. 00264 M00S00233.dfterm +++|* (X2) = *K* DISPLAY BUFFER ADDRESS. 00265 M00S00234.dfterm +++| 00266 M00S00235.dfterm +++| 00267 M00S00236.dfterm +++| DFTERM SUBR ENTRY/EXIT 00268 M00S00237.dfterm +++| SB1 1 00269 M00S00238.dfterm +++| MEMORY CM,,R,BUFFL 00270 M00S00239.dfterm +++| SX6 MPER SET *PFM* ERROR RETURN ADDRESS 00271 M00S00240.dfterm +++| SA6 D+10
| Line S00018 Modification History | |
|---|---|
M01 (Added by) | ns2018 |
Seq # *Modification Id* Act ----------------------------+ 00272 M01S00018.ns2018 +++| SA1 TARA+ARFC CLEAR FORCE *K* DISPLAY FLAG 00273 M01S00019.ns2018 +++| MX0 -1 00274 M01S00020.ns2018 +++| LX0 55-0 00275 M01S00021.ns2018 +++| BX6 X1*X0 00276 M01S00022.ns2018 +++| SA6 A1 00277 M00S00241.dfterm +++| 00278 M00S00242.dfterm +++|* INITIALIZE FAMILY AND PACK NAMES. 00279 M00S00243.dfterm +++| 00280 M00S00244.dfterm +++| SX6 B1 CLEAR FAMILY/PACK NAME 00281 M00S00245.dfterm +++| LX6 18 00282 M00S00246.dfterm +++| SA6 SFDA+1 00283 M00S00247.dfterm +++| BX7 X7-X7 CLEAR USER INDEX 00284 M00S00248.dfterm +++| SA7 A6+B1 00285 M00S00249.dfterm +++| RJ GCF GET CURRENT FAMILY AND PACK 00286 M00S00250.dfterm +++| 00287 M00S00251.dfterm +++|* SET PROCESSOR ADDRESS. 00288 M00S00252.dfterm +++| 00289 M00S00253.dfterm +++| SA2 TARA+ARFC SET FUNCTION PROCESSOR ADDRESS 00290 M00S00254.dfterm +++| SA3 TFCN+X2 00291 M00S00255.dfterm +++| SB7 X3 00292 M00S00256.dfterm +++| SX2 X2 00293 M00S00257.dfterm +++| ZR X2,DFT2 IF *GO* COMMAND 00294 M00S00258.dfterm +++| 00295 M00S00259.dfterm +++|* SET OUTPUT FILE NAME. 00296 M00S00260.dfterm +++| 00297 M00S00261.dfterm +++| RECALL O 00298 M00S00262.dfterm +++| SA1 O GET CURRENT FILE NAME 00299 M00S00263.dfterm +++| SA3 TARA+ARLL 00300 M00S00264.dfterm +++| MX0 42 00301 M00S00265.dfterm +++| BX4 X1-X3 00302 M00S00266.dfterm +++| BX2 X0*X4 00303 M00S00267.dfterm +++| BX6 X6-X6 INITIALIZE LIST FLAG 00304 M00S00268.dfterm +++| ZR X2,DFT1 IF NO FILE NAME CHANGE 00305 M00S00269.dfterm +++| SA6 LIST 00306 M00S00270.dfterm +++| DFT1 SX1 3 00307 M00S00271.dfterm +++| BX6 X3+X1 00308 M00S00272.dfterm +++| SA6 A1 00309 M00S00273.dfterm +++| 00310 M00S00274.dfterm +++|* CALL FUNCTION PROCESSOR. 00311 M00S00275.dfterm +++|
| Line S00276 Modification History | |
|---|---|
M01 (Removed by) | dfterm4 |
Seq # *Modification Id* Act ----------------------------+ 00312 M01S00276.dfterm4 ---| DFT2 RJ SPR JUMP TO PROCESSOR
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | dfterm4 |
Seq # *Modification Id* Act ----------------------------+ 00313 M01S00006.dfterm4 +++| DFT2 RETURN D,R 00314 M01S00007.dfterm4 +++| RJ SPR JUMP TO PROCESSOR 00315 M00S00277.dfterm +++| SA2 TARA+ARFC CHECK FOR HIDDEN ERROR
| Line S00278 Modification History | |
|---|---|
M01 (Removed by) | ns2018 |
Seq # *Modification Id* Act ----------------------------+ 00316 M01S00278.ns2018 ---| PL X2,DFT3 IF NO *NK* PARAMETER 00317 M00S00279.dfterm +++| SX3 X2+ 00318 M00S00280.dfterm +++| NZ X3,DFT3 IF NOT *GO* COMMAND 00319 M00S00281.dfterm +++| SA1 GOPC 00320 M00S00282.dfterm +++| NZ X1,DFT3 IF TERMINATION COMPLETE 00321 M00S00283.dfterm +++| MESSAGE X5
| Line S00023 Modification History | |
|---|---|
M01 (Added by) | ns2018 |
Seq # *Modification Id* Act ----------------------------+ 00322 M01S00023.ns2018 +++| SA1 TARA+ARFC SET FORCE *K* DISPLAY FLAG 00323 M01S00024.ns2018 +++| MX0 1 00324 M01S00025.ns2018 +++| LX0 55-59
| Line S00026 Modification History | |
|---|---|
M01 (Added by) | ns2018 |
M02 (Removed by) | ns2018a |
Seq # *Modification Id* Act ----------------------------+ 00325 M02S00026.ns2018a ---| BX6 X0+X6
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2018a |
Seq # *Modification Id* Act ----------------------------+ 00326 M01S00001.ns2018a +++| BX6 X0+X1
| Line S00027 Modification History | |
|---|---|
M01 (Added by) | ns2018 |
Seq # *Modification Id* Act ----------------------------+ 00327 M01S00027.ns2018 +++| SA6 A1 00328 M01S00028.ns2018 +++| SA2 DFSF GET DAYFILE STATUS FLAG 00329 M01S00029.ns2018 +++| NG X2,DFT3 IF TERMINATED DAYFILE PERMANENT 00330 M01S00030.ns2018 +++| ZR X2,DFT3 IF DAYFILE NOT TERMINATED 00331 M01S00031.ns2018 +++| SETFS D,0 INSURE LOCAL FILE IS RETAINED 00332 M01S00032.ns2018 +++| EQ DFT4 SET RETURN PARAMETERS 00333 M00S00284.dfterm +++| 00334 M00S00285.dfterm +++|* SET PARAMETERS FOR RETURN TO *QFSP*. 00335 M00S00286.dfterm +++|
| Line S00287 Modification History | |
|---|---|
M01 (Removed by) | ns2018 |
Seq # *Modification Id* Act ----------------------------+ 00336 M01S00287.ns2018 ---| DFT3 PACKNAM CPCK SET USER PACK
| Line S00033 Modification History | |
|---|---|
M01 (Added by) | ns2018 |
Seq # *Modification Id* Act ----------------------------+ 00337 M01S00033.ns2018 +++| DFT3 RETURN D,R 00338 M01S00034.ns2018 +++| DFT4 RETURN C,R 00339 M01S00035.ns2018 +++| PACKNAM CPCK SET USER PACK 00340 M00S00288.dfterm +++| ENFAM CFAM SET USER FAMILY 00341 M00S00289.dfterm +++| EREXIT 0 CLEAR ERROR EXIT
| Line S00290 Modification History | |
|---|---|
M01 (Removed by) | ns2018 |
Seq # *Modification Id* Act ----------------------------+ 00342 M01S00290.ns2018 ---| RETURN C,R 00343 M01S00291.ns2018 ---| RETURN D,R 00344 M00S00292.dfterm +++| SX2 B7 SET *K* DISPLAY BUFFER ADDRESS 00345 M00S00293.dfterm +++| EQ DFTERMX 00346 M00S00294.dfterm +++| SPACE 4 00347 M00S00295.dfterm +++|** FUNCTION TABLE. 00348 M00S00296.dfterm +++|* 00349 M00S00297.dfterm +++|* INDEX INTO TABLE IS FUNCTION CODE FROM *QFSP*. 00350 M00S00298.dfterm +++| 00351 M00S00299.dfterm +++| TFCN BSS 0 FUNCTION PROCESSOR ADDRESS TABLE 00352 M00S00300.dfterm +++| LOC 0 00353 M00S00301.dfterm +++| CON GOP TERMINATE DAYFILES PROCESSOR (*GO*) 00354 M00S00302.dfterm +++| CON 0 00355 M00S00303.dfterm +++| CON LSP LIST DAYFILES PROCESSOR (*LIST*) 00356 M00S00304.dfterm +++| CON OTP DISPOSE OUTPUT FILE PROCESSOR (*OUT*) 00357 M00S00305.dfterm +++| LOC *O 00358 M00S00306.dfterm +++| GOP TITLE COMMAND PROCESSOR SUBROUTINES. 00359 M00S00307.dfterm +++|*** GO. 00360 M00S00308.dfterm +++|* TERMINATE ACTIVE OR INACTIVE DAYFILE AND DEFINE AS 00361 M00S00309.dfterm +++|* A DIRECT ACCESS PERMANENT FILE ON THE DEVICE ON 00362 M00S00310.dfterm +++|* WHICH IT CURRENTLY RESIDES. IF ACTIVE DAYFILE 00363 M00S00311.dfterm +++|* TERMINATION, CREATE NEW ACTIVE DAYFILE ON DEVICE 00364 M00S00312.dfterm +++|* SPECIFIED BY *K* DISPLAY PARAMETERS. DEFINE 00365 M00S00313.dfterm +++|* TERMINATED DAYFILE AS PRIVATE FILE WITH READ MODE 00366 M00S00314.dfterm +++|* PERMISSION. ALSO, PERMIT AN ASSEMBLY-TIME DEFINED 00367 M00S00315.dfterm +++|* USER NUMBER IN WRITE MODE. 00368 M00S00316.dfterm +++| 00369 M00S00317.dfterm +++|** GOP - TERMINATE DAYFILES PROCESSOR. 00370 M00S00318.dfterm +++|* 00371 M00S00319.dfterm +++|* EXIT (X5) = *K* DISPLAY MESSAGE ADDRESS. 00372 M00S00320.dfterm +++|* (B7) = 0 (NO *K* DISPLAY BUFFER). 00373 M00S00321.dfterm +++|* 00374 M00S00322.dfterm +++|* USES A - 1, 2, 3, 4, 5, 6, 7. 00375 M00S00323.dfterm +++|* B - 7. 00376 M00S00324.dfterm +++|* X - ALL. 00377 M00S00325.dfterm +++|* 00378 M00S00326.dfterm +++|* CALLS ADN, DTD, PUN, TOD, VED.
| Line S00036 Modification History | |
|---|---|
M01 (Added by) | ns2018 |
Seq # *Modification Id* Act ----------------------------+ 00379 M01S00036.ns2018 +++|* 00380 M01S00037.ns2018 +++|* MACROS EREXIT, SYSTEM. 00381 M00S00327.dfterm +++| 00382 M00S00328.dfterm +++| 00383 M00S00329.dfterm +++| GOP SUBR ENTRY/EXIT 00384 M00S00330.dfterm +++| SA3 TARA+ARFT DAYFILE TYPE
| Line S00331 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00385 M01S00331.ns22000 ---| SA4 TARA+ARDN GET EQUIPMENT NUMBER
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00386 M01S00004.ns22000 +++| SA4 TARA+ARDN GET EST ORDINAL 00387 M00S00332.dfterm +++| BX6 X6-X6 CLEAR ACTIVE DAYFILE EQUIPMENT AND FLAG 00388 M00S00333.dfterm +++| SA6 GOPB 00389 M00S00334.dfterm +++| SA6 A6+B1 00390 M00S00335.dfterm +++| MX0 -12 00391 M00S00336.dfterm +++| BX4 -X0*X4 00392 M00S00337.dfterm +++| SA2 TARA+AROP OPTION 00393 M00S00338.dfterm +++| BX3 -X0*X3 00394 M00S00339.dfterm +++| BX2 -X0*X2 00395 M00S00340.dfterm +++| 00396 M00S00341.dfterm +++|* VALIDATE DAYFILE TERMINATION. 00397 M00S00342.dfterm +++| 00398 M00S00343.dfterm +++| RJ VED VALIDATE EXISTENCE OF DAYFILE ON DEVICE 00399 M00S00344.dfterm +++| NZ X5,GOPX IF ERROR 00400 M00S00345.dfterm +++| LX3 12 00401 M00S00346.dfterm +++| LX4 48 SAVE EQUIPMENT AND DAYFILE TYPE 00402 M00S00347.dfterm +++| BX7 X4+X3 00403 M00S00348.dfterm +++| SA7 GOPA 00404 M00S00349.dfterm +++| SA7 D+7 00405 M00S00350.dfterm +++| EREXIT ERR1 SET MINOR ERROR EXIT ADDRESS 00406 M00S00351.dfterm +++| 00407 M00S00352.dfterm +++|* ASSIGN NAME TO DAYFILE. 00408 M00S00353.dfterm +++| 00409 M00S00354.dfterm +++| RJ ADN ASSIGN DAYFILE NAME 00410 M00S00355.dfterm +++| NZ X5,GOPX IF ERROR 00411 M00S00356.dfterm +++| BX6 X2 INSERT NAME IN FET 00412 M00S00357.dfterm +++| SA6 D+CFPN 00413 M00S00358.dfterm +++| EREXIT ERR SET MAJOR ERROR EXIT ADDRESS 00414 M00S00359.dfterm +++|
| Line S00360 Modification History | |
|---|---|
M01 (Removed by) | ns2018 |
Seq # *Modification Id* Act ----------------------------+ 00415 M01S00360.ns2018 ---|* TERMINATE AND DEFINE DAYFILE.
| Line S00038 Modification History | |
|---|---|
M01 (Added by) | ns2018 |
Seq # *Modification Id* Act ----------------------------+ 00416 M01S00038.ns2018 +++|* TERMINATE DAYFILE. 00417 M00S00361.dfterm +++| 00418 M00S00362.dfterm +++| RJ TOD TERMINATE OLD DAYFILES 00419 M00S00363.dfterm +++| NZ X5,GOPX IF ERROR
| Line S00364 Modification History | |
|---|---|
M01 (Removed by) | ns2018 |
Seq # *Modification Id* Act ----------------------------+ 00420 M01S00364.ns2018 ---| RJ DTD DEFINE TERMINATED DAYFILE 00421 M01S00365.ns2018 ---| NZ X5,GOPX IF ERROR 00422 M00S00366.dfterm +++| 00423 M00S00367.dfterm +++|* FINISH DAYFILE TERMINATION. 00424 M00S00368.dfterm +++| 00425 M00S00369.dfterm +++| SA5 TARA+AROP OPTION 00426 M00S00370.dfterm +++| MX0 -12 00427 M00S00371.dfterm +++| BX5 -X0*X5 00428 M00S00372.dfterm +++| SA1 GOPB 00429 M00S00373.dfterm +++| ZR X5,GOP1 IF INACTIVE DAYFILE TERMINATION 00430 M00S00374.dfterm +++| ZR X1,GOP1 IF NO EQUIPMENT SWITCH
| Line S00375 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00431 M01S00375.ns22000 ---| MX0 12 SET ACTIVE DAYFILE EQUIPMENT NUMBER
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00432 M01S00005.ns22000 +++| MX0 12 SET ACTIVE DAYFILE EST ORDINAL 00433 M00S00376.dfterm +++| SA2 GOPA 00434 M00S00377.dfterm +++| BX2 -X0*X2 00435 M00S00378.dfterm +++| BX1 X0*X1 00436 M00S00379.dfterm +++| BX6 X1+X2 00437 M00S00380.dfterm +++| SA6 A2+ 00438 M00S00381.dfterm +++| 00439 M00S00382.dfterm +++|* CLEAR FIRST TRACK BYTE IN SECTOR OF LOCAL AREAS. 00440 M00S00383.dfterm +++| 00441 M00S00384.dfterm +++| GOP1 SA2 A1-B1 SET EQUIPMENT AND DAYFILE TYPE IN FET 00442 M00S00385.dfterm +++| BX7 X2 00443 M00S00386.dfterm +++| SA7 D+7 00444 M00S00387.dfterm +++| SYSTEM SFM,R,D,CDBF*100B 00445 M00S00388.dfterm +++| ZR X5,GOP2 IF INACTIVE DAYFILE TERMINATION 00446 M00S00389.dfterm +++| 00447 M00S00390.dfterm +++|* PROTECT ACTIVE DAYFILE. 00448 M00S00391.dfterm +++| 00449 M00S00392.dfterm +++| SA2 GOPA SET DAYFILE TYPE IN FET 00450 M00S00393.dfterm +++| MX0 12 00451 M00S00394.dfterm +++| BX7 -X0*X2 00452 M00S00395.dfterm +++| SA7 D+7 00453 M00S00396.dfterm +++| SYSTEM SFM,R,D,PADF*100B 00454 M00S00397.dfterm +++|
| Line S00398 Modification History | |
|---|---|
M01 (Removed by) | ns2018 |
Seq # *Modification Id* Act ----------------------------+ 00455 M01S00398.ns2018 ---|* PERMIT USER NUMBER. 00456 M01S00399.ns2018 ---| 00457 M01S00400.ns2018 ---| GOP2 EREXIT ERR1 SET MINOR ERROR EXIT ADDRESS
| Line S00039 Modification History | |
|---|---|
M01 (Added by) | ns2018 |
Seq # *Modification Id* Act ----------------------------+ 00458 M01S00039.ns2018 +++|* DEFINE TERMINATED DAYFILE. 00459 M01S00040.ns2018 +++| 00460 M01S00041.ns2018 +++| GOP2 EREXIT ERR1 SET MINOR ERROR EXIT ADDRESS 00461 M01S00042.ns2018 +++| SX6 B1 SET DAYFILE STATUS FLAG 00462 M01S00043.ns2018 +++| SA6 DFSF
| Line S00044 Modification History | |
|---|---|
M01 (Added by) | ns2018 |
M02 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00463 M02S00044.ns22000 ---| BX6 X6-X6 CLEAR EQUIPMENT NUMBER
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00464 M01S00006.ns22000 +++| BX6 X6-X6 CLEAR EST ORDINAL
| Line S00045 Modification History | |
|---|---|
M01 (Added by) | ns2018 |
Seq # *Modification Id* Act ----------------------------+ 00465 M01S00045.ns2018 +++| SA6 D+7 00466 M01S00046.ns2018 +++| RJ DTD DEFINE TERMINATED DAYFILE 00467 M01S00047.ns2018 +++| NZ X5,GOPX IF ERROR 00468 M01S00048.ns2018 +++| 00469 M01S00049.ns2018 +++|* PERMIT USER NUMBER. 00470 M01S00050.ns2018 +++| 00471 M01S00051.ns2018 +++| SX6 B0+ CLEAR DAYFILE STATUS FLAG 00472 M01S00052.ns2018 +++| SA6 DFSF 00473 M00S00401.dfterm +++| RJ PUN PERMIT SPECIFIED USER NUMBER 00474 M00S00402.dfterm +++| NZ X5,GOPX IF ERROR 00475 M00S00403.dfterm +++| SX5 DTDA SET *K* DISPLAY MESSAGE 00476 M00S00404.dfterm +++| SB7 B0 00477 M00S00405.dfterm +++| SX6 B1 SET COMPLETION FLAG 00478 M00S00406.dfterm +++| SA6 GOPC 00479 M00S00407.dfterm +++| EQ GOPX 00480 M00S00408.dfterm +++| 00481 M00S00409.dfterm +++| GOPA CON 0 EQUIPMENT AND DAYFILE TYPE
| Line S00410 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00482 M01S00410.ns22000 ---| GOPB CON 0 ACTIVE DAYFILE EQUIPMENT NUMBER
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00483 M01S00007.ns22000 +++| GOPB CON 0 ACTIVE DAYFILE EST ORDINAL 00484 M00S00411.dfterm +++| GOPC CON 0 TERMINATION COMPLETE FLAG 00485 M00S00412.dfterm +++| LSP EJECT 00486 M00S00413.dfterm +++|*** LIST. 00487 M00S00414.dfterm +++|* PRODUCE LISTING OF PERTINENT INFORMATION FOR ALL 00488 M00S00415.dfterm +++|* PERMANENT DAYFILES ON THE SYSTEM. SET OUTPUT FOR 00489 M00S00416.dfterm +++|* RELEASE IF *DFLIST* CALL. ADD LIST TO CURRENT OUTPUT 00490 M00S00417.dfterm +++|* FILE AND BUILD *K* DISPLAY BUFFER FROM THE LIST IF 00491 M00S00418.dfterm +++|* *DFTERM* CALL. 00492 M00S00419.dfterm +++| 00493 M00S00420.dfterm +++|** LSP - LIST PERMANENT DAYFILES PROCESSOR. 00494 M00S00421.dfterm +++|* 00495 M00S00422.dfterm +++|* ENTRY (LIST) = RECORD COUNT ON OUTPUT FILE. 00496 M00S00423.dfterm +++|* 00497 M00S00424.dfterm +++|* EXIT (B7) = ADDRESS OF *K* DISPLAY BUFFER IF *DFTERM* CALL. 00498 M00S00425.dfterm +++|* = 0 IF *DFLIST* OR IF ERROR. 00499 M00S00426.dfterm +++|* (X5) = *K* DISPLAY MESSAGE ADDRESS. 00500 M00S00427.dfterm +++|* (LIST) INCREASED IF PERMANENT DAYFILES EXIST. 00501 M00S00428.dfterm +++|* 00502 M00S00429.dfterm +++|* USES A - 1, 5, 6. 00503 M00S00430.dfterm +++|* B - 7. 00504 M00S00431.dfterm +++|* X - 1, 5, 6. 00505 M00S00432.dfterm +++|* 00506 M00S00433.dfterm +++|* CALLS BOF, CFT, GKD, IPH.
| Line S00053 Modification History | |
|---|---|
M01 (Added by) | ns2018 |
Seq # *Modification Id* Act ----------------------------+ 00507 M01S00053.ns2018 +++|* 00508 M01S00054.ns2018 +++|* MACROS BKSP, EREXIT, READEI, SETFS. 00509 M00S00434.dfterm +++| 00510 M00S00435.dfterm +++| 00511 M00S00436.dfterm +++| LSP SUBR ENTRY/EXIT 00512 M00S00437.dfterm +++| 00513 M00S00438.dfterm +++|* BUILD OUTPUT. 00514 M00S00439.dfterm +++| 00515 M00S00440.dfterm +++| RJ CFT CREATE FAMILY NAME TABLE 00516 M00S00441.dfterm +++| RJ IPH INITIALIZE PAGE HEADER AND PAGE CONTROL 00517 M00S00442.dfterm +++| EREXIT ERR1 SET MINOR ERROR EXIT ADDRESS 00518 M00S00443.dfterm +++| RJ BOF BUILD OUTPUT FILE 00519 M00S00444.dfterm +++| NZ X5,LSPX IF ERROR 00520 M00S00445.dfterm +++| SA1 TARA+ARFC 00521 M00S00446.dfterm +++| PL X1,LSP1 IF NOT DFLIST CALL 00522 M00S00447.dfterm +++| 00523 M00S00448.dfterm +++|* SET OUTPUT FOR DFLIST CALL. 00524 M00S00449.dfterm +++| 00525 M00S00450.dfterm +++| SETFS O,0 00526 M00S00451.dfterm +++| SX5 =C*PERMANENT DAYFILE LIST COMPLETE.* 00527 M00S00452.dfterm +++| SB7 B0+ SET NO *K* DISPLAY 00528 M00S00453.dfterm +++| EQ LSPX 00529 M00S00454.dfterm +++| 00530 M00S00455.dfterm +++|* CREATE *K* DISPLAY BUFFER. 00531 M00S00456.dfterm +++| 00532 M00S00457.dfterm +++| LSP1 SA5 LIST INCREASE RECORD COUNT 00533 M00S00458.dfterm +++| SX6 X5+B1 00534 M00S00459.dfterm +++| SA6 A5 00535 M00S00460.dfterm +++| BKSP O SET BEGINNING OF CURRENT RECORD 00536 M00S00461.dfterm +++| READEI X2 00537 M00S00462.dfterm +++| RJ GKD GENERATE *K* DISPLAY 00538 M00S00463.dfterm +++| EQ LSPX 00539 M00S00464.dfterm +++| OTP EJECT 00540 M00S00465.dfterm +++|*** OUT. 00541 M00S00466.dfterm +++|* RELEASE OUTPUT FILE TO PRINTER IF ONE HAS BEEN 00542 M00S00467.dfterm +++|* WRITTEN. 00543 M00S00468.dfterm +++| 00544 M00S00469.dfterm +++|** OTP - DISPOSE OUTPUT FILE PROCESSOR. 00545 M00S00470.dfterm +++|* 00546 M00S00471.dfterm +++|* ENTRY (LIST) .NE. 0 IF OUTPUT FILE WRITTEN. 00547 M00S00472.dfterm +++|* 00548 M00S00473.dfterm +++|* EXIT (LIST) = 0 (OUTPUT FLAG). 00549 M00S00474.dfterm +++|* (X5) = *K* DISPLAY MESSAGE ADDRESS. 00550 M00S00475.dfterm +++|* (B7) = 0 (NO *K* DISPLAY BUFFER). 00551 M00S00476.dfterm +++|* 00552 M00S00477.dfterm +++|* USES A - 2, 6. 00553 M00S00478.dfterm +++|* B - 7. 00554 M00S00479.dfterm +++|* X - 2, 5, 6. 00555 M00S00480.dfterm +++|* 00556 M00S00481.dfterm +++|* MACROS ROUTE. 00557 M00S00482.dfterm +++| 00558 M00S00483.dfterm +++| 00559 M00S00484.dfterm +++| OTP SUBR ENTRY/EXIT 00560 M00S00485.dfterm +++| SA2 LIST CHECK IF OUTPUT EXISTS 00561 M00S00486.dfterm +++| ZR X2,OTP1 IF NO OUTPUT FILE 00562 M00S00487.dfterm +++| BX6 X6-X6 CLEAR OUTPUT FLAG AND RECORD COUNT 00563 M00S00488.dfterm +++| SA6 A2 00564 M00S00489.dfterm +++| 00565 M00S00490.dfterm +++|* RELEASE OUTPUT FILE. 00566 M00S00491.dfterm +++| 00567 M00S00492.dfterm +++| SX6 B0+ CLEAR *DSP* PARAMETER BLOCK 00568 M00S00493.dfterm +++| SB7 DSPBL-1 00569 M00S00494.dfterm +++| OTP0 SA6 DSPB+B7 00570 M00S00495.dfterm +++| SB7 B7-1 00571 M00S00496.dfterm +++| PL B7,OTP0 IF NOT END OF BLOCK 00572 M00S00497.dfterm +++| SA2 O GET FILE NAME 00573 M00S00498.dfterm +++| MX6 42 00574 M00S00499.dfterm +++| BX6 X6*X2 00575 M00S00500.dfterm +++| SA6 DSPB *DSP* PARAMETER BLOCK 00576 M00S00501.dfterm +++| SA2 OTPA 00577 M00S00502.dfterm +++| BX6 X2 00578 M00S00503.dfterm +++| SA6 A6+B1 00579 M00S00504.dfterm +++| ROUTE DSPB,RECALL 00580 M00S00505.dfterm +++| SX5 =C*OUTPUT FILE RELEASED. * 00581 M00S00506.dfterm +++| SB7 B0+ 00582 M00S00507.dfterm +++| EQ OTPX 00583 M00S00508.dfterm +++| 00584 M00S00509.dfterm +++| OTP1 SX5 =C*NO OUTPUT FILE EXISTING. * 00585 M00S00510.dfterm +++| SB7 B0+ 00586 M00S00511.dfterm +++| EQ OTPX 00587 M00S00512.dfterm +++| 00588 M00S00513.dfterm +++| 00589 M00S00514.dfterm +++| OTPA VFD 24/0,12/2HPR,6/0,18/FRDC 00590 M00S00515.dfterm +++| SPR EJECT 00591 M00S00516.dfterm +++|** SPR - SET PROCESSOR RETURN JUMP. 00592 M00S00517.dfterm +++|* 00593 M00S00518.dfterm +++|* ENTRY (B7) = ADDRESS OF PROCESSOR. 00594 M00S00519.dfterm +++|* (SPR) = RETURN JUMP ADDRESS. 00595 M00S00520.dfterm +++|* 00596 M00S00521.dfterm +++|* EXIT RETURN JUMP ADDRESS SET IN PROCESSOR. 00597 M00S00522.dfterm +++|* JUMPS TO COMMAND PROCESSOR. 00598 M00S00523.dfterm +++|* 00599 M00S00524.dfterm +++|* USES A - 1, 6. 00600 M00S00525.dfterm +++|* X - 1, 6. 00601 M00S00526.dfterm +++| 00602 M00S00527.dfterm +++| 00603 M00S00528.dfterm +++| SPR SUBR ENTRY/EXIT 00604 M00S00529.dfterm +++| SA1 SPRX SET RETURN ADDRESS 00605 M00S00530.dfterm +++| BX6 X1 00606 M00S00531.dfterm +++| SA6 B7 00607 M00S00532.dfterm +++| JP B7+1 JUMP TO SUBROUTINE 00608 M00S00533.dfterm +++| ADN TITLE PRIMARY SUBROUTINES. 00609 M00S00534.dfterm +++|** ADN - ASSIGN AUTOMATIC DAYFILE NAME. 00610 M00S00535.dfterm +++|* 00611 M00S00536.dfterm +++|* ENTRY (FMPC) = FAMILY OR PACK NAME. 00612 M00S00537.dfterm +++|* 00613 M00S00538.dfterm +++|* EXIT (X2) = SPECIFIED DAYFILE NAME IF NOT A DUPLICATE, 00614 M00S00539.dfterm +++|* AUTOMATICALLY ASSIGNED NAME OTHERWISE. 00615 M00S00540.dfterm +++|* (X5) = 0 IF NAME ASSIGNED. 00616 M00S00541.dfterm +++|* = *K* DISPLAY MESSAGE ADDRESS IF ERROR. 00617 M00S00542.dfterm +++|* (B7) = 0 IF ERROR. 00618 M00S00543.dfterm +++|* 00619 M00S00544.dfterm +++|* USES A - 1, 2, 3, 6, 7. 00620 M00S00545.dfterm +++|* B - 7. 00621 M00S00546.dfterm +++|* X - 0, 1, 2, 3, 5, 6, 7. 00622 M00S00547.dfterm +++|* 00623 M00S00548.dfterm +++|* CALLS CAN. 00624 M00S00549.dfterm +++| 00625 M00S00550.dfterm +++| 00626 M00S00551.dfterm +++| ADN SUBR ENTRY/EXIT 00627 M00S00552.dfterm +++| SX6 B0+ CLEAR SPECIFIED NAME FLAG 00628 M00S00553.dfterm +++| SA6 SNAM 00629 M00S00554.dfterm +++| 00630 M00S00555.dfterm +++|* FORM SPECIFIED NAME FROM KEYWORD AND SPECIFIED CHARACTERS. 00631 M00S00556.dfterm +++| 00632 M00S00557.dfterm +++| SA2 TARA+ARFT GET DAYFILE TYPE CODE 00633 M00S00558.dfterm +++| MX0 -12 00634 M00S00559.dfterm +++| BX2 -X0*X2 00635 M00S00560.dfterm +++| SA3 TDNK+X2 SET DAYFILE NAME KEYWORD 00636 M00S00561.dfterm +++| SA1 TARA+ARNM CHECK IF CHARACTERS SPECIFIED 00637 M00S00562.dfterm +++| ZR X1,ADN1 IF NONE SPECIFIED 00638 M00S00563.dfterm +++| MX0 30 COMBINE NAME KEY AND SPECIFIED CHARACTERS 00639 M00S00564.dfterm +++| BX1 X0*X1 00640 M00S00565.dfterm +++| LX1 -12 00641 M00S00566.dfterm +++| BX6 X3+X1 00642 M00S00567.dfterm +++| SA6 SNAM 00643 M00S00568.dfterm +++| 00644 M00S00569.dfterm +++|* FORM AUTOMATIC DAYFILE NAME SKELETON. 00645 M00S00570.dfterm +++| 00646 M00S00571.dfterm +++| ADN1 DATE ANAM 00647 M00S00572.dfterm +++| SA2 ANAM FORM LAST FOUR CHARACTERS OF NAME 00648 M00S00573.dfterm +++| LX2 6 00649 M00S00574.dfterm +++| MX0 12 00650 M00S00575.dfterm +++| LX0 -18 00651 M00S00576.dfterm +++| BX1 X0*X2 MONTH 00652 M00S00577.dfterm +++| LX2 6 00653 M00S00578.dfterm +++| LX0 -12 00654 M00S00579.dfterm +++| BX2 X0*X2 DAY 00655 M00S00580.dfterm +++| BX6 X1+X2 00656 M00S00581.dfterm +++| BX7 X3+X6 00657 M00S00582.dfterm +++| SA7 A2 00658 M00S00583.dfterm +++| 00659 M00S00584.dfterm +++|* SET INFORMATION IN FET. 00660 M00S00585.dfterm +++| 00661 M00S00586.dfterm +++| SA2 FMPC SET FAMILY/PACK AND USER INDEX 00662 M00S00587.dfterm +++| MX0 42 00663 M00S00588.dfterm +++| SX3 X2 MASK IN AUXILIARY PACK FLAG 00664 M00S00589.dfterm +++| BX2 X0*X2 00665 M00S00590.dfterm +++| LX3 17 00666 M00S00591.dfterm +++| SX1 PDUI 00667 M00S00592.dfterm +++| BX2 X2+X3 00668 M00S00593.dfterm +++| BX6 X1+X2 00669 M00S00594.dfterm +++| SA6 C+14 00670 M00S00595.dfterm +++| 00671 M00S00596.dfterm +++|* CHECK FOR AVAILABLE NAME. 00672 M00S00597.dfterm +++| 00673 M00S00598.dfterm +++| RJ CAN CHECK CATALOG FOR AVAILABLE NAME 00674 M00S00599.dfterm +++| NZ X5,ADNX IF ERROR 00675 M00S00600.dfterm +++| SA2 SNAM 00676 M00S00601.dfterm +++| ZR X2,ADN2 IF NO SPECIFIED NAME 00677 M00S00602.dfterm +++| SX6 X2 00678 M00S00603.dfterm +++| BX5 X5-X5 00679 M00S00604.dfterm +++| NZ X6,ADN2 IF DUPLICATE FILE NAME 00680 M00S00605.dfterm +++| EQ ADNX 00681 M00S00606.dfterm +++| 00682 M00S00607.dfterm +++|* FIND NEXT SEQUENCE CHARACTER IF AUTOMATIC ASSIGNMENT. 00683 M00S00608.dfterm +++| 00684 M00S00609.dfterm +++| ADN2 SA1 CANB CHECK FOR NEXT SEQUENCE CHARACTER 00685 M00S00610.dfterm +++| SX6 1R9 00686 M00S00611.dfterm +++| LX1 59-35 00687 M00S00612.dfterm +++| NG X1,ADN4 IF MAXIMUM CHARACTER USED 00688 M00S00613.dfterm +++| ADN3 LX1 1 00689 M00S00614.dfterm +++| NG X1,ADN6 IF LATEST SEQUENCE CHARACTER FOUND 00690 M00S00615.dfterm +++| SX6 X6-1 DECREMENT SEQUENCE CHARACTER 00691 M00S00616.dfterm +++| SX7 X6-1 00692 M00S00617.dfterm +++| NZ X7,ADN3 IF NOT ALL CHARACTERS CHECKED 00693 M00S00618.dfterm +++| EQ ADN6 00694 M00S00619.dfterm +++| 00695 M00S00620.dfterm +++|* CHECK FOR LOWEST AVAILABLE SEQUENCE CHARACTER. 00696 M00S00621.dfterm +++| 00697 M00S00622.dfterm +++| ADN4 SX6 1RA CHECK FOR LOWEST CHARACTER 00698 M00S00623.dfterm +++| LX1 59-24-0 00699 M00S00624.dfterm +++| ADN5 PL X1,ADN6 IF CHARACTER AVAILABLE 00700 M00S00625.dfterm +++| LX1 59 00701 M00S00626.dfterm +++| SX6 X6+B1 INCREMENT CHARACTER 00702 M00S00627.dfterm +++| SX7 X6-1R9 00703 M00S00628.dfterm +++| NZ X7,ADN5 IF NOT AT MAXIMUM CHARACTER 00704 M00S00629.dfterm +++| SB7 B0+ 00705 M00S00630.dfterm +++| SX5 =C* AUTOMATIC NAME ASSIGNMENT IMPOSSIBLE.* 00706 M00S00631.dfterm +++| EQ ADNX 00707 M00S00632.dfterm +++| 00708 M00S00633.dfterm +++| ADN6 SA1 ANAM ADD SEQUENCE CHARACTER TO SKELETON NAME 00709 M00S00634.dfterm +++| LX6 42 00710 M00S00635.dfterm +++| BX2 X6+X1 00711 M00S00636.dfterm +++| SX5 B0 00712 M00S00637.dfterm +++| EQ ADNX 00713 M00S00638.dfterm +++| BOF SPACE 4,15 00714 M00S00639.dfterm +++|** BOF - BUILD OUTPUT FILE. 00715 M00S00640.dfterm +++|* 00716 M00S00641.dfterm +++|* ENTRY (PPOS) = PAGE POSITION (SET TO END OF PAGE). 00717 M00S00642.dfterm +++|* (PNUM) = PAGE NUMBER (SET TO 1). 00718 M00S00643.dfterm +++|* (DNUM) = DAYFILE NUMBER (SET TO 1).
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00719 M01S00008.ns22000 +++|* (PDFE+1) = SET IF PRINT DENSITY FORMAT EFFECTOR 00720 M01S00009.ns22000 +++|* NOT YET WRITTEN. 00721 M00S00644.dfterm +++|* 00722 M00S00645.dfterm +++|* EXIT (X5) = 0 IF DAYFILES EXIST. 00723 M00S00646.dfterm +++|* = *K* DISPLAY MESSAGE ADDRESS IF ERROR. 00724 M00S00647.dfterm +++|* (B7) = 0 IF ERROR. 00725 M00S00648.dfterm +++|* 00726 M00S00649.dfterm +++|* USES A - 1, 6, 7. 00727 M00S00650.dfterm +++|* B - 7. 00728 M00S00651.dfterm +++|* X - 0, 1, 2, 5, 6, 7. 00729 M00S00652.dfterm +++|* 00730 M00S00653.dfterm +++|* CALLS BDL, CDD.
| Line S00055 Modification History | |
|---|---|
M01 (Added by) | ns2018 |
Seq # *Modification Id* Act ----------------------------+ 00731 M01S00055.ns2018 +++|* 00732 M01S00056.ns2018 +++|* MACROS MESSAGE, WRITEC, WRITER. 00733 M00S00654.dfterm +++| 00734 M00S00655.dfterm +++| 00735 M00S00656.dfterm +++| BOF SUBR ENTRY/EXIT 00736 M00S00657.dfterm +++| 00737 M00S00658.dfterm +++|* BUILD LIST LINES. 00738 M00S00659.dfterm +++| 00739 M00S00660.dfterm +++| BOF1 SX1 PDCB PERMANENT DAYFILE LIST CONTROL BLOCK 00740 M00S00661.dfterm +++| SX2 PDLB AREA TO RECEIVE LIST LINE 00741 M00S00662.dfterm +++| RJ BDL BUILD DAYFILE LIST LINE 00742 M00S00663.dfterm +++| NZ X5,BOFX IF ERROR 00743 M00S00664.dfterm +++| NZ X6,BOF3 IF END OF DAYFILE LIST 00744 M00S00665.dfterm +++| SA1 DNUM INCREMENT DAYFILE NUMBER 00745 M00S00666.dfterm +++| SX6 X1+B1 00746 M00S00667.dfterm +++| SA6 A1 00747 M00S00668.dfterm +++| RJ CDD CONVERT TO DISPLAY CODE
| Line S00669 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00748 M01S00669.241l630 ---| LX6 6 00749 M01S00670.241l630 ---| SX2 1R.&1R ADD PERIOD 00750 M01S00671.241l630 ---| BX6 X6-X2 00751 M01S00672.241l630 ---| LX6 24 PUT IN LIST LINE
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00752 M01S00002.241l630 +++| LX6 30 PUT IN LIST LINE 00753 M00S00673.dfterm +++| MX0 -24 00754 M00S00674.dfterm +++| SA1 PDLB 00755 M00S00675.dfterm +++| BX1 -X0*X1 00756 M00S00676.dfterm +++| BX6 X0*X6 00757 M00S00677.dfterm +++| BX7 X1+X6 00758 M00S00678.dfterm +++| SA7 A1 00759 M00S00679.dfterm +++| SA1 PPOS CHECK PAGE POSITION
| Line S00680 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00760 M01S00680.ns22000 ---| SX2 X1-PPLN
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00761 M01S00010.ns22000 +++| SA2 A1+B1 00762 M01S00011.ns22000 +++| IX2 X1-X2 00763 M00S00681.dfterm +++| NG X2,BOF2 IF NOT END OF PAGE 00764 M00S00682.dfterm +++| 00765 M00S00683.dfterm +++|* WRITE PAGE HEADER. 00766 M00S00684.dfterm +++| 00767 M00S00685.dfterm +++| SA1 PNUM INCREMENT PAGE NUMBER 00768 M00S00686.dfterm +++| SX6 X1+B1 00769 M00S00687.dfterm +++| SA6 A1 00770 M00S00688.dfterm +++| RJ CDD CONVERT TO DISPLAY CODE 00771 M00S00689.dfterm +++| MX1 -18 PUT PAGE NUMBER IN PAGE HEADER 00772 M00S00690.dfterm +++| BX6 -X1*X6 00773 M00S00691.dfterm +++| SA1 =5LPAGE 00774 M00S00692.dfterm +++| LX6 12 00775 M00S00693.dfterm +++| BX6 X1+X6 00776 M00S00694.dfterm +++| SA6 BOFA+6
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00777 M01S00012.ns22000 +++| SA1 PDFE+1 GET PRINT DENSITY FORMAT CONTROL FLAG 00778 M01S00013.ns22000 +++| BX7 X7-X7 00779 M01S00014.ns22000 +++| SA7 A1 00780 M01S00015.ns22000 +++| WRITEW O,A1-B1,X1 CONDITIONALLY WRITE FORMAT EFFECTOR 00781 M00S00695.dfterm +++| WRITEC O,BOFA WRITE PAGE HEADING 00782 M00S00696.dfterm +++| WRITEC O,BOFB WRITE SECOND HEADING LINE 00783 M00S00697.dfterm +++| WRITEC O,(=C* *) WRITE BLANK LINE 00784 M00S00698.dfterm +++| SX1 4 SET PAGE HEADING LINE COUNT 00785 M00S00699.dfterm +++| 00786 M00S00700.dfterm +++|* WRITE LIST LINE. 00787 M00S00701.dfterm +++| 00788 M00S00702.dfterm +++| BOF2 SX6 X1+1 COUNT OUTPUT LINE 00789 M00S00703.dfterm +++| SA6 PPOS 00790 M00S00704.dfterm +++| WRITEC O,PDLB,PDLBL WRITE DAYFILE LINE 00791 M00S00705.dfterm +++| EQ BOF1 GET NEXT LINE 00792 M00S00706.dfterm +++| 00793 M00S00707.dfterm +++|* END DAYFILE LIST. 00794 M00S00708.dfterm +++| 00795 M00S00709.dfterm +++| BOF3 SA1 DNUM CHECK DAYFILE COUNT 00796 M00S00710.dfterm +++| SX1 X1-2 00797 M00S00711.dfterm +++| NG X1,BOF4 IF NO DAYFILES LISTED 00798 M00S00712.dfterm +++| WRITER O,R 00799 M00S00713.dfterm +++| BX5 X5-X5 SET NO MESSAGE 00800 M00S00714.dfterm +++| EQ BOFX 00801 M00S00715.dfterm +++| 00802 M00S00716.dfterm +++| BOF4 SX5 =C* NO PERMANENT DAYFILES. * 00803 M00S00717.dfterm +++| SB7 B0 00804 M00S00718.dfterm +++| MESSAGE X5 00805 M00S00719.dfterm +++| EQ BOFX 00806 M00S00720.dfterm +++| 00807 M00S00721.dfterm +++| BOFA DATA C*1CATALOG OF PERMANENT DAYFILES (000000). 00/00/00 00 00808 M00S00722.dfterm +++|,.00.00 PAGE 000* FIRST DAYFILE PAGE HEADER
| Line S00723 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00809 M01S00723.241l630 ---| BOFB DATA C*0 NO. TYPE FM/PN DN PFNAME DATE TIME L
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00810 M01S00003.241l630 +++| BOFB DATA C*0 NUM TYPE FM/PN DN PFNAME DATE TIME L 00811 M00S00724.dfterm +++|,ENGTH* 00812 M00S00725.dfterm +++| CFT SPACE 4,7 00813 M00S00726.dfterm +++|** CFT - CREATE FAMILY/PACK NAME TABLE. 00814 M00S00727.dfterm +++|* 00815 M00S00728.dfterm +++|* EXIT (PDCB) = FIRST WORD OF FAMILY/PACK NAME TABLE. 00816 M00S00729.dfterm +++|* 00817 M00S00730.dfterm +++|* USES A - 1, 2, 6. 00818 M00S00731.dfterm +++|* B - 2, 3, 4, 5, 6. 00819 M00S00732.dfterm +++|* X - 0, 1, 2, 6, 7. 00820 M00S00733.dfterm +++| 00821 M00S00734.dfterm +++| 00822 M00S00735.dfterm +++| CFT SUBR ENTRY/EXIT 00823 M00S00736.dfterm +++| SX6 C SET FET ADDRESS 00824 M00S00737.dfterm +++| SA6 PDCB 00825 M00S00738.dfterm +++| SB2 PDCB+2 SET ADDRESS FOR FAMILY/PACK NAME TABLE 00826 M00S00739.dfterm +++| SB3 B0 SET OUTPUT TABLE EMPTY 00827 M00S00740.dfterm +++| SB5 B0 INITIALIZE TO EQUIPMENT ZERO 00828 M00S00741.dfterm +++| SX2 PDUI SET SHIFT COUNT FOR MASK TEST 00829 M00S00742.dfterm +++| MX6 -3 00830 M00S00743.dfterm +++| BX2 -X6*X2 00831 M00S00744.dfterm +++| SB6 X2-59 00832 M00S00745.dfterm +++| 00833 M00S00746.dfterm +++|* SEARCH EQUIPMENT TABLE FOR MASS STORAGE FAMILIES/PACKS. 00834 M00S00747.dfterm +++| 00835 M00S00748.dfterm +++| CFT1 SA1 TEQA+B5 GET AN EQUIPMENT ENTRY 00836 M00S00749.dfterm +++| ZR X1,CFT4 IF END OF EQUIPMENT TABLE 00837 M00S00750.dfterm +++| SB5 B5+1 ADVANCE EQUIPMENT 00838 M00S00751.dfterm +++| SX2 B1 00839 M00S00752.dfterm +++| IX2 X1+X2 00840 M00S00753.dfterm +++| ZR X2,CFT1 IF NOT MASS STORAGE EQUIPMENT 00841 M00S00754.dfterm +++| SA2 TMSA+B5-1 GET DEVICE MASK FOR EQUIPMENT 00842 M00S00755.dfterm +++| AX6 X2,B6 00843 M00S00756.dfterm +++| PL X6,CFT1 IF USER INDEX NOT ON THIS DEVICE 00844 M00S00757.dfterm +++| MX6 42 GET FAMILY/PACK NAME 00845 M00S00758.dfterm +++| BX6 X6*X1 00846 M00S00759.dfterm +++| LX1 59-2 00847 M00S00760.dfterm +++| SB4 B0+ INITIALIZE AT START OF OUTPUT TABLE 00848 M00S00761.dfterm +++| PL X1,CFT2 IF NOT AUXILIARY DEVICE 00849 M00S00762.dfterm +++| SX1 B1+ SET AUXILIARY PACK FLAG 00850 M00S00763.dfterm +++| LX1 17 00851 M00S00764.dfterm +++| BX6 X6+X1
| Line S00765 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00852 M01S00765.ns22000 ---| SX7 B5-B1 ADD EQUIPMENT NUMBER
| Line S00016 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00853 M01S00016.ns22000 +++| SX7 B5-B1 ADD EST ORDINAL 00854 M00S00766.dfterm +++| BX6 X6+X7 00855 M00S00767.dfterm +++| 00856 M00S00768.dfterm +++|* CHECK IF FAMILY/PACK ALREADY IN TABLE. 00857 M00S00769.dfterm +++| 00858 M00S00770.dfterm +++| CFT2 GE B4,B3,CFT3 IF END OF OUTPUT TABLE 00859 M00S00771.dfterm +++| SA1 B2+B4 GET A NAME FROM OUTPUT TABLE 00860 M00S00772.dfterm +++| BX2 X1-X6 00861 M00S00773.dfterm +++| ZR X2,CFT1 IF NAMES MATCH (ALREADY IN TABLE) 00862 M00S00774.dfterm +++| SB4 B4+1 ADVANCE OUTPUT TABLE INDEX 00863 M00S00775.dfterm +++| EQ CFT2 LOOP TO CHECK NEXT NAME 00864 M00S00776.dfterm +++| 00865 M00S00777.dfterm +++| CFT3 SA6 B2+B3 PUT NAME IN OUTPUT TABLE 00866 M00S00778.dfterm +++| SB3 B3+B1 COUNT TABLE ENTRY 00867 M00S00779.dfterm +++| EQ CFT1 LOOP TO CHECK MORE EQUIPMENT 00868 M00S00780.dfterm +++| 00869 M00S00781.dfterm +++| CFT4 SX6 B3+ FAMILY/PACK NAME COUNT 00870 M00S00782.dfterm +++| LX6 18 00871 M00S00783.dfterm +++| SA6 B2-B1 00872 M00S00784.dfterm +++| 00873 M00S00785.dfterm +++|* ADD USER INDEX TO TABLE FOR FAMILY ENTRIES. 00874 M00S00786.dfterm +++| 00875 M00S00787.dfterm +++| MX0 -18 00876 M00S00788.dfterm +++| SB4 B0 00877 M00S00789.dfterm +++| SX2 PDUI PERMANENT DAYFILE USER INDEX 00878 M00S00790.dfterm +++| CFT5 GE B4,B3,CFTX IF END OF FAMILY/PACK NAME TABLE 00879 M00S00791.dfterm +++| SA1 B2+B4 GET FAMILY/PACK NAME 00880 M00S00792.dfterm +++| SB4 B4+B1 ADVANCE INDEX 00881 M00S00793.dfterm +++| BX7 -X0*X1 00882 M00S00794.dfterm +++| NZ X7,CFT5 IF AUXILIARY PACK 00883 M00S00795.dfterm +++| BX6 X1+X2 ADD USER INDEX 00884 M00S00796.dfterm +++| SA6 A1 00885 M00S00797.dfterm +++| EQ CFT5 PROCESS NEXT FAMILY/PACK 00886 M00S00798.dfterm +++| DTD SPACE 4,11 00887 M00S00799.dfterm +++|** DTD - DEFINE TERMINATED DAYFILE. 00888 M00S00800.dfterm +++|* 00889 M00S00801.dfterm +++|* EXIT (X5) = 0 IF NO ERROR. 00890 M00S00802.dfterm +++|* = *K* DISPLAY MESSAGE ADDRESS IF ERROR. 00891 M00S00803.dfterm +++|* (B7) = 0 IF ERROR. 00892 M00S00804.dfterm +++|* 00893 M00S00805.dfterm +++|* USES A - 1, 2, 7.
| Line S00806 Modification History | |
|---|---|
M01 (Removed by) | ns2018 |
Seq # *Modification Id* Act ----------------------------+ 00894 M01S00806.ns2018 ---|* B - 6, 7.
| Line S00057 Modification History | |
|---|---|
M01 (Added by) | ns2018 |
Seq # *Modification Id* Act ----------------------------+ 00895 M01S00057.ns2018 +++|* B - 7. 00896 M00S00807.dfterm +++|* X - 0, 1, 2, 3, 5, 6, 7. 00897 M00S00808.dfterm +++|* 00898 M00S00809.dfterm +++|* CALLS ERP, SFN.
| Line S00058 Modification History | |
|---|---|
M01 (Added by) | ns2018 |
Seq # *Modification Id* Act ----------------------------+ 00899 M01S00058.ns2018 +++|* 00900 M01S00059.ns2018 +++|* MACROS DEFINE, MESSAGE. 00901 M00S00810.dfterm +++| 00902 M00S00811.dfterm +++| 00903 M00S00812.dfterm +++| DTD SUBR ENTRY/EXIT 00904 M00S00813.dfterm +++| 00905 M00S00814.dfterm +++|* DEFINE DAYFILE AS PERMANENT. 00906 M00S00815.dfterm +++|
| Line S00816 Modification History | |
|---|---|
M01 (Removed by) | ns2018 |
Seq # *Modification Id* Act ----------------------------+ 00907 M01S00816.ns2018 ---| DTD1 DEFINE D,,,,,,R
| Line S00060 Modification History | |
|---|---|
M01 (Added by) | ns2018 |
M02 (Removed by) | dfterm2 |
Seq # *Modification Id* Act ----------------------------+ 00908 M02S00060.dfterm2 ---| DTD1 DEFINE D,,,,,,R,,,,,,IE
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | dfterm2 |
Seq # *Modification Id* Act ----------------------------+ 00909 M01S00002.dfterm2 +++| DTD1 DEFINE D,,,,,,R,,,,,,IE,,,Y 00910 M00S00817.dfterm +++| SA2 D CHECK FOR ERROR 00911 M00S00818.dfterm +++| MX0 8 00912 M00S00819.dfterm +++| LX0 18 00913 M00S00820.dfterm +++| BX6 X0*X2 00914 M00S00821.dfterm +++| NZ X6,DTD2 IF *PFM* ERROR 00915 M00S00822.dfterm +++| 00916 M00S00823.dfterm +++|* SET UP PERMANENT DAYFILE MESSAGE. 00917 M00S00824.dfterm +++| 00918 M00S00825.dfterm +++| MX0 42 SET PERMANENT FILE NAME IN MESSAGE 00919 M00S00826.dfterm +++| SA2 D+8 00920 M00S00827.dfterm +++| BX1 X0*X2 00921 M00S00828.dfterm +++| RJ SFN SPACE FILL NAME 00922 M00S00829.dfterm +++| SA1 DTDA+3 00923 M00S00830.dfterm +++| BX6 X0*X6 00924 M00S00831.dfterm +++| BX3 -X0*X1 00925 M00S00832.dfterm +++| BX7 X3+X6 00926 M00S00833.dfterm +++| SA7 A1 00927 M00S00834.dfterm +++| MESSAGE DTDA 00928 M00S00835.dfterm +++| BX5 X5-X5 SET NO ERROR 00929 M00S00836.dfterm +++| EQ DTDX 00930 M00S00837.dfterm +++| 00931 M00S00838.dfterm +++|* PROCESS ERROR. 00932 M00S00839.dfterm +++|
| Line S00840 Modification History | |
|---|---|
M01 (Removed by) | ns2018 |
Seq # *Modification Id* Act ----------------------------+ 00933 M01S00840.ns2018 ---| DTD2 SB6 TPEP SET ERROR TABLE 00934 M01S00841.ns2018 ---| BX7 -X0*X2 CLEAR ERROR BITS
| Line S00061 Modification History | |
|---|---|
M01 (Added by) | ns2018 |
Seq # *Modification Id* Act ----------------------------+ 00935 M01S00061.ns2018 +++| DTD2 BX7 -X0*X2 CLEAR ERROR BITS 00936 M00S00842.dfterm +++| SA7 A2
| Line S00843 Modification History | |
|---|---|
M01 (Removed by) | ns2018 |
Seq # *Modification Id* Act ----------------------------+ 00937 M01S00843.ns2018 ---| DTD3 RJ ERP ERROR PROCESSOR
| Line S00062 Modification History | |
|---|---|
M01 (Added by) | ns2018 |
Seq # *Modification Id* Act ----------------------------+ 00938 M01S00062.ns2018 +++| RJ ERP ERROR PROCESSOR 00939 M00S00844.dfterm +++| ZR X5,DTD1 IF RETRY OPERATION
| Line S00063 Modification History | |
|---|---|
M01 (Added by) | ns2018 |
Seq # *Modification Id* Act ----------------------------+ 00940 M01S00063.ns2018 +++| MESSAGE X5 ISSUE *PFM* ERROR MESSAGE
| Line S00064 Modification History | |
|---|---|
M01 (Added by) | ns2018 |
M02 (Removed by) | dfterm4 |
Seq # *Modification Id* Act ----------------------------+ 00941 M02S00064.dfterm4 ---| SX5 DTDB * ERROR-TERMINATED DAYFILE ON LOCAL FILE.*
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | dfterm4 |
Seq # *Modification Id* Act ----------------------------+ 00942 M01S00008.dfterm4 +++| SX5 DTDB * ERROR - TERMINATED DAYFILE ON LOCAL...* 00943 M00S00845.dfterm +++| SB7 B0+ 00944 M00S00846.dfterm +++| EQ DTDX 00945 M00S00847.dfterm +++| 00946 M00S00848.dfterm +++| DTDA DATA C* PERMANENT DAYFILE DEFINED AS .*
| Line S00065 Modification History | |
|---|---|
M01 (Added by) | ns2018 |
M02 (Removed by) | dfterm4 |
Seq # *Modification Id* Act ----------------------------+ 00947 M02S00065.dfterm4 ---| DTDB DATA C* ERROR-TERMINATED DAYFILE ON LOCAL FILE.*
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | dfterm4 |
Seq # *Modification Id* Act ----------------------------+ 00948 M01S00009.dfterm4 +++| DTDB DATA C* ERROR - TERMINATED DAYFILE ON LOCAL FILE ZZZDAYF.* 00949 M00S00849.dfterm +++| GCF SPACE 4,7 00950 M00S00850.dfterm +++|** GCF - GET CURRENT FAMILY AND PACK NAMES. 00951 M00S00851.dfterm +++|* 00952 M00S00852.dfterm +++|* EXIT (CPCK) = CURRENT PACK NAME. 00953 M00S00853.dfterm +++|* (CFAM) = CURRENT FAMILY NAME. 00954 M00S00854.dfterm +++|*
| Line S00855 Modification History | |
|---|---|
M01 (Removed by) | ns2018 |
Seq # *Modification Id* Act ----------------------------+ 00955 M01S00855.ns2018 ---|* USES X - 0, 1, 2, 5, 6, 7.
| Line S00066 Modification History | |
|---|---|
M01 (Added by) | ns2018 |
Seq # *Modification Id* Act ----------------------------+ 00956 M01S00066.ns2018 +++|* USES X - 0, 1, 2, 6, 7. 00957 M00S00856.dfterm +++|* A - 1, 6, 7.
| Line S00067 Modification History | |
|---|---|
M01 (Added by) | ns2018 |
Seq # *Modification Id* Act ----------------------------+ 00958 M01S00067.ns2018 +++|* 00959 M01S00068.ns2018 +++|* MACROS SYSTEM. 00960 M00S00857.dfterm +++| 00961 M00S00858.dfterm +++| 00962 M00S00859.dfterm +++| GCF SUBR ENTRY/EXIT 00963 M00S00860.dfterm +++| SX6 PFCW INITIALIZE *RSB* REQUEST BLOCK 00964 M00S00861.dfterm +++| SX7 PKNW 00965 M00S00862.dfterm +++| SA6 GCFB 00966 M00S00863.dfterm +++| SA7 A6+B1 00967 M00S00864.dfterm +++| SYSTEM RSB,R,GCFA
| Line S00865 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00968 M01S00865.ns22000 ---| SA1 GCFB GET FAMILY EQUIPMENT
| Line S00017 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00969 M01S00017.ns22000 +++| SA1 GCFB SET FAMILY EST ORDINAL 00970 M00S00866.dfterm +++| LX1 -12
| Line S00867 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00971 M01S00867.ns22000 ---| MX2 -6
| Line S00018 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00972 M01S00018.ns22000 +++| MX2 -9 00973 M00S00868.dfterm +++| BX6 -X2*X1 00974 M00S00869.dfterm +++| SA1 TEQA+X6 SET FAMILY FROM TABLE 00975 M00S00870.dfterm +++| MX0 42 00976 M00S00871.dfterm +++| BX6 X0*X1 00977 M00S00872.dfterm +++| SA6 CFAM 00978 M00S00873.dfterm +++| SA1 GCFB+1 SAVE CURRENT PACK AND TYPE 00979 M00S00874.dfterm +++| BX6 X1 00980 M00S00875.dfterm +++| SA6 CPCK 00981 M00S00876.dfterm +++| EQ GCFX 00982 M00S00877.dfterm +++| 00983 M00S00878.dfterm +++| 00984 M00S00879.dfterm +++| GCFA VFD 12/0,12/2,18/0,18/GCFB *RSB* STATUS WORD 00985 M00S00880.dfterm +++| GCFB CON PFCW 00986 M00S00881.dfterm +++| CON PKNW 00987 M00S00882.dfterm +++| GKD SPACE 4,10 00988 M00S00883.dfterm +++|** GKD - GENERATE *K* DISPLAY BUFFER. 00989 M00S00884.dfterm +++|* 00990 M00S00885.dfterm +++|* ENTRY FORMATTED DAYFILE INFORMATION IN OUTPUT BUFFER. 00991 M00S00886.dfterm +++|* 00992 M00S00887.dfterm +++|* EXIT (B7) = ADDRESS OF *K* DISPLAY BUFFER. 00993 M00S00888.dfterm +++|* (X5) = *K* DISPLAY MESSAGE ADDRESS. 00994 M00S00889.dfterm +++|* 00995 M00S00890.dfterm +++|* USES A - 3, 4, 5, 6, 7. 00996 M00S00891.dfterm +++|* B - 7. 00997 M00S00892.dfterm +++|* X - 0, 1, 3, 4, 5, 6, 7.
| Line S00069 Modification History | |
|---|---|
M01 (Added by) | ns2018 |
Seq # *Modification Id* Act ----------------------------+ 00998 M01S00069.ns2018 +++|* 00999 M01S00070.ns2018 +++|* MACROS MOVE, READC. 01000 M00S00893.dfterm +++| 01001 M00S00894.dfterm +++| 01002 M00S00895.dfterm +++| GKD SUBR ENTRY/EXIT 01003 M00S00896.dfterm +++| 01004 M00S00897.dfterm +++|* SET HEADER FOR *K* DISPLAY. 01005 M00S00898.dfterm +++| 01006 M00S00899.dfterm +++| READC O,KBUF+1 SKIP HEADER ON OUTPUT FILE 01007 M00S00900.dfterm +++| MOVE GKDCL,GKDC,KBUF+1 01008 M00S00901.dfterm +++| SX6 KBUF+1+GKDCL SET LINE NUMBER 01009 M00S00902.dfterm +++| SA6 GKDA 01010 M00S00903.dfterm +++| SX7 KDLC SET LINE COUNT FOR *K* DISPLAY 01011 M00S00904.dfterm +++| SA7 GKDB 01012 M00S00905.dfterm +++| 01013 M00S00906.dfterm +++|* MOVE CODED LINES TO *K* DISPLAY BUFFER. 01014 M00S00907.dfterm +++| 01015 M00S00908.dfterm +++| GKD1 READC O,CENB READ ONE LINE 01016 M00S00909.dfterm +++| NG X1,GKD2 IF EOF/EOI 01017 M00S00910.dfterm +++| SA3 CENB MASK OFF CARRIAGE CONTROL CHARACTERS 01018 M00S00911.dfterm +++| MX0 6 01019 M00S00912.dfterm +++| BX7 -X0*X3 01020 M00S00913.dfterm +++| SA4 =1L 01021 M00S00914.dfterm +++| BX6 X4+X7 01022 M00S00915.dfterm +++| SA6 A3 01023 M00S00916.dfterm +++| SX1 B6-CENB CALCULATE NUMBER OF WORDS 01024 M00S00917.dfterm +++| SA3 GKDA RESET LINE NUMBER 01025 M00S00918.dfterm +++| IX6 X3+X1 01026 M00S00919.dfterm +++| SA6 A3 01027 M00S00920.dfterm +++| MOVE X1,CENB,X3 01028 M00S00921.dfterm +++| SA3 GKDB DECREMENT LINE COUNT 01029 M00S00922.dfterm +++| SX6 X3-1 01030 M00S00923.dfterm +++| SA6 A3+ 01031 M00S00924.dfterm +++| NZ X6,GKD1 IF NOT MAXIMUM NUMBER LINES TRANSFERRED 01032 M00S00925.dfterm +++| SA5 GKDA *MORE DAYFILES, ENTER OUT FOR LIST* 01033 M00S00926.dfterm +++| MOVE GKDDL,GKDD,X5 01034 M00S00927.dfterm +++| SX7 X5+GKDDL UPDATE LINE NUMBER 01035 M00S00928.dfterm +++| SA7 A5+ 01036 M00S00929.dfterm +++| 01037 M00S00930.dfterm +++|* SET END OF BUFFER. 01038 M00S00931.dfterm +++| 01039 M00S00932.dfterm +++| GKD2 SA3 GKDA SET ZERO WORD TO END BUFFER 01040 M00S00933.dfterm +++| BX6 X6-X6 01041 M00S00934.dfterm +++| SA6 X3 01042 M00S00935.dfterm +++| SB7 KBUF SET *K* DISPLAY BUFFER ADDRESS 01043 M00S00936.dfterm +++| SX5 =C*PERMANENT DAYFILE LIST COMPLETE.* 01044 M00S00937.dfterm +++| EQ GKDX 01045 M00S00938.dfterm +++| 01046 M00S00939.dfterm +++| GKDA CON KBUF *K* DISPLAY BUFFER LINE ADDRESS 01047 M00S00940.dfterm +++| GKDB CON 0 *K* DISPLAY LINE COUNT
| Line S00941 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01048 M01S00941.241l630 ---| GKDC DATA C/ *** PERMANENT DAYFILE CATALOG ***/
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01049 M01S00004.241l630 +++| GKDC DATA C* * 01050 M01S00005.241l630 +++| DATA C* PERMANENT DAYFILE CATALOG* 01051 M00S00942.dfterm +++| GKDD DATA C* * 01052 M00S00943.dfterm +++| GKDCL EQU *-GKDC 01053 M00S00944.dfterm +++| DATA C* MORE PERMANENT DAYFILES. * 01054 M00S00945.dfterm +++| DATA C/ ENTER *OUT* FOR A FULL LIST./
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01055 M01S00006.241l630 +++| CON 0 END OF *K* DISPLAY 01056 M00S00946.dfterm +++| GKDDL EQU *-GKDD
| Line S00947 Modification History | |
|---|---|
M01 (Removed by) | ns2018 |
Seq # *Modification Id* Act ----------------------------+ 01057 M01S00947.ns2018 ---| IPH SPACE 4,10
| Line S00071 Modification History | |
|---|---|
M01 (Added by) | ns2018 |
Seq # *Modification Id* Act ----------------------------+ 01058 M01S00071.ns2018 +++| IPH SPACE 4,15 01059 M00S00948.dfterm +++|** IPH - INITIALIZE PAGE HEADER AND PAGE CONTROL. 01060 M00S00949.dfterm +++|* 01061 M00S00950.dfterm +++|* EXIT (PPOS) SET TO END OF PAGE. 01062 M00S00951.dfterm +++|* (PNUM) SET TO PAGE 1. 01063 M00S00952.dfterm +++|* (DNUM) SET TO DAYFILE NUMBER 1.
| Line S00019 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01064 M01S00019.ns22000 +++|* (PDFE+1) SET TO 1 (FORMAT EFFECTOR NOT YET OUTPUT). 01065 M00S00953.dfterm +++|* 01066 M00S00954.dfterm +++|* USES A - 1, 6, 7. 01067 M00S00955.dfterm +++|* X - 1, 2, 6, 7. 01068 M00S00956.dfterm +++|* 01069 M00S00957.dfterm +++|* CALLS COD.
| Line S00072 Modification History | |
|---|---|
M01 (Added by) | ns2018 |
Seq # *Modification Id* Act ----------------------------+ 01070 M01S00072.ns2018 +++|* 01071 M01S00073.ns2018 +++|* MACROS CLOCK, DATE. 01072 M00S00958.dfterm +++| 01073 M00S00959.dfterm +++| 01074 M00S00960.dfterm +++| IPH SUBR ENTRY/EXIT 01075 M00S00961.dfterm +++| 01076 M00S00962.dfterm +++|* SET DATE AND TIME IN PAGE HEADER. 01077 M00S00963.dfterm +++| 01078 M00S00964.dfterm +++| DATE BOFA+4 PUT DATE IN PAGE HEADING 01079 M00S00965.dfterm +++| SA1 BOFA+4 01080 M00S00966.dfterm +++| SX2 1R.&1R CLEAR PERIOD AT RIGHT OF DATE 01081 M00S00967.dfterm +++| BX6 X1-X2 01082 M00S00968.dfterm +++| SA6 A1 01083 M00S00969.dfterm +++| CLOCK BOFA+5 PUT TIME IN PAGE HEADING 01084 M00S00970.dfterm +++| SA1 BOFA+5 01085 M00S00971.dfterm +++| SX2 1R.&1R CLEAR PERIOD AT RIGHT OF TIME 01086 M00S00972.dfterm +++| BX6 X1-X2 01087 M00S00973.dfterm +++| SA6 A1 01088 M00S00974.dfterm +++| 01089 M00S00975.dfterm +++|* SET USER INDEX IN PAGE HEADER. 01090 M00S00976.dfterm +++| 01091 M00S00977.dfterm +++| SX1 PDUI PUT PERMANENT DAYFILE USER INDEX IN HEADER 01092 M00S00978.dfterm +++| RJ COD 01093 M00S00979.dfterm +++| LX6 12 01094 M00S00980.dfterm +++| SA1 BOFA+3 01095 M00S00981.dfterm +++| MX2 36 01096 M00S00982.dfterm +++| LX2 -12 01097 M00S00983.dfterm +++| BX6 X2*X6 01098 M00S00984.dfterm +++| BX1 -X2*X1 01099 M00S00985.dfterm +++| BX6 X1+X6 01100 M00S00986.dfterm +++| SA6 A1 01101 M00S00987.dfterm +++| 01102 M00S00988.dfterm +++|* SET PAGE POSITION, PAGE NUMBER AND DAYFILE NUMBER. 01103 M00S00989.dfterm +++|
| Line S00990 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01104 M01S00990.ns22000 ---| SX7 PPLN SET TO END OF PAGE
| Line S00020 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01105 M01S00020.ns22000 +++| SX7 99999 FORCE END OF PAGE 01106 M00S00991.dfterm +++| SX6 B1 01107 M00S00992.dfterm +++| SA7 PPOS 01108 M00S00993.dfterm +++| SA6 PNUM SET TO PAGE 1
| Line S00021 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01109 M01S00021.ns22000 +++| SA6 PDFE+1 SET PRINT DENSITY FORMAT CONTROL FLAG 01110 M00S00994.dfterm +++| SA6 DNUM SET TO DAYFILE 1 01111 M00S00995.dfterm +++| EQ IPHX 01112 M00S00996.dfterm +++| PUN SPACE 4,11 01113 M00S00997.dfterm +++|** PUN - PERMIT SPECIFIED USER NUMBER WITH WRITE PERMISSION. 01114 M00S00998.dfterm +++|* 01115 M00S00999.dfterm +++|* EXIT (X5) = 0 IF NO ERROR. 01116 M00S01000.dfterm +++|* = *K* DISPLAY MESSAGE ADDRESS IF ERROR. 01117 M00S01001.dfterm +++|* (B7) = 0 IF ERROR. 01118 M00S01002.dfterm +++|* 01119 M00S01003.dfterm +++|* USES A - 1, 2, 7.
| Line S01004 Modification History | |
|---|---|
M01 (Removed by) | ns2018 |
Seq # *Modification Id* Act ----------------------------+ 01120 M01S01004.ns2018 ---|* B - 6, 7.
| Line S00074 Modification History | |
|---|---|
M01 (Added by) | ns2018 |
Seq # *Modification Id* Act ----------------------------+ 01121 M01S00074.ns2018 +++|* B - 7. 01122 M00S01005.dfterm +++|* X - 0, 1, 2, 5, 6, 7. 01123 M00S01006.dfterm +++|* 01124 M00S01007.dfterm +++|* CALLS ERP.
| Line S00075 Modification History | |
|---|---|
M01 (Added by) | ns2018 |
Seq # *Modification Id* Act ----------------------------+ 01125 M01S00075.ns2018 +++|* 01126 M01S00076.ns2018 +++|* MACROS PERMIT. 01127 M00S01008.dfterm +++| 01128 M00S01009.dfterm +++| 01129 M00S01010.dfterm +++| PUN SUBR ENTRY/EXIT 01130 M00S01011.dfterm +++| SA1 PUNA CHECK IF USER NUMBER SPECIFIED 01131 M00S01012.dfterm +++| SX5 B0+ SET NO ERROR 01132 M00S01013.dfterm +++| ZR X1,PUNX IF NO USER NUMBER 01133 M00S01014.dfterm +++| 01134 M00S01015.dfterm +++|* CHECK FOR PRIVATE PACK. 01135 M00S01016.dfterm +++| 01136 M00S01017.dfterm +++| SA2 FMPC CHECK AUXILIARY DEVICE FLAG 01137 M00S01018.dfterm +++| SX6 X2+ 01138 M00S01019.dfterm +++| ZR X6,PUN1 IF FAMILY 01139 M00S01020.dfterm +++| SA2 APIN 01140 M00S01021.dfterm +++| MX0 42 01141 M00S01022.dfterm +++| BX6 X0*X2 01142 M00S01023.dfterm +++| NZ X6,PUNX IF PRIVATE PACK 01143 M00S01024.dfterm +++| 01144 M00S01025.dfterm +++|* PERMIT SPECIFIED USER NUMBER. 01145 M00S01026.dfterm +++|
| Line S01027 Modification History | |
|---|---|
M01 (Removed by) | ns2018 |
Seq # *Modification Id* Act ----------------------------+ 01146 M01S01027.ns2018 ---| PUN1 PERMIT D,,PUNA,0
| Line S00077 Modification History | |
|---|---|
M01 (Added by) | ns2018 |
Seq # *Modification Id* Act ----------------------------+ 01147 M01S00077.ns2018 +++| PUN1 PERMIT D,,PUNA,0,,,,IE 01148 M00S01028.dfterm +++| BX7 X7-X7 CLEAR USER NUMBER FROM FET 01149 M00S01029.dfterm +++| SA2 D CHECK FOR ERROR 01150 M00S01030.dfterm +++| MX0 8 01151 M00S01031.dfterm +++| SA7 D+CFOU 01152 M00S01032.dfterm +++| LX0 18 01153 M00S01033.dfterm +++| BX6 X0*X2 01154 M00S01034.dfterm +++| ZR X6,PUNX IF NO ERROR 01155 M00S01035.dfterm +++| BX7 -X0*X2 CLEAR ERROR BITS 01156 M00S01036.dfterm +++| SA7 A2 01157 M00S01037.dfterm +++| 01158 M00S01038.dfterm +++|* PROCESS ERROR. 01159 M00S01039.dfterm +++|
| Line S01040 Modification History | |
|---|---|
M01 (Removed by) | ns2018 |
Seq # *Modification Id* Act ----------------------------+ 01160 M01S01040.ns2018 ---| SB6 TPEP SET ERROR TABLE 01161 M00S01041.dfterm +++| RJ ERP ERROR PROCESSOR 01162 M00S01042.dfterm +++| ZR X5,PUN1 IF RETRY OPERATION 01163 M00S01043.dfterm +++| SB7 B0+ 01164 M00S01044.dfterm +++| EQ PUNX 01165 M00S01045.dfterm +++| 01166 M00S01046.dfterm +++| PUNA VFD 42/0L"USRN",18/0 USER NUMBER TO PERMIT 01167 M00S01047.dfterm +++| TOD SPACE 4,11 01168 M00S01048.dfterm +++|** TOD - TERMINATE OLD DAYFILES. 01169 M00S01049.dfterm +++|* 01170 M00S01050.dfterm +++|* EXIT (X5) = 0 IF NO ERROR. 01171 M00S01051.dfterm +++|* = *K* DISPLAY MESSAGE ADDRESS IF ERROR. 01172 M00S01052.dfterm +++|* (B7) = 0 IF ERROR. 01173 M00S01053.dfterm +++|*
| Line S01054 Modification History | |
|---|---|
M01 (Removed by) | ns2018 |
Seq # *Modification Id* Act ----------------------------+ 01174 M01S01054.ns2018 ---|* USES A - 2, 4. 01175 M01S01055.ns2018 ---|* B - 6, 7.
| Line S00078 Modification History | |
|---|---|
M01 (Added by) | ns2018 |
Seq # *Modification Id* Act ----------------------------+ 01176 M01S00078.ns2018 +++|* USES A - 2, 4, 5. 01177 M01S00079.ns2018 +++|* B - 2, 3, 7. 01178 M00S01056.dfterm +++|* X - 0, 2, 4, 5, 6. 01179 M00S01057.dfterm +++|*
| Line S01058 Modification History | |
|---|---|
M01 (Removed by) | ns2018 |
Seq # *Modification Id* Act ----------------------------+ 01180 M01S01058.ns2018 ---|* CALLS ERP.
| Line S00080 Modification History | |
|---|---|
M01 (Added by) | ns2018 |
M02 (Removed by) | dfterm5 |
Seq # *Modification Id* Act ----------------------------+ 01181 M02S00080.dfterm5 ---|* MACROS MESSAGE, SYSTEM.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | dfterm5 |
Seq # *Modification Id* Act ----------------------------+ 01182 M01S00001.dfterm5 +++|* MACROS MESSAGE, SYSTEM, WAIT. 01183 M00S01059.dfterm +++| 01184 M00S01060.dfterm +++| 01185 M00S01061.dfterm +++| TOD SUBR ENTRY/EXIT
| Line S01062 Modification History | |
|---|---|
M01 (Removed by) | dfterm5 |
Seq # *Modification Id* Act ----------------------------+ 01186 M01S01062.dfterm5 ---| SX5 B0+ SET NO ERROR
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | dfterm5 |
Seq # *Modification Id* Act ----------------------------+ 01187 M01S00002.dfterm5 +++| TOD0 SX5 B0+ SET NO ERROR 01188 M00S01063.dfterm +++| SA4 TARA+AROP OPTION 01189 M00S01064.dfterm +++| MX0 -12 01190 M00S01065.dfterm +++| BX4 -X0*X4 01191 M00S01066.dfterm +++| ZR X4,TOD1 IF INACTIVE DAYFILE TERMINATION 01192 M00S01067.dfterm +++| 01193 M00S01068.dfterm +++|* TERMINATE ACTIVE DAYFILE. 01194 M00S01069.dfterm +++| 01195 M00S01070.dfterm +++| SYSTEM SFM,R,D,TAFF*100B 01196 M00S01071.dfterm +++| EQ TOD2 01197 M00S01072.dfterm +++| 01198 M00S01073.dfterm +++|* TERMINATE INACTIVE DAYFILE. 01199 M00S01074.dfterm +++| 01200 M00S01075.dfterm +++| TOD1 SYSTEM SFM,R,D,ATDF*100B 01201 M00S01076.dfterm +++| TOD2 SA2 D CHECK FOR ERROR 01202 M00S01077.dfterm +++| MX0 4 01203 M00S01078.dfterm +++| LX0 14 01204 M00S01079.dfterm +++| BX6 X0*X2
| Line S01080 Modification History | |
|---|---|
M01 (Removed by) | ns2018 |
Seq # *Modification Id* Act ----------------------------+ 01205 M01S01080.ns2018 ---| SB6 TSEP SET ERROR TABLE 01206 M00S01081.dfterm +++| SB7 B0 01207 M00S01082.dfterm +++| ZR X6,TODX IF NO ERROR 01208 M00S01083.dfterm +++| 01209 M00S01084.dfterm +++|* PROCESS DAYFILE TERMINATION ERRORS. 01210 M00S01085.dfterm +++|
| Line S01086 Modification History | |
|---|---|
M01 (Removed by) | ns2018 |
Seq # *Modification Id* Act ----------------------------+ 01211 M01S01086.ns2018 ---| RJ ERP ERROR PROCESSOR 01212 M01S01087.ns2018 ---| EQ TODX
| Line S00081 Modification History | |
|---|---|
M01 (Added by) | ns2018 |
Seq # *Modification Id* Act ----------------------------+ 01213 M01S00081.ns2018 +++| LX6 -10 01214 M01S00082.ns2018 +++| SA5 TSEP+X6 GET *SFM* ERROR MESSAGE ADDRESS 01215 M01S00083.ns2018 +++| SB3 X6
| Line S00084 Modification History | |
|---|---|
M01 (Added by) | ns2018 |
M02 (Removed by) | dfterm5 |
Seq # *Modification Id* Act ----------------------------+ 01216 M02S00084.dfterm5 ---| EQ B1,B3,TOD3 IF DAYFILE BUSY
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | dfterm5 |
Seq # *Modification Id* Act ----------------------------+ 01217 M01S00003.dfterm5 +++| EQ B1,B3,TOD4 IF DAYFILE BUSY
| Line S00085 Modification History | |
|---|---|
M01 (Added by) | ns2018 |
Seq # *Modification Id* Act ----------------------------+ 01218 M01S00085.ns2018 +++| SB2 3 01219 M01S00086.ns2018 +++| EQ B2,B3,TOD3 IF INACTIVE DAYFILE NOT FOUND 01220 M01S00087.ns2018 +++| MESSAGE X5 ISSUE *SFM* ERROR MESSAGE 01221 M01S00088.ns2018 +++| SX5 TODA * DAYFILE STATUS INDEFINITE.* 01222 M01S00089.ns2018 +++| TOD3 EQ TODX RETURN
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | dfterm5 |
Seq # *Modification Id* Act ----------------------------+ 01223 M01S00004.dfterm5 +++| 01224 M01S00005.dfterm5 +++|* PROCESS DAYFILE BUSY ERROR. 01225 M01S00006.dfterm5 +++| 01226 M01S00007.dfterm5 +++| TOD4 MESSAGE (=C* WAITING FOR BUSY DAYFILE.*),2,R 01227 M01S00008.dfterm5 +++| WAIT 100 DELAY 01228 M01S00009.dfterm5 +++| EQ TOD0 RETRY 01229 M01S00010.dfterm5 +++|
| Line S00090 Modification History | |
|---|---|
M01 (Added by) | ns2018 |
Seq # *Modification Id* Act ----------------------------+ 01230 M01S00090.ns2018 +++| 01231 M01S00091.ns2018 +++| TODA DATA C* DAYFILE STATUS INDEFINITE. * 01232 M00S01088.dfterm +++| VED SPACE 4,21 01233 M00S01089.dfterm +++|** VED - VALIDATE EXISTENCE OF DAYFILE ON DEVICE. 01234 M00S01090.dfterm +++|* 01235 M00S01091.dfterm +++|* ENTRY (X2) = OPTION. 01236 M00S01092.dfterm +++|* (X3) = DAYFILE TYPE.
| Line S01093 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01237 M01S01093.ns22000 ---|* (X4) = EQUIPMENT NUMBER.
| Line S00022 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01238 M01S00022.ns22000 +++|* (X4) = EST ORDINAL. 01239 M00S01094.dfterm +++|* 01240 M00S01095.dfterm +++|* EXIT (X3) = DAYFILE TYPE.
| Line S01096 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01241 M01S01096.ns22000 ---|* (X4) = EQUIPMENT NUMBER.
| Line S00023 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01242 M01S00023.ns22000 +++|* (X4) = EST ORDINAL. 01243 M00S01097.dfterm +++|* (X5) = 0 IF NO ERROR. 01244 M00S01098.dfterm +++|* = *K* DISPLAY MESSAGE ADDRESS IF ERROR. 01245 M00S01099.dfterm +++|* (B7) = 0 IF ERROR. 01246 M00S01100.dfterm +++|* (FMPC) = FAMILY/PACK NAME FOR PERMANENT DAYFILE. 01247 M00S01101.dfterm +++|* (APIN) = AUXILIARY PACK INFORMATION.
| Line S01102 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01248 M01S01102.ns22000 ---|* (GOPB) = EQUIPMENT NUMBER OF ACTIVE DAYFILE IF
| Line S00024 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01249 M01S00024.ns22000 +++|* (GOPB) = EST ORDINAL OF ACTIVE DAYFILE IF 01250 M00S01103.dfterm +++|* ACTIVE TERMINATION. 01251 M00S01104.dfterm +++|* 01252 M00S01105.dfterm +++|* USES A - 1, 6. 01253 M00S01106.dfterm +++|* B - 7. 01254 M00S01107.dfterm +++|* X - 0, 1, 2, 5, 6. 01255 M00S01108.dfterm +++|* 01256 M00S01109.dfterm +++|* CALLS SAD, VVD. 01257 M00S01110.dfterm +++| 01258 M00S01111.dfterm +++| 01259 M00S01112.dfterm +++| VED SUBR ENTRY/EXIT 01260 M00S01113.dfterm +++| 01261 M00S01114.dfterm +++|* VERIFY THAT DAYFILE MAY BE TERMINATED AS SPECIFIED. 01262 M00S01115.dfterm +++|
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | dfterm1 |
Seq # *Modification Id* Act ----------------------------+ 01263 M01S00004.dfterm1 +++| ZR X4,VED4 IF AN INVALID EST ORDINAL 01264 M00S01116.dfterm +++| RJ VVD VERIFY VALID DEVICE FOR DAYFILE 01265 M00S01117.dfterm +++| SB7 B0+ SET NO *K* DISPLAY BUFFER 01266 M00S01118.dfterm +++| NZ X5,VEDX IF VALIDITY ERROR 01267 M00S01119.dfterm +++| SA6 FMPC SAVE FAMILY/PACK NAME 01268 M00S01120.dfterm +++| ZR X2,VED2 IF INACTIVE DAYFILE TERMINATION 01269 M00S01121.dfterm +++| 01270 M00S01122.dfterm +++|* FIND ACTIVE DAYFILE FAMILY/PACK AND EQUIPMENT. 01271 M00S01123.dfterm +++| 01272 M00S01124.dfterm +++| SX6 X7-3 01273 M00S01125.dfterm +++| ZR X6,VEDX IF ACTIVE DAYFILE CURRENTLY ON DEVICE 01274 M00S01126.dfterm +++| RJ SAD SEARCH FOR ACTIVE DAYFILE 01275 M00S01127.dfterm +++| NZ B4,VED3 IF NO ACTIVE DAYFILE FOUND
| Line S01128 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01276 M01S01128.ns22000 ---| SX6 B2 SAVE ACTIVE DAYFILE EQUIPMENT NUMBER
| Line S00025 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01277 M01S00025.ns22000 +++| SX6 B2 SAVE ACTIVE DAYFILE EST ORDINAL 01278 M00S01129.dfterm +++| LX6 48 01279 M00S01130.dfterm +++| SX2 B1 01280 M00S01131.dfterm +++| BX6 X2+X6 01281 M00S01132.dfterm +++| SA6 GOPB 01282 M00S01133.dfterm +++| 01283 M00S01134.dfterm +++|* SET FAMILY/PACK INFORMATION. 01284 M00S01135.dfterm +++| 01285 M00S01136.dfterm +++| MX0 42 SAVE FAMILY/PACK NAME OF ACTIVE DAYFILE 01286 M00S01137.dfterm +++| BX6 X0*X1 01287 M00S01138.dfterm +++| LX1 -2 ADD AUXILIARY PACK FLAG 01288 M00S01139.dfterm +++| BX2 X2*X1 01289 M00S01140.dfterm +++| BX6 X6+X2 01290 M00S01141.dfterm +++| SA6 FMPC 01291 M00S01142.dfterm +++| BX5 X5-X5 SET NO ERROR 01292 M00S01143.dfterm +++| ZR X2,VED1 IF NOT AUXILIARY PACK 01293 M00S01144.dfterm +++| SA1 TMSA+B2 SET AUXILIARY PACK INFORMATION 01294 M00S01145.dfterm +++| MX0 48 01295 M00S01146.dfterm +++| BX1 X0*X1 01296 M00S01147.dfterm +++| SX6 B2 01297 M00S01148.dfterm +++| BX6 X1+X6 01298 M00S01149.dfterm +++| SA6 APIN 01299 M00S01150.dfterm +++| VED1 ZR X7,VEDX IF NO INACTIVE DAYFILE ON DEVICE 01300 M00S01151.dfterm +++| SX5 =C* INACTIVE DAYFILE ON DEVICE. * 01301 M00S01152.dfterm +++| EQ VEDX 01302 M00S01153.dfterm +++| 01303 M00S01154.dfterm +++|* CHECK FOR INACTIVE DAYFILE ON SPECIFIED DEVICE. 01304 M00S01155.dfterm +++| 01305 M00S01156.dfterm +++| VED2 SX6 X7-1 01306 M00S01157.dfterm +++| ZR X6,VEDX IF INACTIVE DAYFILE ON DEVICE 01307 M00S01158.dfterm +++| SX5 =C* INACTIVE DAYFILE NOT FOUND ON DEVICE.* 01308 M00S01159.dfterm +++| EQ VEDX 01309 M00S01160.dfterm +++| 01310 M00S01161.dfterm +++| VED3 SX5 =C* NO ACTIVE DAYFILE FOUND. * 01311 M00S01162.dfterm +++| EQ VEDX
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | dfterm1 |
Seq # *Modification Id* Act ----------------------------+ 01312 M01S00005.dfterm1 +++| 01313 M01S00006.dfterm1 +++| VED4 SX5 =C* INVALID DEVICE SPECIFIED. * 01314 M01S00007.dfterm1 +++| EQ VEDX RETURN 01315 M00S01163.dfterm +++| BDL TITLE SECONDARY SUBROUTINES. 01316 M00S01164.dfterm +++|** BDL - BUILD DAYFILE LINE. 01317 M00S01165.dfterm +++|* 01318 M00S01166.dfterm +++|* ENTRY (X1) = ADDRESS OF LIST CONTROL BLOCK. 01319 M00S01167.dfterm +++|* (X2) = ADDRESS OF AREA TO RECEIVE LIST LINE. 01320 M00S01168.dfterm +++|* 01321 M00S01169.dfterm +++|* EXIT (X6) = 0 IF LIST LINE AVAILABLE. 01322 M00S01170.dfterm +++|* = 1 IF END OF LIST. 01323 M00S01171.dfterm +++|* (X5) = 0 IF NO ERROR. 01324 M00S01172.dfterm +++|* = *K* DISPLAY MESSAGE ADDRESS IF ERROR. 01325 M00S01173.dfterm +++|* (B7) = 0 IF ERROR. 01326 M00S01174.dfterm +++|* 01327 M00S01175.dfterm +++|* USES A - 0, 1, 2, 5, 6, 7. 01328 M00S01176.dfterm +++|* B - 2, 3, 6, 7. 01329 M00S01177.dfterm +++|* X - 1, 2, 3, 5, 6, 7. 01330 M00S01178.dfterm +++|* 01331 M00S01179.dfterm +++|* CALLS DDD, EDI, FDE, GCD, RCE. 01332 M00S01180.dfterm +++| 01333 M00S01181.dfterm +++| 01334 M00S01182.dfterm +++| BDL SUBR ENTRY/EXIT 01335 M00S01183.dfterm +++| SA0 X1+B1 SET ADDRESS OF CATALOG LIST INDEX 01336 M00S01184.dfterm +++| SX6 X2 SAVE ADDRESS OF OUTPUT AREA 01337 M00S01185.dfterm +++| SA6 BDLA 01338 M00S01186.dfterm +++| SA2 A0 GET CATALOG LIST INDEX 01339 M00S01187.dfterm +++| SX1 X2 01340 M00S01188.dfterm +++| NZ X1,BDL2 IF NOT INITIALIZE CALL 01341 M00S01189.dfterm +++| 01342 M00S01190.dfterm +++|* INITIALIZE POINTERS FOR READING OF CATALOG. 01343 M00S01191.dfterm +++| 01344 M00S01192.dfterm +++| BDL1 SA1 A0 GET CATALOG LIST INDEX 01345 M00S01193.dfterm +++| SX6 B1 01346 M00S01194.dfterm +++| IX7 X1+X6 ADVANCE INDEX 01347 M00S01195.dfterm +++| SB2 X7 01348 M00S01196.dfterm +++| AX1 18 GET LIST LENGTH 01349 M00S01197.dfterm +++| SB3 X1+ 01350 M00S01198.dfterm +++| BX5 X5-X5 CLEAR ERROR FLAG 01351 M00S01199.dfterm +++| GT B2,B3,BDLX IF END OF CATALOG LIST 01352 M00S01200.dfterm +++| SA7 A1+ SAVE CATALOG LIST INDEX 01353 M00S01201.dfterm +++| RJ GCD GET CATALOG DESCRIPTION 01354 M00S01202.dfterm +++| MX2 43 SAVE FAMILY/PACK NAME 01355 M00S01203.dfterm +++| BX6 X2*X1 01356 M00S01204.dfterm +++| SA6 BDLB+2 01357 M00S01205.dfterm +++| BX2 -X2*X1 USER INDEX 01358 M00S01206.dfterm +++| LX1 X6 FAMILY/PACK NAME 01359 M00S01207.dfterm +++| RJ DDD DETERMINE DEFAULT DEVICE 01360 M00S01208.dfterm +++| SA5 A0+ CATALOG LIST INDEX 01361 M00S01209.dfterm +++| LX6 36 01362 M00S01210.dfterm +++| MX1 -36 CLEAR OLD DEFAULT DEVICE NUMBER 01363 M00S01211.dfterm +++| BX5 -X1*X5 01364 M00S01212.dfterm +++| BX6 X6+X5 01365 M00S01213.dfterm +++| SA6 A5 01366 M00S01214.dfterm +++| BX1 X1-X1 SET INITIAL CATALOG READ 01367 M00S01215.dfterm +++| 01368 M00S01216.dfterm +++|* OBTAIN CATALOG INFORMATION. 01369 M00S01217.dfterm +++| 01370 M00S01218.dfterm +++| BDL2 SA2 A0-1 GET FET ADDRESS 01371 M00S01219.dfterm +++| SB6 CENB ADDRESS OF AREA TO RECEIVE CATALOG ENTRY 01372 M00S01220.dfterm +++| RJ RCE READ A CATALOG ENTRY 01373 M00S01221.dfterm +++| NZ X5,BDLX IF ERROR DURING CATALOG 01374 M00S01222.dfterm +++| NZ X1,BDL1 IF CATALOG ENTRY NOT READ 01375 M00S01223.dfterm +++| SA1 CENB EXTRACT DAYFILE INFORMATION FROM CATALOG 01376 M00S01224.dfterm +++| SB2 BDLB 01377 M00S01225.dfterm +++| RJ EDI 01378 M00S01226.dfterm +++| SX1 B1+ SET FOR NON-INITIAL CATALOG READ 01379 M00S01227.dfterm +++| ZR X6,BDL2 IF NOT A DAYFILE 01380 M00S01228.dfterm +++| SA1 B2 CHECK DEVICE NUMBER 01381 M00S01229.dfterm +++| MX3 6 01382 M00S01230.dfterm +++| LX3 -42 01383 M00S01231.dfterm +++| BX6 X3*X1 01384 M00S01232.dfterm +++| NZ X6,BDL3 IF NON-ZERO DEVICE NUMBER 01385 M00S01233.dfterm +++| SA2 A0 SUBSTITUTE DEFAULT DEVICE NUMBER 01386 M00S01234.dfterm +++| LX2 -24 01387 M00S01235.dfterm +++| BX2 X3*X2 01388 M00S01236.dfterm +++| BX6 X1+X2 01389 M00S01237.dfterm +++| SA6 A1+ 01390 M00S01238.dfterm +++| 01391 M00S01239.dfterm +++|* FORMAT DAYFILE ENTRY. 01392 M00S01240.dfterm +++| 01393 M00S01241.dfterm +++| BDL3 SB6 B2 DAYFILE INFORMATION 01394 M00S01242.dfterm +++| SA1 BDLA OUTPUT ADDRESS 01395 M00S01243.dfterm +++| SB7 X1 01396 M00S01244.dfterm +++| RJ FDE FORMAT DAYFILE ENTRY 01397 M00S01245.dfterm +++| BX6 X6-X6 SET LINE AVAILABLE STATUS 01398 M00S01246.dfterm +++| BX5 X5-X5 CLEAR ERROR FLAG 01399 M00S01247.dfterm +++| EQ BDLX EXIT 01400 M00S01248.dfterm +++| 01401 M00S01249.dfterm +++| BDLA CON 0 OUTPUT STRING ADDRESS 01402 M00S01250.dfterm +++| BDLB BSS 3 DAYFILE ENTRY BUFFER 01403 M00S01251.dfterm +++| CAN SPACE 4,16 01404 M00S01252.dfterm +++|** CAN - CHECK CATALOG FOR AVAILABLE NAME. 01405 M00S01253.dfterm +++|* 01406 M00S01254.dfterm +++|* ENTRY (SNAM) = USER SPECIFIED NAME. 01407 M00S01255.dfterm +++|* (ANAM) = SKELETON OF AUTOMATIC ASSIGNMENT NAME. 01408 M00S01256.dfterm +++|* 01409 M00S01257.dfterm +++|* EXIT (CANB) = AUTOMATIC ASSIGNMENT SEQUENCE CHARACTER MASK. 01410 M00S01258.dfterm +++|* (SNAM) = 1 IF DUPLICATE SPECIFIED NAME. 01411 M00S01259.dfterm +++|* (X5) = 0 IF NO ERROR. 01412 M00S01260.dfterm +++|* = *K* DISPLAY MESSAGE ADDRESS IF ERROR. 01413 M00S01261.dfterm +++|* (B7) = 0 IF ERROR. 01414 M00S01262.dfterm +++|* 01415 M00S01263.dfterm +++|* USES A - 2, 3, 4, 6. 01416 M00S01264.dfterm +++|* B - 3, 6. 01417 M00S01265.dfterm +++|* X - ALL. 01418 M00S01266.dfterm +++|* 01419 M00S01267.dfterm +++|* CALLS RCE. 01420 M00S01268.dfterm +++| 01421 M00S01269.dfterm +++| 01422 M00S01270.dfterm +++| CAN SUBR ENTRY/EXIT 01423 M00S01271.dfterm +++| BX6 X6-X6 CLEAR MASK 01424 M00S01272.dfterm +++| SA6 CANB 01425 M00S01273.dfterm +++| 01426 M00S01274.dfterm +++|* READ CATALOG ENTRIES. 01427 M00S01275.dfterm +++| 01428 M00S01276.dfterm +++| BX1 X1-X1 SET INITIAL CALL FOR CATALOG READ 01429 M00S01277.dfterm +++| CAN1 SX2 C READ CATALOG ENTRY 01430 M00S01278.dfterm +++| SB6 CENB 01431 M00S01279.dfterm +++| RJ RCE 01432 M00S01280.dfterm +++| NZ X5,CANX IF ERROR ON INITIAL CATALOG 01433 M00S01281.dfterm +++| NZ X1,CANX IF END OF CATALOG ENTRIES 01434 M00S01282.dfterm +++| SA3 CENB CHECK NAME 01435 M00S01283.dfterm +++| 01436 M00S01284.dfterm +++|* CHECK FOR DUPLICATE SPECIFIED NAME. 01437 M00S01285.dfterm +++| 01438 M00S01286.dfterm +++| SA4 SNAM CHECK SPECIFIED NAME 01439 M00S01287.dfterm +++| ZR X4,CAN2 IF NONE SPECIFIED 01440 M00S01288.dfterm +++| MX0 42 01441 M00S01289.dfterm +++| BX6 X3-X4 01442 M00S01290.dfterm +++| BX7 X0*X6 01443 M00S01291.dfterm +++| SX6 B1 SET FLAG 01444 M00S01292.dfterm +++| NZ X7,CAN2 IF NOT A DUPLICATE 01445 M00S01293.dfterm +++| SA6 A4+ 01446 M00S01294.dfterm +++| 01447 M00S01295.dfterm +++|* BUILD AUTOMATIC SEQUENCE CHARACTER MASK. 01448 M00S01296.dfterm +++| 01449 M00S01297.dfterm +++| CAN2 SA4 CANA CHECK FOR PERMANENT DAYFILES 01450 M00S01298.dfterm +++| SA2 ANAM 01451 M00S01299.dfterm +++| BX4 X4*X3 01452 M00S01300.dfterm +++| BX1 X4-X2 01453 M00S01301.dfterm +++| NZ X1,CAN1 IF NOT PERMANENT DAYFILE 01454 M00S01302.dfterm +++| AX3 42 SET UP MASK FOR SEQUENCE LETTER 01455 M00S01303.dfterm +++| MX0 -6 01456 M00S01304.dfterm +++| BX5 -X0*X3 01457 M00S01305.dfterm +++| SB3 X5 01458 M00S01306.dfterm +++| MX4 1 01459 M00S01307.dfterm +++| LX1 X4,B3 01460 M00S01308.dfterm +++| SA3 A4+B1 PREVIOUS SEQUENCE CHARACTER MASK 01461 M00S01309.dfterm +++| BX6 X3+X1 ADD SEQUENCE CHARACTER TO MASK 01462 M00S01310.dfterm +++| SA6 A3 01463 M00S01311.dfterm +++| EQ CAN1 LOOP FOR NEXT CATALOG 01464 M00S01312.dfterm +++| 01465 M00S01313.dfterm +++| CANA CON 77770077777777000000B 01466 M00S01314.dfterm +++| CANB CON 0 SEQUENCE CHARACTER MASK 01467 M00S01315.dfterm +++| CDN SPACE 4,10 01468 M00S01316.dfterm +++|** CDN - CATAGORIZE DAYFILE NAME. 01469 M00S01317.dfterm +++|* 01470 M00S01318.dfterm +++|* ENTRY (X1) = 42/DAYFILE NAME, 18/ 01471 M00S01319.dfterm +++|* 01472 M00S01320.dfterm +++|* EXIT (X1) = UNCHANGED. 01473 M00S01321.dfterm +++|* (X6) = DAYFILE TYPE CODE. 01474 M00S01322.dfterm +++|* = 0 IF NOT A DAYFILE NAME. 01475 M00S01323.dfterm +++|* 01476 M00S01324.dfterm +++|* USES A - 2, 7. 01477 M00S01325.dfterm +++|* X - 2, 3, 6, 7. 01478 M00S01326.dfterm +++| 01479 M00S01327.dfterm +++| 01480 M00S01328.dfterm +++| CDN SUBR ENTRY/EXIT 01481 M00S01329.dfterm +++| SX6 TDNKL SET TO END OF KEY TABLE 01482 M00S01330.dfterm +++| SX3 B1+ 01483 M00S01331.dfterm +++| MX2 12 SAVE KEY PART OF DAYFILE NAME 01484 M00S01332.dfterm +++| BX7 X2*X1 01485 M00S01333.dfterm +++| SA7 TDNK 01486 M00S01334.dfterm +++| 01487 M00S01335.dfterm +++|* FIND NAME KEY IN TABLE. 01488 M00S01336.dfterm +++| 01489 M00S01337.dfterm +++| CDN1 IX6 X6-X3 DECREMENT TABLE INDEX 01490 M00S01338.dfterm +++| SA2 TDNK+X6 GET KEY FROM TABLE 01491 M00S01339.dfterm +++| BX2 X2-X7 COMPARE FILE NAME KEY WITH TABLE KEY 01492 M00S01340.dfterm +++| NZ X2,CDN1 IF NO MATCH 01493 M00S01341.dfterm +++| EQ CDNX 01494 M00S01342.dfterm +++| DDD SPACE 4,11 01495 M00S01343.dfterm +++|** DDD - DETERMINE DEFAULT DEVICE. 01496 M00S01344.dfterm +++|* 01497 M00S01345.dfterm +++|* ENTRY (X1) = FAMILY/PACK NAME. 01498 M00S01346.dfterm +++|* (X2) = USER INDEX. 01499 M00S01347.dfterm +++|* 01500 M00S01348.dfterm +++|* EXIT (X6) = DEFAULT DEVICE NUMBER. 01501 M00S01349.dfterm +++|* = 0 IF NONE FOUND OR IF AUXILIARY PACK. 01502 M00S01350.dfterm +++|* 01503 M00S01351.dfterm +++|* USES A - 2, 3. 01504 M00S01352.dfterm +++|* B - 2, 3. 01505 M00S01353.dfterm +++|* X - 2, 3, 6. 01506 M00S01354.dfterm +++| 01507 M00S01355.dfterm +++| 01508 M00S01356.dfterm +++| DDD SUBR ENTRY/EXIT 01509 M00S01357.dfterm +++| BX6 X6-X6 INITIALIZE DEFAULT DEVICE NUMBER 01510 M00S01358.dfterm +++| SX3 X1 01511 M00S01359.dfterm +++| NZ X3,DDDX IF AUXILIARY DEVICE 01512 M00S01360.dfterm +++| 01513 M00S01361.dfterm +++|* GET USER INDEX MASK BITS. 01514 M00S01362.dfterm +++| 01515 M00S01363.dfterm +++| MX6 -3 01516 M00S01364.dfterm +++| BX2 -X6*X2 01517 M00S01365.dfterm +++| SB2 X2-59 MASK TEST SHIFT COUNT
| Line S01366 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01518 M01S01366.ns22000 ---| SB3 B0+ EQUIPMENT NUMBER
| Line S00026 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01519 M01S00026.ns22000 +++| SB3 B0+ EST ORDINAL 01520 M00S01367.dfterm +++| 01521 M00S01368.dfterm +++|* CHECK FOR CORRECT FAMILY NAME. 01522 M00S01369.dfterm +++| 01523 M00S01370.dfterm +++| DDD1 SA2 TEQA+B3 GET ENTRY FOR EQUIPMENT B3 01524 M00S01371.dfterm +++| ZR X2,DDDX IF END OF TABLE
| Line S01372 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01525 M01S01372.ns22000 ---| SB3 B3+B1 ADVANCE EQUIPMENT NUMBER
| Line S00027 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01526 M01S00027.ns22000 +++| SB3 B3+B1 ADVANCE EST ORDINAL 01527 M00S01373.dfterm +++| SX3 -B1 01528 M00S01374.dfterm +++| IX3 X2-X3 01529 M00S01375.dfterm +++| MX6 42 01530 M00S01376.dfterm +++| ZR X3,DDD1 IF NOT MASS STORAGE EQUIPMENT 01531 M00S01377.dfterm +++| BX3 X6*X2 01532 M00S01378.dfterm +++| IX6 X1-X3 01533 M00S01379.dfterm +++| NZ X6,DDD1 IF NOT CORRECT FAMILY 01534 M00S01380.dfterm +++| 01535 M00S01381.dfterm +++|* CHECK FOR USER INDEX ON DEVICE. 01536 M00S01382.dfterm +++| 01537 M00S01383.dfterm +++| SA3 TMSA+B3-1 GET DEVICE MASK FOR EQUIPMENT B3-1 01538 M00S01384.dfterm +++| AX6 X3,B2 01539 M00S01385.dfterm +++| AX2 12 GET DEVICE NUMBER 01540 M00S01386.dfterm +++| PL X6,DDD1 IF USER INDEX NOT ON THIS DEVICE 01541 M00S01387.dfterm +++| MX3 -6 01542 M00S01388.dfterm +++| BX6 -X3*X2 01543 M00S01389.dfterm +++| EQ DDDX 01544 M00S01390.dfterm +++| EDI SPACE 4,24 01545 M00S01391.dfterm +++|** EDI - EXTRACT DAYFILE INFORMATION. 01546 M00S01392.dfterm +++|* 01547 M00S01393.dfterm +++|* ENTRY (A1) = ADDRESS OF CATALOG ENTRY TO EXTRACT INFORMATION 01548 M00S01394.dfterm +++|* FROM. 01549 M00S01395.dfterm +++|* (X1) = FIRST WORD OF CATALOG ENTRY. 01550 M00S01396.dfterm +++|* (B2) = ADDRESS OF 2 WORD BLOCK TO RECEIVE DAYFILE 01551 M00S01397.dfterm +++|* INFORMATION. 01552 M00S01398.dfterm +++|* 01553 M00S01399.dfterm +++|* EXIT (B2) = UNCHANGED. 01554 M00S01400.dfterm +++|* (X6) = DAYFILE TYPE CODE. 01555 M00S01401.dfterm +++|* = 0 IF NOT A DAYFILE CATALOG ENTRY. 01556 M00S01402.dfterm +++|* DATA BLOCK SET UP AS FOLLOWS AT ADDRESS (B2). 01557 M00S01403.dfterm +++|* 42/DAYFILE NAME, 6/DN, 12/DC 01558 M00S01404.dfterm +++|* 24/LF, 18/CD, 18/CT 01559 M00S01405.dfterm +++|* DN = DEVICE NUMBER OF DAYFILE. 01560 M00S01406.dfterm +++|* DC = DAYFILE TYPE CODE. 01561 M00S01407.dfterm +++|* LF = LENGTH OF DAYFILE. 01562 M00S01408.dfterm +++|* CD = PACKED CREATION DATE. 01563 M00S01409.dfterm +++|* CT = PACKED CREATION TIME. 01564 M00S01410.dfterm +++|* 01565 M00S01411.dfterm +++|* USES A - 2, 3, 6, 7. 01566 M00S01412.dfterm +++|* X - 1, 2, 3, 6, 7. 01567 M00S01413.dfterm +++|* 01568 M00S01414.dfterm +++|* CALLS CDN. 01569 M00S01415.dfterm +++| 01570 M00S01416.dfterm +++| 01571 M00S01417.dfterm +++| EDI SUBR ENTRY/EXIT 01572 M00S01418.dfterm +++| 01573 M00S01419.dfterm +++|* PACK NAME AND DEVICE NUMBER. 01574 M00S01420.dfterm +++| 01575 M00S01421.dfterm +++| MX6 42 GET FILE NAME 01576 M00S01422.dfterm +++| BX1 X6*X1 01577 M00S01423.dfterm +++| SA2 A1+4 GET DEVICE NUMBER 01578 M00S01424.dfterm +++| MX6 6 01579 M00S01425.dfterm +++| LX6 -18 01580 M00S01426.dfterm +++| BX2 X6*X2 01581 M00S01427.dfterm +++| LX2 -24 PACK FILE NAME AND DEVICE NUMBER 01582 M00S01428.dfterm +++| BX1 X1+X2 01583 M00S01429.dfterm +++| 01584 M00S01430.dfterm +++|* PACK LENGTH, DATE, AND TIME. 01585 M00S01431.dfterm +++| 01586 M00S01432.dfterm +++| SA2 A1+B1 GET FILE LENGTH
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/dfterm.txt · Last modified: (external edit)