@Josber, el
TYPEDEF es para definir un tipo de campo nuevo, puede ser simple o estructura. Así puedes tener tantas copias del "tipo" como quieras.
Ejemplo:
Código COBOL:
01 CLIENTE TYPEDEF.
05 NOMBRE PIC X(20).
05 APELLIDO PIC X(30).
05 EDAD PIC 9(2).
01 cliente1 TYPE CLIENTE.
01 cliente2 TYPE CLIENTE.
PROCEDURE DIVISION.
MOVE "JOSBER" TO NOMBRE OF cliente1
Otro ejemplo:
Código COBOL:
01 HWND TYPEDEF PIC S9(9) COMP-5.
01 hwndForm TYPE HWND.
01 hwndListView TYPE HWND.
PROCEDURE DIVISION.
MOVE "hwnd" OF POW-SELF TO hwndForm
MOVE "hwnd" OF CmListView1 TO hwndListView