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

4- 6
number of bytes you want to move. If you
supply a zero, the length of the referenced
field in the form data buffer is used by
default. If you supply a negative value, no
data is moved between the application and the
form.
rtnfldlen A four-byte integer. The number of field data
bytes actually moved is returned here.
typcnvcode Supply a four-byte integer to indicate the data
type conversion you want performed. The data
type conversion codes are:
0 = no conversion
1 = two-byte integer conversion
2 = four-byte integer conversion
3 = four-byte HP3000 format floating point
(real) conversion
4 = eight-byte HP3000 format floating point
(long) conversion
5 = reserved for four-byte IEEE format floating
point (real) conversion
6 = reserved for eight-byte IEEE format
floating point (long) conversion
fldid If you have given descrpttype a value of 40,
supply a four-byte integer that identifies a
field. An integer greater than zero indicates
a field number; an integer less than zero
indicates screen order.
If you have given descrpttype a value of 50,
supply a 32-byte character array that
represents the USASCII name of the field.
Examples
COBOL:
01 datadescrpt.
05 descrptype pic s9(8) comp.
05 buflen pic s9(8) comp.
05 rtnbuflen pic s9(8) comp.
05 entrycnt pic s9(8) comp.
05 fldentry occurs 5 times.
10 fldloc pic s9(8) comp.
10 fldlen pic s9(8) comp.
10 rtnfldlen pic s9(8) comp.
10 typcnvcode pic s9(8) comp.
10 fldid pic x(32).
FORTRAN:
INTEGER*4 DATADESCRPT(64)
INTEGER*4 DESCRPTTYPE
INTEGER*4 BUFLEN
INTEGER*4 RTNBUFLEN
INTEGER*4 ENTRYCNT
EQUIVALENCE (DATADESCRPT(1), DESCRPTTYPE(,
+ (DATADESCRPT(2), BUFLEN),
+ (DATADESCRPT(3), RTNBUFLEN),
+ (DATADESCRPT(4), ENTRYCNT)
INTEGER*4 FLDLOC(12,5)
INTEGER*4 FLDLEN(12,5)
INTEGER*4 RTNFLDLEN(12,5)
INTEGER*4 TYPCNVCODE(12,5)
EQUIVALENCE (DATADESCRPT(5), FLDLOC),
+ (DATADESCRPT(5), FLDLEN),
+ (DATADESCRPT(5), RTNFLDLEN),
+ (DATADESCRPT(5), TYPCNVCODE)