0
FB 길이가 80 인 파일이 있습니다. 위치 80의 값이 0 일 경우 고정 값 숫자 1을 추가하고 싶습니다. 'Y'이진 값이있는 레코드 추가
이 추가 값은 카피 북에서 볼 때 S9(9) BINARY입니다.
첨부 된 필드는 별도의 단계에서 SUM FIELDS에 사용됩니다.
SORT SYSIN 카드는 어떻게 코딩합니까?
A
답변
1
OPTION COPY
INREC IFTHEN=(WHEN=(80,1,CH,EQ,C'Y'),OVERLAY=(81:+1,TO=BI,LENGTH=2))
SUM에서 단계를 따로 따로 두지 않아도됩니다. 물론 OPTION COPY를 사용하지 않을 것입니다.
당신은 골 80에서 Y 이외의 기록을 합산하는 경우 = (WHEN = INIT 먼저 제로로 모든 것을 설정합니다.
을이 메인 프레임 작업이기 때문에, 당신이 가지고 거라고 IFTHEN이 필요합니다 해당 태그를 사용한 경우 이전 응답.