Transact/iX Expanded B-Tree and File Open Enhancement

• Expanded support of TurboIMAGE B-tree

• Ability to pass database and file ids to Transact/iX

Support of B-Trees in Transact

  MOVE (NAME) = "Sm@";
  SET(KEY) LIST(NAME);
  OUTPUT(CHAIN) PEOPLE, LIST=(NAME);

• Smalley

• Smith

• Smythe

  FIND(CHAIN) dataset, LIST=(item1:item3), FINDMODE=4;

Syntax

  FIND [(modifier)] file-name [,option-list];

Parameters

Option-list

One or more of the following options, separated by commas. Only the additional option is listed here. See the Transact/iX Reference Manual for all the other possible options.

FINDMODE=mode

Only available with the CHAIN or RCHAIN modifiers. Performs optimized searching of an index by using TurboIMAGE/XL's B-tree index functionality or Third Party Indexing. The mode is the mode that is specified for the DBFIND of this data retrieval verb. If the FINDMODE option is not specified, DBFIND mode 1 is used.

Example 1

  system ex1,base=passks;
  define(item) search-arg      x(30):
               search-type     x(2)=search-arg(1):
               search-version  I(5,,2)=search-arg(3):
               arg1-size       I(5,,2)=search-arg(5):
               arg2-size       I(5,,2)=search-arg(7):
               arg1            x(8)=search-arg(9):
               arg2            x(8)=search-arg(17):
               prod-no         x(8):
               ship-date       x(6);

  list search-arg,init:
       prod-no:
       ship-date;

  << Retrieve all product numbers beginning with PROD. >>
  << Uses DBFIND mode 1.  >>

  move (prod-no) = "PROD@";
  set(key) list(prod-no);
  output(chain) inventory, list=(prod-no:ship-date);

  << Retrieve all product numbers between PROD1 and PROD2.  >>
  << Uses DBFIND mode 4. >>
  << 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 >>
  move (arg2) = "PROD2   ";<<   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);
  move (search-arg) = col("PROD1",9);
  move (search-arg) = col("PROD2",17);

  set(key) list(search-arg);
  list(key) prod-no;
  output(chain) inventory, list=(prod-no:ship-date),findmode=24;
  exit;

File Open Transact

SYSTEM Statement

Syntax

  SYSTEM program-name [,definition-list];

Parameters

Definition-list

Description of the files or data sets used during execution. See the Transact Reference Manual for other definitions.

  BASE=base-name[(["password"][,[mode][,[optlock][,[basetype]
    [,[open-type]]]]])].

open-type

Used by Transact/iX to determine when and if to open the database. The valid types are OPEN, DEFER, PASSED. OPEN is the default and opens the database at the beginning of the Transact/iX program. DEFER delays the database open until the database is first accessed. PASSED tells Transact/iX not to open the database - the database id is being passed from another program.

  FILE=file-name[([access][(file-option-list)] [,[record-length]
    [,[blocking-factor] [,[file-size][,[extents]
    [,[initial-allocation][,[file-code]]]]]]])].

file-option-list

Any of the following fields provided that they do not conflict in meaning: OLD, NEW, TEMP, $STDLIST, $NEWPASS, $OLDPASS, $STDIN, $STDINX, $NULL, ASCII, CCTL, SHARE, LOCK, NOFILE, HP3000_16, HP3000_32, DEFER, PASSED.

Either DEFER or PASSED can be specified. DEFER opens the file when the file is first used in a Transact/iX program. PASSED does not open the file - generally the file id is passed from another program. If neither DEFER or PASSED is specified, then DEFER is assumed. DEFER is the way Transact/iX worked prior to this enhancement.

  KSAM= file-name[(access)[(file-option-list)]].

LIST Statement

Syntax

  LIST item-name[,option-list]; << Adds the item-name to the list >>
                                << register.>>

Parameters

Option-list

Specifies a value to be placed in the data register. For current options, refer to the Transact Reference Manual.

BASEID[(base-name)]

An X(2) item that contains the database id passed from a main program assigned to a database by TurboIMAGE's DBOPEN. If no base-name is specified, then the home base is assumed. Note, the home base cannot be specified.

FILEID(file-name)

A 16-bit integer (I(5,,2)) containing the file identifier assigned to a file by MPE's FOPEN.

  LIST people-id,BASEID(employees);

Example: Pascal Code - Main Program

     .
     .
     .
     type
       data_record = packed record
          x_type   : packed array[1..8] of char;
          id_type  : packed array[1..2] of char;
          filler   : packed array[1..48] of char;
        end;
     .
     .
     .
     var
       data_buffer : data_record;
     .
     .
     .
     base_name := '  NAME; ';
     password  := 'PASS1 ';
     mode := 1;
     dbopen (base_name, password, mode, db_status_array);
     { check db_status_array }
     .
     .
     .
     strmove (2, base_name, 1, data_buffer.id_type, 1);

     system_name := 'aci01   ';
     data_size  := 58;
     tl_call_transact (system_name, addr(data_buffer),
                       data_size, return_status);
     { check Transact's return_status }
     .
     .
     .
     end.

Example: Transact Code - Subprogram

 << This code is compiled and added to the XL. >>

  system aci01,base=name(,1,,PASSED);
  << NAME database is not opened by Transact/iX. >>

  define(item) x-item       x(8):
               name-id      x(2):
               name         x(8):
               address      x(32):
               phone        x(8);

  list     x-item:
           name-id,BASEID:   << Home base assumed. >>
           name, init:
           address,init:
           phone,init;

  << Use database ID from Pascal code to perform retrieval.  >>

  output(serial) employees, list=(name:phone);
  exit