ASQ> FIND COMMON_FILE WHERE LASTNAME EQ "SMITH"         
534 records found
ASQ> FIND COMMON_FILE FOLLOWING CURRENT WHERE STATE EQ "AR"
521 records found
ASQ> FIND COMMON_FILE WHERE STATE EQ "AR"
25571 records found
ASQ> FIND COMMON_FILE WHERE LASTNAME EQ "SMITH"             
534 records found
ASQ> FIND COMMON_FILE FOLLOWING CURRENT WHERE STATE EQ "AR"
521 records found
ASQ> FIND COMMON_FILE FOLLOWING CURRENT WHERE BIRTHDATE GE 01011990
3 records found
------------------------------------------------------------------------
$ SET DEF REGSYS_FILES:[REG.FILES]
$ COPY STUDENT.DSC FILEA.DSC
$ COPY STUDENT.DSC FILEB.DSC
$ RUN DMS:DESCRIBE
DESCRIBE V6.8-02 - Data File Description Program            02:51 PM
Copyright (c) 2000, Campus America, Inc.
Data File Name ? FILEA
Type "HELP" for assistance
 
DESCRIBE Option? ALL
Number of characters in each record (1237-2047) <1535>?
Maximum number of records? 500

File: DKD2:[REG.FILES]FILEA
500 records, 1535 characters per record.
The file will be approximately 1503 blocks long.
Actual record maximum: 500
Proceed ? YES
File created and extended                         02:51 PM

Key file build complete                           02:51 PM
 
DESCRIBE Option?
 
Finished    02:51 PM
$ RUN DMS:DESCRIBE
DESCRIBE V6.8-02 - Data File Description Program            02:51 PM
Copyright (c) 2000, Campus America, Inc.
Data File Name ? FILEB
Type "HELP" for assistance
 
DESCRIBE Option? ALL
Number of characters in each record (1237-2047) <1535>?
Maximum number of records? 500

File: DKD2:[REG.FILES ]FILEB
500 records, 1535 characters per record.
The file will be approximately 1503 blocks long.
Actual record maximum: 500
Proceed ? YES
File created and extended                         02:51 PM

Key file build complete                           02:51 PM
 
DESCRIBE Option?
 
Finished    02:51 PM
$ RUN DMS:POINTER
POINTER V6.8-01 - DMS-Plus Quick Pointer File Builder       02:51 PM
Copyright (c) 2000, Campus America, Inc.
Data File Name ? STUDENT
Type "HELP" for assistance

Option? RAND
0 pointers in the Pointer file.
Number of pointers to add? 500
New number of pointers: 500

Option?
 
Finished    02:52 PM
$ RUN DMS:TRANSFER
TRANSFER V6.8-02 - Information Transfer Program             02:52 PM
Copyright (c) 2000, Campus America, Inc.
Left-side Data File Name ?
Right-side Data File Name? FILEA
Number of pointers in the Pointer file: 500
Does that seem correct ? YES
Key Field Load ?
Number of Level Breaks <0>?
Command   1? .* TO .*
Command   2?
Proceed with the Transfer ? YES

Transfer started                                  02:52 PM

Last active right-side file record number: 500
 
Finished    02:52 PM
$ RUN DMS:TRANSFER
TRANSFER V6.8-02 - Information Transfer Program             02:52 PM
Copyright (c) 2000, Campus America, Inc.
Left-side Data File Name ?
Right-side Data File Name? FILEB
Number of pointers in the Pointer file: 500
Does that seem correct ? YES
Key Field Load ?
Number of Level Breaks <0>?
Command   1? .* TO .*
Command   2?
Proceed with the Transfer ? YES

Transfer started                                  02:52 PM

Last active right-side file record number: 500
 
Finished    02:52 PM
$ RUN DMS:POINTER
POINTER V6.8-01 - DMS-Plus Quick Pointer File Builder       02:54 PM
Copyright (c) 2000, Campus America, Inc.
Data File Name ?
Type "HELP" for assistance

Option? RAND
0 pointers in the Pointer file.
Number of pointers to add? 250
New number of pointers: 250

Option?
 
Finished    02:54 PM
$ BLANK
BLANK V6.8-01 - Blank/Load Data File Fields                 02:54 PM
Copyright (c) 2000, Campus America, Inc.
Data File Name ?
Number of pointers in the Pointer file: 250
Does that seem correct ? YES
 
Fields to Blank? WHOSWHO/PUT="Y"
Proceed with Blanking ? YES
 
Finished    02:54 PM
$ RUN DMS:COMPARE
COMPARE V6.8-02 - Data File Comparison Program              02:55 PM
Copyright (c) 2000, Campus America, Inc.
Data File Name ? FILEA/ALL
Data File to Compare Against? FILEB
Field in "FILEA" to key on <1>? STUDENTID
Enter field comparison commands
Command 1 ? WHOSWHO TO WHOSWHO
Command 2?
Build pointers to Matched records ? NO
Pointer file will be built to Unmatched records

File 1: FILEA
File 2: FILEB
File to build new Pointer file to <1>? 2
Print out Matched records ? NO

Number of new pointers: 250
Continue the Build ? YES
New Pointer file created for "DKD2:[REG.FILES]FILEB"
 
Finished    02:56 PM
$ PPRINT
PRINT V6.8-06 - DMS-Plus Report Generator                   02:57 PM
Copyright (c) 2000, Campus America, Inc.
Data File Name ? /TR
Translation Data File 1? FILEA
Translation Data File 2?
 
Number of blank lines between records <0>?
Number of spaces between columns <1>?
 
Enter column commands
Column 1 (Line 1, Pos 1)...Field? STUDENTID
Column 2 (Line 1, Pos 12)...Field? WHOSWHO
Column 3 (Line 1, Pos 14)...Field? STUDENTID/TR1=WHOSWHO
Column 4 (Line 1, Pos 16)...Field?
 
Number of lines per page <55>?
Number of Level Breaks <0>?
Report Date <21-Jun-2006>?
Heading 1?
Number of copies <1>?
Report Name? TT:
 
Report Generation Started                         02:57 PM

Date 21-Jun-2006    Page 1

STUDENT ID W W
---------- - -
8750-07091   Y
8880-03239   Y
4300-08336   Y
8500-06771   Y
5290-03490   Y
8440-09138   Y

    Source: geocities.com/lim_abc/VMS

               ( geocities.com/lim_abc)