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

4- 3
Examples
‘screen 10‘ COBOL: 01 datadescrpt pic s9(8) comp.
FORTRAN: INTEGER*4 DATADESCRPT
Pascal: var datadescrpt : integer;
Data Transfer Method B
This method of data transfer lets you move a subset of data starting with
the first byte. You indicate this method by supplying 10 as the
four-byte integer for
descrpttype . Data is moved as a concatenated
string from or to
databuf . This method allows for no data type
conversions.
The subparameters you must supply to use this data mapping method and
their range of values are:
descrpttype 10
buflen Supply the number of bytes you want to move.
rtnbuflen The number of bytes actually moved is returned in this
subparameter.
Examples
COBOL:
01 datadescrpt.
05 descrpttype pic s9(8) comp.
05 buflen pic s9(8) comp.
05 rtnbuflen pic s9(8) comp.
FORTRAN:
INTEGER*4 DATADESCRPT(3)
INTEGER*4 DESCRPTTYPE
INTEGER*4 BUFLEN
INTEGER*4 RTNBUFLEN
EQUIVALENCE (DATADESCRPT(1), DESCRPTTYPE),
+ (DATADESCRPT(2), BUFLEN),
+ (DATADESCRPT(3), RTNBUFLEN)
Pascal:
type
datadescrpt_rec = record
descrpttype : integer;
buflen : integer;
rtnbuflen : integer;
end;
var
/ datadescrpt : datadescrpt_rec;
Data Transfer Method C
This data transfer method lets you move a subset of data from or to the
fields referenced in the form. Use this method if your application
initializes information from both the forms file and the application
buffer, or if you want to return a selected subset of data to your
application. You indicate this method by specifying the value 20 or 30
for the
descrpttype subparameter. Use 20 if you want to identify fields