HP 3000 Manual page 288

$CONTROL NAME=) suffixed with "FM". If the program name is missing, the default forms filename
becomes "RPGOBJFM". The forms filename can be referenced by a file equation at runtime to redirect the
forms file.
The social security number is split into three fields on the screen to allow for punctuation. In the RPG
program, the three fields have been combined into a single field by modifying the "I" specifications so that
it can be used as the key field for the CUSTMAST KSAM file. The phone number fields have also been
combined into a single field to simplify the program.
The output specifications for the work station file were also modified to use the new field names for the
social security number and the phone number. The error message (ERRMSG) field is used to pass the
message identification (ID) to the form at runtime. The message ID's in this example are coded as output
constants conditioned by indicators in the RPG program. They could be loaded into the field shown
instead.
The RPG program can use the command key ("K") indicators to control the flow of the program as shown in
the example. The command key indicators are all set off by RPG before each work station input operation.
The user can turn on one command key indicator by pressing the command key associated with that
indicator. The forms can use RPG indicators to control form and field attributes. The RPG program must
set these indicators before the form is displayed so that the desired functions will be performed.
___________________________________________________________________________________
|
| 1
| 678901234567890123456789012345678901234567890123456789012345678901234|
|
|
| FWRKSTN
| F
| IWRKSTN
| I*
| I* FORM21
| I*
| I
| I
| I
| I
| I*
| I* FORM22
| I*
| I
| I
| I
| I
| I
| I
| I
| OWRKSTN
| O*
5- 290
2 3
UD V 6
4 5
WORKSTNR
KFORMS SAMPLIB
1 1 FLD1
2 40SSN1
5 60SSN2
7 100SSN3
1 1 FLD1
2 27 NAME
28 63 ADDR
64 720ZIP
73 75 PN1
76 78 PN2
79 82 PN3
|
6 7 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|