BDL-FGL_BASE基本语法(base.TypeInfo)

base.TypeInfo 从程序值创建DOM文档

 

方法：

类方法

create(variable) RETURNING om.DomNode               返回DOM文档

 

使用步骤：

不需要先创建对象，直接调用该类的方法

 

示例：

view plaincopy to clipboardprint?
#base.TypeInfo.4gl    
MAIN     
   DEFINE nod   om.DomNode     
   DEFINE XML    RECORD     
                  KEY   INTEGER,     
                  NAME  CHAR(20),     
                  VALUE DATE     
                 END RECORD     
    LET xml.KEY = 'lee'     
    LET xml.NAME= 'yihui'     
    LET xml.VALUE=MDY(2,13,1986)     
    LET nod = base.TypeInfo.create(xml)       #RECORD变量生成XML    
    CALL nod.writeXml("../4gl/employee.xml")      
      
    LET nod = base.TypeInfo.create(xml.key)   #单变量生成XML    
    CALL nod.writeXml("../4gl/key.xml")   
END MAIN  
#base.TypeInfo.4gl 
MAIN   
   DEFINE nod   om.DomNode   
   DEFINE XML    RECORD   
                  KEY   INTEGER,   
                  NAME  CHAR(20),   
                  VALUE DATE   
                 END RECORD   
    LET xml.KEY = 'lee'   
    LET xml.NAME= 'yihui'   
    LET xml.VALUE=MDY(2,13,1986)   
    LET nod = base.TypeInfo.create(xml)       #RECORD变量生成XML 
    CALL nod.writeXml("../4gl/employee.xml")    
    
    LET nod = base.TypeInfo.create(xml.key)   #单变量生成XML 
    CALL nod.writeXml("../4gl/key.xml") 
END MAIN


运行：<topprod:/u1/usr/lee/4gl/42m> fglrun 4gl_base.TypeInfo.42m

结果：可以在../4gl目录下面已经生成了xml文件employee.xml、key.xml，内容如下：

<?xml version='1.0' encoding='UTF-8'?>   
<Record>                                      <!--RECORD变量生成XML --> 
  <Field type="INTEGER" value="0" name="KEY"/><!--注意KEY为INTEGER,赋值为字符所以默认为了0--> 
  <Field type="CHAR(20)" value="yihui" name="NAME"/>   
  <Field type="DATE" value="86/02/13" name="VALUE"/>   
</Record> 
 

<?xml version='1.0' encoding='UTF-8'?>    <!--单变量生成XML    --> 
<Field type="INTEGER" value="0" />        <!--注意KEY为INTEGER，赋值为字符所以默认为了0 -->
 

转载请注明：赫非域 » BDL-FGL_BASE基本语法(base.TypeInfo)