how to move cursor to a particular field when position is
not known?
Answers were Sorted based on User's Feedback
Answer / kunti
If you wish to position the cursor to a specified field,
you can use the MARK option,
eg.
INPUT
MARK *#MAP.#ACTION
USING MAP 'IVCLNTM1'
and and to position to a
particular position within a specified field, you use the
MARK POSITION option.
DEFINE DATA LOCAL
1 #A (A10)
1 #B (N4)
1 #C (N4)
END-DEFINE
*
INPUT (AD=M) #A #B #C
IF #A = ’ ’
COMPUTE #B = #B + #C
RESET #C
REINPUT FULL ’Enter a value’ MARK POSITION 5 IN *#A
END-IF
END
Is This Answer Correct ? | 9 Yes | 1 No |
Answer / satya
You may use #MARK and pass value POS(field-name) to it.
Like below,
#MARK := POS(field-name)
POS(field-name) will give you current position of this
variable on the map
Is This Answer Correct ? | 4 Yes | 1 No |
Define cobol coding sheet?
What is the difference between read work file 1 and read work file once? Why we are using work file once?
difference between escape(top or bottom) and escape immediate(top or bottom?
How do you pass data from a Natural Program to an External Subroutine? Can it share the LDA of Program as in Internal Subroutine.
Suppose 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?
Describe the COBOL coding sheet
2 Answers Cap Gemini, Royal Infotech,
How to create 1 ddm that fetches 3 adabas files simultaneously?
Is it possible to code GOTO statement in NATURAL? if yes please provide the syntax of the same
difference between fetch , call and callnat
Explain the address converter?
What is a hyperdescriptor?
ADABAS basic concepts. Like inverted list, address converter ,data storage