HP 3000 Manuals

HP Data Entry and Forms Management System (VPLUS/V)

VPUTWINDOW 

Copies a message to the window area of memory.

Syntax 

             VPUTWINDOW {comarea,message,length}

Parameters 

comarea          Must be comarea name specified when the forms file was
                 opened with VOPENFORMF. If not already set, the
                 following comarea items must be set before calling
                 VPUTWINDOW:

                 language         Set to the code identifying the
                                  programming language of the calling
                                  program.

                 comarealen       Set to total number of two-byte words
                                  in comarea.

                 VPUTWINDOW may set the following comarea items:

                 cstatus          Set to nonzero value if call
                                  unsuccessful.

message          Character string containing the message to be copied to
                 the window area of memory.

length           Two-byte integer that specifies the number of bytes in
                 the message.  If set to zero, any message in the window
                 is cleared to blanks.  The maximum length is 150 bytes,
                 but only 80 can be printable characters.

Discussion 

This intrinsic copies the specified message to the window area of memory
for later display.  Then, a call to VSHOWFORM can be used to display the
message in the window area of the terminal screen, with the window
enhanced as indicated by windowenh of comarea.  A message copied by
VPUTWINDOW overwrites any previous message in the window area, including
any message copied by a previous call to VPUTWINDOW or VSETERROR.

If the message is longer than the defined window length, the message is
truncated on the right.  If shorter, the rest of the window line is
cleared.

Note that the forms file may be defined with no window line for error and
status messages.  In this case, the message is ignored.

Example 

COBOL

          MOVE "ENTER ORDERS ON THIS FORM" TO MESSAGE.
          MOVE 25 TO MSG-LENGTH.
          CALL "VPUTWINDOW" USING COMAREA, MESSAGE, MSG-LENGTH.

BASIC

          310 M1$="ENTER ORDERS ON THIS FORM"
          320 L1=25
          330 CALL VPUTWINDOW(C(*),M1$,L1)

FORTRAN

          MSG="ENTER ORDERS ON THIS FORM"
          LEN=25
          CALL VPUTWINDOW(COMAREA,MSG,LEN)

SPL/PASCAL

          BYTE ARRAY MSG(0:24):="ENTER ORDERS ON THIS FORM";
          INTEGER LEN;
           :
          LEN:=25;
          VPUTWINDOW(COMAREA,MSG,LEN);

          The calls shown above copy the message

          ENTER ORDERS ON THIS FORM

          to the window area of memory.

MPE/iX 5.0 Documentation