GSE 60 SERIES Technical Reference Manual page 378

9-130 Chapter 9
Example:
Copying One Database to Another
This macro routine uses the First Row and Next
Row commands to copy all data from database
#1 to a duplicate database #11.
===================================
699%s1%e DB #: 1
700%sPARTS%e DBNam PARTS
701%s80.1%e Col01 Part#
702%s80.2%e Col02 Name
703%s2.1%e Col03 Tare
699%s11%e DB #: 11
700%sTEMP%e DBNam TEMP
701%s80.1%e Col01 Part#
702%s80.2%e Col02 Name
703%s2.1%e Col03 Tare
MACRO #100 – COPY DATABASE
clear TEMP dbase
10,11%y
5,1%y recall first row in DB#1
tag #1
1%T
if row not found...
4%_
prompt
Done!%P
%N else
make row in DB#11
3,11%y
6,1%y recall next row DB#1
jump to tag #1
1%J
end if
%E
GSE Scale Systems
N /P
%y
EXT REVIOUS
Syntax Recall Next Row
6 [ , dbase# ] %y
Recall Previous Row
6 [ , dbase# ] ;P%y
Get Row Number
6 [ , dbase# ] ;G%y
R
ECALL
6 [ , dbase# ] ; < row# > %y
Arguments
Database number (1 à 250).
dbase#
row# Database row number.
Notes Omitting dbase# assumes database last accessed. If no
databases have been accessed, the first defined database
is assumed.
See Also %y First/Last Row in Database
Recall Next Row
6 [ , dbase# ] %y
Advances the database pointer to the next row. This command is typically
used after a recall first row or recall row command to sequentially access
each row of the database.
6%y Recalls the next row in the last database selected.
6,1%y Recalls the next row in database #1.
6,2%y Recalls the next row in database #2.
Recall Previous Row
6 [ , dbase# ] ;P%y
Moves the database pointer backward to the previous row. It is the
reverse function of the recall next row command.
6;P%y Recalls the previous row in the last database selected.
6,1;P%y Recalls the previous row in database #1.
6,2;P%y Recalls the previous row in database #2.
& G /R
ET ECALL
R N
OW UMBER
R
OW