TRANSFER Reference Manual

GET-PROFILE-ELEM
TISERV UOW Descriptions
2–318 069139, Update 1 to 40969 Tandem Computers Incorporated
GET-PROFILE-ELEM
(UOW Code 203)
GET-PROFILE-ELEM retrieves data elements from a depot or system profile.
Typically, this UOW is issued before an ALTER- PROFILE-ELEM UOW.
Definition I is a DDL skeleton for general applications use.
DEF get-profile-elem-usk.
02 hdr.
03 self-ident PIC AA VALUE "UW".
03 uow-code TYPE BINARY 16 UNSIGNED VALUE 203.
02 corr-name TYPE PIC X(80) VALUE SPACES.
02 group-name REDEFINES corr-name.
END.
DEF get-profile-elem-rsk.
02 hdr.
03 self-ident PIC AA VALUE "UW".
03 uow-code TYPE BINARY 16 UNSIGNED VALUE 203.
02 retn-code TYPE BINARY 16.
02 retn-code-detail TYPE BINARY 16.
02 corr-name TYPE PIC X(80).
02 group-name REDEFINES corr-name.
02 num-returned TYPE BINARY 16.
END.
Definition II is for use with SCOBOL programs.
DEF get-profile-elem-uow.
02 hdr.
03 self-ident PIC AA VALUE "UW".
03 uow-code TYPE BINARY 16 UNSIGNED VALUE 203.
02 corr-name TYPE PIC X(80) VALUE SPACES.
02 group-name REDEFINES corr-name.
02 num-returned TYPE BINARY 16 UNSIGNED.
02 elem-identifier TYPE BINARY 16 OCCURS 0 TO 10
TIMES DEPENDING ON num-returned.
END.
DEF get-profile-elem-rsp.
02 hdr.
03 self-ident PIC AA VALUE "UW".
03 uow-code TYPE BINARY 16 UNSIGNED VALUE 203.
02 retn-code TYPE BINARY 16.
02 retn-code-detail TYPE BINARY 16.
02 corr-name TYPE PIC X(80).
02 group-name REDEFINES corr-name.
02 num-returned TYPE BINARY 16 UNSIGNED.
02 elem-data-block TYPE PROFILE-ELEM-SHORT OCCURS 0
TO 10 TIMES DEPENDING
ON NUM-RETURNED
END.