Embedded SQL in an RPG *SRVPGM, file stays open

[AGlauser@xxxxxxxxxxxx]

Hi all,

I hope this is the right place to ask this question.  I've looked at the 
Embedded SQL Redbook a bit, as well as archive.midrange.com, but I haven't 
found anything.  I'm sort of making baby steps with embedded SQL at this 
point, so it's quite possible I'm not looking in the right places.

My problem is that the PF stays open after my SQL statement is run, even 
if I add a CLOSE.  I understand from the Redbook that the SQL preprocessor 
creates it own F-spec for each file it uses, so I can see why the close 
isn't working the way I'd hoped.  Is there some way to force the file to 
close after the SQL statement?

My code looks like this:
     P DSRMUNITS_getUnitByAssocUnit...
     P                 B                   EXPORT
     D DSRMUNITS_getUnitByAssocUnit...
     D                 PI                  LIKE(vuUnit)
     D  assocUnit                          LIKE(vuUnit)
     D                                     CONST
     D  errorInfo                          LIKEDS(UTTERRDS_errorDS)


     D* Local fields
     D retField        S                   LIKE(vuUnit)

     D MORE_THAN_ONE_RECORD...
     D                 C                   '21000'

     C/EXEC SQL
     C+ SELECT vuUnit INTO :retField
     C+ FROM   dsp070
     C+ WHERE  vuAss = (SELECT vuVMU#
     C+                 FROM   dsp070
     C+                 WHERE  vuUnit = :assocUnit AND
     C+                        vuStat IN ('OTR','AVL')
     C+                 )
     C/END-EXEC

      /FREE
       errorInfo.errorCode = DSRMUNITS_NO_ERROR;

       if (retField = *blanks);
           errorInfo.errorCode = DSRMUNITS_UNIT_NOT_FOUND_ERROR;

       elseif (SQLSTATE = MORE_THAN_ONE_RECORD);
           errorInfo.errorCode = 
DSRMUNITS_ASSOCIATED_TO_MULTIPLE_UNITS_ERROR;

       endif;

       close DSP070;
       return retField;

      /END-FREE
     P DSRMUNITS_getUnitByAssocUnit...
     P                 E

TIA,
Adam

Attention:

The information contained in this message and or attachments is 
intended only for the person or entity to which it is addressed and may contain 
confidential and/or privileged material. Any review, retransmission, 
dissemination or other use of, or taking of any action in reliance upon, this 
information by persons or entities other than the intended recipient is 
prohibited. If you received this message in error, please contact the sender 
and 
delete the material from any system and destroy any copies. Thank you for your 
time and consideration.

Attention: 

Le contenu de ce message et(ou) les fichiers ci-joints s?adressent 
exclusivement à la personne ou -entité à laquelle ils sont destinés. Ils 
peuvent 
contenir de l?information confidentielle, protégée et(ou) classifiée. Il est 
strictement interdit à toute personne ou entité autre que le(la) destinataire 
prévu(e) de ce message d?examiner, de réviser, de retransmettre ou de diffuser 
cette information, de prendre une quelconque action en fonction ou sur la base 
de celle-ci, ou d?en faire tout autre usage. Si vous avez reçu ce message par 
erreur, veuillez communiquer avec l?expéditeur(trice), supprimer ce message et 
les fichiers ci-inclus de tout système, et en détruire toutes copies, qu?elles 
soient électroniques ou imprimées. Nous vous remercions de votre entière 
collaboration.