Redefined Code

My Cobol numeric operation is not reacting to negative numbers.?

Code reappears then negative numbers as non-numerical because of the letter at the end. Can anyone point me in the right direction? Example: 0006546K AMOUNT-EXP 05-IN PIC S9 (6) V99. AMOUNT-IN-05 X REDEFINES AMOUNT-EXP-EN PIC X (8). CHECK-480-DE-numeric-AMOUNT. IF AMOUNT IS NOT NUMERIC IN X then move "yes" to NO AMOUNT – numeric-WS MOVE "Quantity is not numeric" MESSAGE TO ERROR-350-OUT-PERFORM IF ELSE PRINT amount in X <0 THEN MOVE "negative number" to an error-MESSAGE-OUT PERFORM 350-PRINT ELSE MOVE 'NO' TO AMOUNT NOT-numeric-FIN-SI-WS.

You should be able to perform the tests of the class in the numeric field itself, without the need to redefine the field (in any case should not see much in X <0). Try this: if the quantity-EXP-DIGITAL IN NO … ELSE IF-EXP-AMOUNT IN NEGATIVE … ELSE … END-IF.

Second Cycle: Redefined

Smith & Wesson Code 4 Safety Glasses, Clear Lenses, Black Frame $11.52 Code 4 safety glasses Clear lenses Black frame Scratch-resistant polycarbonate lenses Ribbed, non-slip rubber nose cushion Contoured temple tips for precise fit Hinge-stops help prevent lens damage Lightweight (weighs less than an ounce) Meet ANSI Z87.1+ impact standard 99.9% UV protection S&W logo on temple Polycarbonate safety glasses protect your eyes from impact, but the glasses deteriorate due to scratches, light, etc., and should be replaced after 2 years.

Franzen Security Gun Combination Trigger Lock, Universal $13.19 Combination trigger lock Works on most firearms, airguns & airsoft guns Universal fit Ergonomic design facilitates rapid installation No keys to lose; set your own personal combination Complies with applicable laws Set multiple combination trigger locks with same combination The lock is set to to open at "000" Instructions for setting the combination: Put the lock in the open position by twisting the face of the lock (the half that displays the combination). Locate the set pin on the side of the lock. Using a ballpoint pen, push in the set pin and hold. Turn the dials one at a time to set your own code. Release the set pin after your code is set. Pull apart the lock halves and place the half with the combination over the triggerguard. Match the other half on the opposite side of the triggerguard and fit the shafts together. Press the lock together until it’s unmovable. Remove by dialing the combination, twisting the face of the lock and pulling it apart.

Smith & Wesson Magnum Series Smoke Lens Safety Glasses $9.59 The Code 4 Series safety glasses are ergonomically dimensioned for a 3 point fit, the ultimate in comfort. Comes in a Black Frame with Smoke Lens. Exceeds ANSI Z87.1-2003 safety standards Provides maximum UV protection Ribbed non-slip rubber nose cushion Contoured temple tips Hinge stops to prevent scratched lenses Polycarbonate safety glasses protect your eyes from impact, but the glasses deteriorate due to scratches, light, etc., and should be replaced after 2 years.

Be Sociable, Share!

•