01 a pic s9(5) value '-12345' how it will be stored

Answer Posted / nagaraj ramammorthy

here the usage clause is DISPLAY which is default. so each
digit takes one byte to store and the sign is punched with
the last digit..

so it will be stored as 1234N.

note:
numbers punched with '+' sign
0 - {
1 - A
2 - B
3 - C
4 - D
5 - E
6 - F
7 - G
8 - H
9 - I


numbers punched with '-' sign
0 - }
1 - J
2 - K
3 - L
4 - M
5 - N
6 - O
7 - P
8 - Q
9 - R

hope this is clear

Is This Answer Correct ?    6 Yes 1 No



Post New Answer       View All Answers


Please Help Members By Posting Answers For Below Questions

i want to learn mainframe..any websites and material to learn from basic..? my mail id : rajeswaribe2010@gmail.com

1768


How to get the last record in vsam file in cluster? And how can you get the ksds file records into your cobol program?

643


what is difference between cobol and cobol/400

21558


How did the release of cobol/370 version 1.3 improve the performance of release 1.1?

644


What is rmode(24)

676






How to traceback if I am getting SOC7 or SOC4 abend? List down the steps

742


Explain how you can characterize tables in cobol?

636


Program A (Normal COBBAT) calling a B Program (DB2COBOL, COBBATDB which is using a VSAM file. its a dynamic call. How we will handle VSAM file decleration in our from JCL from where we are running A PGM. And should we have PLAN for A pGM also. if possible can some one post a sample JCL. Thanks for help in advance.

5057


Is it possible that the redefines clause has different picture clauses compared to the one it redefined?

672


how can i see junk values in dclgen or in hostvariable of comp ?

2543


How do you reference the fixed block file formats from cobol programs

703


can anybody post me about file-aid and changemen tools pls and give me reference if any mainframe guys are there

1901


if we display var1 then what will b displayed in below condition. 77 var1 pic s9(2) value -10. 77 var1 pic s9(2) value -11. " " " -12. " " " -13. -14 ... ... -19.

5677


) How do u handle errors in BMS macro?

1427


What kind of error is trapped by on size error option?

740