1 files changed, 126 insertions, 0 deletions

diff --git a/specification/src/Text/Edifact/D01B/Simples/S4233.hs b/specification/src/Text/Edifact/D01B/Simples/S4233.hs
new file mode 100644
index 0000000..f326544
--- /dev/null
+++ b/specification/src/Text/Edifact/D01B/Simples/S4233.hs
@@ -0,0 +1,126 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+---- Machine generated code.
+---- Output of edi-parser-scaffolder
+
+module Text.Edifact.D01B.Simples.S4233
+  ( simple4233
+  ) where
+
+import           Text.Edifact.Parsing
+import           Text.Edifact.Types   (Value)
+
+-- | Derived from this specification:
+--
+-- >      4233  Marking instructions code                               [B]
+-- >
+-- >      Desc: Code specifying instructions for marking.
+-- >
+-- >      Repr: an..3
+-- >
+-- >      1     Do not mark suppliers company name
+-- >               Packaging should not be marked with supplier's company
+-- >               name.
+-- >
+-- >      2     Mark customers company name
+-- >               Packaging should be marked with customer's company name.
+-- >
+-- >      3     Mark customers references
+-- >               Packaging should be marked with customer's references.
+-- >
+-- >      4     Mark additionally customers article description
+-- >               Packaging should also be marked with customer's article
+-- >               description.
+-- >
+-- >      5     Mark exclusively customers article description
+-- >               Packaging should be marked with customer's article
+-- >               description only.
+-- >
+-- >      6     Mark packages dimensions
+-- >               Packaging should be marked with package's dimensions.
+-- >
+-- >      7     Mark net weight
+-- >               Packaging should be marked with net weight.
+-- >
+-- >      8     Mark gross weight
+-- >               Packaging should be marked with gross weight.
+-- >
+-- >      9     Mark tare weight
+-- >               Packaging should be marked with tare weight.
+-- >
+-- >      10    Mark batch number
+-- >               Packaging should be marked with batch number.
+-- >
+-- >      11    Mark article number customer
+-- >               Packaging should be marked with customer's article
+-- >               number.
+-- >
+-- >      12    Mark running number of packages
+-- >               Packaging should be marked with the running number of
+-- >               packages.
+-- >
+-- >      13    Mark date of production
+-- >               Packaging should be marked with the date of production.
+-- >
+-- >      14    Mark expiry date
+-- >               Packaging should be marked with the expiry date.
+-- >
+-- >      15    Mark supplier number
+-- >               Packaging should be marked with the supplier number.
+-- >
+-- >      16    Buyer's instructions
+-- >               Markings as specified by the buyer.
+-- >
+-- >      17    Seller's instructions
+-- >               Markings as specified by the seller.
+-- >
+-- >      18    Carrier's instructions
+-- >               Markings as specified by carrier.
+-- >
+-- >      19    Legal requirements
+-- >               Markings as specified by law.
+-- >
+-- >      20    Industry instructions
+-- >               Markings as specified by industry.
+-- >
+-- >      21    Line item only
+-- >               Exclusive reference markings for this line.
+-- >
+-- >      22    Pre-marked by buyer
+-- >               Packaging should be pre-marked by buyer.
+-- >
+-- >      23    Entire shipment
+-- >               Markings refer to the entire shipment.
+-- >
+-- >      24    Shipper assigned
+-- >               Markings to identify a shipment, package or carton as
+-- >               assigned by shipper.
+-- >
+-- >      25    Shipper assigned roll number
+-- >               Markings to identify a roll as assigned by the shipper.
+-- >
+-- >      26    Shipper assigned skid number
+-- >               Markings used to identify a skid as assigned by shipper.
+-- >
+-- >      27    Uniform Code Council (UCC) format
+-- >               Markings according to UCC format are required. System of
+-- >               coding products where by each item/multipack case type
+-- >               is uniquely identified. A unique manufacturer Id is
+-- >               assigned by the UCC.
+-- >
+-- >      28    Mark free text
+-- >               Packaging should be marked with free text.
+-- >
+-- >      29    Mark case number
+-- >               Case numbers to be used for marking.
+-- >
+-- >      30    Mark serial shipping container code
+-- >               Requests the marking of the serial shipping container
+-- >               code to the transport container or packaging.
+-- >
+-- >      ZZZ   Mutually defined
+-- >               A code assigned within a code list to be used on an
+-- >               interim basis and as defined among trading partners
+-- >               until a precise code can be assigned to the code list.
+simple4233 :: Parser Value
+simple4233 = simple "4233" (alphaNumeric `upTo` 3)