PARAMETER WARNING= 1, FATAL= 2, INFO= 3 PARAMETER SACK_MAJOR_VERSION= 2, SACK_MINOR_VERSION= 5 PARAMETER SACK_PA= 237, SACK_SYSTEM= 8 PARAMETER NUMBER_PRIV_USERS= 10 DATA SACK_CREATION_DATE /' 3-Aug-85 12:31:42'/ INTEGER*4 STATUS INTEGER*2 KEYNUM INTEGER*4 TOKEN_PTR CHARACTER*132 ORIG_LINE CHARACTER*15 SACK_PRIV_USER (NUMBER_PRIV_USERS) CHARACTER*18 SACK_CREATION_DATE CHARACTER*20 SACK_USER, SACK_TT CHARACTER*20 TOKEN (30), QUALIFIER (30) CHARACTER*20 HELP_TOKEN (30) DATA SACK_PRIV_USER (1) /'RAND'/ DATA SACK_PRIV_USER (2) /'JAMES'/ DATA SACK_PRIV_USER (3) /'FIELD'/ DATA SACK_PRIV_USER (4) /'OPERATOR'/ DATA SACK_PRIV_USER (5) /'PASS'/ DATA SACK_PRIV_USER (6) /'SYSTEM'/ DATA SACK_PRIV_USER (7) /'SYSTEST'/ DATA SACK_PRIV_USER (8) /'SYSTEST_CLIG'/ DATA SACK_PRIV_USER (9) /'PA_FONTANA'/ DATA SACK_PRIV_USER (10)/'PA_MCEWEN'/ COMMON /SACK_INFO/ SACK_USER, SACK_TT COMMON /PARSE/ TOKEN, ORIG_LINE, QUALIFIER COMMON /HELP/ HELP_TOKEN