LINC Programming Reference Manual - Public Support Login - Unisys

Examples
DETERMINE; GROUP
high-order values, start values, andend valuesmust be specified by data items.
The number of high-order values plus the number of start values must equal the number of
Profile Ordinates. The number of end values must equal the number of start values.
Either the high-order values or the start values (and end values) may be omitted. The
parentheses must still be supplied in each case. However, parentheses are not required for
omitted end values.
In these examples, a Profile INVOICE over the Event SALE has Profile Ordinates
CUSTOMER, ACTMTH, TRANDATE, and TRANTIME.
The previous logic reads all records for the Profile Ordinate specified by the item
CUSTOMER.
In the next example, since no high-order values are included, records on the Profile are
read, starting from first the record with the first Profile Ordinate greater than or equal to
the value specified by the data item CUSTOMER. (This is equivalent to DETERMINE;
FROM.)
In the next example, the DETERMINE; GROUP command is used to get the total sales
value for a customer.
In this example, suppose the value SMITH is entered from the screen for CUSTOMER.
STARTMTH and ENDMTH have values of 9801 and 9812, respectively.
The DETERMINE; GROUP command reads the Profile INVOICE, starting with the first
record with EVENT.CUSTOMER equal to SMITH, and EVENT.ACTMTH equal to or
greater than 9801. EVENT.AMOUNT is accumulated in SD-TOTAL. When
EVENT.CUSTOMER is not equal to SMITH, or when EVENT.ACTMTH is greater than
9812, the loop is terminated.
If there are no records for SMITH with EVENT.ACTMTH between 9801 and 9812,
GLB.STATUS will be set to *****.
v 1-101