How to define variable 9(20) in COBOL, because compiler
does not allow us to declare variables with Pic 9(18). Can
anyone please let me know the answer... I know one answer
to this question which is to use Compiler option Arith
(Extend) during Compilation. It extends the maximum limit
to 9(32)..Just wanted to know if there is any other way to
extend this?
Answers were Sorted based on User's Feedback
Answer / abc
try with this:
01 VARIABLE-ABC.
03 VAR-1 PIC 9(18).
03 VAR-2 PIC 9(2).
This may work, please try and see.
| Is This Answer Correct ? | 10 Yes | 1 No |
Answer / vikram
01 VAR-1 PIC 9(18).
change the datatype then it's possible
01 VAR-1 PIC x(20).
| Is This Answer Correct ? | 1 Yes | 0 No |
try with this:
01 VARIABLE-ABC.
03 VAR-1 PIC 9(18).
03 VAR-2 PIC 9(2).
or
use PROCESS ARITH(EXTEND) before IDENTIFICATION DIVISION
ARITH option syntax
.-COMPAT-.
>>-ARITH(-+-EXTEND-+-)-----------------------------------------><
When you specify ARITH(EXTEND):
The maximum number of digit positions that you can specify in the PICTURE clause for packed-decimal, external-decimal, and numeric-edited data items is raised from 18 to 31.
| Is This Answer Correct ? | 0 Yes | 0 No |
Answer / sachin borase
Use the varchar.
01 var-char-variable.
49 ws-letch s9(4) comp.
49 ws-text 9(20).
| Is This Answer Correct ? | 2 Yes | 9 No |
HELLO FRIENDS, THIS IS JANARDHAN.GADIRAJU, I FACED ONE INTERESTING QUESTION IN COBOL, THAT IS WHAT ARE THE VALUES WE CAN SEE IN HIGHVALUES AND LOWVALUES, CAN U PLEASE GIVE ME THE ANSWER
Consider the following COBOL entries: 05 X PIC 99 VALUE 10. SUBTRACT 20 FROM X. The resultant value of X wil be
How To move a value to an array using move verb?
i have the job which has written updated 100 records into the table and for 101th record it got abended and i want to start the job again and should wirte from 101th record not from 1st record..how to do it..?
What will happen if we generate GDG (+2) version without generating (+1) version?
How do pass the values to the parameters in cobol
what is a load module ?
What is the difference between working storage copybook and linkage section copybook?
What is SSRANGE, NOSSRANGE ?
write a program to eliminate duplicate records in a input file and send them to output file.THIS IS IGATE RECENT QUESTIONN.....JUST 1 WEEK BACKKKK...
how to fetch the record before the last record in a cobol file( its a huge file and if the key field is not known)
Which of the following paragraphs is compulsory in every COBOL program? (a) SPECIAL-NAMES (b) PROGRAM-ID (c) FILE-CONTROL (d) OBJECT-COMPUTER