EXTRACT PEOPLE(*) { ARCHIVE MOVE PEOPLE [*]; }
In the above example all PEOPLE records are archived.
EXTRACT PEOPLE(PEOPLE.CITY == "DERBY") { ARCHIVE MOVE PEOPLE [*]; }
In the above example all PEOPLE records where the CITY field equals DERBY are archived.
EXTRACT PEOPLE( PEOPLE.AH == [TODAY(-50Y,DATX)..TODAY(-40Y,DATX)] ) { ARCHIVE MOVE PEOPLE [*]; }
In the above example all PEOPLE records which are in the age range 40 – 50 years old are archived. Note the use of the DATX format in the TODAY() function to indicate field AH in the PEOPLE file contains the date of birth in Natural D-format.
EXTRACT PEOPLE( PEOPLE.AH < TODAY(-50Y,”YYYY-MM-DD”) ) { ARCHIVE MOVE PEOPLE [*]; }
In the above example all PEOPLE records which are over 50 years old are archived. Note the use of a user defined format to indicate field AH in the PEOPLE file contains the date of birth in a 10 byte Alpha field of format YYYY-MM-DD.
EXTRACT PEOPLE(PEOPLE.CITY == ["DERBY", "PARIS", "DETROIT"]) { ARCHIVE MOVE PEOPLE[*]; EXTRACT CARS(CARS.PERSONNEL_ID == PEOPLE.PERSONNEL_ID) { ARCHIVE MOVE CARS[*]; } EXTRACT OTHER(OTHER.PERSONNEL_ID== PEOPLE.PERSONNEL_ID) { ARCHIVE MOVE OTHER[*]; } }
In the above example all PEOPLE records where the CITY field equals DERBY, PARIS or DETROIT are archived. In addition, related records (based on PERSONNEL_ID) from the CARS file and OTHER file are also archived.