Seq # *Modification Id* Act
----------------------------+
00001 M00S00001.compvfc +++| CTEXT COMPVFC - VERIFY FORMS CODE.
00002 M00S00002.compvfc +++| SPACE 4
00003 M00S00003.compvfc +++| IF -DEF,QUAL$,1
00004 M00S00004.compvfc +++| QUAL COMPVFC
| Line S00005 Modification History |
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00005 M01S00005.281l803 ---|* COMMENT COPYRIGHT CONTROL DATA CORP. 1975.
| Line S00001 Modification History |
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00006 M01S00001.281l803 +++|* COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00007 M00S00006.compvfc +++| BASE MIXED
00008 M00S00007.compvfc +++| SPACE 4
00009 M00S00008.compvfc +++|*** COMPVFC - VERIFY FORMS CODE.
00010 M00S00009.compvfc +++|* R. A. JAPS. 75/12/01.
00011 M00S00010.compvfc +++| SPACE 4
00012 M00S00011.compvfc +++|** VFC - VERIFY FORMS CODE.
00013 M00S00012.compvfc +++|*
00014 M00S00013.compvfc +++|* *VFC* CHECKS THE FORMS CODE FOR VALIDITY. THE FORMS
00015 M00S00014.compvfc +++|* CODE MUST BE TWO ALPHANUMERIC CHARACTERS OR ZERO.
00016 M00S00015.compvfc +++|*
00017 M00S00016.compvfc +++|* ENTRY (A) = FORMS CODE.
00018 M00S00017.compvfc +++|*
00019 M00S00018.compvfc +++|* EXIT (A) = -0, IF FORMS CODE NOT ALPHANUMERIC.
00020 M00S00019.compvfc +++|* (A) = FORMS CODE IF VALID.
00021 M00S00020.compvfc +++|* (T1) = FORMS CODE.
00022 M00S00021.compvfc +++|*
00023 M00S00022.compvfc +++|* USES T1.
00024 M00S00023.compvfc +++|
00025 M00S00024.compvfc +++|
00026 M00S00025.compvfc +++| VFC2 LCN 0 FLAG INVALID FORMS CODE
00027 M00S00026.compvfc +++|
00028 M00S00027.compvfc +++| VFC SUBR ENTRY/EXIT
00029 M00S00028.compvfc +++| STD T1 SAVE FORMS CODE
00030 M00S00029.compvfc +++| ZJN VFCX IF NULL FORMS CODE
00031 M00S00030.compvfc +++| SHN -6 CHECK FIRST CHARACTER
00032 M00S00031.compvfc +++| ZJN VFC2 IF NO CHARACTER
00033 M00S00032.compvfc +++| SBN 1R9+1
00034 M00S00033.compvfc +++| PJN VFC2 IF NOT ALPHANUMERIC
00035 M00S00034.compvfc +++| LDD T1 CHECK SECOND CHARACTER
00036 M00S00035.compvfc +++| LPN 77
00037 M00S00036.compvfc +++| ZJN VFC2 IF NO CHARACTER
00038 M00S00037.compvfc +++| SBN 1R9+1
00039 M00S00038.compvfc +++| PJN VFC2 IF NOT ALPHANUMERIC
00040 M00S00039.compvfc +++| LDD T1 RETURN FORMS CODE
00041 M00S00040.compvfc +++| UJN VFCX RETURN
00042 M00S00041.compvfc +++| SPACE 4
00043 M00S00042.compvfc +++| BASE *
00044 M00S00043.compvfc +++| QUAL$ IF -DEF,QUAL$
00045 M00S00044.compvfc +++| QUAL *
00046 M00S00045.compvfc +++| VFC EQU /COMPVFC/VFC
00047 M00S00046.compvfc +++| QUAL$ ENDIF
00048 M00S00047.compvfc +++| ENDX