Я выполняю инструкцию "exec cics assign" в программе cobol и получаю невозможный код ответа.Eibresp возвращает пробелы.Я имею в виду возвращаемое значение, назначенное в предложении RESP команды execics.Некоторый код ниже:
77 W-RESP PIC S9 (08) ЗНАЧЕНИЕ 0 КОМП.
77 W-RESP-X ПЕРЕПИСЫВАЕТ
W-RESP PIC X (04).
77 W-RESP2 PIC S9 (08) ЗНАЧЕНИЕ 0 КОМП.
EXEC CICS ASSIGN
USERID (W-CICS-USER)
RESP (W-RESP)
RESP2 (W-RESP2)
END-EXEC
DISPLAY CTE-PROG 'ARESP =' W-RESP '/' W-RESP2 'RESPX =' W-RESP-X
Значение, которое я получаю в 'W-RESP', является ПРОСТРАНСТВАМИ (X'40404040 ').Это стандартное приложение для мэйнфреймов, работающее в операционной системе Ibm zos.Программа, которая запускает запрос, является программой Natural, выполняемой в cics.
ЕСТЕСТВЕННАЯ ПРОГРАММА -> COBOL PGM 1 ---> MY COBOL PGM
Я не смог найти объяснения или пользовательв Интернете и всегда, хотя eibresp всегда и при любых обстоятельствах возвращает действительное значение.
Может ли кто-нибудь пролить свет на то, почему я получаю невозможное eibresp (пробелы)?
Большое спасибо.