SUBFILE
Publicado por David Barron (32 intervenciones) el 13/03/2009 23:40:22
Buenas Tardes:
Tengo un programa que tiene un subfile, el archivo que se está leyendo es de 2984 registros, ya tengo especificado en la pantalla que el Records in subfile . . . . . . . . . . SFLSIZ 9999, pero aun asi me marca el siguiente error al tratar de correrlo
Message . . . . : Error RPG1255 caused program SADR0250 to stop.
Cause . . . . . : If message RPG1255 is greater than RPG0099 (between
RPG0100 - RPG9999), then program SADR0250 ended in error. Otherwise a
programmer-defined error subroutine canceled the program. See previously
listed messages for more information.
Recovery . . . : Correct the error indicated by the message or contact the
application coordinator.
De echo el programa es super sencillo:
FSADFCCGLIP E K DISK
FSADD0250CF E WORKSTN
F CONTA KSFILE REGLRE
C*
C*
C*
C *IN01 IFEQ '0'
C SETON 1901
C WRITEREGCLRE
C SETOF 19
C END
C Z-ADDCIA CIASF
C MOVELCUECON CTASF
C MOVELCENCOS CENCSF
C MOVELGLCODE GLCOSF
C ADD 1 CONTA 30
C WRITEREGLRE
CLR SETON 16
CLR WRITEREGSUB
CLR EXFMTREGCLRE
CLR SETOF 16
CLR SETON LR
CLR RETRN
Alguno de ustedes puede ayudarme con esto, estube haciendo pruebas quitandole registros al archivo y me desplego información solo cuando el archivo tenia 1000 o menos registros, espero me puedan ayudar, de antemano gracias.
Saludos!
David Barrón
Tengo un programa que tiene un subfile, el archivo que se está leyendo es de 2984 registros, ya tengo especificado en la pantalla que el Records in subfile . . . . . . . . . . SFLSIZ 9999, pero aun asi me marca el siguiente error al tratar de correrlo
Message . . . . : Error RPG1255 caused program SADR0250 to stop.
Cause . . . . . : If message RPG1255 is greater than RPG0099 (between
RPG0100 - RPG9999), then program SADR0250 ended in error. Otherwise a
programmer-defined error subroutine canceled the program. See previously
listed messages for more information.
Recovery . . . : Correct the error indicated by the message or contact the
application coordinator.
De echo el programa es super sencillo:
FSADFCCGLIP E K DISK
FSADD0250CF E WORKSTN
F CONTA KSFILE REGLRE
C*
C*
C*
C *IN01 IFEQ '0'
C SETON 1901
C WRITEREGCLRE
C SETOF 19
C END
C Z-ADDCIA CIASF
C MOVELCUECON CTASF
C MOVELCENCOS CENCSF
C MOVELGLCODE GLCOSF
C ADD 1 CONTA 30
C WRITEREGLRE
CLR SETON 16
CLR WRITEREGSUB
CLR EXFMTREGCLRE
CLR SETOF 16
CLR SETON LR
CLR RETRN
Alguno de ustedes puede ayudarme con esto, estube haciendo pruebas quitandole registros al archivo y me desplego información solo cuando el archivo tenia 1000 o menos registros, espero me puedan ayudar, de antemano gracias.
Saludos!
David Barrón
Valora esta pregunta
0