High-Level Screen Management Intrinsic Library Reference Manual (32424-90002)

C- 16
CHARACTER*32 FORMNAME
INTEGER*4 FORMPOSITION
INTEGER*4 LISTTYPE
INTEGER*4 LISTCOUNT
EQUIVALENCE (FORMPAK(1), FORMNAME),
+ (FORMPAK(9), FORMPOSITION),
+ (FORMPAK(10), LISTTYPE),
+ (FORMPAK(11), LISTCOUNT)
CHARACTER*44 FIELD_ID(1,3)
EQUIVALENCE (FORMPAK(12), FIELD_ID)
INTEGER*4 CHANGE_TYPE (11,3)
CHARACTER*4 CHANGE_SPEC (11,3)
EQUIVALENCE (FORMPAK(12), CHANGE_TYPE),
+ (FORMPAK(12), CHANGE_SPEC)
!
! No special Send instructions
!
SENDPAK(1) = 0
SENDPAK(2) = 0
SENDPAK(3) = 0
SENDPAK(4) = 0
!
! Setup to get and modify data entry form, toggling three
! fields to "input allowed".
!
FORMNAME = "DEDUCTION"
!
! Position form to start at top left of display (home).
!
FORMPOSITION = 0
!
! Indicate that the fields in the form which will be modified
! are identified by name.
!
LISTTYPE = 2
!
! Indicate the number of fields to modify.
!
LISTCOUNT = 3
!
! List fields to be modified, indicate modification type, and
! new value.
!
FIELD_ID (1,1) = "BADGE_NUMBER"
CHANGE_TYPE (9,1) = 5
CHANGE_SPEC (10,1) = "O"
!
FIELD_ID (1,2) = "LAST_NAME"
CHANGE_TYPE (9,2) = 5
CHANGE_SPEC (10,2) = "O"
!
FIELD_ID (1,3) = "SUR_NAME"
CHANGE_TYPE (9,3) = 5
CHANGE_SPEC (10,3) = "O"
!
! Setup window message.
!
MSGLEN = 79
!
MSGAREA =
+ "Fill in Deduction Transaction according to worksheet."
!
! Don't copy application data out to display.
!
DATADESCRPT(1) = -1
!
! Show form.