Manualshelf

GDSX Manual

ManualsBrandsHP ManualsServerHP NonStop G-Series
411412413414415416417418419420
Using Pseudo Procedures in a NonStop TS/MP
Environment
Extended General Device Support (GDSX) Manual–134303
D-12
SCOBGDSX Listing
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.
79 Move "Initialization" to Ws-Send-Text.
80 *
81 100-IDS-Loop.
82 Move Zero to Ws-Send-Reply-Code.
83
84 Send Message Send-Msg
85 Reply Code 0 Yields Rcvd-Msg
86 On Error Perform 300-Send-Msg-Error.
87 *
88 If Ws-Rcvd-Function-Code = "d" or
89 Ws-Rcvd-Function-Code = "D"
90 Perform 150-Send-to-Delete-Server
91 Else
92 If Ws-Rcvd-Function-Code = "w" or
93 Ws-Rcvd-Function-Code = "W"
94 Perform 200-Send-to-Write-Server.
95 *
96 150-Send-to-Delete-Server.
97 Move "YES" to SERV-OK.
98 Begin-Transaction.
99
100 Send Ws-Rcvd to "Deleter"