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

그래서 나는 Z/OS에서 COBOL을 배우기 시작했습니다. 나는 시각적 인 공동 사용법을 사용하여 꽤 많이 해냈다; 그러나 이것은 여전히 매우 다릅니다.Cobol Mainframe - 다양한 인덱스 수행 - 디스플레이

나는 지수가 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의 인덱스에서 시작하여 표시하는 테이블을 표시해야 첫 번째 인덱싱 된 항목 만 (예상) - 두 번째 예는 ")"이 (가) 예상치 못한 오류를 표시합니다.

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

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

2017-10-01 Luke676

'W03-SUBJ-TABLE'의 Working-Storage 정의는 무엇입니까? – cschneid

예상되는 부분은 실제로 기대되지 않습니다. 코드 조각을 감안할 때 기대치는 전체 표 그룹을 49 번 표시합니다. –

이 테이블에 대한 작업 저장 레이아웃이 없으면 실제로 도움이되지 않습니다. 또한 실제로 컴파일 오류를 포함하는 것은 먼 길을 갈 것입니다. – SaggingRufus

그래서

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

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

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

시도해보십시오, YMMV.

2017-12-08 06:31:01

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

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

이

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

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

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

일부를 :

2017-11-02 18:25:28

답변