TAL Programmer's Guide

Equivalencing Structures
Using Equivalenced Variables
096254 Tandem Computers Incorporated 10–11
Equivalencing Extended Indirect Structures
You can equivalence an extended indirect definition structure to another extended
indirect structure:
STRUCT .EXT xstr1;
BEGIN
STRING old_name[0:20];
STRING old_addr[0:50];
END;
STRUCT .EXT xstr2 = xstr1;
BEGIN
STRING new_name[0:30];
STRING new_addr[0:40];
END;
XSTR1
315
XSTR2
.
.
.
Automatic extended data segment
.
.
.
.
.
.
.
.
.
Primary area of user data segment
ptr to XSTR1 ptr to XSTR2
Equivalencing Structures to Simple Variables
You can equivalence a structure to a simple variable. For example, you can declare a
two-word structure to an INT(32) simple variable:
400
VAR ASTRUCT
HIGH
LOW
STRUCT astruct = var;
BEGIN
INT high;
INT low;
END;
INT(32) var;