25 lines
318 B
Plaintext
25 lines
318 B
Plaintext
{
|
|
programa: testarray.4gl
|
|
fecha : 1/11/2013
|
|
|
|
}
|
|
|
|
|
|
DEFINE arreglo1 DYNAMIC ARRAY OF RECORD
|
|
edit1 CHAR(10),
|
|
edit2 CHAR(20)
|
|
END RECORD
|
|
|
|
DEFINE arreglo2 DYNAMIC ARRAY OF RECORD
|
|
edit3 CHAR(10),
|
|
edit4 CHAR(20)
|
|
END RECORD
|
|
|
|
MAIN
|
|
|
|
CALL testarray()
|
|
END MAIN
|
|
|
|
FUNCTION testarray()
|
|
|
|
END FUNCTION |