HP 3000 Manuals

HP Business BASIC/XL Migration Guide

Automatically Translated XDB Procedure Calls 

The following XDB procedure calls are automatically translated as shown
below.

XDBOPEN 

XDBOPEN calls are automatically changed to DBOPEN calls when you run the
migration aid.

BASIC/V:

     10 CALL XDBOPEN (D$,W$,M,S[*])

HP Business BASIC/XL:

     100 DBOPEN D$,PASSWORD=W$,MODE=M,STATUS=S(*)

XDBPUT 

XDBPUT calls are automatically changed to DBPUT calls when you run the
migration aid.

BASIC/V:

     20 CALL XDBPUT(B$,D1$,M,S[*],"Item1,Item2,Item3;",A1,A2,A3)

HP Business BASIC/XL:

     200 Pack1: PACKFMT A1,A2,A3
     201 DBPUT B$ USING Pack1,DATASET=S1$,STATUS=S(*),ITEMS="Item1,Item2,Item3;"

If you use "OPTION REALV" when you run the migration aid, your XDBPUT
calls will be translated to this instead:

     200 Pack1; PACKFMT REALV A1,A2,A3
     201 DBPUT B$ USING Pack1,DATASET=S1$,STATUS=S(*),ITEMS="Item1,Item2,Item3;"

XDBFIND 

XDBFIND calls are automatically changed to DBFIND calls when you run the
migration aid.

BASIC/V:

     30 CALL XDBFIND(B$,"inventory",M1,S[*],"LASTSHIPDATE;",I1$

HP Business BASIC/XL:

     300 DBFIND B$,DATASET="inventory",STATUS=S(*),ITEMS="LASTSHIPDATE;",    KEY=I1$

XDBGET 

XDBGET calls are automatically changed to DBGET calls when you run the
migration aid.

BASIC/V:

     40 L1$="SUPPLIER,STATE;"
     50 D1$="SUP-MASTER;"
     60 XDBGET(B$,D1$,M2,S[*],L1$,S1$,S2$,"")

HP Business BASIC/XL:

     400 L1$="SUPPLIER,STATE;"
     500 D1$="SUP-MASTER;"
     600 Pack2: PACKFMT S1$,S2$
     601 DBGET B$ USING Pack2,DATASET=D1$,MODE=M2,STATUS=S(*),ITEMS=L1$,     KEY=""

XDBUPDATE 

XDBUPDATE calls are automatically changed to DBUPDATE calls when you run
the migration aid.

BASIC/V:

     50 I2$="STREET-ADDRESS;"
     60 INPUT "ENTER NEW ADDRESS: ",A5$[1,26]
     70 CALL XDBUPDATE(B$,D1$,FNI(1),S[*],I2$,A5$)

HP Business BASIC/XL:

     500 I2$="STREET-ADDRESS;"
     600 INPUT "ENTER NEW ADDRESS: ",A5$[1,26]
     700 Pack3: PACKFMT A5$
     800 DBUPDATE B$ USING Pack3,DATASET=D1$,MODE=FNI(1),STATUS=S(*),ITEMS=I2$

XDBDELETE 

XDBDELETE calls are automatically changed to DBDELETE calls when you run
the migration aid.

BASIC/V:

     100 CALL XDBDELETE(B$,D1$,FNI(1),S[*])

HP Business BASIC/XL:

     1000 DBDELETE B$,DATASET=D1$,STATUS=S(*)

XDBCLOSE 

XDBCLOSE calls are automatically changed to DBCLOSE calls when you run
the migration aid.

BASIC/V:

     110 CALL XDBCLOSE(B$,"",M2,S[*])

HP Business BASIC/XL:

     1100 DBCLOSE B$,DATASET="",MODE=M2,STATUS=S(*)

XDBINFO 

XDBINFO calls are automatically changed to DBINFO calls when you run the
migration aid.

BASIC/V:

     110 M=203
     120 CALL XDBINFO(B$,"",M,S[*],D2[*])
     130 IF S[1]=0 THEN GOTO 160
     140 CALL XDBEXPLAIN S[*])
     150 GOTO 9900
     160 PRINT "YOU HAVE ACCESS TO ";D2[1];"DATA SETS AS FOLLOWS:"
     170 FOR I=2 TO D2[1]+1
     180    PRINT D2[I]
     190 NEXT I
     9900 STOP

HP Business BASIC/XL:

     1100 M=203
     1200 DBINFO B$,DATASET="",MODE=M,STATUS=S(*), RETURN=D2(*)
     1300 IF S(1)=0 THEN GOTO 1600
     1400 DBEXPLAIN STATUS=S(*)
     1500 GOTO 99000
     1600 PRINT "YOU HAVE ACCESS TO";D2(1);"DATA SETS AS FOLLOWS:"
     1700 FOR I=2 TO D2(1)+1
     1800    PRINT D2(I)
     1900 NEXT I
     99000 STOP

XDBLOCK 

XDBLOCK calls are automatically changed to DBLOCK calls when you run the
migration aid.

BASIC/V:

     10 CALL XDBLOCK(B$,D1$,D2$,D3$,M4,S[*])

HP Business BASIC/XL:

     100 DIM Dblock_temp$[255]
     101 Pack5: PACKFMT D1$,D2$,D3$
     102 PACK USING Pack3;Dblock_temp$
     103 DBLOCK B$,DESCRIPTOR=Dblock_temp$,MODE=M4,STATUS=S(*)

XDBUNLOCK 

XDBUNLOCK calls are automatically changed to DBUNLOCK calls when you run
the migration aid.

BASIC/V:

     20 CALL XDBUNLOCK(B$,"",FNI(1),S[*])

HP Business BASIC/XL:

     200 DBUNLOCK B$,DATASET="",MODE=FNI(1),STATUS=S(*)

MPE/iX 5.0 Documentation