Examples

Example 1: A structure of five fields:

       STRUCTURE /PRODUCT/ 
              INTEGER*4 ID / 99 / 
              CHARACTER*16 NAME 
              CHARACTER*8 MODEL / 'Z' / 
              REAL*4 COST 
              REAL*4 PRICE 
       END STRUCTURE 
       RECORD /PRODUCT/ CURRENT, PRIOR, NEXT, LINE(10) 

In the above example, a structure named PRODUCT is defined to consist of the fields ID, NAME, MODEL, COST, and PRICE. Each of the three variables, CURRENT, PRIOR, and NEXT, is a record which has the PRODUCT structure, and LINE is an array of 10 such records. Every such record has its ID initially set to 99, and its MODEL initially set to Z.

Example 2: A structure of two fields:

       STRUCTURE /VARLENSTR/ 
              INTEGER*4 NBYTES 
              CHARACTER A*25 
       END STRUCTURE 
       RECORD /VARLENSTR/ VLS 
       VLS.NBYTES = 0