GDSX (Extended General Device Support) Manual

Using Pseudo Procedures in a TS/MP Environment
Extended General Device Support (GDSX) Manual—529931-001
D-12
SCOBGDSX Listing
11 Source-Computer. T16.
12 Object-Computer. T16,
13 Terminal is Intelligent.
14
15
******************************************************************************
16 Data Division.
17
******************************************************************************
18 Working-Storage Section.
19 *
20 01 Ws-Send.
21 05 Ws-Send-Reply-Code Pic 9(4) Comp.
22 05 Ws-Send-Function-Code Pic X(01).
23 05 Ws-Send-Loop Pic 9(03).
24 05 Ws-Send-Key1 Pic X(08).
25 05 Ws-Send-Text Pic X(50).
26 *
27 01 Ws-Rcvd.
28 05 Ws-Rcvd-Reply-Code Pic 9(4) Comp.
29 05 Ws-Rcvd-Function-Code Pic X(01).
30 05 Ws-Rcvd-Loop Pic 9(03).
31 05 Ws-Rcvd-Key1 Pic X(08).
32 05 Ws-Rcvd-Text Pic X(50).
33
34 *
35 01 Flags.
36 02 Ws-Exit-Flag Pic 9(01) Value 0.
37 88 Exit-Program Value 1.
38 02 Serv-Ok Pic X(03).
40
******************************************************************************
41 Message Section.
42
******************************************************************************
43 01 Send-Msg.
44 05 Send-Msg-Reply-Code Pic 9(4) Comp
45 From Ws-Send-Reply-Code.
46 05 Send-Msg-Function-Code Pic X(01)
47 From Ws-Send-Function-Code.
48 05 Send-Msg-Loop Pic 9(03)
49 From Ws-Send-Loop.
50 05 Send-Msg-Key-1 Pic X(08)
51 From Ws-Send-Key1.
52 05 Send-Msg-Text Pic X(50)
53 From Ws-Send-Text.
54 *
55 01 Rcvd-Msg.
56 05 Rcvd-Msg-Reply-Code Pic 9(4) Comp
57 To Ws-Rcvd-Reply-Code.
58 05 Rcvd-Msg-Function-Code Pic X(01)
59 To Ws-Rcvd-Function-Code.
60 05 Rcvd-Msg-Loop Pic 9(03)
61 To Ws-Rcvd-Loop.
62 05 Rcvd-Msg-Key-1 Pic X(08)
63 To Ws-Rcvd-Key1.
64 05 Rcvd-Msg-Text Pic X(50)
65 To Ws-Rcvd-Text.
66 *
67
*******************************************************************************
68 Procedure Division.
69
*******************************************************************************
70 001-Main-Line.
71 Perform 050-Initialize-Data.
72 Perform 100-IDS-Loop until Exit-Program.
73 Perform 999-Exit-Program.
74 *
75 050-Initialize-Data.
76 Move 0 to Ws-Exit-Flag.
77 *
78 Move Space to Ws-Send-Text.