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

3- 40
INTEGER*4 CHNGLISTTYPE
INTEGER*4 LISTCOUNT
EQUIVALENCE (FORMPAK(1), FORMNAME),
+ (FORMPAK(9), FORMPOSITION),
+ (FORMPAK(10), CHNGLISTTYPE),
+ (FORMPAK(11), LISTCOUNT)
CHARACTER*44 FIELDIDENT(1,3)
EQUIVALENCE (FORMPAK(12), FIELDIDENT)
INTEGER*4 CHNGTYPE (11,3)
CHARACTER*4 CHNGSPEC (11,3)
EQUIVALENCE (FORMPAK(12) CHNGTYPE),
+ (FORMPAK(12), CHNGSPEC)
INTEGER*4 LABELDESCRPT (25)
INTEGER*4 DESCRPTCNT
EQUIVALENCE (LABELDESCRPT(1), DESRPTCNT)
INTEGER*4 LABELIDENT (3,8)
CHARACTER*4 LABELENH (3,8)
EQUIVALENCE (LABELDESCRPT(3), LABELIDENT),
(LABELDESCRPT(3), LABELENH)
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 LABELBUF(32)
CHARACTER*16 LABELTEXT(1,8)
EQUIVALENCE (LABELBUF(1), LABELTEXT)
Pascal:
type
chngentry_rec = record
fieldident : packed array [1..32] of char;
chngtype : integer;
chngspec : packed array [1..8] of char;
end;
formpak_rec = record
formname : packed array [1..32] of char;
formposition : integer;
chnglisttype : integer;
listcount : integer;
chngentry : array [ 1..5] of chngentry_rec;
end;
var
formpak : formpak_rec
type
descrptentry_rec = record
labelident : integer;
labelenh : packed array [1..8] of char;
end;
labeldescrpt_rec = record
descrptcnt : integer;
descrptentry : array [1..8] of
descrptentry_rec;
end;
var
labeldescrpt : labeldescrpt_rec;
type
labelbuf_rec = record
labeltext : array [1..8] of
packed array [1..16] of char;
var
labelbuf : labelbuf_rec;