RPGLE에서 1 차 파일 바꾸기

Question

레벨 표시기가 정의 된 (계산 목적으로 사용 된 레벨 표시기) RPG 프로그램에서 1 차 파일을 바꾸는 경험이있는 사람이 있습니까? 대신 RPG주기의

, 난 완전히 절차 파일 (더 이상 기본 파일) ..

감사로 정의하는 새로운 파일 (기본 파일을 교체)를 도입 할 필요가있다.

Answer 1

왜 주 파일 사용을 중지 하시겠습니까? 레벨 표시기를 시뮬레이트하기 위해 자신의 비교를 수행하면 기본 파일을 변경하는 것보다 훨씬 더 많은 작업이 수행됩니다.

일반적으로 주 파일을 전체 절차 파일로 바꾸려면 계산의 맨 위에 % EOF (주 파일)가 아닌 READ + DOW를 넣고 두 번째 READ 및 ENDDO를 계산 끝에 넣습니다. 지금 L1_subr 등

이와 비교를 처리하기 위해 L0_subr 같은 그들에게 전화를위한 레벨 표시기 L0와 계산을 위해

, L1 등 열 7, 8, 내가 먼저, 서브 루틴으로 그 계산을 움직일 것입니다 이전 기록, 첫 번째 READ 후 DOW 앞에 수준 표시기 필드의 현재 값을 저장하는 명령문을 추가하십시오. 계산이 끝나면 두 번째 READ 전에 문을 추가하여 현재 값과 저장된 값을 비교하고 차이가 있으면 관련 Lx_subr을 호출하십시오. 모든 Lx_subrs가 호출 된 후 해당 특정 레벨 표시기에 대해 저장된 값을 업데이트하십시오.

이러한 종류의 변경은 오류가 발생하기 쉽습니다. 나는 그것을 기본 파일로 남겨두고 필요할 경우 I 스펙에 추가 레벨 표시기를 추가합니다. 여기에서 시작

2017년 11월 6일 갱신 :

는, 이전의 기록과 현재 레코드를 모두 추적하는 데 사용하려면 당신은 데이터 구조로 읽을 수있는 기능을 사용합니다. 읽기 이후

read rec cur_ds; 
dow not %eof; 
    ... 
    if have_prv_ds; 
     compare the previous record to the current record 
    endif; 
    eval-corr prv_ds = cur_ds; 
    have_prv_ds = *on; 
    read rec cur_ds; 
enddo; 

파일과 관련된 독립 필드에 영향을주지 않습니다, 좋은 연습이 실수로 그 독립 필드를 참조 피하기 위해 심지어 정의 된 독립 필드 것을 방지하는 것입니다. 이를 수행하려면 QUALIFIED 키워드로 파일을 정의하십시오. 그런 다음 file.fmt를 사용하여 레코드 형식을 참조하면 파일과 관련된 필드가 존재하지 않습니다.

dcl-f myfile qualified; 
dcl-ds cur_ds likerec(myfile.fmt); 
dcl-ds prv_ds likerec(myfile.fmt); 

read myfile.fmt cur_ds; 
dow not %eof(myfile); 
    ... 
    if have_prv_ds; 
     compare the previous record to the current record 
    endif; 
    eval-corr prv_ds = cur_ds; 
    have_prv_ds = *on; 
    read myfile.fmt cur_ds; 
enddo;