RE: Ugh.

[Winchester Terry <terry.winchester@xxxxxxxxxxxxxxx>]

Leif,

If you're at V5R1 and you include the OPTIONS keyword
and COMPASBIN is not in the post list - I would call
IBM.  Maybe there's a PTF you need...

We certainly have it here, but I don't know what are
CUM level is :(  I'll ask the Systems Programmer when
he returns....

Terry


> -----Original Message-----
> From: Leif Svalgaard [mailto:leif@leif.org]
> Sent: Thursday, July 25, 2002 10:19 AM
> To: cobol400-l@midrange.com
> Subject: Re: Ugh.
>
>
> From: Winchester Terry <terry.winchester@raymondcorp.com>
> > > -- COMPASBIN -- will provide the necessary overrides so
> that the AS400
> > > treats the programs the same as MVS/VSE with respect to COMP.
> > >
>
> I'm hijacking this reply to report that even the ILE compiler
> still converts binary to packed internally.
>
>      9     000900 77 BIN PIC S9(9) BINARY.
>    12     001300     ADD 1 TO BIN
>
> compiles to (W-code)
>
> SBDY   12
> LOD1
> CVSBPD   <== convert binary to packed
> LOD1
> ADDP       <== add packed
> SHFD
> CVPDSB  <== convert packed to binary
> STR1
>
> this was compiled with standard options.
>
> Now try COMPASBIN:
>
>   STMT PL SEQNBR -A 1 B..+....2....+....3....+
>            000100 PROCESS COMPASBIN
>      1     000200 IDENTIFICATION DIVISION.
>
> *        MSGID: LNC0026  SEVERITY: 10  SEQNBR:  000100
>          Message . . . . :   Option expected, 'COMPASBIN'
> found. 'COMPASBIN'
>            ignored.
>
> what did I do wrong here?
>