Attrezzature Hardy
STR(I0)+STR(I1)
I1
MESSAGE EMPTY ISAMREAD,20,TIPOCF='C'!CODCF=I0,103=RAGSOC!104=INDCF!105=CAPCF!106=COMCF
MESSAGE ISAMREAD,16,TIPOCF='C'!CODCF=I0!CODIND=I1,103=RAGSOC!104=INDIR!105=CAP!106=COM
I0
MESSAGE ISAMREAD,20,TIPOCF='C'!CODCF=#101,RAGSOC
MESSAGE ISAMREAD,13,COM=#106,DENCOM
CODTAB[6,12]
S0[6,20]
MESSAGE ISAMREAD,47,CODART=#101,DESCR
D0
D1
CODTAB[1,5]
USE HAATT
SELECT STR(BETWEEN(I0,#CODCF,#CODCF))
BY I0