DBIA2172 ICR (2172)

Name

Value

NUMBER

2172

IA #

2172

DATE CREATED

1997/10/08

CUSTODIAL PACKAGE

KERNEL

CUSTODIAL ISC

San Francisco

USAGE

Supported

TYPE

Routine

DBIC APPROVAL STATUS

APPROVED

ROUTINE

XPDID

NAME

DBIA2172

GENERAL DESCRIPTION

The routine XPDID contains calls to support the Kernel
Installation and Distribution System.  All of the calls can only be used in
the context of the KIDS software.

INIT
This tag initializes the screen and draws the borders for the box and
draws the progress bar.  It also creates a scrolling region in the box.
INPUT: none
OUTPUT: XPDIDVT=1 if output device supports graphics, =0 if not

TITLE(text)
This tag displays the text as a title at the top of the box.
INPUT: text
OUTPUT: none

EXIT(text)
This tag restore the screen to normal, cleans up all variables, and
displays the text.
INPUT: text
OUTPUT: none

UPDATE(current number of items)
This tag updates the progress bar to show the percentage complete of the
installation.
INPUT: current number of items
XPDIDTOT = total number of items

For example, if you are converting 100 records and want to update the user
every time you have completed 10% of the records you would do the following:

Set XPDIDTOT=100
F%=1:1:100 D CONVERT I'(%#10) D UPDATE^XPDID(%)

STATUS

Active

XPDID

COMPONENT/ENTRY POINT

COMPONENT DESCRIPTION

VARIABLES

UPDATE(N)

Update the progress bar by N, current number of
items.

VARIABLES	TYPE	VARIABLES DESCRIPTION
XPDIDTOT	Input	This is the total number of items that is being updated.
N	Input	The current number of items being updated.

TITLE(X)

Display the text, X, as a title at the top of the
box.

VARIABLES	TYPE	VARIABLES DESCRIPTION
X	Input	This is the text you want to display

INIT

Initializes the device and draws the borders for the
box and draws the progress bar.

EXIT(X)

Restores the screen to normal, cleans up all
variables, and displays the text in the variable X.

VARIABLES	TYPE	VARIABLES DESCRIPTION
X	Input	Text to display on screen after removing box and progress bar.