01 a pic s9(5) value -12345,
if we disply a , the sign will overpunched with last digit
but i need to get the miuns sign in the result?

Answer Posted / mr.perfect

01 A pic s9(5) value -12345
01 B pic +9(5)
PROCEDURE DIVISION
MOVE A TO B
DISPLAY B
STOP RUN

o/P:
-12345

Will this work?

Is This Answer Correct ?    1 Yes 0 No



Post New Answer       View All Answers


Please Help Members By Posting Answers For Below Questions

What is the utilization of copybook in cobol? Could we utilize a similar copybook?

720


What is the difference between structured cobol programming and object alternativelyiented cobol programming?

711


Differentiate between structured cobol programming and object-oriented cobol programming.

669


What is the difference between a binary search and a sequential search what are the pertinent cobol?

735


how do you reference the variable unblock file formats from cobol programs

748






How you can characterize tables in cobol?

718


Can you please let me know the centre name of INS certification in Kolkata.

1715


What is the difference between a binary search and a sequential search? What are the pertinent cobol commands?

717


How to remove 2 duplicate records and copy only one using job control language?

753


input 1 input2 ouput1 output2 output 3 1 re 300 1 re 200 1 re 300 3 rc 500 1 re 200 2 rr 400 1 re 300 2 rr 400 1 rc 400 3 rc 500 1 rc 400 2 rr 700 2 rr 700 5 tt 900 5 tt 900 2 inputs r in flat file and output 1 is matched records,ouptput2 is unmatched of input1,output3 is unmatched of input2! how vl u get the output files using sequential order and to check with each and every records! let me know the procedure division ?

1876


What is the default value(s) for an initialize? What keyword will allow for an override of the default?

661


A table has two indexes defined. Which one will be used by the SEARCH?

759


Mention the guidelines to write a structured cobol program?

620


i want a program using by if, evaluate , string, unstring, perform, occurs?

4061


Why would you use find and get rather than to obtain?

690