Return to Statement

Attribute Title Example

This example demonstrates the use of the &ATTTL EDA to extract an attribute title.

     $$
     $$ DECLARATIONS
     $$
       GRIPSW / DECLRV
       ENTITY / OBJ
       STRING / MYATTS(14,132), MYTTL(7,132), MYVAL(7,132)
       NUMBER / INDX
      
     $$ CREATE OBJECT
       OBJ = CIRCLE / 1,1,1
      
     $$ INITIALIZE AN INTEGER ATTRIBUTE
       MYATTS(1) = 'NUMBER OF FLOATS AND STRINGS'
       MYATTS(2) = '2'
      
     $$ INITIALIZE FLOATING POINT ATTRIBUTES
       MYATTS(3) = 'HOLE DEPTH'
       MYATTS(4) = '1.0'
       MYATTS(5) = 'HOLE WIDTH'
       MYATTS(6) = '1.5'
      
     $$ INITIALIZE A DATE AND TIME ATTRIBUTE
       MYATTS(7) = 'DATE CREATED'
       MYATTS(8) = '09/16/96 14:35'
      
     $$ INITIALIZE A NULL ATTRIBUTE
       MYATTS(9) = 'NULL DATA'
     $$ MYATTS(10) = &NULSTR
      
     $$ INITIALIZE STRING ATTRIBUTES
       MYATTS(11) = 'HOLE DESCRIPTION #1'
       MYATTS(12) = 'This circle represents a hole.'
       MYATTS(13) = 'HOLE DESCRIPTION #2'
       MYATTS(14) = 'The hole specifications are provided as attributes.'
      
     $$ ASSIGN THE ATTRIBUTES
       ASATT / OBJ, MYATTS(1..2), 1
       ASATT / OBJ, MYATTS(3..6), 2
       ASATT / OBJ, MYATTS(7..8), 3
       ASATT / OBJ, MYATTS(9..10), 4
       ASATT / OBJ, MYATTS(11..12), 5
       ASATT / OBJ, MYATTS(13..14)
      
     $$ READ THE ATTRIBUTE TITLES AND VALUES
       MYTTL(1) = &ATTTL(OBJ,1,1)
       MYVAL(1) = &ATTVL(OBJ,MYTTL(1),1)
      
       MYTTL(2) = &ATTTL(OBJ,1,2)
       MYVAL(2) = &ATTVL(OBJ,MYTTL(2),2)
      
       MYTTL(3) = &ATTTL(OBJ,2,2)
       MYVAL(3) = &ATTVL(OBJ,MYTTL(3),2)
      
       MYTTL(4) = &ATTTL(OBJ,1,3)
       MYVAL(4) = &ATTVL(OBJ,MYTTL(4),3)
      
       MYTTL(5) = &ATTTL(OBJ,1,4)
       MYVAL(5) = &ATTVL(OBJ,MYTTL(5),4)
      
       MYTTL(6) = &ATTTL(OBJ,1,5)
       MYVAL(6) = &ATTVL(OBJ,MYTTL(6),5)
      
       MYTTL(7) = &ATTTL(OBJ,2)
       MYVAL(7) = &ATTVL(OBJ,MYTTL(7))
      
     $$ OUTPUT THE REPORT
       EJECT / PRINT
       DO / DOLUP:, INDX, 1, 7
       DOLUP: PRINT / MYTTL(INDX) + ' = ' + MYVAL(INDX)
      
      
     HALT

NUMBER OF FLOATS AND STRINGS = 2
HOLE DEPTH = 1.000000
HOLE WIDTH = 1.500000
DATE CREATED = 9/16/96 14:35
NULL DATA =
HOLE DESCRIPTION #1 = This circle represents a hole.
HOLE DESCRIPTION #2 = The hole specifications are provided as attributes.

OPERATION REPORT
DRILL .203 DIA. .75 DEEP
TAP 1/4-20 .5 DEEP
COST 135