How to move cursor to a particular field when position is not known?
Submitted by: AdministratorIf 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
Submitted by: Administrator
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
Submitted by: Administrator
Read Online IBM Natural Job Interview Questions And Answers
Top IBM Natural Questions
| ☺ | Explain the difference between External subroutine and |
| ☺ | What is COBOL coding sheet? |
| ☺ | How to receive data passed through JCL parm parameter in a Natural program? How Data definition is defined in the program? |
| ☺ | Explain Is it possible to code GOTO statement in NATURAL? if yes please provide the syntax of the same? |
| ☺ | Explain why do we use file-aid for seqential files? |
Top Mainframe Technical Categories
| ☺ | IBM MainFrame Interview Questions. |
| ☺ | IBM AS400 Interview Questions. |
| ☺ | JCL Interview Questions. |
| ☺ | IMS DB Interview Questions. |
| ☺ | CICS Interview Questions. |
