data in wrong file

JOHAN Johan Koelewijn j.koelewijn@thegreenery.com
Fri, 11 Jun 2004 16:03:50 +0200


--======_36720015121_======
Content-Type: text/plain; charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

Bob,

These are 2 different layouts on two different physical files.
Items have different names.
The problem is that I can't narrow the problem to one particular screen. =
Therefore I don't know if it's a subscreen that's causing problems.

Attached you will find the pdl's

Record VK-ORDER-KOP is written into LO-TOEW, so LO-TOEW contains wrong da=
ta.

Thanks,
Johan.

--======_36720015121_======
Content-Type: text/plain; charset="iso-8859-1"
Content-Disposition: attachment; filename="Qshogen672_.txt"
Content-Transfer-Encoding: quoted-printable

File LO-TOEW                                                             =
    &
  Organization INDEXED                                                   =
    &
  CREATE                                                                 =
    &
  Open HAS_DAT:LO_TOEW
 =

  Record LO-TOEW                                                         =
    &
    Item LO-TOEW-REC                                                     =
    &
      Datatype CHARACTER         Size   156
    Begin Structure
      Item VORD-OMV                                                      =
    &
        Datatype CHARACTER         Size     9
      Begin Structure
        Item TOEW-VORD-NR                                                =
    &
          Datatype ZONED UNSIGNED    Size     6
        Item TOEW-VORDO-RGL                                              =
    &
          Datatype ZONED UNSIGNED    Size     3
      End Structure
      Item TOEW-VOLG-NR                                                  =
    &
        Datatype ZONED UNSIGNED    Size     3
      Item ART-KE                                                        =
    &
        Datatype CHARACTER         Size    19
      Begin Structure
        Item TOEW-VRD-ART-NR                                             =
    &
          Datatype ZONED UNSIGNED    Size     9
        Item TOEW-KE-KD                                                  =
    &
          Datatype CHARACTER         Size    10
      End Structure
      Item ATL-OMV                                                       =
    &
        Datatype CHARACTER         Size    15
      Begin Structure
        Item TOEW-KE-OMV-ATL                                             =
    &
          Datatype ZONED UNSIGNED    Size     6
        Item TOEW-OMV-NR                                                 =
    &
          Datatype ZONED UNSIGNED    Size     9
      End Structure
      Item TOEW-VERSH                                                    =
    &
        Datatype ZONED UNSIGNED    Size     1
      Item TOEW-ONTV-DAT                                                 =
    &
        Datatype ZONED UNSIGNED    Size     8
      Item SRT-ORD-RGL                                                   =
    &
        Datatype CHARACTER         Size    10
      Begin Structure
        Item TOEW-ORD-SRT                                                =
    &
          Datatype CHARACTER         Size     1
        Item TOEW-ORD-NR                                                 =
    &
          Datatype ZONED UNSIGNED    Size     6
        Item TOEW-ORD-RGL                                                =
    &
          Datatype ZONED UNSIGNED    Size     3
      End Structure
      Item TOEW-LOK-NR                                                   =
    &
        Datatype ZONED UNSIGNED    Size     6
      Item TOEW-MERK-KD                                                  =
    &
        Datatype CHARACTER         Size     6
      Item TOEW-ATL                                                      =
    &
        Datatype INTEGER SIGNED    Size     4
      Item TOEW-ATL-ALLOK                                                =
    &
        Datatype INTEGER UNSIGNED  Size     4
      Item TOEW-ATL-UITL                                                 =
    &
        Datatype INTEGER SIGNED    Size     4
      Item TOEW-ATL-RET                                                  =
    &
        Datatype INTEGER UNSIGNED  Size     4
      Item TOEW-ATL-FAKT                                                 =
    &
        Datatype INTEGER UNSIGNED  Size     4
      Item TOEW-AE-KE-ATL                                                =
    &
        Datatype INTEGER SIGNED    Size     4
      Item TOEW-ORD-VORD-NR                                              =
    &
        Datatype ZONED UNSIGNED    Size     6
      Item VORD-AKTUEEL-JN                                               =
    &
        Datatype CHARACTER         Size     1
      Item TOEW-USER                                                     =
    &
        Datatype CHARACTER         Size    10
      Item TOEW-DAT                                                      =
    &
        Datatype ZONED UNSIGNED    Size     8
      Item TOEW-TYD                                                      =
    &
        Datatype INTEGER UNSIGNED  Size     2
      Item TOEW-UITL-DAT                                                 =
    &
        Datatype ZONED UNSIGNED    Size     8
      Item TOEW-UITL-TYD                                                 =
    &
        Datatype INTEGER UNSIGNED  Size     2
      Item TOEW-UITL-USER                                                =
    &
        Datatype CHARACTER         Size    10
      Item TOEW-UITL-DAT-HAS                                             =
    &
        Datatype ZONED UNSIGNED    Size     8
    End Structure
 =

    Index VO-RGL-VLG-KEY                  Unique    Ascending
      Segment TOEW-VORD-NR                                               =
    &
        Datatype ZONED UNSIGNED    Size    6
      Segment TOEW-VORDO-RGL                                             =
    &
        Datatype ZONED UNSIGNED    Size    3
      Segment TOEW-VOLG-NR                                               =
    &
        Datatype ZONED UNSIGNED    Size    3
 =

    Index SRT-IO-RGL-VO-KEY               Repeating Ascending            =
    &
      NULL VALUE "0"
      Segment TOEW-ORD-SRT                                               =
    &
        Datatype CHARACTER         Size    1
      Segment TOEW-ORD-NR                                                =
    &
        Datatype ZONED UNSIGNED    Size    6
      Segment TOEW-ORD-RGL                                               =
    &
        Datatype ZONED UNSIGNED    Size    3
      Segment TOEW-ORD-VORD-NR                                           =
    &
        Datatype ZONED UNSIGNED    Size    6
 =

    Index AK-AKG-AOG-LOK-OG-VG-KEY        Repeating Ascending
      Segment VORD-AKTUEEL-JN                                            =
    &
        Datatype CHARACTER         Size    1
      Segment ART-KE                                                     =
    &
        Datatype CHARACTER         Size   19
      Segment ATL-OMV                                                    =
    &
        Datatype CHARACTER         Size   15
      Segment TOEW-LOK-NR                                                =
    &
        Datatype ZONED UNSIGNED    Size    6
      Segment SRT-ORD-RGL                                                =
    &
        Datatype CHARACTER         Size   10
      Segment VORD-OMV                                                   =
    &
        Datatype CHARACTER         Size    9
 =

 =

