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 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
MOVE -1 TO WPUM365D-USER-TYPE-L
MOVE 2 TO WPUM365D-USER-TYPE-H
MOVE ' LEAD MUST BE BLANK OR L(LEAD USER)' TO
PERFORM 9000-ERROR THRU 9000-ERROR-EXIT.