Release code as open sourceHEADmaster

1 files changed, 90 insertions, 0 deletions

diff --git a/specification/src/Text/Edifact/D96A/Simples/S4233.hs b/specification/src/Text/Edifact/D96A/Simples/S4233.hs
new file mode 100644
index 0000000..f288b86
--- /dev/null
+++ b/specification/src/Text/Edifact/D96A/Simples/S4233.hs
@@ -0,0 +1,90 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+---- Machine generated code.
+---- Output of edi-parser-scaffolder
+
+module Text.Edifact.D96A.Simples.S4233
+  ( simple4233
+  ) where
+
+import           Text.Edifact.Parsing
+import           Text.Edifact.Types   (Value)
+
+-- | Derived from this specification:
+--
+-- > * 4233  Marking instructions, coded
+-- >
+-- >   Desc: Code indicating instructions on how specified packages or
+-- >         physical units should be marked.
+-- >
+-- >   Repr: an..3
+-- >
+-- >         1 Do not mark suppliers company name
+-- >              Self explanatory.
+-- >         2 Mark customers company name
+-- >              Self explanatory.
+-- >         3 Mark customers references
+-- >              Self explanatory.
+-- >         4 Mark additionally customers article description
+-- >              Self explanatory.
+-- >         5 Mark exclusively customers article description
+-- >              Self explanatory.
+-- >         6 Mark packages dimensions
+-- >              Self explanatory.
+-- >         7 Mark net weight
+-- >              Self explanatory.
+-- >         8 Mark gross weight
+-- >              Self explanatory.
+-- >         9 Mark tare weight
+-- >              Self explanatory.
+-- >        10 Mark batch number
+-- >              Self explanatory.
+-- >        11 Mark article number customer
+-- >              Self explanatory.
+-- >        12 Mark running number of packages
+-- >              Self explanatory.
+-- >        13 Mark date of production
+-- >              Self explanatory.
+-- >        14 Mark expiry date
+-- >              Self explanatory.
+-- >        15 Mark supplier number
+-- >              Self explanatory.
+-- >        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 Premarked by buyer
+-- >              Self explanatory.
+-- >        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
+-- >              Description to be provided.
+-- > +      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
+-- >              Self explanatory.
+simple4233 :: Parser Value
+simple4233 = simple "4233" (alphaNumeric `upTo` 3)