LIBRARY DATABASE
MAIN MENU:
1. Database Maitenance
2. Reports Menu
3. Etc...
0. Quit
Enter Choice: 0
APPENDIX E (cont.)
/* 4GL code */
FIELD 'choice'
= BEGIN
IF choice = '1' THEN
CALL qbf (qbfname = 'author',
mode = 'all');
ELSEIF choice = '2' THEN
CALLFRAME bookrep1;
ELSEIF choice = '0' THEN
RETURN;
ENDIF;
END
This WWW material is copyright De Montfort University and may only be reproduced or used if this copyright notice is included.