SCAN  
X = str(nom_dela,  8 )
select kniga   && выбрал алиас kniga
SCAN
nom_deloChar = str(nom_delo,  14 )  && запомнил значения для поиска
Y = substr(nom_deloChar,  7 ,  8 )
locate for substr(nom_deloChar,  7 ,  8 ) = X  && и в этом же алиасе начал искать
********
ENDSCAN
ENDSCAN

create cursor Sootvetstvie;
(nom_dela_Arch c( 10 ), nom_delo_Kniga c( 10 ))
create cursor NeSootvetstvie;
(nom_dela_Arch c( 10 ), nom_delo_Kniga c( 10 ))
local max_zapArch
select archive
SCAN
X = str(nom_dela,  8 )
select kniga
Y=''
locate for substr( str(nom_delo,  14 ),  7 ,  8 ) = X
if found()
kniga.date_fromArch && здесь должен измениться Y
select Sootvetstvie
insert into Sootvetstvie(nom_dela_Arch , nom_delo_Kniga);
values(X , Y)
else
select NeSootvetstvie
insert into NeSootvetstvie(nom_dela_Arch , nom_delo_Kniga);
values(X , Y)
endif
select archive
ENDSCAN

create cursor s;
    (nom c( 10 ), delo c( 10 ))

INSERT INTO s VALUES ('1','1')
INSERT INTO s VALUES ('2','2')
INSERT INTO s VALUES ('4','3')

create cursor k;
    (nom c( 10 ), delo c( 10 ))
    
INSERT INTO k VALUES ('1','1')
INSERT INTO k VALUES ('5','2')
INSERT INTO k VALUES ('3','3')

SELECT NVL(s.nom,'нет в S   ') AS Nom_s, NVL(k.nom,'нет в K   ') AS nom_k;
           FROM s AS s ;
           FULL JOIN k AS k ON k.nom = s.nom ; 
           INTO CURSOR tmp 

BROW
CLOSE TABLES ALL