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

3- 31
fieldident If you supplied a
value of 1 or 2 for
listtype , this is a
four-byte integer.
If you supplied 1,
fields are identified
by number. If you
supplied 2, fields
are identified by
screen order.
If you supplied a
value of 3 for
listtype , this is a
32-byte character
array. Fields are
identified with a
USASCII character
name.
Discussion
HPDREAD is one of the three core intrinsics that make up the screen
management intrinsics. It lets you read a device, such as a terminal,
and edit and reformat the data according to the processing specifica-
tions in the form. It then returns this information to your application.
Parameters that are not required by your application can be compacted
and passed as abbreviated parameters.
Examples
COBOL:
01 readitems.
05 itemcnt pic s9(8) comp.
05 itementry occurs 9 times.
10 itemtype pic s9(8) comp.
10 itemident pic s9(8) comp.
10 readopt pic s9(8) comp.
01 fieldlist
05 listtype pic s9(8) comp.
05 allocnt pic s9(8) comp.
05 actualcnt pic s9(8) comp.
05 listentry occurs 5 times.
10 fieldid pic s9(8) comp.
FORTRAN:
INTEGER*4 READITEMS(28)
INTEGER*4 ITEMCNT
EQUIVALENCE (READITEMS(1), ITEMCNT)
INTEGER*4 ITEMTYPE(3,9)
INTEGER*4 ITEMIDENT(3,9)
INTEGER*4 READOPT(3,9)
EQUIVALENCE (READITEMS(2), ITEMTYPE),
+ (READITEMS(2), ITEMIDENT),
+ (READITEMS(2),READOPT)
For an example of how a record structure can be manipulated in FORTRAN,
see the COLLECT_TXNS subroutine in the FORTRAN example program in
Appendix C.
INTEGER*4 FIELDLIST(8)
INTEGER*4 LISTTYPE
INTEGER*4 ALLOCNT