Process DBCS,NSYMBOL(NATIONAL),NOSUPPRESS
       IDENTIFICATION DIVISION.
       PROGRAM-ID.    ALPMTS2
       AUTHOR.        Dehler
       DATE-WRITTEN.  05.10.2022
       DATE-COMPILED.
      *****************************************************************
      *                                                                *
      *            B E S C H R E I B U N G                             *
      *            =======================                             *
      *                                                                *
      *                                                                *
      * PROGRAMM (technisch) :  ALPMTS2                                *
      *                                                                *
      *          (symbolisch):  Übungspogramm                          *
      *                                                                *
      * AUTOR                :  Dehler                                 *
      *                                                                *
      * SPRACHE              :  Cobol                                  *
      *                                                                *
      * KURZBESCHREIBUNG     :  Sachen ausprobieren                    *
      *                                                                *
      ******************************************************************
      /
      ******************************************************************
      *                                                                *
      *         A E N D E R U N G S D O K U M E N T A T I O N          *
      *         =============================================          *
      *                                                                *
      *  GEN-NR.    DATUM         AUFTRAG       AUSFUEHRENDE(R)        *
      *----------------------------------------------------------------*
      *  01        05.10.2022     R+V           Dehler                 *
      *                                                                *
      *  BESCHREIBUNG DER AENDERUNG                                    *
      *  ==========================                                    *
      *                                                                *
      *  01: Neuerstellung                                             *
      ******************************************************************
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SPECIAL-NAMES.
           DECIMAL-POINT IS COMMA.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
      /
       DATA DIVISION.
       FILE SECTION.
      
      *-----------------------*
       WORKING-STORAGE SECTION.
      *-----------------------*
      
      
       01 ZielFeld-UTF8          PIC X(5000).
       01 ZielFeld-EBCDIC        PIC X(5000).
      
       01 ZW-LAENGE-Ausgabe-JSON     Pic S9(09) Comp-5 Value +0.
      
       01 Display-Example.
          05 Display-Variable      PIC ---9.
       01 Display-Example2.
          05 Display-Variable      PIC 9.
      
       01 DataEin-Data                  PIC X(500).
       01 DataEin-Len                   PIC 9(09).
      
      /
      *---------------*
       LINKAGE SECTION.
      
      
       PROCEDURE DIVISION.
      
      *
      *=================================================================
       STEUERUNG SECTION.
      *=================================================================
      *
           Perform Display-Test
      
           .
      
           GOBACK.
      *=================================================================
       Display-Test SECTION.
      *=================================================================
      
           Move 2 To Display-Variable IN Display-Example
      
           JSON Generate ZielFeld-UTF8  From Display-Example
                Count In ZW-LAENGE-Ausgabe-JSON
           End-JSON
      
           Move Function Display-of (
                Function National-of (ZielFeld-UTF8, 1208))
                                     to ZielFeld-EBCDIC
           Display 'ALPMTS2: Generiert EBCDIC >>'
                   ZielFeld-EBCDIC(1:ZW-LAENGE-Ausgabe-JSON)
                   '<<'
      
           Initialize Display-Example
      
           JSON Parse ZielFeld-UTF8(1:ZW-LAENGE-Ausgabe-JSON)
                Into Display-Example
                With Detail
           End-JSON
      
           Display 'ALPMTS2: Display-Variable>>'
                   Display-Variable IN Display-Example
                   '<<'
      *-----------------------------------------------------------------
      
           Move 2 To Display-Variable IN Display-Example2
      
           JSON Generate ZielFeld-UTF8  From Display-Example2
                Count In ZW-LAENGE-Ausgabe-JSON
                Name Display-Example2 is 'Display-Example'
           End-JSON
      
           Move Function Display-of (
                Function National-of (ZielFeld-UTF8, 1208))
                                     to ZielFeld-EBCDIC
           Display 'ALPMTS2: Generiert EBCDIC >>'
                   ZielFeld-EBCDIC(1:ZW-LAENGE-Ausgabe-JSON)
                   '<<'
      
           Initialize Display-Example
      
           JSON Parse ZielFeld-UTF8(1:ZW-LAENGE-Ausgabe-JSON)
                Into Display-Example
                With Detail
           End-JSON
      
           Display 'ALPMTS2: Display-Variable>>'
                   Display-Variable IN Display-Example
                   '<<'
           .
           Exit.
      *
      *==========>     ALPMTS2   - E N D E <======================*