Re: still can't get INFDS working.. ##@%%#%@%

[Douglas Handy <dhandy@xxxxxxxxx>]

Scott (et al),

> It appears that RPG II doesn't really understand the 'b' data type as
> a numeric field.  Or, at the very least, it has no clue how to treat it
> as a number.

It does when used in I-specs outside a data structure.  However, in
RPG II you may only have character and zoned decimal fields inside a
DS definition.  The compiler does not support packed or binary DS
subfields.

> The only alternative that I can think of is to use the bitwise operations
> to convert it from binary to zoned, but that would be rather ugly!

Which is exactly how I did it in RPG II programs on the 400.  On the
S/36 itself, I wrote an assembler subroutine to get the cursor
position because the INFDS did not contain the data, even in binary
form.  But when I ported to the 400, I had to switch to the INFDS
method with bytes 370 and 371 as one-character fields each, which I
then converted to decimal using a series of TESTB operations.

Doug