HP NonStop G-Series - Manual (Page 99)

Developing a Tandem Program to Create UMS Messages
Using DDE Hot and Warm Data Links
110838 Tandem Computers Incorporated 7–3
05 DDE-ITEM-NAME PIC X(101).
03 UMS-USER-DATA.
05 FIRST-NAME PIC X(15).
05 LAST-NAME PIC X(20).
05 SALARY PIC 9(6).9(2).
05 TERMINATING-NULL-BYTE PIC X.
RSC-HEADER Example An example of the COBOL85 code used to set up the RSC header RSC-HEADER
follows:
MOVE ZERO TO N-CODE OF RSC-HEADER
SET RSC-C30 OF U-VERSION OF RSC-HEADER TO TRUE
STRING “TERM01” DELIMITED BY SIZE
LOW-VALUE DELIMITED BY SIZE
INTO AC-TERMINAL-NAME OF RSC-HEADER
STRING “TDMGW-UMS-SESSION” DELIMITED BY SIZE
LOW-VALUE DELIMITED BY SIZE
INTO AC-ALIAS OF RSC-HEADER
SET RSC-SESSION-ALIAS OF U-ALIAS-TYPE OF RSC-HEADER TO TRUE
UMS-USER-HEADER
Example
An example of the COBOL85 code used to set up the Tandem DDE Gateway header
UMS-USER-HEADER follows:
MOVE “1” TO MESSAGE-VERSION OF UMS-USER-HEADER
STRING “EMPLOYEE.UPDATE” DELIMITED BY SIZE
LOW-VALUE DELIMITED BY SIZE
INTO DDE-ITEM-NAME OF UMS-USER-HEADER
Considerations
The MESSAGE-VERSION field must always be set to 1.
Set DDE-ITEM-NAME to a string. This is the string to which your DDE client
applications create DDE hot and warm links. Always include a byte of binary zeros as
the terminator. Depending on the requirements of your application, the
DDE-ITEM-NAME might identify only the message (for example, STOCK.PRICE) or
DDE-ITEM-NAME could contain some other identification (for example,
STOCK.PRICE.TANDEM). This second option allows your client applications to
create DDE hot and warm links to specific messages. There can be up to 256 hot and
warm links per DDE conversation.
DDE-ITEM-NAME should consist of letters, numbers, and periods. Start the name
with a letter. For compatibility with Microsoft Excel, do not use hyphens. Before
deciding on a DDE-ITEM-NAME naming scheme, check that the names will be
accepted by the client applications and tools that you plan to use.
UMS-USER-DATA Example An example of the COBOL85 code used to set up the application data UMS-USER-
DATA follows:
MOVE “ROGER” TO FIRST-NAME OF UMS-USER-DATA
MOVE “GREEN” TO LAST-NAME OF UMS-USER-DATA
MOVE 175500 TO SALARY OF UMS-USER-DATA
MOVE LOW-VALUE TO TERMINATING-NULL-BYTE OF UMS-USER-DATA