pghiii
New User
Joined: 23 Aug 2005
Posts: 1
Location: Greenville, SC
|
|
|
|
Have some discussion going on in the office re. the results of comparing a 1-byte alpha field with a 2-byte constant with leading space. Specifically we are getting the compiler warning for the following:
WPUM365C-USER-TYPE PIC X.
IF USER-TYPE-CHANGED
IF WPUM365C-USER-TYPE EQUAL SPACES
The result of the comparison of operands WPUM365C-USER-TYPE and L is
known at compile time, based on the attributes of the operands.
Unconditional code was generated.
OR (WPUM365C-USER-TYPE EQUAL 'L ' OR ' L')
MOVE WPUM365C-USER-TYPE TO CM-USER-TYPE-REQUEST
ELSE
MOVE -1 TO WPUM365D-USER-TYPE-L
MOVE 2 TO WPUM365D-USER-TYPE-H
WPUM365D-USER-TYPE-C
MOVE ' LEAD MUST BE BLANK OR L(LEAD USER)' TO
WS-SAVE-MESSAGE
PERFORM 9000-ERROR THRU 9000-ERROR-EXIT.
I don't see why it's unconditional. |
|
