C SACK.KEY - Contains all SACK keyword, qualifier tables C C SACK Keyword Specification C C All entries in this file should follow the following rules: C C All table sizes are to be specified as a PARAMETER C Each entry into an array has a unique index number, this C number will be used in a computed GOTO as a way of C indicating which keyword was selected. As a convention C C C C Table sizes C PARAMETER NUMBER_OF_KEYWORDS= 15, SET_SIZE= 2, QUEUE_SIZE= 8 PARAMETER MODIFY_SIZE= 2, SHUT_SIZE= 2, PRINT_SIZE= 8 PARAMETER BATCH_SIZE= 8 PARAMETER START_SIZE= 1 PARAMETER START_QUAL_SIZE= 2 PARAMETER STOP_QUAL_SIZE= 4 PARAMETER ABORT_QUAL_SIZE= 1 PARAMETER REQUEUE_QUAL_SIZE= 2 PARAMETER FLUSH_QUAL_SIZE= 4 PARAMETER DELETE_QUAL_SIZE= 1 PARAMETER HOLD_QUAL_SIZE= 1 PARAMETER RELEASE_QUAL_SIZE= 1 C C Data declarations C CHARACTER*20 QUEUETBL (QUEUE_SIZE), MODIFTBL (MODIFY_SIZE) CHARACTER*20 KEYWORD (NUMBER_OF_KEYWORDS), SETTBL (SET_SIZE) CHARACTER*20 SHUTTBL (SHUT_SIZE), PRINTTBL (PRINT_SIZE) CHARACTER*20 BATCHTBL (BATCH_SIZE) CHARACTER*20 STARTTBL (START_SIZE) CHARACTER*20 START_QUALTBL (START_QUAL_SIZE) CHARACTER*20 STOP_QUALTBL (STOP_QUAL_SIZE) CHARACTER*20 ABORT_QUALTBL (ABORT_QUAL_SIZE) CHARACTER*20 REQUEUE_QUALTBL (REQUEUE_QUAL_SIZE) CHARACTER*20 FLUSH_QUALTBL (FLUSH_QUAL_SIZE) CHARACTER*20 DELETE_QUALTBL (DELETE_QUAL_SIZE) CHARACTER*20 HOLD_QUALTBL (HOLD_QUAL_SIZE) CHARACTER*20 RELEASE_QUALTBL (RELEASE_QUAL_SIZE) C C Keyword data tables C DATA (KEYWORD (I), I= 1,NUMBER_OF_KEYWORDS) / & 'LOGOUT','FORCE-EXIT','EXIT','QUIT','HELP','KILL', & '?','SET','SEND','START','SHUTDOWN','DO','MODIFY', & 'SUSPEND','RESUME'/ DATA (STARTTBL (I), I= 1,START_SIZE) / & 'SILVER-BULLET'/ DATA (SETTBL (I), I= 1,SET_SIZE) / & 'PASSWORD','LOG-FILE'/ DATA (MODIFTBL (I), I= 1,MODIFY_SIZE) / & 'PRINT','BATCH'/ DATA (SHUTTBL (I), I=1, SHUT_SIZE) / & 'SYSTEM','SILVER-BULLET'/ DATA (BATCHTBL (I), I= 1,BATCH_SIZE) / & 'START','STOP','ABORT','REQUEUE','FLUSH','DELETE','HOLD', & 'RELEASE'/ DATA (PRINTTBL (I), I= 1,PRINT_SIZE) / & 'START','STOP','ABORT','REQUEUE','FLUSH','DELETE','HOLD', & 'RELEASE'/ DATA (QUEUETBL (I), I= 1,QUEUE_SIZE) / & 'START','STOP','ABORT','REQUEUE','FLUSH','DELETE','HOLD', & 'RELEASE'/ DATA (START_QUALTBL (I), I= 1,START_QUAL_SIZE) / & 'NEXT','TOP_OF_FILE'/ DATA (STOP_QUALTBL (I), I= 1,STOP_QUAL_SIZE) / & 'ABORT','NEXT','PRIORITY','REQUEUE'/ DATA (ABORT_QUALTBL (I), I= 1,ABORT_QUAL_SIZE) / & 'NEXT'/ DATA (REQUEUE_QUALTBL (I), I= 1,REQUEUE_QUAL_SIZE) / & 'ENTRY','PRIORITY'/ DATA (FLUSH_QUALTBL (I), I= 1,FLUSH_QUAL_SIZE) / & 'NEXT','PRIORITY','AFTER','ENTRY'/ DATA (DELETE_QUALTBL (I), I= 1,DELETE_QUAL_SIZE) / & 'ENTRY'/ DATA (HOLD_QUALTBL (I), I= 1,HOLD_QUAL_SIZE) / & 'ENTRY'/ DATA (RELEASE_QUALTBL (I), I= 1,RELEASE_QUAL_SIZE) / & 'ENTRY'/