[Search for users] [Overall Top Noters] [List of all Conferences] [Download this site]

Conference rocks::dec_edi

Title:DEC/EDI
Notice:DEC/EDI V2.1 - see note 2002
Moderator:METSYS::BABER
Created:Wed Jun 06 1990
Last Modified:Fri Jun 06 1997
Last Successful Update:Fri Jun 06 1997
Number of topics:3150
Total number of notes:13466

3050.0. "Problem with DEC/EDI client inhouse routing" by EEMELI::PLAHTEENMAKI () Wed Mar 12 1997 14:31

Hi,

I use filebridge to map inhousefile into DEC/EDI. In inhouse field is 1
character lenght field. When I map it to DEC/EDI it changes to 3 character
length field even it is defined to be 1 character length numeric field.

DEC/EDI is a version 1.3
JOPOX::      Application services                         DECNET           1.3
VAX/VMS V6.1  on node JOPOX   7-MAR-1997 10:29:35.21   Uptime  10 17:23:41
  Pid    Process Name    State  Pri      I/O       CPU       Page flts Ph.Mem


This is from filebridge

SEGMENT TUN;    /*  Tunnistetiedot */
 01  ELEMENT_PONI                      ; /* M*/
  02 TUN_PONI                         CH SIZE 50; /* O POTILASNIMI*/
 01  ELEMENT_HETU                      ; /* M*/
  02 TUN_HETU                         AN SIZE 11; /* O HENKILOTUNNUS*/
 01  ELEMENT_SUPU                      ; /* M*/

  02 TUN_SUPU                         N  SIZE 01; /* O SUKUPUOLI*/

******************************************************************************
This are definitions from DEC/EDI

  Standard   : EDIF 1

  Element ID : SUPU                   Definition Source : Local

    Position    Dictionary No.       Requirement

    0001        SUPU                     O
 

 Standard : EDIF 1                Partner ID :

 Document Type         External   Document Description            Definition
                       Document                                   Source
 PYVAYL                PYVAYL     PYYNTO_VASTAUS_YLEINEN          Local
 Group Type :          Controlling Agency :     Version : 1    Release :

     Segment Position  Segment ID   Requirement  Definition Source
     0002              TUN              M        Local
     Description                    Area  Loop ID  Loop Count      Repeat
     Tunnistetiedot                 D              0               1
                                          Loop Requirement

          Element Position   Element ID   Requirement  Definition Source
          0003               SUPU             M        Local

 Element ID : SUPU

  Sub-Element Position   Dictionary Number   Definition Source       Requirement
  0001                   SUPU                Local                   O

    Description    : SUKUPUOLI
    Min Length     : 1
    Max Length     : 1
    Data Type      : N
    Justification  : R
    Pad Character  :
    Data Label     : TUN_SUPU
    Default        :

  Standard : EDIF 1

                                      Definition Source : Local
  Segment ID   Segment Description
  TUN          Tunnistetiedot

              Position      Element ID            Requirement

              0001          PONI                      M
              0002          HETU                      M
              0003          SUPU                      M
              0004          TILA                      O
              0005          LAHE                      M
              0006          SAKU                      O
              0007          TUNU                      O
  
Here I include alse filebridge degub.log



  FB SEGMENT: TUN;
  DEFAULT SOURCE INSTANCE:  RIVI_S{1}
 TUN_PONI = if(RIVI_REC.NIMI <> ' ') then RIVI_REC.NIMI;
      VALUE SET TO: "TERVE TEEMU                                       "
 TUN_HETU = if(RIVI_REC.HENKILOTUNNUS <> ' ') then
  $SUBSTR(1,6,RIVI_REC.HENKILOTUNNUS)|'-'|$SUBSTR(7,4,RIVI_REC.HENKILOTUNNUS);
      VALUE SET TO: "121212-TETM"
 TUN_SUPU = if(RIVI_REC.SUKUPUOLITUNNUS <> ' ') then
 $INT(RIVI_REC.SUKUPUOLITUNNUS);
      VALUE SET TO: "1"

 TUN_LAHE = if(RIVI_REC.NIMI <> ' ') then '1' ;
      VALUE SET TO: "1"


 Last Modified Date        : 03-MAR-1997 10:32


Still in dump you can see, its 3 char log.

Record number 51 (00000033), 14 (000E) bytes, RFA(0003,0000,00C0)

     2020 31203A20 55505553 5F4E5554 TUN_SUPU : 1  .. 000000



Thanks!
T.RTitleUserPersonal
Name
DateLines