how to move cursor to a particular field when position is
not known?

Answer Posted / 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



Post New Answer       View All Answers


Please Help Members By Posting Answers For Below Questions

Explain how to receive data passed through jcl parm parameter in a natural program? How data definition is defined in the program?

612


How can we see the copy book length using file-aid?

548


How converted the natural coding for adabas

2689


Explain adabas basic concepts. Like inverted list, address converter ,data storage?

562


Explain how many work file we can code in jcl?

574






Define cobol coding sheet?

568


Explain how to move cursor to a particular field when position is not known?

538


Explain why do we use file-aid for seqential files?

584


Explain difference between read work file 1 and read work file once? Why we are using work file once?

558


Explain difference between read(1) and read work file once?

557


Explain how to find occurrence of mu and pe fields in a file?

499


Explain the data storage?

557


What is data trace system 2.0 used for?

5151


Explain is it possible to code goto statement in natural? If yes please provide the syntax of the same?

597


Explain the address converter?

572