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

C-: 29
FORMPAK.CHNGENTRY [2].CHANGE_TYPE := 5;
FORMPAK.CHNGENTRY [2].CHANGE_SPEC := 'O';
FORMPAK.CHNGENTRY [3].FIELD_ID := 'SUR_NAME';
FORMPAK.CHNGENTRY [3].CHANGE_TYPE := 5;
FORMPAK.CHNGENTRY [3].CHANGE_SPEC := 'O';
{ Setup window message. }
MSGFORWINDOW.MSGLEN := 79;
MSGFORWINDOW.MSGAREA :=
'Fill in Deduction Transaction according to worksheet.';
{ Don't copy application data out to display. }
DATADESCRPT.DESCRPTTYPE := -1;
{ Show Form. }
HPDSEND (GLOBALPAK,
RETURNPAK,
SENDPAK,
FORMPAK,
UNUSED_PARM,
MSGFORWINDOW,
DATADESCRPT,
UNUSED_PARM,
UNUSED_PARM,
UNUSED_PARM);
IF RETURNPAK.RETURNSTATUS
0 THEN
BEGIN
STOP_NOW := TRUE;
ERROR_LOCATION :=
'**** Routine: Collect Transactions - Form display';
UNBLOCK_MESSAGE;
END;
{ Setup and loop on transaction until it can be filed. }
DATA_ENTRY_ERRS := TRUE;
WHILE DATA_ENTRY_ERRS
AND NOT STOP_NOW
AND NOT DONE_WITH_TXNS DO
READ_EDIT_AND_FILE;
END; { PROCEDURE COLLECT_TRANSACTIONS }
$TITLE ' Setup For Work'$
{
*****************************************************************
* *
* Setup For Work *
* *
*****************************************************************
}
PROCEDURE SETUP_FOR_WORK;
BEGIN
{ Init Unused Parm which is used whenever intrinsic input
parameter is not active. }
UNUSED_PARM := 0;
{ Init Comarea to all zeros. }