Common COMPVFC

Library Member Format: MODIFY

Source

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