Answers

Question and Answer:

  Home  IBM Natural

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

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

 148 views

More Questions for you: