Cobol Mainframe - 다양한 인덱스 수행 - 디스플레이

Question

그래서 나는 Z/OS에서 COBOL을 배우기 시작했습니다. 나는 시각적 인 공동 사용법을 사용하여 꽤 많이 해냈다; 그러나 이것은 여전히 ​​매우 다릅니다.

나는 지수가 50

 PERFORM VARYING W03-SUBJ-INDX FROM 1 BY 1 
UNTIL W03-SUBJ-INDX = 50     
DISPLAY W03-SUBJ-TABLE     
END-PERFORM 

때까지 나는 현재 나는 또한

 PERFORM VARYING W03-SUBJ-INDX FROM 1 BY 1 
UNTIL W03-SUBJ-INDX = 50     
DISPLAY W03-SUBJ-TABLE(w03-subj-indx)     
END-PERFORM 

상단 디스플레이의 예를 시도한 것 즉 1의 인덱스에서 시작하여 표시하는 테이블을 표시해야 첫 번째 인덱싱 된 항목 만 (예상) - 두 번째 예는 ")"이 (가) 예상치 못한 오류를 표시합니다.

어떤 도움을 주시면 감사하겠습니다

.. 나는 당신은 당신이있는 컴파일러 버전 언급하지 않는 인덱스

Answer 1

그래서

기존 코드에 대한 .... 기업 코볼 파서의 버전 중 일부에서 약간의 괴짜 ...

DISPLAY W03-SUBJ-TABLE(w03-subj-indx) 

이로 작동 할 수 있었다 Enterprise Cobol 컴파일러 버전 중 공백없이 잘 구문 분석하지 못했습니다. 이는 참조 수정을 수행 할 때 특히 중요하지만 테이블에도 적용됩니다.

시도해보십시오, YMMV.

Answer 2

를 사용할 필요가 말했지만, 일단 거기에 하나였다 - 그리고 나는 기억이 안나요 버전 - 그것은 아래 첨자와 참조가 수정 된 flakey였습니다.

일부 공간에 연결해보십시오 :

이

DISPLAY W03-SUBJ-TABLE (w03-subj-indx) 

또한, W03-흔들림 감지-표 배열이 아닌 배열을 포함하는 그룹 항목입니다 있는지 확인하십시오.

DISPLAY W03-SUBJ-TABLE (w03-subj-indx) 

일부를 :