A field declared as P8 needs to be redefined as
Alphanumeric. What would be its new size?
- 9 Answers
- 12319 Views
- I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / shailesh jha
Its new size would be A5. P8 Stores in compressed format
having (n/2+1) bytes.
| Is This Answer Correct ? | 15 Yes | 2 No |
Answer / ajmina gilani
New size should be A5, as P8 will take 5 byte to store. But
when I have tested with redefining P8 by A5, it is not
displaying proper value for redefind veriable.
| Is This Answer Correct ? | 6 Yes | 2 No |
Answer / getme
5 bytes, see below
NAT0039 Sum of field lengths in REDEFINE > length of base field (=5 bytes).
0010 DEFINE DATA LOCAL
0020 01 #P (P8)
0030 01 REDEFINE #P
E 0040 02 #A (A8)
0050 END-DEFINE
| Is This Answer Correct ? | 0 Yes | 0 No |
Answer / surya
It should be redefined as A8.
Reason: even though the P8 occupies 5 bytes of memory
it is internal to the memory allocation. But to accomaodate
8 characters you need todeclare a alphanumeric character of
length 8.
dont be confused with memory allocation awith the
declaration.
| Is This Answer Correct ? | 5 Yes | 6 No |
Answer / dd
I think directly this conversion is not possible as packed
decimal is used for numeric value fields only.
Since it is p(8) so the numeric value field size should be
15 or 16 as [8 can be either (n+1)/2 i.e. (15+1)/2 or ( n/2)
i.e. 16/2].
So we can say (n15 or 16) will be (P8).
Alternatively (A16 or 15)
| Is This Answer Correct ? | 6 Yes | 14 No |
Answer / harish
Should be less than or equal to 8, but not more than 8.
| Is This Answer Correct ? | 1 Yes | 14 No |
Explain the data storage?
In a Natural program i used the below code for report FORMAT LS=132 PS=60 And down the line I want to change either LS/PS like FORMAT LS=120 PS=50, is it possible? How it will work?
What exactly is a hyperdescriptor? How does it work?
Explain adabas basic concepts. Like inverted list, address converter ,data storage?
What is the difference between READ BY ISN and FIND
A field declared as P8 needs to be redefined as Alphanumeric. What would be its new size?
What is a hyperdescriptor?
You are processing an input file in a Natural program and you want the program to fail if the file is empty. What command you use in Natural to force it to fail ?
How can I create 1 DDM that fetches 3 ADABAS files simultaneously?
Define cobol coding sheet?
Explain how are you going to remove duplicates from the file that is being read?
How do you pass data from a Natural Program to an External Subroutine? Can it share the LDA of Program as in Internal Subroutine.
COBOL 
