OCCURS ORDENADO
Publicado por SuperIndio (10 intervenciones) el 17/04/2002 17:47:55
Hola Coboleros y Coboleras
Trabajo hace 4 años que trabajo que desarrollo en Cobol y nunca he tenido que lidiar tanto con OCCURS, la delaracion es esta:
01 MAT000.
03 MTX000 OCCURS 10000 TIMES
ASCENDING MTK-A0090, MTK-A1010, MTK-A6180,
MTK-A6777, MTK-A4390, MTK-A6100, MTK-A6000 INDEXED BY INX.
05 MTK-INFOR PIC X(01).
05 MTK-A0090 PIC 9(05).
05 MTK-A1010 PIC 9(06).
05 MTK-A6180 PIC 9(03).
05 MTK-A6777 PIC 9(03).
05 MTK-A4390 PIC 9(02).
05 MTK-A6100 PIC 9(03).
05 MTK-A6000 PIC 9(03).
05 MTK-06843 PIC X(25).
05 MTK-A0230 PIC X(03).
05 MTK-IMORG PIC S9(15).
05 MTK-06800 PIC S9(15).
La carga de esta matriz se realiza en forma desordenada ya que puede venir de diferentes tablas Oracle, hasta aqui todo bien el problema es que cuando finalizo de cargarlo lo necesito ordenado por varios campos, Alguien sabe como hago para leerlo ordenado tal como lo muestra la declaracion ????? o Como se hace para cargarlo ordenado para leerlo Ordenado ??? o como hago para tenga efecto el Ascending.
Desde ya muchas gracias
SuperIndio
Trabajo hace 4 años que trabajo que desarrollo en Cobol y nunca he tenido que lidiar tanto con OCCURS, la delaracion es esta:
01 MAT000.
03 MTX000 OCCURS 10000 TIMES
ASCENDING MTK-A0090, MTK-A1010, MTK-A6180,
MTK-A6777, MTK-A4390, MTK-A6100, MTK-A6000 INDEXED BY INX.
05 MTK-INFOR PIC X(01).
05 MTK-A0090 PIC 9(05).
05 MTK-A1010 PIC 9(06).
05 MTK-A6180 PIC 9(03).
05 MTK-A6777 PIC 9(03).
05 MTK-A4390 PIC 9(02).
05 MTK-A6100 PIC 9(03).
05 MTK-A6000 PIC 9(03).
05 MTK-06843 PIC X(25).
05 MTK-A0230 PIC X(03).
05 MTK-IMORG PIC S9(15).
05 MTK-06800 PIC S9(15).
La carga de esta matriz se realiza en forma desordenada ya que puede venir de diferentes tablas Oracle, hasta aqui todo bien el problema es que cuando finalizo de cargarlo lo necesito ordenado por varios campos, Alguien sabe como hago para leerlo ordenado tal como lo muestra la declaracion ????? o Como se hace para cargarlo ordenado para leerlo Ordenado ??? o como hago para tenga efecto el Ascending.
Desde ya muchas gracias
SuperIndio
Valora esta pregunta
0