43 lines
1.6 KiB
Plaintext
43 lines
1.6 KiB
Plaintext
|
*******************************************************************************
|
||
|
|
*
|
||
|
|
* New System Admin - This routine takes the data structure for an input
|
||
|
|
* form, and prints it on the screen.
|
||
|
|
*
|
||
|
|
* 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/14/98 23801 SAP Change copyrights.
|
||
|
|
* 07/23/92 9064 WLC Added ",1" for printing of defaults so that UVEXPORT
|
||
|
|
* can use the defaults record for multiple values.
|
||
|
|
* 10/18/91 8834 DPB Addded code to paint wrapped data properly.
|
||
|
|
* 05/13/91 8345 DTM changed print to tprints
|
||
|
|
* 03/13/91 7673 DTM Modified for performance sake
|
||
|
|
* 11/05/90 7393 DPB Routine first created and admin'd.
|
||
|
|
*******************************************************************************
|
||
|
|
|
||
|
|
SUBROUTINE PUT.FORM.B(size, form, defaults, prompt, flag)
|
||
|
|
|
||
|
|
blank=STR(" ",LEN(prompt))
|
||
|
|
FOR I = 1 TO size
|
||
|
|
IF form<I> = "" THEN CONTINUE
|
||
|
|
IF flag = 1 THEN
|
||
|
|
TPRINT form<I,1>:form<I,3>:form<I,2>:prompt:
|
||
|
|
TPRINT defaults<I,1>[1,form<I,6>]:STR(" ",form<I,6>-LEN(defaults<I,1>)):
|
||
|
|
END
|
||
|
|
ELSE
|
||
|
|
TPRINT form<I,1>:STR(" ",LEN(form<I,3>)):form<I,2>:blank:
|
||
|
|
TPRINT STR(" ",form<I,6>):
|
||
|
|
END
|
||
|
|
NEXT I
|
||
|
|
|
||
|
|
RETURN
|