Guardian Programmer's Guide

Table Of Contents
Formatting and Manipulating Character Data
Guardian Programmer’s Guide 421922-014
19 - 21
! Literals and variables used by FORMATDATA:
LITERAL BUFFER^LENGTH = 80; !length of one output
! buffer
STRUCT BUF^REF(*); !data structure for an
BEGIN ! output buffer
STRING BYTES[0:BUFFER^LENGTH - 1];
END;
LITERAL NUM^BUFFERS = 13; !max number of output
! buffers
STRUCT .BUFFERS(BUF^REF) [0:NUM^BUFFERS - 1]; !Data
! structures for output
! buffers
INT .BUFFER^ELEMENTS [0:NUM^BUFFERS - 1]; !array to
! contain sizes of
! each output buffer
STRUCT VLE^REF(*); !data structure for a
BEGIN ! list element and
INT ELEMENT^PTR; ! element attributes
STRING ELEMENT^SCALE,ELEMENT^TYPE;
INT ELEMENT^LENGTH,ELEMENT^OCCURS;
END;
STRUCT .VLIST(VLE^REF) [0:6]; !arrays for each list
! element
INT VLIST^LEN; !number of list
! elements
INT(32) .INT^ARRAY1[0:6]; !array for list
! elements
INT(32) .INT^ARRAY2[0:6]; !array for second list
INT(32) .INT^ARRAY3[0:6]; !array for third list
INT(32) .INT^ARRAY4[0:6]; !array for fourth list
INT(32) .INT^ARRAY5[0:1]; !array for fifth list
INT(32) .INT^YEAR[0:1]; !variable for year
! number
STRING MONTH[0:9]; !month name
INT FLAGS; !flag values for
! FORMATDATA
! Other variables:
INT I; !count
STRING .S^PTR; !string pointer
STRING .ERROR^BUFFER[0:40]; !buffer for error
! messages