Called table FORM printing

[R. Murphey]

5.0.09DN9   Native Windows

I decided to create a routine to combine all my @keyF processing in a 
central place. My thinking is that this will allow me to only show those 
formats that I want users to have access to.

So I created a database that holds the filePro file name and the output 
name, and whether or not it should be displayed in the browse.

Then I created a processing table in a library file.

I call this table from my @keyF processing in the input table.

The problem is that when I use the form command at the end of my called 
table, nothing prints.

I thought that the problem might be because the current working 
directory was incorrect, so I changed back to the filePro directory of 
the file I was in. This also didn't work.


Any ideas?



=====================================
Input processing
=====================================

@keyF    If:
        Then: call "library/keyF"
      -------   -   -   -   -   -
          If:
        Then: end

=====================================
Called processing (keyF)
=====================================

          If:
        Then: declare fName(32), frmName(32)
      -------   -   -   -   -   -   -
          If:
        Then: fName = @fi { ""
      -------   -   -   -   -   -   -
          If:
        Then: lookup frm=forms k=[fName] i=A -nxms b="(brw=12 prc=cullit
              fill=asc,top)[Form Name  Description]*2      *3"
      -------   -   -   -   -   -   -
          If: not frm
        Then: clearb; end
      -------   -   -   -   -   -   -
          If:
        Then: chdir "p:/filepro/" { @fi { ""
      -------   -   -   -   -   -   -
          If: ' debug - what directory am i in?
        Then: rz(75) = getcwd(); msgbox rz
      -------   -   -   -   -   -   -
          If:
        Then: frmName = frm(2) { ""
      -------   -   -   -   -   -   -
          If:
        Then: form frmName
      -------   -   -   -   -   -   -   -   -   -   -   -
          If:
        Then: clearb; end
      -------   -   -   -   -   -   -   -   -   -   -   -
          If: '
        Then: '
      -------   -   -   -   -   -   -   -   -   -   -   -
cullit   If: frm(4) ne "Y"
        Then: drop
      -------   -   -   -   -   -   -   -   -   -   -   -
          If:
        Then: end