HP Data Entry and Forms Management System (VPLUS) Reference Manual (32209-90024)

ManualsBrandsHP ManualsSoftwareMPE/iX 6.5 Operating System

471

472

473

474

475

476

477

478

479

480

476 AppendixA

SAMPLE PROGRAMS

TRANSACT

LET (STOP-NOW) = (TRUE);

MOVE (ERROR-LOCATION) = "**** procedure: Collect Transactions"

" - Form Retrieval";

PERFORM GET-ERROR-MESSAGE;

RETURN;

DOEND;

<< Toggle three fields in form to "input allowed" >>

<< Screen order is indicated to field change intrinsic as

negative number

LET OFFSET(FIELDSPECS) = 0;

LET OFFSET(FIELDENTRY) = 0;

LET (FIELD-ID) = (SCREEN-ORDER) * [-1];

LET (CHANGE-TYPE) = 5;

MOVE (CHANGE-SPEC) = "O";

LET OFFSET(FIELDSPECS) = 8;

LET OFFSET(FIELDENTRY) = 20;

LET (FIELD-ID) = (SCREEN-ORDER) * [-1]

LET (CHANGE-TYPE) = 5;

MOVE (CHANGE-SPEC) = "O";

LET OFFSET(FIELDSPECS) = 16;

LET OFFSET(FIELDENTRY) = 40;

LET (FIELD-ID) = (SCREEN-ORDER) * [-1];

LET (CHANGE-TYPE) = 5;

MOVE (CHANGE-SPEC) = "O";

LET (NUMSPECS) = 3;

PROC VCHANGEFIELD((COMAREA),(FIELDSPECS-ITEM),(NUMSPECS));

IF (CSTATUS) <> (ZERO) THEN

LET (STOP-NOW) = (TRUE);

MOVE (ERROR-LOCATION) = "**** procedure: Collect Transactions"

" - Field Type Updates";

PERFORM GET-ERROR-MESSAGE;

RETURN;

DOEND;

<< Load window message >>

<…sc><…x>

LET (MSGBUFLEN) = 79;

MOVE (MSGBUF) = "Fill in Deduction Transaction according to "

"worksheet";

PROC VPUTWINDOW((COMAREA),%(MSGBUF),(MSGBUFLEN));

IF (CSTATUS) <> (ZERO) THEN

LET (STOP-NOW) = (TRUE);

MOVE (ERROR-LOCATION) = "**** procedure: Collect Transactions"

" - Window Load";

PERFORM GET-ERROR-MESSAGE;

RETURN;

DOEND;

<< Init form >>