tldm-universe/Ardent/UV/APP.PROGS/DC.MESSAGE

subroutine DC.MESSAGE( message1, message2 )
*******************************************************************************
*
*	Convert dictionary item(s) from Pick to Uni*Verse format:
*	print informative/warning messages during conversion
*
*	Module	%M%	Version	%I% 	Date	%H%
*
*	(c) Copyright 1998 Ardent Software Inc. - All Rights Reserved
*	This is unpublished proprietary source code of Ardent Software Inc.
*	The copyright notice above does not evidence any actual or intended
*	publication of such source code.
*
*******************************************************************************
*
*	Maintenence log - insert most recent change descriptions at top
*
*	Date.... GTAR# WHO Description.........................................
*	10/22/98 23801 SAP Change company name to Ardent
*	10/14/98 23801 SAP Change copyrights. 
*	07/25/88   -    -  Maintenence log purged at 5.2.1, see release 5.1.10.
*
*******************************************************************************
*
*	The basis for this Pick-to-Uni*Verse dictionary converter was a
*	Microdata-to-Prime converter written by J. Michael Cannady and
*	Thomas J. Rauschenbach of Fulcrum Computer Group, Inc.  Ardent 
*	was granted permission to use that code by Infocel, Inc., a successor
*	of Fulcrum.
*
*******************************************************************************
*
*    Convert A correlatives to I descriptors.
*
*    Arguments:
*	message1 - the text to print
* 	message2 - more text to print; may be CR, in which case we
*		   print a carriage return / linefeed
*
*
*******************************************************************************
*
$options DEFAULT
$include UNIVERSE.INCLUDE DC.COMM.DECL
*
	equ CR to char( 13 ) : char( 10 )
*
	if LOGGING then
	    if LPTR.COL + len( message1 ) + 2 > 130 then
		print on 1
		print on 1 space( 27 ):
		LPTR.COL = 28
	    end
	    print on 1 message1 : "  ":
	    LPTR.COL += len( message1 ) + 2 
	    begin case
	    	case message2 = CR
		    print on 1
		    LPTR.COL = 1
	    	case message2 = ""
		    null
	    	case 1
		    if LPTR.COL + len( message2 ) + 2 > 130 then
		    	print on 1
		    	print on 1 space( 27 ):
		    	LPTR.COL = 28
		    end
		    print on 1 message2 : "  ":
		    LPTR.COL += len( message2 ) + 2
	    end case
	end
*
	if CRT.COL + len( message1 ) + 2 > 78 then
	    print 
	    print space( 27 ):
	    CRT.COL = 28
	end
	print message1 : "  ":
	CRT.COL += len( message1 ) + 2 
	begin case
	    case message2 = CR
		print
		CRT.COL = 1
	    case message2 = ""
		null
	    case 1
		if CRT.COL + len( message2 ) + 2 > 78 then
		    print 
		    print space( 27 ):
		    CRT.COL = 28
		end
		print message2 : "  ":
		CRT.COL += len( message2 ) + 2
	end case
	return
end