$SAVE NOLIST

dq$get$system$id:  PROCEDURE( id$ptr,
                              except$ptr ) EXTERNAL;

DECLARE id$ptr          POINTER,
        except$ptr      POINTER;

END dq$get$system$id;

$RESTORE