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

What is the quality process in development?

569


Explain what happens when you issue a escape routine in a program? Will there be any compilation /run time erro?

565


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

610


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?

572


Explain difference between escape(top or bottom) and escape immediate(top or bottom?

624






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

555


Explain the like inverted list?

539


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

533


What is a hyperdescriptor? How does it work?

629


What is the difference between escape(top or bottom) and escape immediate(top or bottom?

554


Explain how to ftp the natural program to desktop? (From mainframe to pc), is it possible?

591


What happens when you issue a escape routine in a program? Will there be any compilation /run time erro?

550


How to create 1 ddm that fetches 3 adabas files simultaneously?

535


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

545


How converted the natural coding for adabas

2686