*-----------------------------------------------------------------------
      SUBROUTINE ULXSFM ( CXFMT )
      CHARACTER CXFMT*(*)

      CALL UZCSET('CXFMT', CXFMT)

      RETURN
*-----------------------------------------------------------------------
      ENTRY ULXQFM ( CXFMT )

      CALL UZCGET('CXFMT', CXFMT)

      END
