Concluding Example

##    declare
C     Variables of each data type
##    byte           dbyte
##    logical*4      log4
##    logical        logdef
##    integer*2      dint2
##    integer*4      dint4
##    integer        intdef
##    real*4         dreal4
##    real*8         dreal8
##    real           dreal

C     Constant
##    parameter  (MAXVAL = 1000)

##    character*12   dbname
##    character*12   drmnam, tblnam, colnam

C     Compiled forms
##    integer        empfrm, dptfrm
      external       empfrm,        dptfrm

##    declare
##    byte             d_byte !Variables of each data type
##    logical*1        d_log1
##    logical*2        d_log2
##    logical*4        d_log4
##    logical          d_logdef
##    integer*2        d_int2
##    integer*4        d_int4
##    integer          d_intdef
##    real*4           d_real4
##    real*8           d_real8
##    real             d_realdef
##    double precision d_doub

##    parameter MAX_PERSONS = 1000 ! Constant

##    character*12     dbname/'personnel'/
##    character*12     formname, tablename, columnname

##    structure     /person/ ! Structure with a union
##    byte       age
##    integer    flags
##    union
##            map
##                character*30 full_name
##            end map
##            map
##                character*12 firstname
##                character*18 lastname
##            end map
##    end union
##    end structure
                  ! Record/array of records

##    record /person/ person, p_table(MAX_PERSONS)

##    integer  empfrm, deptform ! Compiled forms
      external empfrm, deptform ! Compiled forms