How to Save a Set of Commands as a Qfile › Modifying Your Qfile Definition Syntax › Step 2 - Modify the SALARY Qfile Definition

Step 2 - Modify the SALARY Qfile Definition

In this step, you change the SALARY qfile definition using the following steps:

1. Press [PF4] to supply space to type in your changes.
2. Add a restriction to the SELECT statement WHERE clause that limits retrieval to salary grades higher than 18.
3. Press [PF5] to apply the change.

For more information on how to change dictionary definitions in IDD, refer to the CA IDMS Dictionary Module Editor User Guide.

In this example, your qfile syntax includes a SELECT (OLQ access mode) statement. Position the cursor on the line that contains the WHERE clause. Press [PF4] to insert additional criteria.

                       IDD nn.n ONLINE      PAGE 2 LINE 1  DICT=TSTDICT    24/86
          QFILE SOURCE FOLLOWS

 SET DICTNAME TSTDICT
 SET UNDERLINE '-'
  SET ACCESS OLQ
 SIGNON SS EMPSS01  SCHEMA EMPSCHM ( 100)
 OPTIONS ALL HEADER ECHO NOFILLER FULL WHOLE INTERRUPT OLQHEADER               -
 NOPATHSTAT NOSTAT COMMENT VERBOSE NODBKEY PICTURE CODETAB NOSYN
 SELECT EMPLOYEE.EMP-FIRST-NAME-0415 EMPLOYEE.EMP-LAST-NAME-0415 EMPLOYEE.START-
 -YEAR-0415 EMPLOYEE.START-MONTH-0415 EMPLOYEE.START-DAY-0415 EMPOSITION.SALARY-
 -GRADE-0420 EMPOSITION.SALARY-AMOUNT-0420 EMPOSITION.BONUS-PERCENT-0420 FROM E-
 MPLOYEE, EMPOSITION   W HERE (EMP-EMPOSITION.EMPLOYEE.EMPOSITION)
 PAGE HEADER BLANK LINES AFTER 1  -
  LINE 1 'EMPLOYEE/EMPOSITION REPORT'  CENTER -
  LINE 2 '$DATE'  CENTER
 PAGE FOOTER BLANK LINES BEFORE 1  -
  LINE 1 '- $PAGE -'  CENTER
 EDIT EMP-FIRST-NAME-0415  -
       ALIGN LEFT   -
       OLQHEADER 'FIRST'-
                 'NAME'-
       PICTURE 'X(10)'
 EDIT EMP-LAST-NAME-0415  -
       ALIGN LEFT   -

Type a blank over the closing parenthesis on the WHERE clause. Add AND SALARY-GRADE-0420 GT 18) to the WHERE clause. Don't forget the closing parenthesis. Then press [PF5] to apply the change.

                       IDD nn.n ONLINE      PAGE 2 LINE 11 DICT=TSTDICT    34/86
EMPLOYEE, EMPOSITION  WHERE (EMP-EMPOSITION.EMPLOYEE.EMPOSITION and salary-grade
 -0420 gt 18)