* Name - 80 * Called By - TCL * Description - Utilities - Set screen to 80 col width to Preview Reports * Version - 10 Nov 2000 - INTERNET * Written - Nine Elms Solutions Ltd * *<----------------------------------- COPYRIGHT NOTICE -----------------------------------> * Copyright 2000 - email code@nineelms.com * * THIS HEADER MUST REMAIN INTACT IN THIS AND ANY CHANGED VERSION OF THIS ROUTINE * * 80 may be used and modified free of charge by anyone so long as this * copyright notice and comments above remain intact. By using this code you * agree to indemnify Nine Elms Solutions Ltd from any liability that may arise from its use. * * Selling the code for this program without prior written consent is * expressly forbidden. In other words, please ask first before you try and * make money off my program. * * Obtain permission before redistributing this software over the Internet or * in any other medium. In all cases copyright and the header must remain intact * *<------------------------------------------------------------------------------------------> *<----------------------------------- PROGRAMMER NOTES -----------------------------------> * This routine has been written to work with Mvbase and HOSTACCESS but can be tailored to * work with other Multivalue platforms. Check out and replace the relevant SYSTEM commands * on your platform and amend accordingly. *<------------------------------------------------------------------------------------------> * EQU WM.TERM.SIZE TO 1530;* WM.USER+506 80/132,24/25/40/42/43 IF OCONV(USYSTEM(26),'MCU') NE "MVTERM" THEN STMNT = "SCREEN.MODE 6" ; * HOSTACCESS EXECUTE STMNT END ELSE UMESSAGE WM.TERM.SIZE,80,25 END STMNT = "TERM 79,25" EXECUTE STMNT END