Rocket 204 - Example

28 Rocket Model 204 Terminal User’s Guide
Running Model 204 requests and procedures
where:
For example:
PROCEDURE CITY
This procedure can be executed at a later time by entering:
INCLUDE CITY
If the procedure is a temporary procedure, the user specifies a negative
number (that is, -n) instead of a name.
A procedure need not always combine executable statements and commands.
A procedure can contain only a portion of a User Language request. It also can
contain nonexecutable text such as program documentation.
Example
In the following example, the user enters and runs a request, checks the output,
and decides to execute a previously stored procedure. The user then creates
and saves a procedure for subsequent editing and execution.
The user enters retrieval statements:
?BEGIN
?FD.POL: FIND ALL RECORDS FOR WHICH
? POLICY NO = 100035
? SEX = M
? STATE = OHIO OR NEW YORK
? END FIND
?FR.POL: FOR EACH RECORD IN FD.POL
? PRINT ALL INFORMATION
? SKIP 1 LINE
END FOR
?END
Model 204 displays retrieved data:
FULLNAME = ADAMS, CESAR O
POLICY NO = 100035
DRIVER ID = 100085
MARITAL STATUS = MARRIED
SEX = M
STATE = NEW YORK
INCIDENT = T2
INCIDENT DATE = 770513
INCIDENT = T1
INCIDENT DATE = 780614
name Identifies the procedure being defined.