$TITLE('FmValProc.Asm V060A M01 === 032787')

NAME Fmvalproc

DATA     SEGMENT WORD PUBLIC 'DATA'
VERSION_MODULE  DB      '060A01'
DATA     ENDS

;******************************* MODULE HEADER *******************************;
;*									     *;
;*									     *;
;* MACHINE: B20		LANGUAGE: ASSEMBLER  OS: BTOS			     *;
;*									     *;
;* DESCRIPTION:								     *;
;*									     *;
;*			SEE COMMENTS BELOW				     *;
;*									     *;
;*									     *;
;*									     *;
;*									     *;
;*									     *;
;*									     *;
;* HISTORY:								     *;
;*									     *;
;* MMDDYY VVVVMM PROGRAMMER     DESCRIPTION	   (Most recent first)       *;
;*									     *;
;* 032787 060A01 M. JUNGWIRTH   Change BURROUGHS to UNISYS in header.    *;
;*									     *;
;* 082186 051A02 M. JUNGWIRTH   Correct macro invocation example.	     *;
;*									     *;
;* 072886 051A01 M. JUNGWIRTH   Add FORMSB changes.		     *;
;*									     *;
;*									     *;
;*									     *;
;* TITLE:  B20 SYSTEM SOFTWARE						     *;
;*									     *;
;*			PROPRIETARY PROGRAM MATERIAL			     *;
;*									     *;
;* THIS MATERIAL IS PROPRIETARY TO UNISYS CORPORATION AND IS NOT TO BE	     *;
;* REPRODUCED, USED OR DISCLOSED EXCEPT IN ACCORDANCE WITH PROGRAM LICENSE   *;
;* OR UPON WRITTEN AUTHORIZATION OF THE PATENT DIVISION OF UNISYS	     *;
;* CORPORATION, DETROIT, MICHIGAN 48232, USA.				     *;
;*									     *;
;* COPYRIGHT (C) 1980 CONVERGENT TECHNOLOGIES, INC. ALL RIGHTS RESERVED      *;
;* COPYRIGHT (C) 1987 UNISYS CORPORATION		                     *;
;* ************************************************************************* *;
;*									     *;
;* UNISYS BELIEVES THAT THE SOFTWARE FURNISHED HEREWITH IS ACCURATE AND      *;
;* RELIABLE, AND MUCH CARE HAS BEEN TAKEN IN ITS PREPARATION.  HOWEVER,      *;
;* NO RESPONSIBILITY, FINANCIAL OR OTHERWISE, CAN BE ACCEPTED FOR ANY        *;
;* CONSEQUENCES ARISING OUT OF THE USE OF THIS MATERIAL, INCLUDING LOSS OF   *;
;* PROFIT, INDIRECT, SPECIAL, OR CONSEQUENTIAL DAMAGES, THERE ARE NO         *;
;* WARRANTIES WHICH EXTEND BEYOND THE PROGRAM SPECIFICATION.		     *;
;*									     *;
;* THE CUSTOMER SHOULD EXERCISE CARE TO ASSURE THAT USE OF THE SOFTWARE      *;
;* WILL BE IN FULL COMPLIANCE WITH LAWS, RULES AND REGULATIONS OF THE        *;
;* JURISDICTIONS WITH RESPECT TO WHICH IT IS USED.			     *;
;*									     *;
;*									     *;
;*************************** END OF MODULE HEADER ****************************;
;
;                                                                             
;  File FmValProc.asm                                                         
;  ==================                                                         
;                                                                             
;    This assembly language file is designed to contain the declarations of   
;    all the user validation routines that are to be used under control of    
;    the TypeForm operation.                                                  
;                                                                             
;

DGroup		GROUP	Const
ASSUME DS: DGroup

Const		SEGMENT WORD PUBLIC 'Const'

*DEFINE (Warning(ProcName,Msg))
(IF (PASS1 EQ 1) THEN (OUT(ProcName...Msg
))FI
)

*DEFINE (DefValProc(ProcName))
(
IF (LEN(ProcName) GT 30) THEN(
Warning(ProcName,Ignored : name too long))
ELSE(Warning(ProcName,OK)
SET(NoProc,0)
DB		LEN(ProcName), 'ProcName'
DD		ProcName

Const		ENDS

EXTRN		ProcName: FAR

Const		SEGMENT
)FI)

IF (PASS1 EQ 1) THEN (OUT(
)
SET(NoProc,1)
)FI

PUBLIC		rgValProc

rgValProc	LABEL BYTE

;
;                                                                             
;    Insert here the declarations of the user validation routines.            
;    Each routine must be defined with the assembly language macro            
;    DefValProc. The format of this macro is as follows:                    
;                                                                             
;        DefValProc(ProcName)                                                 
;                                                                             
;    where ProcName is the name of the user validation routine ( up to 30     
;    characters ). It must be a public symbol in the application program.     
;                                                                             
;    The declaration below is here as an example and is commented out.        
;    That is, the apostrophe would be removed for an actual invocation.       
;                                                                             
;

'DefValProc(MyProc)

;
;                                                                             
;    End of the declarations of the user validation routines.                 
;                                                                             
;

DB		0

IF (NoProc EQ 1) THEN(OUT(No user validation routine defined
)
SET(NoProc,0)
)FI

Const		ENDS

END
								     *;
;*									     *;
;*									     *;
;*							