Avalados por :
Olá Especialistas!
Estou tentando executar um programa, mas está apresentando o erro 'Programa 'zxxxxxxx' armazenado temporariamente.....
O programa é o seguinte:
REPORT ZCUST_INFO_PRG.
TABLES: ZCUST_INFO.
DATA: NEW_CUST LIKE ZCUST_INFO OCCURS 0 WITH HEADER LINE.
SELECT * FROM ZCUST_INFO INTO NEW_CUST.
LOOP AT NEW_CUST.
WRITE: / NEW_CUST-CMR_NAME.
ENDLOOP.
ENDSELECT.
Alguém poderia ajudar, por favor?!
Obrigado e cumprimentos,
Sunil
RELATÓRIO ZCUST_INFO_PRG.
TABELAS: ZCUST_INFO.
DADOS: NEW_CUST TIPO TABELA PADRÃO DE ZCUST_INFO.
SELECIONAR * DE ZCUST_INFO NO NEW_CUST.
LOOP NO NEW_CUST.
ESCREVER: / NEW_CUST-CMR_NAME.
FIMLOOP.
Mensagem editada por:
Prashant Patil
Olá Gopi!
Editei o programa da mesma forma como me passou... Agora está funcionando!
MUITO OBRIGADO!
Obrigado e cumprimentos,
Sunil
Olá Gopi,
Obrigado pela sua resposta, mas eu ativei e armazenei sob um pacote z_ides. Ainda está mostrando o mesmo erro...
Gopi, você pode me ajudar? Meu id de gtalk é sapsuni@gmail.com
ou sunil_ckm@yahoo.com
Obrigado e cumprimentos,
Sunil
Pode ser que você não tenha ativado o programa.
Por favor, ative o programa antes de executá-lo.
Caso contrário, a melhor maneira de escrever este programa é:
REPORT ZCUST_INFO_PRG.
" VER OS CAMBIOS EM VERMELHO
TABLES: ZCUST_INFO.
DATA: NEW_CUST TYPE TABLE OF ZCUST_INFO INITIAL SIZE 0,
WA_CUST TYPE ZCUST_INFO. " ADICIONAR ISSO COMO ÁREA DE TRABALHO
SELECT * FROM ZCUST_INFO INTO TABLE NEW_CUST.
IF NOT NEW_CUST[] IS INITIAL.
LOOP AT NEW_CUST INTO WA_CUST. " INCLUIR TAMBÉM A ÁREA DE TRABALHO
WRITE: / WA_CUST-CMR_NAME. " MUDAR PARA WA_CUST
CLEAR : WA_CUST. " ADICIONAR ISSO
ENDLOOP.
ELSE.
WRITE: / 'NENHUM REGISTRO ENCONTRADO'.
ENDIF.
Saudações
Gopi
contacto@primeconsultor.com
+1 (305) 285-8622
© 2025 Todos los derechos reservados.
Desarrollado por Prime Consultor
