RUN NAME STATTEMP EXPORT
TASK NAME INITIALIZATION
NEW FILE STATTEMP
JOURNAL OFF
NO CASE ID
N OF RECORDS 10230000
MAX INPUT COLS 80
RECTYPE COLS 78 79
MAX REC TYPES 30
MAX REC COUNT 100
TASK NAME RECORD 1 (INITIAL ) SCHEMA DEFINITION
RECORD SCHEMA 1 INITIAL
KEY FIELDS A (I)
SEQUENCE CHECK OFF
MAX REC COUNT 10000000
DATA LIST (1)
/1 A 1 - 2 (I1)
/1 B 3 - 4 (A2)
END SCHEMA
CREATE DBINDEX AB ON INITIAL (A,B)
retrieval update
record is initial (-1)
compute B = "C"
end record
record is initial (0)
compute B = "B"
end record
record is initial (1)
compute B = "A"
end record
end retrieval
retrieval
process rec 1 indexed by AB
get vars all
write all
end process rec
end retrieval
|
