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 / saravana

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

Is This Answer Correct ?    2 Yes 0 No



Post New Answer       View All Answers


Please Help Members By Posting Answers For Below Questions

i made it to stage 3 of an interview process wednessday they will quiz my knowledge again face to face for an analyst role recruiter said it will be based on Business requirements system is cobol and good ideas what they might ask etc

2105


What are 77 levels used for?

659


Write a cobol program making use of the redefine clause.

734


How to print 10 to 1 if the input have only 10 digit number?

811


Hi pls anybody tell me about " ANALYSIS DOCUMENT PREPARATION AND ESTIMATION OF TASK " (in real time project)."I want to update a sequential file in my project" for that purpose i need both structures i mean analysis document and estimation of task.

1701






) what is the difference between AID and HANDLE AID?

1637


how do you reference the esds vsam file formats from cobol programs

634


What is the difference between PIC 9.99 and 9v99 in COBOL?

732


Why is it necessary that file needs to be opened in I-O mode for REWRITE?

748


I have one ps file in which there are 3 fileds emp_no,emp_name and leave_app.this ps file information give the detail of employee which is going to apply for leave.suppose emp_no=113430,emp_name=ajay,leave_app=1 that means he is going to apply for 1 day leave.and accordingling the table in db2 will be updated means if he has that no of leave in his account then he will get dat leave and updated acc. in table(leave_balance=previous leave present in table-leave_app).Now i want to check whther the updated result is correct or not by comparing the two ps file using IEBCOMPARE or icetool so what is going to be the two ps file and how its is going to be compare.

2010


What is cobol?

747


What is a report item?

741


How many bytes S(8) comp field occupy and its maximum value?

1632


What is the Purpose of Pointer in the string?

643


I have a File that has duplicate records. I need only those records that occur more than thrice.?

8657