The following keywords are important in Figure 439:
|
CAnn CHECK DSPATR(HI BL) DSPATR(UL) EDTCDE(Y) EDTCDE(2 $) ERRMSG |
HELP HLPARA HLPRCD HLPBDY HLPDOC OVERLAY |
Figure 439 uses +n to specify position.
The following display is defined by the DDS in Figure 439. It is displayed by output operations to the record
formats PROMPT and RESPONSE.
+--------------------------------------------------------------------------------+
|CUSTOMER FILE ADD/UPDATE |
| |
|Enter new or existing customer number |
|Enter A to ADD new Customer |
| |
|Name XXXXXXXXXXXXXXXXXXXXXXX |
|Address XXXXXXXXXXXXXXXXXXXXXXX |
|City XXXXXXXXXXXXXXXXXXXXXXX |
|State XX Zip code NNNNN |
| |
| |
|Credit limit $NNN,NNN.NN |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
|F3 - End Program & Print Report F6 - Return to prompt |
+--------------------------------------------------------------------------------+
Figure 439. Display with Two Record Formats
|...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
00010A (1) PRINT
00020A CAO3(21 'End & Print')
00030A CAO6(22 'Display PROMPT')
00040A (7) HELP
00050A (8) HLPDOC(START GENERAL HELP)
00060A (2) R PROMPT
00070A H (9) HLPDOC(LBL1 HELP#1 HELP)
00080A (9) HLPARA(2 2 2 50)
00090A 1 30'CUSTOMER FILE ADD/UPDATE'
00100A 3 2'Enter new or existing customer +
00110A number'
00120A (3) ACTNUM 5 0B +1CHECK(MF)
00130A 40 (4) ERRMSG('Customer number not +
00140A (4) found' 40)
00150A 4 2'Enter A to ADD new Customer'
00160A ADD 1 I +1
00170A (5) R RESPONSE (6) OVERLAY
00180A H (10) HLPRCD(NAMEHELP)
00190A HLPARA(6 10 6 28)
00200A H (11) HLPRCD(ADDHELP)
00210A HLPARA(7 10 9 33)
00220A (12) HLPBDY
00230A H HLPRCD(HELPRCD1 HELPFILE)
00240A (13) HLPARA(12 18 12 40)
A
A
A
|...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
00250A*
00260A 6 2'Name' (14)
00270A NAME 18 B 6 10 (14)
00280A 7 2'Address' (14)
00290A ADDR 18 B 7 10 (14)
00300A 8 2'City' (14)
00310A CITY 18 B 8 10 (14)
00320A 9 2'State' (14)
00330A STATE 2 B 9 10 (14)
00340A 9 19'Zip code' (14)
00350A ZIP 5Y 0B +1 (14)
00360A 12 2'Credit Limit'
00370A (15) CRDLMT 8Y 2B 12 21EDTCDE(2 $) DSPATR(HI)(16)
00380A (17) 23 2'F3 - End Program & Print Report +
00390A F6 - Return to prompt'
00400A*
00410A* HELP RECORDS
00420A*
00430A R NAMEHELP
00440A 2 2'HELP TEXT FOR NAME FIELD'
00450A 4 2'ENTER THE CUSTOMER NAME'
00460A R ADDRHELP
00470A 4 2'HELP FOR ADDRESS,CITY,STATE,ZIP'
00480A 6 2'ENTER ADDRESS,CITY,STATE & ZIP'
A
A
A
(C) Copyright IBM Corporation 1992, 2006. All Rights Reserved.