GDSX (Extended General Device Support) Manual

Using Pseudo Procedures in a TS/MP Environment
Extended General Device Support (GDSX) Manual—529931-001
D-14
WRITER Listing
27 Select Message-Out Assign to $Receive
28 File Status is Receive-File-Status.
29 *
30 Select Tstdat Assign to File1
31 Organization is Indexed
32 Access Mode is Dynamic
33 Record Key is Tstdat-Key
34 File Status is File-Stat.
35
36 *
37 Receive-Control.
38 Table occurs 3 Times
39 Syncdepth limit is 1
40 Reply contains 64 Characters.
41
42 Data Division.
43
44 File Section.
45
46 FD Message-In
47 Label Records are omitted
48 Record contains 1 to 64 Characters.
49
50 01 In-Message.
51 05 In-Message-Reply-Code Pic 9(04) Comp.
52 05 In-Message-Function-Code Pic X(01).
53 05 In-Message-Key.
54 10 In-Message-Loop Pic 9(03).
55 10 In-Message-Key-1 Pic X(08).
56 05 In-Message-Text Pic X(50).
57
59 FD Message-Out
60 Label Records are omitted
61 Record contains 1 to 64 Characters.
62
63 01 Out-Message.
64 05 Out-Message-Reply-Code Pic 9(04) Comp.
65 05 Out-Message-Function-Code Pic X(01).
66 05 Out-Message-Key.
67 10 Out-Message-Loop Pic 9(03).
68 10 Out-Message-Key-1 Pic X(08).
69 05 Out-Message-Text Pic X(50).
70
71 FD Tstdat
72 Label Records are omitted.
73
74 01 Tstdat-Rec.
75 05 Tstdat-Key.
76 10 Tstdat-Key-1 Pic X(08).
77 10 Tstdat-Loop Pic 9(03).
78 05 Tstdat-Text Pic X(50).
79
80
81 Working-Storage Section.
82
83 01 Misc-Data.
84 05 Ok-Message.
85 10 Filler Pic X(05) Value Spaces.
86 10 Ok-Nmbr Pic 9(03).
87 10 Filler Pic X(42)
88 Value " recs written ".
89 05 I Pic S9(04) Comp.
90 05 File-Stat Pic X(02).
91 05 File-Stat-N Redefines File-Stat Pic 9(02).
92 88 No-Error Value Zero.
93 88 File-Error Values 01 Thru 99.
94 88 End-of-file Value 10.
95 88 Already-Exists Value 22.
96 88 Not-Found Value 23.
97 88 Dataset-Full Value 24.
98 05 Receive-File-Status.
99 10 Stat-1 Pic 9(01) Value Zero.
100 88 Close-From-Requester Value 1.