CREATE TABFILE TEST FILENAME = "TEST.TBF"
RETRIEVAL NOAUTOCASE
INTEGER*1 A
INTEGER*2 B
INTEGER*4 C
MISSING VALUES A B C (7,8,9)
PERFORM PROCS
for i = 7,9
compute A = I
compute B = I
compute C = I
PERFORM PROCS
end for
for i = 0,3
compute A= I
compute B= I
compute C= I
PERFORM PROCS
end for
for i = 0,3
compute A= I+120
compute B= I+32760
compute C= I+2147483630
PERFORM PROCS
end for
SAVE TABLE TEST.TABLE REPLACE VARIABLES=ALL
END RETRIEVAL
c
c display values
c
PROGRAM
PROCESS ROWS TEST.TABLE
GET VARS ALL
WRITE A B C
END ROW
END PROGRAM
|
