@Kuk me anduvo perfecto lo unico que añadi fueron los valores de :
Código COBOL:
01 POW-0000 PIC S9(18) COMP-5.
01 POW-0001 PIC S9(9) COMP-5.
01 POW-0002 PIC S9(9) COMP-5.
01 POW-0003 PIC S9(9) COMP-5.
01 POW-0004 PIC S9(9) COMP-5.
01 POW-0005 PIC S9(9) COMP-5.
01 POW-0006 PIC X(8192).
01 POW-0007 PIC S9(9) COMP-5.
01 POW-0008 PIC S9(4) COMP-5.
Muchas Gracias


Saludos ...