Figure 193 shows how to specify the INZINP keyword.
Figure 193. Specifying the INZINP Keyword
|...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
00010A R FMT1
00020A 77 PUTOVR OVERLAY ERASEINP(*ALL)
00030A 77 INZINP
00040A 7 8'CUSTOMER NUMBER'
00050A CUSNBR 6 I 7 26
00060A N77 OVRATR
00070A 9 12'CUSTOMER NAME'
00080A NAME 25 B 9 30
00090A N77 OVRATR
00100A 10 2'CUSTOMER ADDRESS LINE 1'
00110A ADDR1 25 B 10 30
00120A N77 OVRATR
00130A 11 2'CUSTOMER ADDRESS LINE 2'
00140A ADDR2 25 B 11 30
00150A N77 OVRATR
00160A 12 9'NEW CREDIT LIMIT'
00170A LIMIT 4 0I 12 30
00180A N77 OVRATR
A
This example illustrates the following:
- For the first output operation, the user program sets off option indicator
77. Therefore, the PUTOVR, ERASEINP, and INZINP keywords are not in
effect. This causes the following to take place:
- Fields NAME, ADDR1, and ADDR2 are sent to the work station.
- The input save area contains:
- CUSNBR
- All blanks
- NAME
- The program value (which appears on the display)
- ADDR1
- The program value (which appears on the display)
- ADDR2
- The program value (which appears on the display)
- LIMIT
- All zeros
- For the second output operation, the user program sets on option indicator
77. This causes the following to take place:
- All input-capable fields are cleared at the work station.
- No fields are sent to the work station.
- The input save area contains:
- CUSNBR
- All blanks
- NAME
- The program value (not sent to the display)
- ADDR1
- The program value (not sent to the display)
- ADDR2
- The program value (not sent to the display)
- LIMIT
- All zeros
- Note:
- If fields NAME, ADDR1, and ADDR2 had been set to blanks before this second
output operation, the input save area would contain all blanks and
zeros.
(C) Copyright IBM Corporation 1992, 2006. All Rights Reserved.