|
|
| Returns first parameter from string range, where parameters are separted by colon. |
 |
| str |
String Range |
| stringlength |
Lenght of returned string |
|
external procedure CustomerOut(record CUVc);
global
procedure CustListRn(record RcVc RepSpec)
begin
record CUVc CUr;
Boolean TrHs;
string 20 frcu,tocu;
frcu = FirstInRange(RepSpec.f1,20);
tocu = LastInRange(RepSpec.f1,20);
CUr.Code = frcu;
TrHs = true;
while (LoopMain(CUr,1,TrHs)) begin
if (CUr.Code>tocu) then begin
TrHs = false;
end;
if (TrHs==true) then begin
CustomerOut(CUr);
end;
end;
return;
end;
««