$SAVE NOLIST

dq$file$info:  PROCEDURE( conn,
                          mode,
                          file$info,
                          except$ptr ) EXTERNAL;

DECLARE conn            TOKEN,
        mode            BYTE,
        file$info       POINTER,
        except$ptr      POINTER;

END dq$file$info;

$RESTORE