EGL 源格式的程序部件

可以在 EGL 文件中声明程序部件,EGL 源格式对该部件作了描述。当您编写该文件时,执行下列操作:
下一个示例显示了一个带有两个嵌入函数以及一个独立函数和一个独立记录部件的被调用程序部件:
  Program myProgram type basicProgram (employeeNum INT)
  { 
    includeReferencedFunctions = yes
  }

    // program-global variables
      employees record_ws;
      employeeName char(20);


    // a required embedded function
    Function main() 
      // initialize employee names
      recd_init();

      // get the correct employee name
      // based on the employeeNum passed
      employeeName = getEmployeeName(employeeNum);
    end

    
    // another embedded function
    Function recd_init()
      employees.name[1] = "Employee 1";
      employees.name[2] = "Employee 2";
    end

      end

    
  // stand-alone function
  Function getEmployeeName(employeeNum INT) returns (CHAR(20))

    // local variable
    index BIN(4);
    index = 2;
    if (employeeNum > index)
      return("Error");
    else
      return(employees.name[employeeNum]);
    end

    
  end

    
  // record part that acts as a typeDef for employees
  Record record_ws type basicRecord
    10 name CHAR(20)[2];
  end

    

有关其它详细信息,请参阅特定类型的程序的主题。

相关概念
部件
程序部件

相关参考

EGL 源格式的基本程序
EGL 源格式
EGL 源格式的函数部件
EGL 源格式的文本用户界面程序

使用条款 | 反馈
(C) Copyright IBM Corporation 2000, 2005. All Rights Reserved.