++APAR(ASZ3079). /*--------------------------------------------------

COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD.1999

ASZ3079 990623 61VLLC MB OMCSIRM V3-- INCORROUT  OMCSXWRP ...... O__-PJS
ECL00099E 02 OMCSXWRP LINE# 2106 INPUT TO &CVD NOT 1 TO 4-BYTES

NOTE

This problem only occurs in the ECLV3 version of this ecp specially
built for Lend Lease.

DESCRIPTION

02.2106  SET TI4=&CVD(&B(0&SS(&BIT(&T5),2)))-&CVD(&B(0&SS(&BIT(&T4),2)))
         SET TI4=&CVD(&B(0&SS(&BIT(20952),2)))- ...
ECL00099E 02 OMCSXWRP LINE# 2106 INPUT TO &CVD NOT 1 TO 4-BYTES

FIX

The following three lines at about line 2085:

    SET (T&I,V)=&VS(&TX)
    SET (T&I,V)=&VS(&CX)
    SET (T&I,V)=&VS(&XX)

are to be replaced with these three lines:

    SET (T&I,V)=&VS(&TX)
    SET (C&I,V)=&VS(&CX)
    SET (X&I,V)=&VS(&XX)   
       */
++VER(Z038) FMID(ASEC200). /* getapar 00/02/29 14:55