Hello Ron, Here is some information to assist you. Create the procedure PROC020S.
This is how it is called from the Easytrieve program: Run Statically with PARM SQLSYNTAX NONE BIND (STATIC-ONLY) DEFINE LNAMEIN S 8 A DEFINE BRANCHO S 2 A DEFINE EMPNO S 5 A DEFINE LOC1 S 4 B 0 JOB INPUT NULL SQL CALL PROC020S (:LNAMEIN, :BRANCHO) . . . SQL ASSOCIATE LOCATORS (:LOC1) WITH PROCEDURE PROC020S SQL ALLOCATE R1 CURSOR FOR RESULT SET :LOC1 . . . DO WHILE SQLCODE NE 100 SQL FETCH R1 INTO :EMPNO . . . Include a check for the SQLCODE for each. <end> If you need further help please contact CA Support at support.ca.com to open an issue and we would be happy to assist you. Best regards, Helen Biederbeck CA Technologies Support Delivery Manager bieh...@ca.com ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
