Re: [Tiny-cobol-users] Run Time Error ??

[Bernard G. <bg...@fr...>]

eurlix a écrit :

> Hi Bernard,
>
> Le Tue, 3 Sep 2002 14:11:48 +0200
> ber...@cr... a écrit:
>
> > Funny ! The area that is shown should be correct for a source
> > field.
> >
> > What are the descriptions of your fields (pictures), and are we
> > seeing the data of the source or destination field?
> >
> > Bernard Giroud
> > Crédit Lyonnais (Suisse) SA
> >
>
> Not really "funny", but we must laugh with we has ?
>
> Sure, we are seeing the source field, because the destination
> field is empty :
>
> with the folloving fields,
>
>  01  wtest pic 9 value 1.
>      88 debug value 1.
>  01  WLABEL PIC X(32) .
>  01  F-LISTF PIC X(32).
>  01  VERIF PIC X(1).
> the run of :
> ECLAIR 0#vis${USERNUM}#lst${USERNUM}#${SorV}#  2>eclair.como
>
>      ACCEPT intro   FROM COMMAND-LINE.
>      MOVE SPACE TO VERIF.
>      UNSTRING intro  DELIMITED BY '#'  INTO wprogname wtest WLABEL F-LISTF VERIF.
> Run Time Error - Invalid Data Content
> Field Description: len = 8, type = X, dec/pscale = 0/0, all = 0, just_r = 0, signs = 0/0
> Data Dump, Address = 080C4F27
> 0000: 76 69 73 31 37 35 31 39
>        v  i  s  1  7  5  1  9
>
>      display wprogname " wtest(" wtest ") " wlabel " " f-listf " " verif upon std-error.
> give :
> ECLAIR wtest(0) lst17519                         S
>
> look that "lst17519" is in place of "f-listf" and "S" in place of "verif" !
>

I'm not really surprised after debugging a little:
- your variable names indicate you are trying to get seperatly
the program name and the wtest zone, which means that
your intro must look something like (notice the sharp after
the pgm name)::
ECLAIR #0#vis${USERNUM}#lst${USERNUM}#${SorV}#  2>eclair.como

- but that's not enough: if you do a display of intro, before the
unstring, you don't get much; to get it right you need the following:
ECLAIR "#0#vis${USERNUM}#lst${USERNUM}#${SorV}#"  2>eclair.como

Hope this helps!

>
> I have replaced the accept from command-line by :
>    684    355 [00]:      move space to wtest wlabel f-listf verif
>    685    356 [00]:      call 'GETVAR' using wdebug wtest
>    686    357 [00]:      string "vis" usnum into wlabel
>    687    358 [00]:      string "lst" usnum into f-listf
>    688    359 [00]:      call 'GETVAR' using SorV verif
>    689    360 [00]:      display wprogname " par GETVAR : wtest(" wtest ") " wlabel " " f-listf " " verif upon std-error.
>    wich give :
> ECLAIR par GETVAR : wtest(0) vis17798                         lst17798                         S
> this is good.
>
> but, I have the same problem in an other program, where I can't do the same.
>
> In the sample above, the destination fields are not initialized, but in
> the other program they are padded to space before a simple "move"
> and the result is a very curious thing (more funny ;-).
>
> BTW : You can have more explanations on the problem with sort in
>   mu last mail to Hudson, in TC list, subject "How to reduce ...".
>

OK! I'll have a look this week!

>
> Regards,
> --
> Alain Lucari    Eurlix
> 1, rue Reine Elisabeth von Witellsbach
>        (Reine des Belges)
> 13001 Marseille
> FRANCE

Bernard