* **************************  DNFOUND COMMAND FILE  **************************
*
*                                  dNAMES 1.1
*                   (c) Copyright 1982 Data Based Solutions
*                             All Rights Reserved
* ****************************************************************************
&era
SET inte ON
@ 15,4 SAY 'I found a similar record already on file.' 
@ 17,4 SAY 'If you would like to abort this entry type "A".' 
@ 18,4 SAY 'If you would like to continue adding this record regardless, ' +;
'type "C".' 
@ 19,4 SAY 'If you would like to see what I found type <RET>.' 
@ 20,4 SAY 'Keep in mind that you can return and correct, abort,' 
@ 21,4 SAY 'or add the above record to the file.' 
SET cons OFF
WAIT TO choice
SET conso ON
&era
IF !(choice)= 'A' .OR.!(choice)= 'C' 
 RETURN
ENDIF 
@ 1,0
STORE $(dsk,2,1)+ ':dnn' TO a1
STORE $(dsk,2,1)+ ':dnxn' TO a2
STORE $(dsk,2,1)+ ':dnc' TO b1
STORE $(dsk,2,1)+ ':dnxc' TO b2
STORE $(dsk,2,1)+ ':dnmc' TO c1
STORE $(dsk,2,1)+ ':dnxmc' TO c2
STORE $(dsk,2,1)+ ':dnmem' TO mem
DO dnscan
RELEASE a1,a2,b1,b2,c1,c2,mem
SET inte ON
@ 0,0
@ 1,6 SAY " LAST ENTRY-" 
@ 1,60 SAY 'DATE-' 
SET inte OFF
@ 1,19 SAY $(headname+ '                                        ' ,1,40)
@ 1,66 SAY $(headdate+ '        ' ,1,8)
@ 3,13 SAY mname
@ 3,55 SAY msal
@ 4,13 SAY madd
@ 5,13 SAY mcity
@ 4,60 SAY '                 ' 
@ 5,41 SAY mstate 
@ 5,49 SAY mzip 
@ 5,60 SAY '                 ' 
@ 6,13 SAY marea
@ 6,24 SAY mphone PICTURE '999-9999' 
@ 6,40 SAY mmcl
@ 6,69 SAY '  ' +mcode
SET inte ON
@ 7,03 SAY '                                                      ' +;
'                     ||' 
SET inte OFF
@ 8,13 SAY mcom
@ 9,3 SAY mline1
@ 10,3 SAY mline2
@ 11,3 SAY mline3
IF mmcl<> '  ' 
 STORE f TO showcl
 DO dnshow
 RELEASE showcl
ENDIF 
&era
SET inte ON
RETURN