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

3- 26
adding a form to the forms file, defining a set of labels for the form,
and building a one character, text only, screen image for the dummy form.
Examples
COBOL:
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.
01 labeldescrpt.
05 descrptcnt pic s9(8) comp.
05 descrptentry occurs 8 times.
10 labelident pic s9(8) comp.
10 labelenh pic x(8).
FORTRAN:
INTEGER*4 FIELDLIST(8)
INTEGER*4 LISTTYPE
INTEGER*4 ALLOCNT
INTEGER*4 ACTUALCNT
EQUIVALENCE (FIELDLIST(1), LISTTYPE),
+ (FIELDLIST(2), ALLOCNT),
+ (FIELDLIST(3), ACTUALCNT)
INTEGER*4 FIELDID(1,5)
EQUIVALENCE (FIELDLIST(4), FIELDID)
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.
Pascal:
type
fieldlist_rec = record
listtype : integer;
allocnt : integer;
actualcnt : integer;
fieldid : array [1..5] of integer;
end;
var
fieldlist : fieldlist_rec;