Cobol 변수의 시작 부분에 5 개의 공백을 추가하려면 어떻게합니까?

Question

파일로 인쇄하거나 화면에 표시하기 직전에이 오류 행 변수에 5 개의 공백을 추가하려고합니다. 또한 공백이 아닌 문자 다섯 개를 추가해야 할 수도 있습니다.

질문 : ERROR-LINE 변수에 5 개의 공백을 추가하는 방법은 무엇입니까?

01 ERROR-LINE.         
    05 E-JOBNAME.         
     10 E-NAME   PIC X(5) VALUE 'FALSE'. 
     10 E-NUM   PIC X(5) VALUE 'FALSE'. 
    10 E-FILL1   PIC X(5) VALUE 'FALSE'. 
    05 E-TRIG-PROV-FROM PIC X(5) VALUE 'FALSE'. 
    05 E-FILL2   PIC X(5) VALUE 'FALSE'. 
    05 E-TRIG-PROV-THRU PIC X(5) VALUE 'FALSE'. 
    05 E-FILL3   PIC X(5) VALUE 'FALSE'. 
    05 E-TRIG-TAXONOMY PIC X(5) VALUE 'FALSE'. 
    05 E-FILL4   PIC X(5) VALUE 'FALSE'. 

Answer 1

그들은 방법 군단,하지만 난이 데이터되어 정의와 몇 가지에 충실 것 :

01 ERROR-LINE-FOR-OUTPUT. 
    03 FILLER    PIC X(5) VALUE SPACE.         
    03 ERROR-LINE.         
    05 E-JOBNAME.         
     10 E-NAME   PIC X(5) VALUE 'FALSE'. 
     10 E-NUM   PIC X(5) VALUE 'FALSE'. 
     10 E-FILL1  PIC X(5) VALUE 'FALSE'. 
    05 E-TRIG-PROV-FROM PIC X(5) VALUE 'FALSE'. 
    05 E-FILL2   PIC X(5) VALUE 'FALSE'. 
    05 E-TRIG-PROV-THRU PIC X(5) VALUE 'FALSE'. 
    05 E-FILL3   PIC X(5) VALUE 'FALSE'. 
    05 E-TRIG-TAXONOMY PIC X(5) VALUE 'FALSE'. 
    05 E-FILL4   PIC X(5) VALUE 'FALSE'. 

(03 레벨 그냥 내가 모든 것을 변경하지 않아도되고, 하지만 할 수 있습니다)

01 ERROR-LINE-FOR-OUTPUT. 
    05 FILLER    PIC X(5) VALUE SPACE.         
    05 ERROR-LINE-FROM-SOURCE 
         PIC X(45). 

MOVE ERROR-LINE   TO ERROR-LINE-FROM-SOURCE 

당신은 또한 공백이 아닌 값이 필요하다고 언급했습니다. 볼 일은 당신이 "가치를 남겨 두지"않도록하여 다음 기록을 치는 것입니다.

필러에

, 두 88S를 설정할 수 있습니다

88 make-it-descriptive VALUE SPACE. 
88 make-it-descriptive-also VALUE "otherthanspace". 

는 그런 다음 IF/ELSE/END-IF에서 둘 중 하나를 설정합니다.

물론 FILLER에 이름 (설명)을 부여하고 다른 데이터 이름 (다시 좋은 이름)을 MOVE 할 수 있습니다.

이야기를 전달하는 코드를 가져옵니다. 데이터 정의가 작업을 수행하도록합니다 (프로 시저를 간단하게 유지).

간단하고 이해하기 쉽고 유지하기 쉽도록하십시오.