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