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

C- 28
END;
{ Do we need to prompt the operator to correct errors? }
IF NOT STOP_NOW
AND NOT DONE_WITH_TXNS THEN
IF DATA_ENTRY_ERRS THEN
IF (RETURNPAK.LASTITEMTYPE = 0)
AND (RETURNPAK.LASTITEMNUM = 0) THEN
PROMPT_OPERATOR
ELSE
{ Operator pressed some key other than ENTER or
EXIT so, clear data error flag to break loop
(display refresh results). }
DATA_ENTRY_ERRS := FALSE;
END; { PROCEDURE READ_EDIT_AND_FILE }
$TITLE ' Collect Transactions'$
{
!***************************************************************!
! !
! Collect Transactions !
! !
!***************************************************************!
}
PROCEDURE COLLECT_TRANSACTIONS;
BEGIN
{ No special Send instructions. }
SENDPAK.DONTENABLEINPUT := 0;
SENDPAK.WINDOWENH := ";
SENDPAK.BYPASSFEATURE := 0;
{ Setup to get and modify data entry form, toggling three
fields to 'input allowed'. }
FORMPAK.FORMNAME := 'DEDUCTION';
{ Position form to start at top left of display (home). }
FORMPAK.FORMPOSITION := 0;
{ Indicate that the fields in the form which will be modified
are identified by name. }
FORMPAK.LISTTYPE := 2;
{ Indicate the number of fields to modify. }
FORMPAK.LISTCOUNT := 3;
{ List fields to be modified, indicate modification type, and
new value. }
FORMPAK.CHNGENTRY [1].FIELD_ID := 'BADGE_NUMBER';
FORMPAK.CHNGENTRY [1].CHANGE_TYPE := 5;
FORMPAK.CHNGENTRY [1].CHANGE_SPEC := 'O';
FORMPAK.CHNGENTRY [2].FIELD_ID := 'LAST_NAME';