Friedrich,
I found another way around it. I think the problem has something to do with my assumptions about how inbound parameters are handled and how I coded for them. The workaround provides better future flexibility so it was actually a good thing that I hit this problem.
I ripped out all the stuff that doesnt matter to make this post easier to deal with, so the essence of the program was as follows:
PROGRAM
MAP
!ORIGINAL ALLEGEDLY WORKING<G> PROTOTYPE GetPCC(PCC_CODE),SHORT,NAME('GetPCC')
GetPCC(STRING PCC_CODE),SHORT,NAME('GetPCC') ! GPFs when SB calls it.
END
PCC_STATUS SHORT
CODE
!----------------------
GetPCC PROCEDURE(STRING PCC_CODE)!,SHORT ! Used by full installation program to get and check the PCC code
!----------------------
PAC_STRING CSTRING(1000)
CODE
IF CLIP(PCC_CODE) > ' '
PAC_STRING = PCC_CODE
ELSE
RETURN(-1)
END
! evaluate pcc_code here
RETURN(PCC_STATUS)
BTW, the exp that used to work but stopped working was:
NAME GetPCC GUI
EXPORTS
GetPCC @1
Mark