*----------------------------------------------------------------------- SUBROUTINE ULYSFM ( CYFMT ) CHARACTER CYFMT*(*) CALL UZCSET('CYFMT', CYFMT) RETURN *----------------------------------------------------------------------- ENTRY ULYQFM ( CYFMT ) CALL UZCGET('CYFMT', CYFMT) END