DBIA2172    ICR (2172)

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(%)