CA VISION:Builder/CA VISION:Two - ASL Embedded DB2 Selects

Document ID : KB000055865
Last Modified Date : 14/02/2018
Show Technical Document Details

The following is an example of a simple CA VISION:Builder or CA VISION:Two application with native DB2 SELECT statements coded within the CA VISION:Builder Advanced Syntax Language (ASL) File statements. Notice how the ASL is coded in easy-to-read, English-like, statements. The shaded area depicts the embedded DB2 SELECT statement.

; ASL Run Control Group for Sample Application
; Application uses a Master File
CONTROL TERM, DB2 D61A INM4CALL, RPTMSGS NO
FILE REPORT
; Declare Master file with File Definition from SQL clause
FILE MASTER INPUT, KEYS NONE,
  SQL "SELECT EMPNO, FIRSTNME, MIDINIT, LASTNAME, WORKDEPT, ",
           "BIRTHDATE, HIREDATE, SALARY FROM DSN8610.EMP "

;
;  End of ASL Run Control
;
; Begin ASL Procedure Group
; The first procedure contains processing logic and a report
; A second report is added that outputs data in CSV format
;
PROC INFO 'Main Procedure'
NAME: FIELD V 22  ;Temporary field to hold combined name
;
; Combine Elements of Name into One Field
    COMBINE LASTNAME ',', BLANKS 0, STORE T.NAME
    COMBINE T.NAME FIRSTNME MIDINIT, BLANKS 1, STORE T.NAME
;
    REPORT EMPNO, T.NAME, BIRTHDATE
         TITLE 'Report Showing Birth Dates of all Employees'
         ORDER BY EMPNO
         ;Use LE Picture to display Birth Date with Day of Week
         ITEM BIRTHDATE PIC P'Wwwwwwwwwz, Mmm DD, YYYY'
         FORMAT DATEFMT DATE, WIDTH 80
    END REPORT
;
    
END PROC
;
REPORT BIRTHDATE HIREDATE SALARY
     FORMAT METHOD CSV, DDNAME CSVOUT1
END REPORT
;
;  End of Application