File VK-ORDER-KOP                                                        =
    &
  Organization INDEXED                                                   =
    &
  CREATE                                                                 =
    &
  Open HAS_DAT:VK_ORDER_KOP
 =

  Record VK-ORDER-KOP                                                    =
    &
    Item VK-ORDER-KOP-REC                                                =
    &
      Datatype CHARACTER         Size   261
    Begin Structure
      Item VORD-NR                                                       =
    &
        Datatype ZONED UNSIGNED    Size     6
      Item VORD-SRT                                                      =
    &
        Datatype CHARACTER         Size     1
      Item KLNT-NR                                                       =
    &
        Datatype ZONED UNSIGNED    Size     6
      Item AFL-NR                                                        =
    &
        Datatype ZONED UNSIGNED    Size     6
      Item KLG-KD                                                        =
    &
        Datatype CHARACTER         Size     5
      Item VORD-DAT                                                      =
    &
        Datatype ZONED UNSIGNED    Size     8
      Item VORD-LEV-DAT                                                  =
    &
        Datatype ZONED UNSIGNED    Size     8
      Begin Structure
        Item VORD-LEV-DAT-A                                              =
    &
          Datatype CHARACTER         Size     8
      End Structure
      Item VORD-VERV-DAT                                                 =
    &
        Datatype ZONED UNSIGNED    Size     8
      Item VERK-KD                                                       =
    &
        Datatype CHARACTER         Size    10
      Item VAL-KD                                                        =
    &
        Datatype CHARACTER         Size     3
      Item TAAL-KD                                                       =
    &
        Datatype CHARACTER         Size     1
      Item VORD-KALK-KRS                                                 =
    &
        Datatype INTEGER UNSIGNED  Size     4
      Item VORD-BEWERK-JN                                                =
    &
        Datatype CHARACTER         Size     1
      Item FILLER                                                        =
    &
        Datatype CHARACTER         Size     4
      Item VORD-EXTERN-JN                                                =
    &
        Datatype CHARACTER         Size     1
      Item VRA-VERD-METH                                                 =
    &
        Datatype CHARACTER         Size     1
      Item VORD-FIN-KRS                                                  =
    &
        Datatype INTEGER UNSIGNED  Size     4
      Item VORD-GPT-KRS                                                  =
    &
        Datatype INTEGER UNSIGNED  Size     4
      Item VORD-BONUS-UITK-PRC                                           =
    &
        Datatype INTEGER SIGNED    Size     2
      Item VORD-BONUS-RES-PRC                                            =
    &
        Datatype INTEGER SIGNED    Size     2
      Item VORD-BONUS-RES-W-PRC                                          =
    &
        Datatype INTEGER SIGNED    Size     2
      Item VORD-BONUS-RES-I-PRC                                          =
    &
        Datatype INTEGER SIGNED    Size     2
      Item VORD-VUIL-UITK-PRC                                            =
    &
        Datatype INTEGER SIGNED    Size     2
      Item VORD-VUIL-RES-PRC                                             =
    &
        Datatype INTEGER SIGNED    Size     2
      Item VORD-VUIL-RES-W-PRC                                           =
    &
        Datatype INTEGER SIGNED    Size     2
      Item VORD-VUIL-RES-I-PRC                                           =
    &
        Datatype INTEGER SIGNED    Size     2
      Item VORD-INK-COMM-JN                                              =
    &
        Datatype CHARACTER         Size     1
      Item VORD-INK-COMM-PRC                                             =
    &
        Datatype INTEGER SIGNED    Size     2
      Item BVW-KD                                                        =
    &
        Datatype CHARACTER         Size     3
      Item LVW-KD                                                        =
    &
        Datatype CHARACTER         Size     3
      Item PRODS-KD                                                      =
    &
        Datatype CHARACTER         Size     3
      Item VORD-BASIS-NR                                                 =
    &
        Datatype ZONED UNSIGNED    Size     6
      Item VORD-TRSP-INSTR                                               =
    &
        Datatype CHARACTER         Size    50
      Item VORD-STATUS                                                   =
    &
        Datatype ZONED UNSIGNED    Size     1
      Item VORD-STATUS-DAT                                               =
    &
        Datatype ZONED UNSIGNED    Size     8
      Item VORD-OMV-REGTEL                                               =
    &
        Datatype ZONED UNSIGNED    Size     3
      Item VORD-KST-REGTEL                                               =
    &
        Datatype ZONED UNSIGNED    Size     3
      Item VORD-TXT-REGTEL                                               =
    &
        Datatype ZONED UNSIGNED    Size     3
      Item VORD-BEV-ATL                                                  =
    &
        Datatype INTEGER UNSIGNED  Size     2
      Item VORD-TREH-KD                                                  =
    &
        Datatype CHARACTER         Size     1
      Item VORD-STD-VRA-AUTO                                             =
    &
        Datatype INTEGER SIGNED    Size     4
      Item VORD-AFW-VRA-AUTO                                             =
    &
        Datatype INTEGER SIGNED    Size     4
      Item VORD-RET-VRA-AUTO                                             =
    &
        Datatype INTEGER SIGNED    Size     4
      Item VORD-AFW-VRA-BEDR                                             =
    &
        Datatype INTEGER SIGNED    Size     4
      Item VORD-STD-VRA-BEDR                                             =
    &
        Datatype INTEGER SIGNED    Size     4
      Item USR-KD                                                        =
    &
        Datatype CHARACTER         Size    10
      Item VORD-CONSIGN-JN                                               =
    &
        Datatype CHARACTER         Size     1
      Item VORD-LV-JN                                                    =
    &
        Datatype CHARACTER         Size     1
      Item VORD-AKTUEEL-JN                                               =
    &
        Datatype CHARACTER         Size     1
      Item VORD-VRA-AKK-JN                                               =
    &
        Datatype CHARACTER         Size     1
      Item VORD-REF                                                      =
    &
        Datatype CHARACTER         Size    25
      Item VORD-TRANS-REF                                                =
    &
        Datatype CHARACTER         Size    15
      Item VORD-INT-FAKT-JN                                              =
    &
        Datatype CHARACTER         Size     1
    End Structure
 =

    Index VO-KEY                          Unique    Ascending
      Segment VORD-NR                                                    =
    &
        Datatype ZONED UNSIGNED    Size    6
 =

    Index K-VO-KEY                        Unique    Ascending
      Segment KLNT-NR                                                    =
    &
        Datatype ZONED UNSIGNED    Size    6
      Segment VORD-NR                                                    =
    &
        Datatype ZONED UNSIGNED    Size    6
 =

    Index VORD-LEV-DAT-A                  Repeating Ascending
      Segment VORD-LEV-DAT-A                                             =
    &
        Datatype CHARACTER         Size    8
 =

    Index BVO-VO-KEY                      Unique    Ascending
      Segment VORD-BASIS-NR                                              =
    &
        Datatype ZONED UNSIGNED    Size    6
      Segment VORD-NR                                                    =
    &
        Datatype ZONED UNSIGNED    Size    6
 =

    Index VORD-DTA-VO-KEY                 Unique    Ascending
      Segment VORD-LEV-DAT-A                                             =
    &
        Datatype CHARACTER         Size    8
      Segment VORD-NR                                                    =
    &
        Datatype ZONED UNSIGNED    Size    6
 =

    Index AK-K-VO-KEY                     Unique    Ascending
      Segment VORD-AKTUEEL-JN                                            =
    &
        Datatype CHARACTER         Size    1
      Segment KLNT-NR                                                    =
    &
        Datatype ZONED UNSIGNED    Size    6
      Segment VORD-NR                                                    =
    &
        Datatype ZONED UNSIGNED    Size    6
 =

    Index AK-VO-KEY                       Unique    Ascending
      Segment VORD-AKTUEEL-JN                                            =
    &
        Datatype CHARACTER         Size    1
      Segment VORD-NR                                                    =
    &
        Datatype ZONED UNSIGNED    Size    6
 =

    Index AK-VERK-K-VO-KEY                Repeating Ascending
      Segment VORD-AKTUEEL-JN                                            =
    &
        Datatype CHARACTER         Size    1
      Segment VERK-KD                                                    =
    &
        Datatype CHARACTER         Size   10
      Segment KLNT-NR                                                    =
    &
        Datatype ZONED UNSIGNED    Size    6
      Segment VORD-NR                                                    =
    &
        Datatype ZONED UNSIGNED    Size    6
 =

    Index VO-I-KEY                        Repeating Descending
      Segment VORD-NR                                                    =
    &
        Datatype ZONED UNSIGNED    Size    6
 =

    Index K-VO-I-KEY                      Repeating Descending
      Segment KLNT-NR                                                    =
    &
        Datatype ZONED UNSIGNED    Size    6
      Segment VORD-NR                                                    =
    &
        Datatype ZONED UNSIGNED    Size    6
 =

    Index REF-VO-KEY                      Unique    Ascending
      Segment VORD-TRANS-REF                                             =
    &
        Datatype CHARACTER         Size   15
      Segment VORD-NR                                                    =
    &
        Datatype ZONED UNSIGNED    Size    6
 =

 =


--======_36720015121_======--