1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
|
{-# LANGUAGE OverloadedStrings #-}
module Text.Edifact.Common.Simples
( simple0001
, simple0002
, simple0004
, simple0007
, simple0008
, simple0010
, simple0014
, simple0017
, simple0019
, simple0020
, simple0022
, simple0025
, simple0026
, simple0029
, simple0031
, simple0032
, simple0035
, simple0036
, simple0042
, simple0046
, simple0051
, simple0052
, simple0054
, simple0057
, simple0062
, simple0065
, simple0068
, simple0070
, simple0073
, simple0074
, simple0080
, simple0081
, simple0133
) where
import Text.Edifact.Parsing
import Text.Edifact.Types (Value)
-- | Derived from this specification:
--
-- > 0001 Syntax identifier
-- > Repr: a4
simple0001 :: Parser Value
simple0001 = simple "0001" (alpha `exactly` 4)
-- | Derived from this specification:
--
-- > 0002 Syntax version number
-- > Repr: an1
simple0002 :: Parser Value
simple0002 = simple "0002" (alphaNumeric `exactly` 1)
-- | Derived from this specification:
--
-- > 0004 Interchange sender identification
-- > Repr: an..35
simple0004 :: Parser Value
simple0004 = simple "0004" (alphaNumeric `upTo` 35)
-- | Derived from this specification:
--
-- > 0007 Identification code qualifier
-- > Repr: an..4
simple0007 :: Parser Value
simple0007 = simple "0007" (alphaNumeric `upTo` 4)
-- | Derived from this specification:
--
-- > 0008 Interchange sender internal identification
-- > Repr: an..35
simple0008 :: Parser Value
simple0008 = simple "0008" (alphaNumeric `upTo` 35)
-- | Derived from this specification:
--
-- > 0010 Interchange recipient identification
-- > Repr: an..35
simple0010 :: Parser Value
simple0010 = simple "0010" (alphaNumeric `upTo` 35)
-- | Derived from this specification:
--
-- > 0014 Interchange recipient internal identification
-- > Repr: an..35
simple0014 :: Parser Value
simple0014 = simple "0014" (alphaNumeric `upTo` 35)
-- | Derived from this specification:
--
-- > 0017 Date
-- > Repr: n6
simple0017 :: Parser Value
simple0017 = simple "0017" (numeric `exactly` 6)
-- | Derived from this specification:
--
-- > 0019 Time
-- > Repr: n4
simple0019 :: Parser Value
simple0019 = simple "0019" (numeric `exactly` 4)
-- | Derived from this specification:
--
-- > 0020 Interchange control reference
-- > Repr: an..14
simple0020 :: Parser Value
simple0020 = simple "0020" (alphaNumeric `upTo` 14)
-- | Derived from this specification:
--
-- > 0022 Recipient reference/password
-- > Repr: an..14
simple0022 :: Parser Value
simple0022 = simple "0022" (alphaNumeric `upTo` 14)
-- | Derived from this specification:
--
-- > 0025 Recipient reference/password qualifier
-- > Repr: an2
simple0025 :: Parser Value
simple0025 = simple "0025" (alphaNumeric `exactly` 2)
-- | Derived from this specification:
--
-- > 0026 Application reference
-- > Repr: an..14
simple0026 :: Parser Value
simple0026 = simple "0026" (alphaNumeric `upTo` 14)
-- | Derived from this specification:
--
-- > 0029 Processing priority code
-- > Repr: a1
simple0029 :: Parser Value
simple0029 = simple "0029" (alphaNumeric `exactly` 1)
-- | Derived from this specification:
--
-- > 0031 Acknowledgement request
-- > Repr: n1
simple0031 :: Parser Value
simple0031 = simple "0031" (numeric `exactly` 1)
-- | Derived from this specification:
--
-- > 0032 Interchange agreement identifier
-- > Repr: an..35
simple0032 :: Parser Value
simple0032 = simple "0032" (alphaNumeric `upTo` 35)
-- | Derived from this specification:
--
-- > 0035 Test indicator
-- > Repr: n1
simple0035 :: Parser Value
simple0035 = simple "0035" (numeric `exactly` 1)
-- | Derived from this specification:
--
-- > 0036 Interchange control count
-- > Repr: n..6
simple0036 :: Parser Value
simple0036 = simple "0036" (numeric `upTo` 6)
-- | Derived from this specification:
--
-- > 0042 Interchange sender internal sub-identification
-- > Repr: an..35
simple0042 :: Parser Value
simple0042 = simple "0042" (alphaNumeric `upTo` 35)
-- | Derived from this specification:
--
-- > 0046 Interchange recipient internal sub-identification
-- > Repr: an..35
simple0046 :: Parser Value
simple0046 = simple "0046" (alphaNumeric `upTo` 35)
-- | Derived from this specification:
--
-- > 0051 Controlling agency
-- > Repr: an..2
simple0051 :: Parser Value
simple0051 = simple "0051" (alphaNumeric `upTo` 2)
-- | Derived from this specification:
--
-- > 0052 Message version number
-- > Repr: an..3
simple0052 :: Parser Value
simple0052 = simple "0052" (alphaNumeric `upTo` 3)
-- | Derived from this specification:
--
-- > 0054 Message release number
-- > Repr: an..3
simple0054 :: Parser Value
simple0054 = simple "0054" (alphaNumeric `upTo` 3)
-- | Derived from this specification:
--
-- > 0057 Association assigned code
-- > Repr: an..6
simple0057 :: Parser Value
simple0057 = simple "0057" (alphaNumeric `upTo` 6)
-- | Derived from this specification:
--
-- > 0062 MESSAGE REFERENCE NUMBER
-- > Repr: an..14
simple0062 :: Parser Value
simple0062 = simple "0062" (alphaNumeric `upTo` 14)
-- | Derived from this specification:
--
-- > 0065 Message type
-- > Repr: an..6
simple0065 :: Parser Value
simple0065 = simple "0065" (alphaNumeric `upTo` 6)
-- | Derived from this specification:
--
-- > 0068 COMMON ACCESS REFERENCE
-- > Repr: an..35
simple0068 :: Parser Value
simple0068 = simple "0068" (alphaNumeric `upTo` 35)
-- | Derived from this specification:
--
-- > 0070 Sequence of transfers
-- > Repr: n..2
simple0070 :: Parser Value
simple0070 = simple "0070" (numeric `upTo` 2)
-- | Derived from this specification:
--
-- > 0073 First and last transfer
-- > Repr: a1
simple0073 :: Parser Value
simple0073 = simple "0073" (alpha `exactly` 1)
-- | Derived from this specification:
--
-- > 0074 NUMBER OF SEGMENTS IN THE MESSAGE
-- > Repr: n..6
simple0074 :: Parser Value
simple0074 = simple "0074" (numeric `upTo` 6)
-- | Derived from this specification:
--
-- > 0080 Service code list directory version number
-- > Repr: an..6
simple0080 :: Parser Value
simple0080 = simple "0080" (alphaNumeric `upTo` 6)
-- | Derived from this specification:
--
-- > 0081 SECTION IDENTIFICATION
-- > Repr: a1
simple0081 :: Parser Value
simple0081 = simple "0081" (alpha `exactly` 1)
-- | Derived from this specification:
--
-- > 0133 Character encoding, coded
-- > Repr: an..3
simple0133 :: Parser Value
simple0133 = simple "0133" (alphaNumeric `upTo` 3)
|