测试

* Class
TYPES: BEGIN OF TCLASS,
         SCANNED(1),
         CLSNAME LIKE VSEOCLASS-CLSNAME,
         DESCRIPT LIKE VSEOCLASS-DESCRIPT,
         MSG_ID LIKE VSEOCLASS-MSG_ID,
         EXPOSURE LIKE VSEOCLASS-EXPOSURE,
         STATE LIKE VSEOCLASS-STATE,
         CLSFINAL LIKE VSEOCLASS-CLSFINAL,
         R3RELEASE LIKE VSEOCLASS-R3RELEASE,
         IMETHODS TYPE TMETHOD OCCURS 0,
         IDICTSTRUCT TYPE TDICTTABLE OCCURS 0,
         ITEXTELEMENTS TYPE TTEXTTABLE OCCURS 0,
         IMESSAGES TYPE TMESSAGE OCCURS 0,
         ICONCEPTS TYPE TCONCEPT OCCURS 0,
         TEXTELEMENTKEY TYPE STRING,
         PUBLICCLASSKEY TYPE STRING,
         PRIVATECLASSKEY TYPE STRING,
         PROTECTEDCLASSKEY TYPE STRING,
         TYPESCLASSKEY TYPE STRING,
         EXCEPTIONCLASS TYPE I,
       END OF TCLASS.