Rocket 204 - Displaying a Stored Procedure; Executing a Procedure and Viewing Output; Defining a New Procedure

22 Rocket Model 204 Terminal User’s Guide
Terminal dialog
INCIDENT DATE = 780614
INCIDENT = T2
INCIDENT DATE = 790715
DATE OF BIRTH = 640619
Displaying a stored procedure
The user displays a stored procedure:
?DISPLAY SACRAMENTO
BEGIN
CATEGORY.A: FIND ALL RECORDS FOR WHICH
TOTAL PREMIUM IS GREATER THAN 300
AGENT = GOODRICH OR BATEMAN
CITY = SACRAMENTO
END FIND
COUNTER: COUNT RECORDS IN CATEGORY.A
PRINT COUNT IN COUNTER
FOR EACH RECORD IN CATEGORY.A
PRINT FULLNAME AND AGENT AT 30
END FOR
END
Executing a procedure and viewing output
The user executes the procedure and Model 204 displays output:
?INCLUDE SACRAMENTO
5
ADAMS, KEN U GOODRICH
ELLIOTT, CHRISTINE Q BATEMAN
GOLDSMITH, CLAYTON C BATEMAN
GRIFFIN, EUGENE OBATEMAN
WRIGHT, FRANK I GOODRICH
Defining a new procedure
The user defines a new procedure:
?PROCEDURE TEST
*** M204.1144: DEFINE PROCEDURE
?BEGIN
?POL.100990: FIND ALL RECORDS FOR WHICH
? POLICY NO = 100990
? END FIND
? FOR EACH RECORD IN POL.100990