GSE 574 - Page 238

GSE Scale Systems - 219
Chapter 20 Database (OPTION) Technical Reference Manual
185%s1.000000%e P185.XX ErFac 1.00
186%s0%e P186.00 PreSm None!
187%s0%e P187.00 AftSm None!
NAME ID #1
700%s12%e P700.-- 1SIZE#1=12
701%sPART#%e P701.-- NAME1 PART#
SETUP DATABASE STRUCTURE
720%s3%e P720.03 iduse: dbase
731%s%i%c%e%e P731.04 dbase 1
21%e%e PART#
34%e%e APW
MACRO "0" SETUP
800%s%c%e P800.XX Macro # 0 ENTERID#
%%\%e 0001 if no entry
%%N%e 0002 if not
%%[%e 0003 save entry
1%%i%e 0004 ID
%%]%e 0006 get entry
%%e%e 0007 enter
%%E%e 0008 end if
%%i%e 0009 ID
11%%s%e 0010 select
1%%e%e 0013 enter
1%%s%e 0015 select
%%e%e 0017 enter
4%%_%e 0018 if dbase error
%%N%e 0020 if not
DATA FOUND%%P%e 0021 pause
30%%s%e 0032 select
%%B%e 0035 break
%%E%e 0036 end if
NOT FOUND%%S%e 0037 sound beeper
%%P%e 0048 pause
%%p%e 0049 sample
1%%T%e 0050 tag position
Add Smple%%G%e 0052 get operator entry
%%p%e 0063 sample
%%1%e 0064 call macro1
1%%g%e 0065 if sample error
1%%J%e 0067 jump to tag
%%E%e 0069 end if
2%%T%e 0070 tag position
%%1%e 0072 call macro1
%%a%e 0073 if accurate
%%i%e 0074 ID
11%%s%e 0075 select
1%%e%e 0078 enter
3%%s%e 0080 select
%%e%e 0082 enter
-OK!-%%P%e 0083 pause
%%B%e 0089 break
%%E%e 0090 end if
%%Y%e 0091 if yes
%%N%e 0092 if not
ABORTSMPLE%%S%e 0093 sound beeper
%%P%e 0104 pause
%%B%e 0105 break
%%E%e 0106 end if
%%e%e 0107 enter
2%%J%e 0108 jump to tag
MACRO "1" SETUP (“call” subroutine)
801%s%c%e P801.34 Macro # 1
3%%g%e 0001 if sample error
4%%g%e 0003 if sample error
5%%g%e 0005 if sample error
%%B%e 0007 break
%%E%e 0008 end if
6%%g%e 0009 if sample error
ABORTSMPLE%%S%e 0011 sound beeper
%%P%e 0022 pause
%%B%e 0023 break
%%E%e 0024 end if
NAME MACRO "0" ALLOWS INVOKING
MACRO FROM FRONT PANEL
850%sENTERID#%e P850.-- Mac 0 ENTERID#
%z Exit Setup Mode
SECTION - 20.19