cdc:nos2.source:opl.opl871:common:compvfn
Common COMPVFN
2 Modifications
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.compvfn +++| CTEXT COMPVFN - VERIFY FILE NAME. 00002 M01S00002.compvfn +++| IF -DEF,QUAL$,1 00003 M01S00003.compvfn +++| QUAL COMPVFN 00004 M01S00001.281l803 +++|* COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00005 M01S00004.compvfn +++| VFN SPACE 4 00006 M01S00005.compvfn +++|*** VFN - VERIFY FILE NAME. 00007 M01S00006.compvfn +++|* G. R. MANSFIED. 09/27/69. 00008 M01S00007.compvfn +++| VFN SPACE 4 00009 M01S00008.compvfn +++|*** VFN CHECKS THE FILE NAME FOR LEGALITY. 00010 M01S00009.compvfn +++|* THE FILE NAME MUST BE 1-7 ALPHA/NUMERIC CHARACTERS LEFT 00011 M01S00010.compvfn +++|* JUSTIFIED WITH TRAILING 0 FILL. 00012 M01S00001.ns2640 +++|* 00013 M01S00011.compvfn +++|* ENTRY (FN - FN+3) = FILE NAME.
Line S00012 Modification History | |
---|---|
M01 (Added by) | compvfn |
M02 (Updated by) | ns2640 |
Seq # *Modification Id* Act ----------------------------+ 00014 M02S00012.ns2640 ---|* EXIT (A) " 0 IF FILE NAME IN CORRECT FORMAT. 00015 M01S00002.ns2640 +++|* 00016 M01S00003.ns2640 +++|* EXIT (A) .NE. 0 IF FILE NAME IN CORRECT FORMAT. 00017 M01S00004.ns2640 +++|* 00018 M01S00013.compvfn +++|* USES T1. 00019 M01S00005.ns2640 +++|* 00020 M01S00006.ns2640 +++|* NOTE - IF *VFN$* IS DEFINED, THE ASTERISK (*) IS ALLOWED AS 00021 M01S00007.ns2640 +++|* A VALID CHARACTER IN THE FILE NAME. 00022 M01S00014.compvfn +++| 00023 M01S00015.compvfn +++| 00024 M01S00008.ns2640 +++| VFN2 LDI T1 CHECK REMAINDER OF NAME 00025 M01S00009.ns2640 +++| NJN VFN4 IF NOT BLANK 00026 M01S00010.ns2640 +++| VFN3 AOD T1 00027 M01S00011.ns2640 +++| LMN FN+3 00028 M01S00012.ns2640 +++| NJN VFN2 IF CHARACTERS 1 - 6 00029 M01S00013.ns2640 +++| LDD FN+3 CHECK 7TH CHARACTER 00030 M01S00014.ns2640 +++| SHN -6 00031 M01S00015.ns2640 +++| NJN VFN4 IF NOT BLANK 00032 M01S00016.ns2640 +++| LDD FN CHECK FIRST BYTE 00033 M01S00017.ns2640 +++| UJN VFNX RETURN 00034 M01S00018.ns2640 +++| 00035 M01S00016.compvfn +++| VFN4 LDN 0 RETURN WITH (A) = 0 00036 M01S00017.compvfn +++| 00037 M01S00018.compvfn +++| VFN SUBR ENTRY/EXIT 00038 M01S00019.compvfn +++| LDN FN SET BYTE ADDRESS 00039 M01S00020.compvfn +++| STD T1 00040 M01S00021.compvfn +++| VFN1 LDI T1 CHECK UPPER CHRACTER 00041 M01S00022.compvfn +++| SHN -6 00042 M01S00023.compvfn +++| ZJN VFN2 IF BLANK 00043 M01S00024.compvfn +++| SBN 1R9+1 00044 M01S00019.ns2640 +++| VFN$ IF -DEF,VFN$ 00045 M01S00025.compvfn +++| PJN VFN4 IF NOT ALPHA/NUMERIC
Line S00026 Modification History | |
---|---|
M01 (Added by) | compvfn |
M02 (Updated by) | ns2640 |
Seq # *Modification Id* Act ----------------------------+ 00046 M02S00026.ns2640 ---| LDI T1 CHECK LOWER CHARACTER 00047 M01S00020.ns2640 +++| VFN$ ELSE 00048 M01S00021.ns2640 +++| MJN VFN1.1 IF ALPHANUMERIC 00049 M01S00022.ns2640 +++| SBN 1R*-1R9-1 00050 M01S00023.ns2640 +++| NJN VFN4 IF NOT +*+ 00051 M01S00024.ns2640 +++| VFN$ ENDIF 00052 M01S00025.ns2640 +++| VFN1.1 LDI T1 CHECK LOWER CHARACTER 00053 M01S00027.compvfn +++| LPN 77 00054 M01S00028.compvfn +++| ZJN VFN3 IF BLANK 00055 M01S00029.compvfn +++| SBN 1R9+1 00056 M01S00026.ns2640 +++| VFN$ IF -DEF,VFN$ 00057 M01S00030.compvfn +++| PJN VFN4 IF NOT ALPHA/NUMERIC
Line S00031 Modification History | |
---|---|
M01 (Added by) | compvfn |
M02 (Updated by) | ns2640 |
Seq # *Modification Id* Act ----------------------------+ 00058 M02S00031.ns2640 ---| AOD T1 ADVANCE BYTE ADDRESS 00059 M01S00027.ns2640 +++| VFN$ ELSE 00060 M01S00028.ns2640 +++| MJN VFN1.2 IF ALPHANUMERIC 00061 M01S00029.ns2640 +++| SBN 1R*-1R9-1 00062 M01S00030.ns2640 +++| NJN VFN4 IF NOT +*+ 00063 M01S00031.ns2640 +++| VFN$ ENDIF 00064 M01S00032.ns2640 +++| VFN1.2 AOD T1 ADVANCE BYTE ADDRESS 00065 M01S00032.compvfn +++| LMN FN+3 00066 M01S00033.compvfn +++| NJN VFN1 LOOP FOR 6 CHARACTERS 00067 M01S00034.compvfn +++| LDD FN+3 CHECK 7TH CHARACTER 00068 M01S00035.compvfn +++| SHN -6 00069 M01S00036.compvfn +++| SBN 1R9+1 00070 M01S00037.compvfn +++| MJN VFNX RETURN IF ALPHA/NUMERIC 00071 M01S00033.ns2640 +++| VFN$ IF DEF,VFN$ 00072 M01S00034.ns2640 +++| SBN 1R*-1R9-1 00073 M01S00035.ns2640 +++| NJN VFN4 IF NOT +*+ 00074 M01S00036.ns2640 +++| LDN 1 INDICATE SUCCESS 00075 M01S00037.ns2640 +++| UJN VFNX RETURN 00076 M01S00038.ns2640 +++| VFN$ ELSE 00077 M01S00038.compvfn +++| UJN VFN4 PROCESS ERROR
Line S00039 Modification History | |
---|---|
M01 (Added by) | compvfn |
M02 (Updated by) | ns2640 |
Seq # *Modification Id* Act ----------------------------+ 00078 M02S00039.ns2640 ---| VFN2 LDI T1 CHECK REMAINDER OF NAME
Line S00040 Modification History | |
---|---|
M01 (Added by) | compvfn |
M02 (Updated by) | ns2640 |
Seq # *Modification Id* Act ----------------------------+ 00079 M02S00040.ns2640 ---| NJN VFN4 IF NOT BLANK
Line S00041 Modification History | |
---|---|
M01 (Added by) | compvfn |
M02 (Updated by) | ns2640 |
Seq # *Modification Id* Act ----------------------------+ 00080 M02S00041.ns2640 ---| VFN3 AOD T1
Line S00042 Modification History | |
---|---|
M01 (Added by) | compvfn |
M02 (Updated by) | ns2640 |
Seq # *Modification Id* Act ----------------------------+ 00081 M02S00042.ns2640 ---| LMN FN+3
Line S00043 Modification History | |
---|---|
M01 (Added by) | compvfn |
M02 (Updated by) | ns2640 |
Seq # *Modification Id* Act ----------------------------+ 00082 M02S00043.ns2640 ---| NJN VFN2 LOOP FOR 6 CHARACTERS
Line S00044 Modification History | |
---|---|
M01 (Added by) | compvfn |
M02 (Updated by) | ns2640 |
Seq # *Modification Id* Act ----------------------------+ 00083 M02S00044.ns2640 ---| LDD FN+3 CHECK 7TH CHARACTER
Line S00045 Modification History | |
---|---|
M01 (Added by) | compvfn |
M02 (Updated by) | ns2640 |
Seq # *Modification Id* Act ----------------------------+ 00084 M02S00045.ns2640 ---| SHN -6
Line S00046 Modification History | |
---|---|
M01 (Added by) | compvfn |
M02 (Updated by) | ns2640 |
Seq # *Modification Id* Act ----------------------------+ 00085 M02S00046.ns2640 ---| NJN VFN4 IF NOT BLANK
Line S00047 Modification History | |
---|---|
M01 (Added by) | compvfn |
M02 (Updated by) | ns2640 |
Seq # *Modification Id* Act ----------------------------+ 00086 M02S00047.ns2640 ---| LDD FN CHECK FIRST BYTE
Line S00048 Modification History | |
---|---|
M01 (Added by) | compvfn |
M02 (Updated by) | ns2640 |
Seq # *Modification Id* Act ----------------------------+ 00087 M02S00048.ns2640 ---| UJN VFNX RETURN 00088 M01S00039.ns2640 +++| VFN$ ENDIF 00089 M01S00049.compvfn +++| SPACE 4 00090 M01S00050.compvfn +++| QUAL$ IF -DEF,QUAL$ 00091 M01S00051.compvfn +++| QUAL * 00092 M01S00052.compvfn +++| VFN EQU /COMPVFN/VFN 00093 M01S00053.compvfn +++| QUAL$ ENDIF 00094 M01S00054.compvfn +++| ENDX
cdc/nos2.source/opl.opl871/common/compvfn.txt ยท Last modified: by 127.0.0.1