Simple SQL in RPG question.

["Mike Troxclaire" <mike_troxclaire@xxxxxxxxxxx>]

Hello All;

With all your help and input, I am able to run a SQL embedded RPG program 
and produce a report. Now, I want the user to be able to go to the green 
screen and say CALL MYPROG('CSTNUM') and the results should be displayed on 
the screen(not create a report). Right now, I have hardcoded the customer 
number. The SQL statement is very complicated one so for simplicity I am 
just using a small one over here. I will further improve on it using a DSPF 
but for now I just want to call my program and pass the customer number as a 
parameter. Here is what I coded till now. Please overlook the coding 
inadequacies of a novice programmer. Any help in this matter will be much 
appreciated.

******************************************************************************

    FQSYSPRT   O    F  132        PRINTER


    D  CSTNUM         S             10
    D  CSNAME         S             30
    D  CSADD1         S             30
    D  COUNT          S              7  0

    C                   EXSR      PROCESS
    C                   EXSR      ENDPGM


    C     PROCESS       BEGSR
    C                   EXSR      WORK01
    C                   ENDSR


    C     WORK01        BEGSR
    C/EXEC SQL
    C+ DECLARE MYCUR CURSOR FOR SELECT CSTNUM, CSNAME,
    C+ CSADD1 FROM LIBRARY1/CSTMST WHERE CSTNUM = '   XXXXXXX'
    C/END-EXEC

    C/EXEC SQL
    C+ OPEN MYCUR
    C/END-EXEC


    C                   EXCEPT    HEAD1
    C                   EXSR      @@FETCH
    C                   DOW       SQLCOD = 0
    C                   EXCEPT    DET1
    C                   EVAL      COUNT = COUNT + 1
    C                   EXSR      @@FETCH
    C                   ENDDO


    C/EXEC SQL
    C+ CLOSE MYCUR
    C/END-EXEC
    C                   EXCEPT    DET2

    C                   ENDSR



    C     @@FETCH       BEGSR
    C/EXEC SQL
    C+ FETCH NEXT FROM MYCUR INTO :CSTNUM, :CSNAME, :CSADD1
    C/END-EXEC
    C                   ENDSR

    C     ENDPGM        BEGSR
    C                   EVAL      *INLR = *ON
    C                   ENDSR


    OQSYSPRT   E            HEAD1          1
    O                                           +0 'CSTNUM'
    O                                           +1 'CSNAME'
    O                                           +1 'CSADD1'
    O          E            DET1           1
    O                       CSTNUM              +0
    O                       CSNAME              +2
    O                       CSADD1              +2
    O          E            DET2           1
    O                       COUNT         4     +0

******************************************************************************

Cheers,

Mike.

_________________________________________________________________
Express yourself instantly with MSN Messenger! Download today - it's FREE! 
http://messenger.msn.click-url.com/go/onm00200471ave/direct/01/