BAG> @bag:demo1 BAG> set pause on BAG> delete file teste OPNBAS ? Structure doesn't exist => base TESTE BAG> y X$COMM % Too few characters in command BAG> delete file paises OPNBAS ? Structure doesn't exist => base PAISES BAG> y X$COMM % Too few characters in command BAG> delete file fichas2 OPNBAS ? Structure doesn't exist => base FICHAS2 BAG> y X$COMM % Too few characters in command BAG> create paises Enter base structure as follows : (type: c text, n integer, d date, l logical, x decimal, db other base ) Field - fieldname,type,width/dbname,decimal 0001..... cod,c,2 field descr. : codigo numerico do pais default val. : field is KEY ? (y/n, =n) : y 0002..... nome_pais,c,15 field descr. : nome do pais default val. : field is KEY ? (y/n, =n) : n field is MANDATORY ? (y/n, =n) : n 0003..... Data base description : base de dados de paises First record# (default is #1) : When appending data, re-use killed record #'s (y/n, =y) : y Information in data base cripted (y/n, =n) : n === BASE "PAISES" created === BAG> create fichas2 Enter base structure as follows : (type: c text, n integer, d date, l logical, x decimal, db other base ) Field - fieldname,type,width/dbname,decimal 0001..... num,n,3 field descr. : numero da ficha lower, upper : 1,100 default val. : field is KEY ? (y/n, =n) : n field is MANDATORY ? (y/n, =n) : n 0002..... nome,c,25 field descr. : ultimo nome, primeiro default val. : field is KEY ? (y/n, =n) : n field is MANDATORY ? (y/n, =n) : n 0003..... data_nasc,d field descr. : data de nascimento lower, upper : 1-jan-23,31-dez-1990 default val. : field is KEY ? (y/n, =n) : n field is MANDATORY ? (y/n, =n) : n 0004..... pais,db,paises field descr. : numero do pais (base PAISES) field is KEY ? (y/n, =n) : n field is MANDATORY ? (y/n, =n) : y other D.B. master field : 1 other D.B. field to show : 2 0005..... localidade,c,25 field descr. : localidade de nascimanto default val. : field is KEY ? (y/n, =n) : n field is MANDATORY ? (y/n, =n) : n 0006..... Data base description : base de dados de fichas First record# (default is #1) : 100 When appending data, re-use killed record #'s (y/n, =y) : y Information in data base cripted (y/n, =n) : n === BASE "FICHAS2" created === BAG> copy structure from fichas2 to fichas2_cp %Output data base name truncated to "fichas2_c" === Created empty data base FICHAS2_C === BAG> display database fichas2 structure Structure for BASE : FICHAS2 (file: [ ]FICHAS2) -------------------------------------------------------------------------------- Description: base de dados de fichas Creation date: 11-OCT-88:12:42:13 "alive" records: 0 "killed" records: 0 ( killed record #'s are AVAILABLE, if any ) First record is 1000 Date of last structure update: Information in data base is cripted: NO Number of fields : 5 FLD NAME TYPE WIDTH DBNAME/DEC MDT DES., LOW., UPP., DEF. 1 num n 3 no numero da ficha lower : 1 upper : 100 2 nome c 25 no ultimo nome, primeiro 3 data_nasc d 8 no data de nascimento lower : 01-Jan-1923 upper : 31-Dec-1990 4 pais db 10 PAISES y numero do pais (base PAISES) master field : cod field to show : nome_pais 5 localidade c 25 no localidade de nascimanto ** total ** 71 BAG> display database fichas2 structure to fichas2.str Done! BAG> displ datab fichas2_c struc Structure for BASE : FICHAS2_C (file: [ ]FICHAS2_C) -------------------------------------------------------------------------------- Description: base de dados de fichas Creation date: 11-OCT-88:12:42:17 "alive" records: 0 "killed" records: 0 ( killed record #'s are AVAILABLE, if any ) First record is 1000 Date of last structure update: Information in data base is cripted: NO Number of fields : 5 FLD NAME TYPE WIDTH DBNAME/DEC MDT DES., LOW., UPP., DEF. 1 num n 3 no numero da ficha lower : 1 upper : 100 2 nome c 25 no ultimo nome, primeiro 3 data_nasc d 8 no data de nascimento lower : 01-Jan-1923 upper : 31-Dec-1990 4 pais db 10 PAISES y numero do pais (base PAISES) master field : cod field to show : nome_pais 5 localidade c 25 no localidade de nascimanto ** total ** 71 BAG> displ datab paises structure Structure for BASE : PAISES (file: [ ]PAISES) -------------------------------------------------------------------------------- Description: base de dados de paises Creation date: 11-OCT-88:12:42:09 "alive" records: 0 "killed" records: 0 ( killed record #'s are AVAILABLE, if any ) First record is 1 Date of last structure update: Information in data base is cripted: NO Number of fields : 2 FLD NAME TYPE WIDTH DBNAME/DEC MDT DES., LOW., UPP., DEF. 1 k cod c 2 y codigo numerico do pais 2 nome_pais c 15 no nome do pais ** total ** 17 (k means field is KEY) BAG> displ datab paises structure to paises.str Done! BAG> delete files fichas2_c Structure to be deleted: BASE FICHAS2_C ([ ]FICHAS2_C) description : base de dados de fichas # alive records : 0 # killed records : 0 Confirm(y/n): y === structure FICHAS2_C ([ ]FICHAS2_C) deleted! === BAG> create teste Enter base structure as follows : (type: c text, n integer, d date, l logical, x decimal, db other base ) Field - fieldname,type,width/dbname,decimal 0001..... texto,c,12 field descr. : Campo de texto default val. : == nada == field is KEY ? (y/n, =n) : n field is MANDATORY ? (y/n, =n) : n 0002..... inteiro,n,3 field descr. : Campo numerico lower, upper : -100,999 default val. : 1 field is KEY ? (y/n, =n) : n field is MANDATORY ? (y/n, =n) : n 0003..... data,d field descr. : Campo data lower, upper : 1-jan-67,31-dez-93 default val. : 1-jan-87 field is KEY ? (y/n, =n) : n field is MANDATORY ? (y/n, =n) : n 0004..... logico,l field descr. : Campo logico default val. : t field is KEY ? (y/n, =n) : n field is MANDATORY ? (y/n, =n) : n 0005..... decimal,x,5,2 field descr. : Campo decimal com 2 algarismos `a direita, total 5 lower, upper : -10.0,999.99 default val. : 1.0 field is KEY ? (y/n, =n) : n field is MANDATORY ? (y/n, =n) : n 0006..... outra_base,db,paises field descr. : Campo "outra base de dados" field is KEY ? (y/n, =n) : n field is MANDATORY ? (y/n, =n) : y other D.B. master field : 1 other D.B. field to show : 2 0007..... Data base description : Base de teste com todos os tipos de campos First record# (default is #1) : 100 When appending data, re-use killed record #'s (y/n, =y) : y Information in data base cripted (y/n, =n) : n === BASE "TESTE" created === BAG> display database teste structure Structure for BASE : TESTE (file: [ ]TESTE) -------------------------------------------------------------------------------- Description: Base de teste com todos os tipos de campos Creation date: 11-OCT-88:12:42:30 "alive" records: 0 "killed" records: 0 ( killed record #'s are AVAILABLE, if any ) First record is 100 Date of last structure update: Information in data base is cripted: NO Number of fields : 6 FLD NAME TYPE WIDTH DBNAME/DEC MDT DES., LOW., UPP., DEF. 1 texto c 12 no Campo de texto default: == nada == 2 inteiro n 3 no Campo numerico lower : -100 upper : 999 default: 1 3 data d 8 no Campo data lower : 01-Jan-1967 upper : 31-Dec-1993 default: 01-Jan-1987 4 logico l 1 no Campo logico default: t 5 decimal x 5 2 no Campo decimal com 2 algarism os `a direita, total 5 lower : -10.00 upper : 999.99 default: 1.00 6 outra_base db 10 PAISES y Campo "outra base de dados" master field : cod field to show : nome_pais ** total ** 39 BAG> @bag:demo2 BAG> quit