XML-Datei einlesen

[Fuerchau]

Ich hätte da noch den Counter für die DIM's mit aufgenommen;-).

[Rainer Ross]

Jetzt mit Counter

         ctl-opt main(main) dftactgrp(*no) option(*nounref);
      //------------------------------------------------------------------//
      //                                                                  //
      // Test - Parse XML - Alex                                          //
      //                                                                  //
      //-----------------                                                 //
      // R.Ross 08.2019 *                                                 //
      //------------------------------------------------------------------//
      // Array XML-File                                                   //
      // Das Root-Element SHARK-ERP wird mit Rsp = Response überschrieben //
      // path=SHARK-ERP                                                   //
      //------------------------------------------------------------------//

         dcl-ds Rsp      qualified inz;
          dcl-ds Article;
                  ArticleNumber              char(10);
                  AlternativeArticleNumber   char(10);
                  EAN                        char(13);
                  Description                char(30);
                  Description1               char(30);
                  Description2               char(30);
                  Unit                       char(30);
                  BatchNumberRequired        char(30);
                  SerialNumberRequired       char(30);
            dcl-ds Packages;
             dcl-ds Package;
              dcl-ds Replenishments;
                      cnt_Replenishment      uns(10);
               dcl-ds Replenishment          dim(05);
                       Zone                  char(10);
                       LocationStrategy      char(10);
               end-ds;
              end-ds;
              dcl-ds LocationTypes;
                      cnt_LocationType       uns(10);
               dcl-ds LocationType           dim(05);
                       Name                  char(30);
                       Qty                   char(10);
               end-ds;
              end-ds;
             end-ds;
            end-ds;

          end-ds;
         end-ds;

      //------------------------------------------------------------------//
      // Main                                                             //
      //------------------------------------------------------------------//
         dcl-proc main;

         dcl-s   LocOpt      varchar(256);
         dcl-s   LocFile     varchar(256);

           Locfile = '/home/import/xml/NewSolutions01.xml';

           LocOpt  = 'doc=file +
                      path=SHARK-ERP +
                      countprefix=cnt_ +
                      case=any +
                      allowextra=yes +
                      allowmissing=yes';              // XML-Options

           xml-into rsp %xml(LocFile:LocOpt);

         end-proc;
      //------------------------------------------------------------------//