Re: cobol/400

[Scott Lindstrom <SLindstrom@xxxxxxxxxx>]

What have you tried so far that hasn't worked?  We can take it from there.

Scott


                                                                           
             "kiran eepi"                                                  
             <kiran.eepi@gmail                                             
             .com>                                                      To 
             Sent by:                  cobol400-l@xxxxxxxxxxxx             
             cobol400-l-bounce                                          cc 
             s@xxxxxxxxxxxx                                                
                                                                   Subject 
                                       [COBOL400-L] cobol/400              
             06/21/2008 05:25                                              
             AM                                                            
                                                                           
                                                                           
             Please respond to                                             
             COBOL Programming                                             
                  on the                                                   
               iSeries/AS400                                               
             <cobol400-l@midra                                             
                 nge.com>                                                  
                                                                           
                                                                           




Hi,
I just given below coding is in SQL and i need to change this coding into
cobol/400,
Can anyone post what's the solution?

EXEC SQL
             SELECT COUNT(*) INTO : WS-COUNT FROM GCWQUEP
                   WHERE WQUEACTTCD = : WS-VAR
                   AND   WQUEUSERID = : WS-USERID
           END-EXEC
      *
           EVALUATE TRUE
              WHEN SQLCODE = +000
                  MOVE WS-COUNT      TO WFP16-DRVDCOUNT
              WHEN SQLCODE = +100
                  MOVE ZEROES        TO WFP16-DRVDCOUNT
--
This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) mailing
list
To post a message email: COBOL400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/cobol400-l
or email: COBOL400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/cobol400-l.