Print Page as PDF
DBIA2172 ICR (2172)

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
ID XPDID
COMPONENT/ENTRY POINT
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.