Guardian Programmer's Guide

Table Of Contents
Formatting and Manipulating Character Data
Guardian Programmer’s Guide 421922-014
19 - 31
List-Directed Formatting
! Initialize variables for month, date, year, and name:
MONTH ':=' " ";
DATE := 0;
YEAR := 0000;
NAME ':=' [10 * [" "]];
! Set up data descriptors that point to the above
! variables:
VLIST[0].ELEMENT^PTR := @MONTH;
VLIST[0].ELEMENT^SCALE := 0;
VLIST[0].ELEMENT^TYPE := 0;
VLIST[0].ELEMENT^LENGTH := 10;
VLIST[0].ELEMENT^OCCURS := 1;
VLIST[1].ELEMENT^PTR := @DATE;
VLIST[1].ELEMENT^SCALE := 0;
VLIST[1].ELEMENT^TYPE := 2;
VLIST[1].ELEMENT^LENGTH := 2;
VLIST[1].ELEMENT^OCCURS := 1;
VLIST[2].ELEMENT^PTR := @YEAR;
VLIST[2].ELEMENT^SCALE := 0;
VLIST[2].ELEMENT^TYPE := 2;
VLIST[2].ELEMENT^LENGTH := 2;
VLIST[2].ELEMENT^OCCURS := 1;
VLIST[3].ELEMENT^PTR := @NAME;
VLIST[3].ELEMENT^SCALE := 0;
VLIST[3].ELEMENT^TYPE := 0;
VLIST[3].ELEMENT^LENGTH := 20;
VLIST[3].ELEMENT^OCCURS := 1;
! Specify number of data descriptors:
VLIST^LEN := 4;
! Set flags for list-directed formatting and for input:
FLAGS.<2> := 1;
FLAGS.<15> := 1;