Procedure Modules › Searching a Table (CULLUS62) › Helpful Hints

Helpful Hints

• CULLUS62 does not convert data or align decimals. If either procedure is desired, move the field that has the key value to an appropriate work field.
• If the key value is invalid or missing from the table, CULLUS62 automatically returns a value of zero.
• Use a key value that corresponds in data type and number of decimal places to the table entries.
• Use a sequential search when entries are not randomly distributed and where entries are not widely diversified.

Example

This example searches a table containing six occurrences of department numbers. Department names that correspond to the department number are retrieved and printed.

The following code:

• Defines the input data fields, including the field that contains key value (IN-DEPT).
• Defines work fields containing:
  • 6 values for department number (DEPT-NUMBER)
  • 7 department names (DEPARTMENT-NAME)
  • The occurrence number of the key in the DEPT-NUMBER table (INDEX)
• Issues a CALL to CULLUS62 to search the DEPT-NUMBER table and place the occurrence number (INDEX) when a match occurs in INDEX.

  The value of INDEX is tested for a return of zero (no key found). If true, a value corresponding to the seventh occurrence of DEPARTMENT-NAME is moved to INDEX and UNKNOWN is printed for department numbers not found in the DEPT-NUMBER table.

• Prints out specific occurrences of DEPARTMENT-NAME with type 5 lines.

   INPUT 80 F 80
   REC NAME       1  20
   REC ACCOUNT   33   4  3
   REC IN-DEPT   37   3 
   013CULLUS62
   0141*001 ' '
   0151*001 NAME                   HH 'NAME'
   0151*002 ACCOUNT       FN       HH 'ACCOUNT'
   0151*003 DEPARTMENT-NAME.INDEX  HH 'DEPARTMENT' 'NAME'
   010 DEPT-NUMBER.6   '111' '222' '333' '444' '555' '666'
   010 DEPARTMENT-NAME.7 'TECH SUPPORT  '  'SALES         '
  *                      'MARKETING     '  'SYSTEM SUPPORT'
  *                      'ADMINISTRATION'  'EDUCATION     '
  *                      'UNKNOWN       '
   010 INDEX
   017001 CALL US62 (DEPT-NUMBER 'A' 3 6 'S' IN-DEPT INDEX)
   017    IF INDEX EQ 0 50
   017    TAKE
   017050 MOVE 7 TO INDEX
   017    TAKE
   01OUT  D
  

REPORT NO. 01             CULLUS62      mm/dd/yy PAGE     1

                                         DEPARTMENT
            NAME            ACCOUNT         NAME

    JONES MARY              1112222    TECH SUPPORT
    SMITH PETER             3334444    MARKETING
    BROWN JACK              5556666    ADMINISTRATION
    MACINTOSH JUNE          7778888    UNKNOWN
    RICHARDS MICHAEL        9991111    UNKNOWN
    PAPPAS DICK             2223333    SALES
    BURNS FAY               4445555    SYSTEM SUPPORT
  C750009 RECORDS WRITTEN FOR REPORT 01 --          12