Ibm midrange 从rpgle程序返回字符串

我想从rpgle程序返回字符串

/free 
return 'this is simple text';
/end-free

---

请给我一段代码。程序对象必须通过参数返回值。如果要使用

return

op code返回值，则需要使用子过程。子过程可以包含在程序对象或服务程序对象中。如果要与多个程序共享子过程，应使用服务程序。以下是定义服务程序中使用的子过程的方式：

dcl-proc MyProcedure Export;
  dcl-pi *n Varchar(25);
  end-pi;

  return 'this is simple text';
end-proc;  

如果只是在程序中定义子过程，则需要省略

Export

关键字

要调用子过程，您可以使用以下方法：

dcl-s string     Varchar(25);

string = MyProcedure();

ctl-opt DftActGrp(*No) ActGrp(*Caller)
        Main(MyProgram);

dcl-proc MyProgram;
  dcl-pi *n;
    string        Varchar(25);
  end-pi;

  string = 'this is a simple string';
  return;
end-proc;

dcl-s string      Varchar(25);

dcl-pr MyProgram ExtPgm('MYPROGRAM');
  str          Varchar(25);
end-pr;

MyProgram(string);

从程序返回一个值 如果确实要从程序返回值，则必须使用以下参数：

dcl-s string     Varchar(25);

string = MyProcedure();

ctl-opt DftActGrp(*No) ActGrp(*Caller)
        Main(MyProgram);

dcl-proc MyProgram;
  dcl-pi *n;
    string        Varchar(25);
  end-pi;

  string = 'this is a simple string';
  return;
end-proc;

dcl-s string      Varchar(25);

dcl-pr MyProgram ExtPgm('MYPROGRAM');
  str          Varchar(25);
end-pr;

MyProgram(string);

要调用该程序，您可以使用以下内容：

dcl-s string     Varchar(25);

string = MyProcedure();

ctl-opt DftActGrp(*No) ActGrp(*Caller)
        Main(MyProgram);

dcl-proc MyProgram;
  dcl-pi *n;
    string        Varchar(25);
  end-pi;

  string = 'this is a simple string';
  return;
end-proc;

dcl-s string      Varchar(25);

dcl-pr MyProgram ExtPgm('MYPROGRAM');
  str          Varchar(25);
end-pr;

MyProgram(string);

---

程序对象必须通过参数返回值。如果要使用

return

op code返回值，则需要使用子过程。子过程可以包含在程序对象或服务程序对象中。如果要与多个程序共享子过程，应使用服务程序。以下是定义服务程序中使用的子过程的方式：

dcl-proc MyProcedure Export;
  dcl-pi *n Varchar(25);
  end-pi;

  return 'this is simple text';
end-proc;  

如果只是在程序中定义子过程，则需要省略

Export

关键字

要调用子过程，您可以使用以下方法：

dcl-s string     Varchar(25);

string = MyProcedure();

ctl-opt DftActGrp(*No) ActGrp(*Caller)
        Main(MyProgram);

dcl-proc MyProgram;
  dcl-pi *n;
    string        Varchar(25);
  end-pi;

  string = 'this is a simple string';
  return;
end-proc;

dcl-s string      Varchar(25);

dcl-pr MyProgram ExtPgm('MYPROGRAM');
  str          Varchar(25);
end-pr;

MyProgram(string);

从程序返回一个值 如果确实要从程序返回值，则必须使用以下参数：

dcl-s string     Varchar(25);

string = MyProcedure();

ctl-opt DftActGrp(*No) ActGrp(*Caller)
        Main(MyProgram);

dcl-proc MyProgram;
  dcl-pi *n;
    string        Varchar(25);
  end-pi;

  string = 'this is a simple string';
  return;
end-proc;

dcl-s string      Varchar(25);

dcl-pr MyProgram ExtPgm('MYPROGRAM');
  str          Varchar(25);
end-pr;

MyProgram(string);

要调用该程序，您可以使用以下内容：

dcl-s string     Varchar(25);

string = MyProcedure();

ctl-opt DftActGrp(*No) ActGrp(*Caller)
        Main(MyProgram);

dcl-proc MyProgram;
  dcl-pi *n;
    string        Varchar(25);
  end-pi;

  string = 'this is a simple string';
  return;
end-proc;

dcl-s string      Varchar(25);

dcl-pr MyProgram ExtPgm('MYPROGRAM');
  str          Varchar(25);
end-pr;

MyProgram(string);