Friday, October 14, 2011

SQL-WITH-RPGLE

C**** SQL-WITH-RPGLE
(Source Member Type - SQLRPGLE)
(Object Type Type - RPGLE) *****
D DS
D CUSTINFO            1                    25
D CUSTNUM            1                      4  0
D CUSTNAME          5                    24
C                               EVAL                 CUSTNUM = 1000
C/EXEC SQL
C+ SELECT CUSNO , CUSNAME
C+ INTO :CUSTNUM , :CUSTNAME
C+ FROM VBT/CLT
C+ WHERE CUSNO = :CUSTNUM
C/END-EXEC
C*****
C                                CUSTINFO DSPLY
C                               *CUSTNAME DSPLY
C*****
C                                 RETURN
C****
Posted by at

1 comment:

  1. STC TechnologiesMay 15, 2012 at 3:54 AM

    The “Set Option” SQL statement acts in a similar manner to the RPG “H” spec in that it allows you to set compile/program attributes for the SQL pre-processor.STC Technologies|STC Technologies

    ReplyDelete

Subscribe to: Post Comments (Atom)