*-----------------------------------------------------------------------
      SUBROUTINE UYSFMT(CFMT)
      CHARACTER CFMT*(*)

      CALL UZCSET('CYFMT', CFMT)

      RETURN
*-----------------------------------------------------------------------
      ENTRY UYQFMT(CFMT)

      CALL UZCGET('CYFMT', CFMT)

      END
