I went through the compiler listing this time... All working storage fields
referencing moves to this variable are defined as 9(09) and all database
fields defining this field are referenced as S9(09) COMP.. Still the data
gets stored in this COMP field as trailing zeroes for some reason.

I am sending the dataset record layout and 1 record for reference. As you
can see below that both CHECK# and PROCESSED-BY fields are I2 fields and
defined as S9(09) COMP. I am moving 0 to PROCESSED-BY field and valid check
number 8282 and you can see the difference on how the data gets stored in
each of those 2 fields.. I am moving proper numeric amount fields (those are
also I2) and they are defined as S9(07)V99 COMP and there is no problem at
all in them.


    PREMCASH-RECEIPT Detail                  Set# 5
       Entry:                     Offset
          PREM#                X12     1  (!PREMIUM-A)
          ACCT-ID#             X10    13  (ACCOUNT-A)
          MONTH                X6     23  (MONTH-A)
          RECEIPT#             X12    29  (RECEIPT-A)
          AMOUNT               I2     41
          AMTARCHBAL           I2     45
          APPLIED-FLAG         X2     49
          BATCH#               X8     51
          BILL-TO              X2     59
          CHECK#               I2     61
          EFT-INFO             X2     65
          INVOICE#             X12    67
          NAME                 X20    79
          OP#                  X4     99
          POSTED1              X2    103
          POSTED2              X2    105
          PROCESSED-BY         I2    107
          TRANS#               X12   111
          TRANSCODE            X2    123
          TRANS-POSTED         X2    125
          TYPE                 X2    127
          YMDDUE               X8    129
          YMDPAIDTHRU          X8    137
          YMDPROCESS           X8    145
          YMDRCVD              X8    153
          YMDTRANS             X8    161
    Capacity: 19999 (1)  Entries: 30  Highwater: 30  Bytes: 168
------------------
PREM#           = XFCE00000447   ACCT-ID#        = A070000010
MONTH           = 200210         RECEIPT#        = XFCE00000963
AMOUNT          = 1000           AMTARCHBAL      = 1000
APPLIED-FLAG    = NO             BATCH#          = D01234LP
BILL-TO         = D              CHECK#          = 828200000
EFT-INFO        =                INVOICE#        = DF0500000058
NAME            =
OP#             = RZR            POSTED1         = YE
POSTED2         = NO             PROCESSED-BY    = 0
TRANS#          =                TRANSCODE       = AD
TRANS-POSTED    = NO             TYPE            =
YMDDUE          =        0       YMDPAIDTHRU     = 20021031
YMDPROCESS      = 20021024       YMDRCVD         = 20021212
YMDTRANS        = 20021024
------------------

Thanks again
Raghu.


-----Original Message-----
From: Ken Hirsch [mailto:[log in to unmask]]
Sent: Thursday, October 24, 2002 9:04 AM
To: Rao, Raghu; [log in to unmask]
Subject: Re: [HP3000-L] COBOL : Trailing zeroes this time........


From: "Rao, Raghu" <[log in to unmask]>
> Hi,
>
> I am trying to store records into detail dataset. The particular field
that
> is giving trouble to me is a I2 field {defined as S9(09) COMP}. If I move
> zeroes to this field and perform a DBPUT, everything works out fine.. But
> when I have a valid numeric number in this field, it stores it with
trailing
> zeroes..
>
> For ex., I am moving value 1298 into this field and it gets stored as
> 129800000.

There can't literally be stored trailing zeros because it is a binary field,
not a decimal field, although the binary equivalent of 129800000 might be
stored there.  Are you sure your field isn't defined as S9(4)v9(5) in your
program?  You might want to read through the compiler listing to make sure
you are compiling what you think you're compiling.

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *