RE: SQL in Free Format

Good idea. Go a little further and think about using subprocedures rather
than subroutines. I think that the next release of the precompiler will
have better support of RPG IV and subprocedures packaged as NOMAINs.

Bob

Bob Slaney/Atlanta/IBM@xxxxx (Lotus Notes)
Internet id: rjslaney@xxxxxxxxxx

Tieline  445-7374 Direct (770)835-7374
FAX tie 445-7579 Direct (770)835-7579
AMS Americas Learning Development
iSeries Courseware Developer
IBM Corp.
3200 Windy Hill Road
Atlanta, GA 30339
WG07C13


                                                                                
                                                           
                      "Chevalier, Rick"                                         
                                                           
                      <Rick.Chevalier@xxxxx        To:       "'RPG programming 
on the AS400 / iSeries'" <rpg400-l@xxxxxxxxxxxx>            
                      credit.com>                  cc:                          
                                                           
                      Sent by:                     Subject:  RE: SQL in Free 
Format                                                        
                      rpg400-l-bounces@xxxx                                     
                                                           
                      ange.com                                                  
                                                           
                                                                                
                                                           
                                                                                
                                                           
                      03/19/2003 09:41 AM                                       
                                                           
                      Please respond to RPG                                     
                                                           
                      programming on the                                        
                                                           
                      AS400 / iSeries                                           
                                                           
                                                                                
                                                           
                                                                                
                                                           




Robin,

I kind of like that idea.  Wish I had thought of it.

I think I'll have to update how I write my embedded SQL programs.

Rick

-----Original Message-----
From: Robin Coles [mailto:robin@xxxxxxxxxxxx]
Sent: Wednesday, March 19, 2003 8:03 AM
To: 'RPG programming on the AS400 / iSeries'
Subject: RE: SQL in Free Format

I didn't like the look of it either, so I put the SQL into subroutines:
    Except Header;
    ErrorFlag = System('CLRPFM FIXONINW');

    Open FixOnInW;

    ExSr Fetch;
    DoW SqlCod = 0;

      // Make sure header exists

      Ok = *On;
      If OlOrNo <> SvOrNo;

It's purely cosmetic though.

Cheers
Robin

_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.
_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.