HP 3000 Manuals HP 3000 Manuals
>GENERATE COMAREA
Generates the PASCAL data structures for the VPLUS COMAREA.
Prompts
GENERATE COMAREA does not issue any additional prompts. DICTPDE will
begin generating the VPLUS COMAREA as soon as the GENERATE COMAREA
command-subcommand is entered.
Discussion
GENERATE COMAREA allows you to generate the TYPE, CONST and VAR
declarations for the VPLUS COMAREA. (The COMAREA is the data area which
must be allocated in a program to be able to call VPLUS procedures.)
GENERATE COMAREA generates the basic structure of the COMAREA. This
command-subcommand does not extract any data definitions from the
Dictionary to generate this COMAREA data structure. The generated data
structures are the same as the data structures shown in the PASCAL/3000
Reference Manual. (See the PASCAL/3000 Reference Manual for more
information on PASCAL and the VPLUS COMAREA.)
Example
>generate comarea
type
word = -32768..32767;
vplus_comarea =
record
cstatus : word;
language : word;
comarealen : word;
usrbuflen : word;
cmode : word;
lastkey : word;
numerrs : word;
windowenh : word;
multiusage : word;
labeloptions : word;
cfname : packed array[1..16] of char;
nfname : packed array[1..16] of char;
repeatapp : word;
freezapp : word;
cfnumlines : word;
dbuflen : word;
skip2 : word;
lookahead : word;
deleteflag : word;
showcontrol : word;
skip4 : word;
printfilnum : word;
filerrnum : word;
errfilenum : word;
formstrsize : word;
skip6 : word;
skip7 : word;
skip8 : word;
numrecs : integer;
recnum : integer;
skip9 : packed array[1..4] of char;
term_filen : word;
skip10 : packed array[1..10] of char;
retries : word;
term_options : word;
environ : word;
usertime : word;
identifier : word;
labelinfo : word;
end;
const
com_area_init =
vplus_comarea
[
cstatus : 0,
language : 5,
comarealen : 60,
usrbuflen : 0,
cmode : 0,
lastkey : 0,
numerrs : 0,
windowenh : 0,
multiusage : 0,
labeloptions : 0,
cfname : ' ',
nfname : ' ',
repeatapp : 0,
freezapp : 0,
cfnumlines : 0,
dbuflen : 0,
skip2 : 0,
lookahead : 0,
deleteflag : 0,
showcontrol : 0,
skip4 : 0,
printfilnum : 0,
filerrnum : 0,
errfilenum : 0,
formstrsize : 0,
skip6 : 0,
skip7 : 0,
skip8 : 0,
numrecs : 0,
recnum : 0,
skip9 : #0#0#0#0,
term_filen : 0,
skip10 : #0#0#0#0#0#0#0#0#0#0,
retries : 0,
term_options : 0,
environ : 0,
usertime : 0,
identifier : 0,
labelinfo : 0,
];
var
com_area : vplus_comarea;
termfilename : packed array[1 .. 6] of char;
message_buff : packed array[1 .. 72] of char;
message_buff_len : word;
msglen : word;
buflen : word;
fieldnum : word;