목적
FUNCTION 블록은 Net.Data 매크로로부터 호출될 수 있는 서브루틴을 정의합니다. FUNCTION 블록내의 실행가능 명령문은 언어 환경에서 직접 해석되는 언어 명령문이거나 외부 프로그램에 대한 호출을 나타낼 수 있습니다.
함수 정의 내에서 EXEC 명령문이나 블록을 사용할 경우, FUNCTION 블록에는 실행가능 명령문만이 있어야 합니다. 실행가능 명령문을 언어 환경으로 전송하기 전에, EXEC 명령문내의 프로그램의 파일명이 초기화 파일내의 EXEC_PATH 구성 명령문에 의해 판별될 경로명에 추가되어야 합니다. 결과 문자열은 실행될 언어 환경으로 전송됩니다.
언어 환경이 EXEC 명령문을 처리하는데 사용하는 방법은 특정 언어 환경에 따라 다릅니다. REXX, System 및 Perl 언어 환경에서만 EXEC 명령문을 지원합니다.
구문
>>-%function--(--lang_env--)--function_name--| parameter definition |-->
+-;--------------------------------------------+
>--+-| returns spec |--{--| function body |---%}--+------------><
매개변수 정의
|--(--+----------------------+--)------------------------------|
| +-,--------------+ |
| V | |
+---+-------+-name--+--+
|-IN----|
|-OUT---|
+-INOUT-+
리텍 스펙
|--+----------------------+------------------------------------|
+-RETURNS--(--name--)--+
함수 본문
-+------------------------+----------------------------------->
| +--------------------+ |
| V | |
|--language statement--+-|
+-exec block-------------+
>--+----------------------------------+------------------------|
|-report block--+----------------+-|
| +-message block--+ |
+-message block--+---------------+-+
+-report block--+
매개변수
컨텍스트
Net.Data 매크로 선언부의 블록 및 명령문의 외부에 있어야 합니다.
제한사항
다음과 같은 요소들을 포함할 수 있습니다.
예
다음 예제는 일반적인로써 모든 언어 환경에 적용되지는 않습니다. 특정 언어 환경을 가진 FUNCTION 블록 사용에 대한 자세한 장보는 Net.Data 언어 환경 안내서를 참조하십시오.
예제 1: REXX 부속 문자열 함수.
%DEFINE lstring = "longstring"
%FUNCTION(DTW_REXX) substring(IN x, y, z) RETURNS(s) {
s = substr("$(x)", $(y), $(z));
%}
%DEFINE a = {@substring(lstring, "1", "4")%} %{ assigns "long" to a %}
a가 평가되면, @substring 함수 호출이 발견되며 부속 문자열 FUNCTION 블록이 실행됩니다. 변수가 FUNCTION 블록내의 실행가능 명령문으로 대체된 후, 원문 문자열
s = substr("longstring", 1, 4)
가 REXX 해석기로 전달되어 실행됩니다. RETURNS 절이 지정되었기 때문에, a 평가에서 @substring 함수 호출의 값이 s의 값인 "long"으로 대체됩니다.
예제 2: 외부 REXX 프로그램의 호출.
%FUNCTION(DTW_REXX) my_rexx_pgm(INOUT a, b, IN c, OUT d) {
%EXEC{ mypgm.cmd this is a test %}
%}
%HTML(INPUT) {
<P> Original variable values: $(w) $(x) $(z)
<P> @my_rexx_pgm(w, x, y, z)
<P> Modified variable values: $(w) $(x) $(z)
%}
변수 w 및 x는 함수내의 INOUT 매개변수 a와 b에 해당합니다. 이들의 값과 In 매개변수 C에 해당하는 y의 값은 HTML 형식의 입력이나 DEFINE 명령문으로부터 이미 정의되어 있어야 합니다. 매개변수 a와 b로부터 값이 리턴되면, 변수 a와 b에는 새로운 값이 지정됩니다. OUT 매개변수 d로부터 값이 리턴되면 변수 z가 정의됩니다.
/* Sample REXX Program for 예제 2 */ /* Test arguments */ num_args = arg(); say 'There are' num_args 'arguments'; do i = 1 to num_args; say 'arg' i 'is "'arg(i)'"' end; /* Set variables passed from Net.Data */ d = a || b || c; /* concatenate a, b, and c forming d */ a = ''; /* reset a to null string */ b = ''; /* reset b to null string */ return;
There are 1 arguments arg 1 is "this is a test"
EXEC 명령문은 REXX 언어 환경에 REXX 해석기가 외부 REXX 프로그램인 mypgm.cmd 을 실행하도록 지시합니다. REXX 언어 환경은 직접 Net.Data 변수와 함께 REXX 프로그램을 공유할 수 있기 때문에, mypgm.cmd를 실행하기에 앞서 REXX 변수 a , b, c에 Net.Data 변수 w,x및 y를 지정할 수 있습니다. Mypgm.cmd은 REXX문내에서 직접 변수 a,b,c를 사용할 수 있습니다. 프로그램이 종료하면, REXX 변수 a,b 및 d 가 REXX 프로그램에서 검색되며, 그 값은 Net.Data 변수인 w,x 및z에 지정됩니다. RETURNS 절이 my_rexx_pgm %FUNCTION 블록 정의내에 사용되지 않았기 때문에, @my_rexx_pgm 함수 호출의 값은 널(NULL) 문자열 ("" )이 되거나( 리턴 코드가 0인 경우), REXX 프로그램 리턴 코드의 값이 됩니다(리턴 코드가 0이 아닌 경우).
예제 3: SQL 조회 및 보고서.
%FUNCTION(DTW_SQL) query_1(IN x, IN y) {
SELECT customer.num, order.num, part.num, status
FROM customer, order, shippingpart
WHERE customer.num = '$(x)'
AND customer.ordernumber = order.num
AND order.num = '$(y)'
AND order.partnumber = part.num
%REPORT{
<P>Here is the status of your order:
<P>$(NLIST)
<UL>
%ROW{
<LI>$(V1) $(V2) $(V3) $(V4)
%}
</UL>
%}
%}
%DEFINE customer_name="IBM"
%DEFINE customer_order="12345"
%HTML(REPORT) {
@query_1(customer_name, customer_order)
%}
@query_1 함수 호출은 SELECT 명령문에서 $(x)는 "IBM"으로 $(y) 는 "12345"로 대체합니다. SQL 함수 query_1의 정의가 출력 테이블 변수를 식별하지 못하므로 생략시 테이블이 사용됩니다 (자세한 내용은 TABLE 변수 불록을 참조하십시오). REPORT 블록에서 참조되는 NLIST 및 Vi 변수는 생략시 테이블 정의에 의해 정의됩니다. REPORT 블록에 의해 작성된 보고서는 query_1 함수가 호출된 출력 HTML 에 놓이게 됩니다.
예제 4: Perl 스크립트를 수행하기 위한 시스템 호출.
%FUNCTION(DTW_SYSTEM) today() RETURNS(result) {
%exec{ perl "today.prl" %}
%}
%HTML(INPUT) {
@today()
%}
$date = `date`;
chop $date;
open(DTW, "> $ENV{DTWPIPE}") || die "Could not open: $!";
print DTW "result = \"$date\"\n";
System 언어 환경은 FUNCTION 블록내의 실행가능 명령문들을 C 언어 system() 함수 호출을 통해 운용 시스템으로 전달하여 해석합니다. 이 방법은 REXX 언어 환경에서 처럼 Net.Data 변수가 직접 실행가능 명령문으로 전달되거나 검색되는 것을 허용하지 않으므로, System 언어 환경에서는 다음에 설명한 방법으로 변수를 전달하고 검색합니다.
@today 함수 호출이 발견되면, Net.Data는 실행가능 명령문에서 변수 대체를 수행합니다. 이 예제에서는 실행가능 명령문에 Net.Data 변수가 없으므로, 어떠한 변수 대체도 수행되지 않습니다. 실행가능 명령문과 매개변수가 System 언어 환경으로 전달되면, 언어 환경은 명명된 파이프를 작성하고 환경 변수 DTWPIPE를 파이프 이름으로 설정합니다.
그런 다음, 외부 프로그램이 C system() 함수 호출을 사용하여 호출됩니다. 외부 프로그램은 쓰기 전용으로 파이프를 열어 표준 스트림 파일에서 처럼 파이프에 기록을 합니다. CGI 모드에서 Net.Data를 사용할 경우, HTML 출력은 대신 STDOUT에 기록됩니다. 이 예제에서, 시스템 날짜 프로그램의 출력은 FUNCTION 블록의 RETURNS 절에서 식별되는 변수인 result에 지정됩니다. result 변수의 값은 HTML 블록내의 @today() 함수 호출을 대체합니다.
예제 5: Perl 언어 환경.
%FUNCTION(DTW_PERL) today() RETURNS(result) {
$date = `date`;
chop $date;
open(DTW, "> $ENV{DTWPIPE}") || die "Could not open: $!";
print DTW "result = \"$date\"\n";
%}
%HTML(INPUT) {
@today()
%}
EXEC 명령문이 사용되는 방법을 보려면 이 예제를 예제 4와 비교해 보십시오. 예제 4에서, System 언어 환경은 Perl 프로그램을 해석하는 방법은 알지 못하지만 외부 프로그램을 호출하는 방법은 알고 있습니다. EXEC 명령문은 perl이라고 하는 프로그램을 외부 프로그램으로 호출하도록 지시합니다. 실제 Perl 언어 명령문은 외부 Perl 프로그램에 의해 해석됩니다. 예제 5 에는 Perl 언어 환경이 직접 Perl 언어 명령문을 해석할 수 있으므로 EXEC 명령문이 없습니다.