*----------------------------------------------------------------------- SUBROUTINE ULXSFM ( CXFMT ) CHARACTER CXFMT*(*) CALL UZCSET('CXFMT', CXFMT) RETURN *----------------------------------------------------------------------- ENTRY ULXQFM ( CXFMT ) CALL UZCGET('CXFMT', CXFMT) END