MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Evaluate syntax

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Application Programming
View previous topic :: View next topic  
Author Message
nadh
Intermediate


Joined: 08 Oct 2004
Posts: 192
Topics: 89
PostPosted: Mon Oct 18, 2004 8:54 am    Post subject: Evaluate syntax Reply with quote
Hi

could any one give me the exact code for the following. very urgent.

thanks in advance.
Code:

TEST-SQLCODE SECTION.
     IF SQLCODE IN SQLCA NOT = ZERO AND 100
        IF SQLCODE IN SQLCA < ZERO
             MOVE '3' TO CAPPEL IN PARM-FORMATTAGE
        ELSE
             MOVE '2' TO CAPPEL IN PARM-FORMATTAGE
        END-IF
        CALL 'PG0TX43A' USING SQLCA
                              PARM-FORMATTAGE
     END-IF.
Back to top
View user's profile Send private message Send e-mail
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12375
Topics: 75
Location: San Jose
PostPosted: Tue Oct 19, 2004 11:02 am    Post subject: Reply with quote
Nadh,

Try this

Code:

EVALUATE TRUE
    WHEN SQLCODE < ZERO
         MOVE '3' TO CAPPEL OF PARM-FORMATTAGE
         CALL 'PG0TX43A' USING SQLCA,
                               PARM-FORMATTAGE
    WHEN SQLCODE > ZERO AND NOT = 100
         MOVE '2' TO CAPPEL OF PARM-FORMATTAGE
         CALL 'PG0TX43A' USING SQLCA,
                               PARM-FORMATTAGE
END-EVALUATE


Hope this helps...

Cheers

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
nadh
Intermediate


Joined: 08 Oct 2004
Posts: 192
Topics: 89
PostPosted: Tue Oct 19, 2004 11:54 pm    Post subject: Reply with quote
thank you kolusu

regards
nadh
Back to top
View user's profile Send private message Send e-mail
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Application Programming All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group