Communicator e3000 MPE/iX Release 6.5 (Non-Platform Software Release C.65.00 (30216-90291)

134 Chapter5
Internet and Interoperability
Transact/iX Expanded B-Tree and File Open Enhancement
<< Uses parent/child items to devise Structured Argument. >>
move (search-type) = "[]";
let (search-version) = 0;
let (arg1-size) = 8;
let (arg2-size) = 8;
move (arg1) = "PROD1 ";<< Blank pad the full number of characters.>>
move (arg2) = "PROD2 ";<< Blank pad the full number of characters.>>
set(key) list(search-arg);
list(key) prod-no;
output(chain) inventory, list=(prod-no:ship-date),findmode=4;
exit;
Example 2
system ex2, base=passks;
define(item) search-arg x(30):
search-version I(5,,2):
arg1-size I(5,,2):
arg2-size I(5,,2):
arg2 x(8):
prod-no x(8):
ship-date x(6);
list search-arg,init:
search-version,init: << 0 >>
arg1-size,init:
arg2-size,init:
arg2,init:
prod-no:
ship-date;
<< Use items and functions to concatenate the Structured Argument. >>
<< Use DBFIND mode 24. >>
<< Same output as the second part of Example 1. >>
<< search-version set to 0 during list statement >>
let (arg1-size) = 8;
let (arg2-size) = 8;
move (arg2) = "PROD2 "; << Blank pad. >>
move (search-arg) = "[]" + (search-version) + (arg1-size) +
(arg2-size) + col("PROD1",9) + col((arg2),17);
set(key) list(search-arg);
list(key) prod-no;
output(chain) inventory, list=(prod-no:ship-date),findmode=24;
<< Another way to setup the Structured Argument. >>
<< Same results as above. >>
list search-arg,init;
move (search-arg) = col("[]",1);
move (search-arg) = col((search-version),3);
move (search-arg) = col((arg1-size),5);
move (search-arg) = col((arg2-size),7);