Cobol에서 문자열을 쓰고 모든 X가있는 accout 번호의 처음 6 자리를 가리고 싶습니까?

Question

Cobol에 은행 계좌 번호를 기입해야합니다. 보고서 사용자는 모든 계좌 번호를 원하지만 마지막 4 개의 X를 원합니다. 내 데이터 구조는 다음과 같습니다.

데이터 구조 :

 01 Account. 
      05 acct pic x(10) value spaces. 

인쇄 아웃 :

 01 Account. 
      05 six-digits pic x(06) value 'XXXXXX'. 
      05 four-digits pic x(04) value spaces. 

MOVE new-account-value TO Accout. -- this over writes the X's and screws up my printout 
WRITE E-Record FROM Account. 

은 무엇 간단한 작업을 수행하는 쉬운 방법이 될 것입니다 :

 XXXXXX5678 

나는 다음과 같은 시도? 코볼은 항상 약간의 결함이있는 것 같습니다.

새 코드 : (여전히 작동하지 않습니다.) 이유가 무엇일까요? 이것은 예제와 같습니다. 그리고 값이 모두 X를 상수로 유지한다는 것을 기억한다면 이것은 잘못된 것이라고 생각합니다.

02 BANK-INFORMATIONE.        
    04 H5-ROUTE.         
     10 ROUTE-UNUSED PIC X(09) VALUE ALL 'X'. 
     10 ROUTE-USED PIC X(04) VALUE SPACES.  
    04 FILLER PIC XX  VALUE SPACES.   
    04 H5-ACCTE.         
     10 ACCT-UNUSED PIC X(06) VALUE ALL 'X'.  
     10 ACCT-USED PIC X(04) VALUE SPACES.  

Answer 1

01 Account-Reference. 
     05 acct-to-ignore pic x(6). 
     05 acct-to-use  pic x(4). 

    01 Masked-Account. 
     05 Masked-Account-Mask PIC X(6) VALUE ALL "X". 
     05 Masked-Account-Data PIC X(4). 

MOVE acct-to-use TO Masked-Account-Data 
WRITE E-Record FROM Masked-Account 

될 것이다.

단일 단어 데이터 이름을 사용하지 않는 것이 좋습니다. 선택한 단어가 나중에 컴파일러의 "예약어"가 될 수 있고 덜 설명 적이라는 것을 알지 못합니다.

보고서를위한 것이거나 보고서가 아닌 보고서 인 경우, 보고서 라인 자체에서 4 바이트가 뒤 따르는 6 개의 X가 포함 된 리터럴을 정의하십시오 . 나중에보고 할 파일에 계정을 작성하는 경우 파일 자체에 X를 포함 할 필요가 없습니다. 그래서 당신은 당신이 필요로하는 4 개의 낮은 자릿수를 사용할 수 있습니다.

Answer 2

MOVE new-account-value TO Account 

MOVE 'XXXXXX' TO Account(1:6) 

WRITE E-Record FROM Account 

Answer 3

는 다음을 시도해보십시오 계정의 첫 6 개 자리에 대한

01 Account. 
     05 six-digits pic x(06). 
      88 Account-X value 'XXXXXX'. 
     05 four-digits pic x(04). 

MOVE new-account-value TO Account 
SET Account-X to true 
WRITE E-Record FROM Account 

88 레벨 정의 당신을 위해 덮어 쓰기를 할 것입니다. 사용중인 VALUE 절은 INITIALIZE 문이 아닌 초기 프로그램로드시에만 한 번만 설정되므로 값을 계정으로 옮기면 재설정되고 재설정 될 수 없으므로 VALUE 절은 입니다.

또는 다른 확실한 해결책이 될 수 있습니다

MOVE new-account-value TO Account 
MOVE 'XXXXXX' to six-digits 
WRITE E-Record FROM Account 

그리고 마지막으로, 모의에 의해 제안 된 솔루션도 작동합니다.

Answer 4

@Moot 답변은 정상적으로 작동합니다.

또 다른 해결책은이 프로그램을 읽고 다음 사람에게 무엇인지 모든 것을 다음 분명하다

01 Account PIC X(010). 
01 FILLER REDEFINES Account. 
    03 HiddenPart PIC X(006). 
    03 ShownPart PIC X(004). 


MOVE new-account-value to Account. 
MOVE ALL "X" TO HiddenPart. 
WRITE E-Record FROM Account.