The following display is defined by the DDS in the example. 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 |
+--------------------------------------------------------------------------------+
The following keywords are important in the example:
CAnn CHECK DSPATR(HI BL) DSPATR(UL) EDTCDE(Y) EDTCDE(2 $) ERRMSG |
HELP HLPARA HLPRCD HLPBDY HLPDOC OVERLAY |
The example uses +n to specify position.
Figure 7. 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
Legend:
(C) Copyright IBM Corporation 1992, 2005. All Rights Reserved.