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

[eurlix <eu...@li...>]

Hi Bernard,

Le Tue, 3 Sep 2002 14:11:48 +0200
ber...@cr... a =E9crit:

> Funny ! The area that is shown should be correct for a source
> field.
> =20
> What are the descriptions of your fields (pictures), and are we
> seeing the data of the source or destination field?
>=20
> Bernard Giroud
> Cr=E9dit Lyonnais (Suisse) SA
>=20

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-LIST=
F VERIF.
Run Time Error - Invalid Data Content
Field Description: len =3D 8, type =3D X, dec/pscale =3D 0/0, all =3D 0, =
just_r =3D 0, signs =3D 0/0
Data Dump, Address =3D 080C4F27
0000: 76 69 73 31 37 35 31 39=20
       v  i  s  1  7  5  1  9=20

     display wprogname " wtest(" wtest ") " wlabel " " f-listf " " verif =
upon std-error.
give :    =20
ECLAIR wtest(0) lst17519                         S      =20

look that "lst17519" is in place of "f-listf" and "S" in place of "verif"=
 !=20

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 sa=
me.

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 ...".

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