Ver Mensaje Individual
  #4
Antiguo 7 de abril de 2016, 00:28
Rapinto
Gran amigo del Foro
Guru de COBOL
Activista del Foro: Activista del Foro - Issue reason: ¡Gracias! Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Issue reason: Por ayudar mucho a los foreros Guru de los Gurus: Por solidos y amplios conocimientos - Issue reason: Por saber demasiado! 
Última Actividad 29.01.2018 20:23
Posts Posts: 240
Likes enviados Enviados: 19
Likes recibidos Recibidos: 224

Josber,

Do manual "Programers Guide":

An initial value must be assigned to identifier-2 prior to execution of the INSPECT statement.

O identifier-2 é o teu CONTA.

Experimenta inicializar o campo conta com 0 ou com 1.


e também :

If identifier-1, identifier-3 occupies the same storage area as identifier-2, the validity of the result of execution of the INSPECT statement is undefined.

O identifier-3 é o teu "CLIENTES". O identifier-1 é o teu WS-SQL
Tens que verificar como estão definidos os campos.
Cria um campo
01 CLISTR PIC X(08) VALUE "CLIENTES" e faz o inspect assim:

Código COBOL:
  1. INITIALIZE CONTA.
  2. INSPECT WS_SQL TALLYING CONTA FOR LEADING CLISTR BEFORE INITIAL "S"

Espero que ajude.
Rui
Rapinto is offline   Responder Con Cita