*----------------------------------------------------------------------- SUBROUTINE UYSFMT(CFMT) CHARACTER CFMT*(*) CALL UZCSET('CYFMT', CFMT) RETURN *----------------------------------------------------------------------- ENTRY UYQFMT(CFMT) CALL UZCGET('CYFMT', CFMT) END