TRANSFER Reference Manual

GET-PROFILE-ELEM
TISERV UOW Descriptions
2–322 069139, Update 1 to 40969 Tandem Computers Incorporated
Definition I (for General Applications Use)
The data structure provided by Definition I is convenient for most applications, and is
simpler to use than Definition II. You typically construct a GET-PROFILE-ELEM
UOW by specifying all fields up to and including NUM-RETURNED, and then
specifying separate definitions for each element. Alternatively, you can define the
element block as a DEPENDING ON construction using either PROFILE-ELEMENT-
SHORT or PROFILE-ELEMENT-LONG; this type of construction, however, does not
permit you to mix long and short blocks.
When using either the GET-PROFILE-ELEM or ALTER-PROFILE-ELEM UOW, you
specify those elements in the Profile file that you wish to retrieve or alter. For each
element, the GET-PROFILE-ELEM UOW returns a block containing the unique
numeric identifier of the element, a return code and the data contained in the element.
In general, the GET-PROFILE-ELEM UOW and ALTER-PROFILE-ELEM UOW are
used together in this way:
1. The GET-PROFILE-ELEM UOW returns data elements.
2. The ALTER-PROFILE-ELEM UOW allows you to use the elements returned by the
GET-PROFILE-ELEM UOW to alter the profile.
The following examples describe coding techniques.
Example 1
A GET-PROFILE-ELEM request and response is written to retrieve three elements:
1. The depot privilege flags (ID 7)
2. The depot default output file name (ID 1003)
3. The depot default ordering criteria and item-retention time (ID 22)
The ID numbers refer to the DDL data definitions for the Profile file data elements;
these IDs and definitions are listed in a table that follows the GET-PROFILE-ELEM
UOW discussion. The COBOL coding is:
01 myget-prof-elem-uow.
copy get-profile-elem-usk of gcob.
05 num-wanted PIC 9999 COMP VALUE 3.
copy id-depot-privilege-flags of gcob.
copy id-depot-mail-filename of gcob.
copy id-depot-folder-defaults of gcob.
01 myget-prof-elem-rsp.
copy get-profile-elem-rsk of gcob.
copy data-depot-privilege-flags of gcob.
copy data-depot-mail-filename of gcob.
copy data-depot-folder-defaults of gcob.