TRANSFER Reference Manual

START-SESSION-B40
TISERV UOW Descriptions
069139, Update 1 to 40969 Tandem Computers Incorporated 2–497
START-SESSION-B40
(UOW Code 100)
START-SESSION-B40 starts a session and allows you to select the preferred language
and character map for the session.
DEF start-session-B40-uow.
02 hdr.
03 self-ident PIC AA VALUE "UW".
03 uow-code TYPE BINARY 16 UNSIGNED VALUE 100.
02 applic-id PIC 9(4) COMP.
02 corr-name PIC X(120).
02 password PIC X(16).
02 curr-local-time.
03 year PIC 9(4).
03 month PIC 9(2).
03 day-of-month PIC 9(2).
03 hour PIC 9(2).
03 minute PIC 9(2).
03 second PIC 9(2).
02 redef-local-time REDEFINES curr-local-time.
03 century PIC 9(2).
03 accept-date PIC 9(6).
03 accept-time PIC 9(6).
02 lang-cmap-id.
03 language-id TYPE BINARY 16 UNSIGNED.
03 char-map-id.
04 code-page-id TYPE BINARY 16 UNSIGNED.
04 page-string REDEFINES code-page-id PIC XX.
04 code-set-id TYPE BINARY 16 UNSIGNED.
04 set-string REDEFINES code-set-id PIC XX.
END.
DEF start-session-b40-rsp.
02 hdr.
03 self-ident PIC AA VALUE "UW".
03 uow-code TYPE BINARY 16 UNSIGNED VALUE 100.
02 retn-code TYPE BINARY 16.
02 retn-code-detail TYPE BINARY 16.
02 filler PIC X.
02 server-version.
03 letter PIC A.
03 rev-number PIC 99.
02 time-zone-diff PIC S9(4) COMP.
02 resolved-name PIC X(120).
END.
HDR
is the UOW header. The UOW-CODE value is 100.