Code: Select all
COMPUTE K215-SUM = K215-FIRST – K215-SECOND
IF K215-SUM < 100 AND K100-ACCOUNT-NO = 110 OR 118 OR 120 OR 125 OR 130 OR 132 OR 136 OR 140 OR 148 OR 150 OR 155 OR 156 OR 160 OR 165 OR 168 OR 171 OR 172 OR 175 OR 176 OR 180 OR 185
MOVE 'Account exist' TO K110-STATE
ELSE
STRING K215-SUM
' To capital accout' INTO K110-MESSAGE-TEXT
END-IF.