OK.
I Setup a Subroutine that if I call from an IDESC Gives me the following error:
Non-SQL re-entrant query calls are not allowed'
Am I to take this as, you can't do a SELECT on a file, from an IDESC Subroutine?
However, If I call it from another basic program, it works just fine.
The program runs the following code:
CMD="SELECT FRED-XREF-FILE WITH FILENAME = '":FILENAME:"' TO 5"
PRINT CMD
EXECUTE CMD RTNLIST CAPTURING JUNK
PRINT JUNK
PRINT @SELECTED:" SELECTED"
SIDNO=""
LOOP
READNEXT ID FROM 5 ELSE EXIT
PRINT ID
SIDNO=FIELD(ID,"_",2)
REPEAT
*
And the IDESC:
0001: I
0002: SUBR('*CRM.RETURN.PROFESSION','MASTER.HEMONC',@ID)
0003:
0004: PROFESSION
0005: 30L
0006: S
It's the SELECT that fails - but only when run from the IDESC
Example:
0001: FILE="MASTER.HEMONC"
0002: ID="123456"
0003: CALL *CRM.RETURN.PROFESSION(PROFESSION,FILE,ID)
0004: PRINT PROFESSION
George Gallen
Senior Programmer/Analyst
Accounting/Data Division, EDI Administrator
[email protected]
ph:856.848.9005 Ext 220
The Wyanoke Group
http://www.wyanokegroup.com<http://www.wyanokegroup.com/>
_______________________________________________
U2-Users mailing list
[email protected]
http://listserver.u2ug.org/mailman/listinfo/u2-users
