1 files changed, 414 insertions, 0 deletions

diff --git a/specification/src/Text/Edifact/D96A/Simples/S3055.hs b/specification/src/Text/Edifact/D96A/Simples/S3055.hs
new file mode 100644
index 0000000..66d33ea
--- /dev/null
+++ b/specification/src/Text/Edifact/D96A/Simples/S3055.hs
@@ -0,0 +1,414 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+---- Machine generated code.
+---- Output of edi-parser-scaffolder
+
+module Text.Edifact.D96A.Simples.S3055
+  ( simple3055
+  ) where
+
+import           Text.Edifact.Parsing
+import           Text.Edifact.Types   (Value)
+
+-- | Derived from this specification:
+--
+-- > * 3055  Code list responsible agency, coded
+-- >
+-- >   Desc: Code identifying the agency responsible for a code list.
+-- >
+-- >   Repr: an..3
+-- >
+-- >         1 CCC (Customs Co-operation Council)
+-- >              Self explanatory.
+-- >         2 CEC (Commission of the European Communities)
+-- >              Generic: see also 140, 141, 142, 162.
+-- >         3 IATA (International Air Transport Association)
+-- >              Self explanatory.
+-- >         4 ICC (International Chamber of Commerce)
+-- >              Self explanatory.
+-- >         5 ISO (International Organization for Standardization)
+-- >              Self explanatory.
+-- >         6 UN/ECE (United Nations - Economic Commission for Europe)
+-- >              Self explanatory.
+-- >         7 CEFIC (Conseil Europeen des Federations de l'Industrie
+-- >           Chimique)
+-- >              EDI project for chemical industry.
+-- >         8 EDIFICE
+-- >              EDI Forum for companies with Interest in Computing and
+-- >              Electronics (EDI project for EDP/ADP sector).
+-- >         9 EAN (International Article Numbering association)
+-- >              Self explanatory.
+-- >        10 ODETTE
+-- >              Organization for Data Exchange through Tele-Transmission
+-- >              in Europe (European automotive industry project).
+-- >        11 Lloyd's register of shipping
+-- >              Self explanatory.
+-- >        12 UIC (International union of railways)
+-- >              Western and Eastern European railways association (35
+-- >              networks). UIC with its legal body (CIT) produce codes
+-- >              and reglementations that are internationally recognized
+-- >              and accepted by all European railways and official
+-- >              bodies.
+-- >        13 ICAO (International Civil Aviation Organisation)
+-- >              Self explanatory.
+-- >        14 ICS (International Chamber of Shipping)
+-- >              Self explanatory.
+-- >        15 RINET (Reinsurance and Insurance Network)
+-- >              Self explanatory.
+-- >        16 DUNS (Dun & Bradstreet)
+-- >              Self explanatory.
+-- >        17 S.W.I.F.T.
+-- >              Society for Worldwide Interbank Financial
+-- >              Telecommunications s.c.
+-- >        18 Conventions on SAD and transit (EC and EFTA)
+-- >              SAD = Single Administrative Document.
+-- >        19 FRRC (Federal Reserve Routing Code)
+-- >              Self explanatory.
+-- >        20 BIC (Bureau International des Containeurs)
+-- >              Self explanatory.
+-- >        21 Assigned by transport company
+-- >              Codes assigned by a transport company.
+-- >        22 US, ISA (Information Systems Agreement)
+-- >              Codes assigned by the ISA for use by its members.
+-- >        23 FR, EDITRANSPORT
+-- >              French association developing EDI in transport logistics.
+-- >        24 AU, ROA (Railways of Australia)
+-- >              Maintains code lists which are accepted by Australian
+-- >              government railways.
+-- >        25 EDITEX (Europe)
+-- >              EDI group for the textile and clothing industry.
+-- >        26 NL, Foundation Uniform Transport Code
+-- >              Foundation Uniform Transport Code is the EDI organisation
+-- >              for shippers, carriers and other logistic service
+-- >              providers in the Netherlands.
+-- >        27 US, FDA (Food and Drug Administration)
+-- >              U.S. food and drug administration.
+-- >        28 EDITEUR (European book sector electronic data interchange
+-- >           group)
+-- >              Code identifying the pan European user group for the book
+-- >              industry as an organisation responsible for code values
+-- >              in the book industry.
+-- >        29 GB, FLEETNET
+-- >              Association of fleet vehicle hiring and leasing companies
+-- >              in the UK.
+-- >        30 GB, ABTA (Association of British Travel Agencies)
+-- >              ABTA, Association of British Travel Agencies.
+-- >        31 FI, Finish State Railway
+-- >              Finish State Railway.
+-- >        32 PL, Polish State Railway
+-- >              Polish State Railway.
+-- >        33 BG, Bulgaria State Railway
+-- >              Bulgaria State Railway.
+-- >        34 RO, Rumanian State Railway
+-- >              Rumanian State Railway.
+-- >        35 CZ, Tchechian State Railway
+-- >              Tchechian State Railway.
+-- >        36 HU, Hungarian State Railway
+-- >              Hungarian State Railway.
+-- >        37 GB, British Railways
+-- >              British Railways.
+-- >        38 ES, Spanish National Railway
+-- >              Spanish National Railway.
+-- >        39 SE, Swedish State Railway
+-- >              Swedish State Railway.
+-- >        40 NO, Norwegian State Railway
+-- >              Norwegian State Railway.
+-- >        41 DE, German Railway
+-- >              German Railway.
+-- >        42 AT, Austrian Federal Railways
+-- >              Austrian Federal Railways.
+-- >        43 LU, Luxembourg National Railway Company
+-- >              Luxembourg National Railway Company.
+-- >        44 IT, Italian State Railways
+-- >              Italian State Railways.
+-- >        45 NL, Netherlands Railways
+-- >              Netherlands Railways.
+-- >        46 CH, Swiss Federal Railways
+-- >              Swiss Federal Railways.
+-- >        47 DK, Danish State Railways
+-- >              Danish State Railways.
+-- >        48 FR, French National Railway Company
+-- >              French National Railway Company.
+-- >        49 BE, Belgian National Railway Company
+-- >              Belgian National Railway Company.
+-- >        50 PT, Portuguese Railways
+-- >              Portuguese Railways.
+-- >        51 SK, Slovacian State Railways
+-- >              Slovacian State Railways.
+-- >        52 IE, Irish Transport Company
+-- >              Irish Transport Company.
+-- >        53 FIATA (International Federation of Freight Forwarders
+-- >           Associations)
+-- >              International Federation of Freight Forwarders
+-- >              Associations.
+-- >        54 IMO (International Maritime Organisation)
+-- >              International Maritime Organisation.
+-- >        55 US, DOT (United States Department of Transportation)
+-- >              United States Department of Transportation.
+-- > |      56 TW, Trade-van
+-- >              Trade-van is an EDI/VAN service centre for customs,
+-- >              transport, and insurance in national and international
+-- >              trade.
+-- >        57 TW, Chinese Taipei Customs
+-- >              Customs authorities of Chinese Taipei responsible for
+-- >              collecting import duties and preventing smuggling.
+-- >        58 EUROFER
+-- >              European steel organisation - EDI project for the
+-- >              European steel industry.
+-- >        59 DE, EDIBAU
+-- >              National body responsible for the German codification in
+-- >              the construction area.
+-- > +      60 Assigned by national trade agency
+-- >              The code list is from a national agency.
+-- > +      61 Association Europeenne des Constructeurs de Materiel
+-- >           Aerospatial (AECMA)
+-- >              A code to identify the Association Europeenne des
+-- >              Constructeurs de Materiel Aeropsatial (European
+-- >              Association of Aerospace Products Manufacturers) as an
+-- >              authorizing agency for code lists.
+-- > +      62 US, DIstilled Spirits Council of the United States (DISCUS)
+-- >              United States DIstilled Spirits Council of the United
+-- >              States (DISCUS).
+-- > +      63 North Atlantic Treaty Organization (NATO)
+-- >              A code to identify the North Atlantic Treaty Organization
+-- >              (NATO) as an authorizing agency for code lists.
+-- > +      64 FR, EDIFRANCE
+-- >              French association responsible for coordination and
+-- >              promotion of EDI application in France.
+-- > +      65 FR, GENCOD
+-- >              French organization responsible for EDI and Barcoding
+-- >              application in the retail sector.
+-- > +      66 MY, Malaysian Customs and Excise
+-- >              Malaysia Royal Customs and Excise.
+-- > +      67 MY, Malaysia Central Bank
+-- >              Malaysia Central Bank is a regulatory body set up by the
+-- >              government to charge with promoting economic monetary and
+-- >              credit condition favourable to commercial and industrial
+-- >              activity.
+-- > +      68 US, Bureau of Alcohol, Tobacco and Firearms (BATF)
+-- >              United States Bureau of Alcohol, Tobacco and Firearms
+-- >              (BATF).
+-- > +      69 US, National Alcohol Beverage Control Association (NABCA)
+-- >              United States National Alcohol Beverage Control
+-- >              Association (NABCA).
+-- > +      70 MY, Dagang.Net
+-- >              Malaysia, Dagang.Net is a national clearing house which
+-- >              provide EDI/VAN service for customs, transport, retail
+-- >              and financial and other industries in the national and
+-- >              international trade.
+-- >        86 Assigned by party originating the message
+-- >              Codes assigned by the party originating the message.
+-- >        87 Assigned by carrier
+-- >              Codes assigned by the carrier.
+-- >        88 Assigned by owner of operation
+-- >              Assigned by owner of operation (e.g. used in
+-- >              construction).
+-- >        89 Assigned by distributor
+-- >              Self explanatory.
+-- >        90 Assigned by manufacturer
+-- >              Self explanatory.
+-- >        91 Assigned by seller or seller's agent
+-- >              Self explanatory.
+-- >        92 Assigned by buyer or buyer's agent
+-- >              Self explanatory.
+-- >        93 AT, Austrian Customs
+-- >              Self explanatory.
+-- >        94 AT, Austrian PTT
+-- >              Self explanatory.
+-- >        95 AU, Australian Customs Services
+-- >              Self explanatory.
+-- >        96 CA, Revenue Canada, Customs and Excise
+-- >              Self explanatory.
+-- >        97 CH, Administration federale des contributions
+-- >              Indirect taxation (e.g. turn-over/sales taxes).
+-- >        98 CH, Direction generale des douanes
+-- >              Customs (incl. ISO alpha 2 country code).
+-- >        99 CH, Division des importations et exportations, OFAEE
+-- >              Import and export licences.
+-- >       100 CH, Entreprise des PTT
+-- >              Telephone (voice/data) + telex numbers, postcodes, postal
+-- >              account numbers.
+-- >       101 CH, Carbura
+-- >              Centrale suisse pour l'importation de carburants et
+-- >              combustibles liquides (Oil products).
+-- >       102 CH, Centrale suisse pour l'importation du charbon
+-- >              Coal.
+-- >       103 CH, Office fiduciaire des importateurs de denrees
+-- >           alimentaires
+-- >              Foodstuff.
+-- >       104 CH, Association suisse code des articles
+-- >              Swiss article numbering association.
+-- >       105 DK, Ministry of taxation, Central Customs and Tax
+-- >           Administration
+-- >              Danish Customs administration.
+-- >       106 FR, Direction generale des douanes et droits indirects
+-- >              French Customs.
+-- >       107 FR, INSEE
+-- >              Institut National de la Statistique et des Etudes
+-- >              Economiques.
+-- >       108 FR, Banque de France
+-- >              Self explanatory.
+-- >       109 GB, H.M. Customs & Excise
+-- >              Self explanatory.
+-- >       110 IE, Revenue Commissionners, Customs AEP project
+-- >              Self explanatory.
+-- >       111 US, U.S. Customs Service
+-- >              Self explanatory.
+-- >       112 US, U.S. Census Bureau
+-- >              The Bureau of the Census of the U.S. Dept. of Commerce.
+-- >       113 US, UPC (Uniform product code)
+-- >              Self explanatory.
+-- >       114 US, ABA (American Bankers Association)
+-- >              Self explanatory.
+-- >       115 US, DODAAC (Department Of Defense Active Agency Code)
+-- >              Self explanatory.
+-- >       116 US, ANSI ASC X12
+-- >              American National Standards Institute ASC X12.
+-- >       117 AT, Geldausgabeautomaten-Service Gesellschaft m.b.H.
+-- >              Description to be provided.
+-- >       118 SE, Svenska Bankfoereningen
+-- >              Swedish bankers association.
+-- >       119 IT, Associazione Bancaria Italiana
+-- >              Self explanatory.
+-- >       120 IT, Socieata' Interbancaria per l'Automazione
+-- >              Self explanatory.
+-- >       121 CH, Telekurs AG
+-- >              Self explanatory.
+-- >       122 CH, Swiss Securities Clearing Corporation
+-- >              Self explanatory.
+-- >       123 NO, Norwegian Interbank Research Organization
+-- >              Self explanatory.
+-- >       124 NO, Norwegian Bankers Ass.
+-- >              Self explanatory.
+-- >       125 FI, The Finnish Bankers' Association
+-- >              Self explanatory.
+-- >       126 US, NCCMA (Account Analysis Codes)
+-- >              Self explanatory.
+-- >       128 BE, Belgian Bankers' Association
+-- >              Self explanatory.
+-- >       129 BE, Belgian Ministry of Finance
+-- >              VAT numbers.
+-- >       130 DK, PBS (Pengainstitutternes Betalings Service)
+-- >              Self explanatory.
+-- >       131 DE, German Bankers Association
+-- >              Self explanatory.
+-- >       132 GB, BACS Limited
+-- >              Self explanatory.
+-- >       133 GB, Association for Payment Clearing Services
+-- >              Self explanatory.
+-- >       134 GB, CHAPS and Town Clearing Company Ltd.
+-- >              Self explanatory.
+-- >       135 GB, The Clearing House
+-- >              Self explanatory.
+-- > |     136 GB, Article Number Association (UK) Limited
+-- >              EAN bar-coding.
+-- >       137 AT, Verband oesterreichischer Banken und Bankiers
+-- >              Austrian bankers association.
+-- >       138 FR, CFONB (Comite francais d'organ. et de normalisation
+-- >           bancaires)
+-- >              National body responsible for the french codification in
+-- >              banking activity.
+-- >       139 UPU (Universal Postal Union)
+-- >              (a..3 country code).
+-- >       140 CEC (Commission of the European Communities), DG/XXI-01
+-- >              (Computerization within Customs area).
+-- >       141 CEC (Commission of the European Communities), DG/XXI-B-1
+-- >              Description to be provided.
+-- >       142 CEC (Commission of the European Communities), DG/XXXIV
+-- >              Statistical Office of the European Communities: e.g.
+-- >              Geonomenclature.
+-- >       143 NZ, New Zealand Customs
+-- >              Self explanatory.
+-- >       144 NL, Netherlands Customs
+-- >              Self explanatory.
+-- >       145 SE, Swedish Customs
+-- >              Self explanatory.
+-- >       146 DE, German Customs
+-- >              Self explanatory.
+-- >       147 BE, Belgian Customs
+-- >              Self explanatory.
+-- >       148 ES, Spanish Customs
+-- >              Self explanatory.
+-- >       149 IL, Israel Customs
+-- >              Self explanatory.
+-- >       150 HK, Hong Kong Customs
+-- >              Self explanatory.
+-- >       151 JP, Japan Customs
+-- >              Self explanatory.
+-- >       152 SA, Saudi Arabia Customs
+-- >              Self explanatory.
+-- >       153 IT, Italian Customs
+-- >              Self explanatory.
+-- >       154 GR, Greek Customs
+-- >              Self explanatory.
+-- >       155 PT, Portuguese Customs
+-- >              Self explanatory.
+-- >       156 LU, Luxembourg Customs
+-- >              Self explanatory.
+-- >       157 NO, Norwegian Customs
+-- >              Self explanatory.
+-- >       158 FI, Finnish Customs
+-- >              Self explanatory.
+-- >       159 IS, Iceland Customs
+-- >              Self explanatory.
+-- >       160 LI, Liechtenstein authority
+-- >              (Identification of relevant responsible agency for e.g.
+-- >              banking/financial matters still pending. For e.g.
+-- >              Customs, currency, post/telephone: see relevant CH
+-- >              entry).
+-- >       161 UNCTAD (United Nations - Conference on Trade And
+-- >           Development)
+-- >              Self explanatory.
+-- >       162 CEC (Commission of the European Communities), DG/XIII-D-5
+-- >              (TEDIS - incl. CEBIS -, INSIS and CADDIA projects).
+-- >       163 US, FMC (Federal Maritime Commission)
+-- >              Self explanatory.
+-- >       164 US, DEA (Drug Enforcement Agency)
+-- >              Self explanatory.
+-- >       165 US, DCI (Distribution Codes, INC.)
+-- >              Self explanatory.
+-- >       166 US, National Motor Freight Classification Association
+-- >              Self explanatory.
+-- >       167 US, AIAG (Automotive Industry Action Group)
+-- >              Self explanatory.
+-- >       168 US, FIPS (Federal Information Publishing Standard)
+-- >              Self explanatory.
+-- >       169 CA, SCC (Standards Council of Canada)
+-- >              Self explanatory.
+-- >       170 CA, CPA (Canadian Payment Association)
+-- >              Self explanatory.
+-- >       171 NL, Bank Girocentrale BV
+-- >              Self explanatory.
+-- >       172 NL, BEANET BV
+-- >              Self explanatory.
+-- >       173 NO, NORPRO
+-- >              Self explanatory.
+-- >       174 DE, DIN (Deutsches Institut fuer Normung)
+-- >              German standardization institute.
+-- >       175 FCI (Factors Chain International)
+-- >              Self explanatory.
+-- >       176 BR, Banco Central do Brazil
+-- >              Self-explanatory.
+-- >       177 AU, LIFA (Life Insurance Federation of Australia)
+-- >              Life Insurance Federation of Australia.
+-- >       178 AU, SAA (Standards Association of Australia)
+-- >              Standards Association of Australia.
+-- >       179 US, Air transport association of America
+-- >              U.S. -based trade association representing the major
+-- >              North American scheduled airlines.
+-- >       181 Edibuild
+-- >              EDI organization for companies in the construction
+-- >              industry.
+-- >       182 US, Standard Carrier Alpha Code (Motor)
+-- >              Organisation maintaining the SCAC lists and
+-- >              transportation operating in North America.
+-- >       183 US, American Petroleum Institute
+-- >              US-based trade association representing oil and natural
+-- >              gas producers, shippers, refineries, marketers, and major
+-- >              suppliers to the industry.
+-- >       184 AU, ACOS (Australian Chamber of Shipping)
+-- >              Self explanatory.
+-- >    ZZZ    Mutually defined
+-- >              Self explanatory.
+simple3055 :: Parser Value
+simple3055 = simple "3055" (alphaNumeric `upTo` 3)