Re: Ugh.

From: Leif Svalgaard <leif@leif.org>
> From: Jon Paris <Jon.Paris@Partner400.com>
> > > > How big is the receiver - is it 10 digits long by any chance?
> SBDY    12
> LOD1    52           load BIN
> CVSBPD  10        receiver packed
> LOD1    87           PACKED literal value  1
> ADDP    11  0   0
> CVPDSB  4          receiver binary
> STR1    52           store BIN

here is how I interpret the generated W-code:
Load BIN onto the stack
Convert the value on top of the stack to packed
and replace the top value with the converted value
which now sits on top of the stack
Load the literal P'1' onto the stack
Add the two top values as packed and replace them
by a single entry (packed) now sitting on top of the stack
Convert the top of the stack from packed to binary
and replace the top value with the result of the
conversion
Store that (binary) value back into BIN and pop the stack.
Assciated with each value on the stack is its data type,
so that the converters know how to do their job.
It's not clear to me what you mean by "the receiver".

>
>
> ID 52 ENTRY TYPE   DATA OBJ   DATA TYPE  1         STORAGE CLASS    3
> 1     OWNER        0          OFFSET     0         LENGTH
00000004
> 23    RESERVED 1   00000000   FLAGS      6000C000  FLAGS 2          80
>
> ID 10 ENTRY TYPE   DATA OBJ   DATA TYPE  8         STORAGE CLASS    3
> 1     OWNER        0          OFFSET     0         LENGTH
00000001
> 10    RESERVED 1   00000000   FLAGS      40008000  FLAGS 2          80
>
> ID 87 ENTRY TYPE   LITERAL    DATA TYPE  24        LITERAL TYPE     5
> 1     0000         LENGTH     1                    REPLICATION      1
> VALUE 0000009000000000        FLAGS            0000
>
> ID  4 ENTRY TYPE   DATA OBJ   DATA TYPE  8         STORAGE CLASS    3
> 1     OWNER        0          OFFSET     0         LENGTH
00000001
> 4     RESERVED 1   00000000   FLAGS      40008000  FLAGS 2          80
>
>
>
>
>
> _______________________________________________
> This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) mailing
list
> To post a message email: COBOL400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/cobol400-l
> or email: COBOL400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/cobol400-l.
>