cobol에서의 사용 및 수락 루프

환경에 따라 다릅니다. DOS, WINDOWS, UNIX 운영 체제라면 해당 문자 인터페이스를 사용할 수 있습니다. ACCEPT는 키보드 입력에 해당하고 DISPLAY는 화면 출력에 해당합니다.

예를 들어 값을 수락한 다음 해당 사각형을 찾아 표시하고

작업 저장 섹션을 만듭니다.

77 x pic x(10 ).

77 XasNum 그림 s9(09).

77 x2 그림 9(18)

77 x2 그림 z(17)9. p>

절차 구분

display "값을 입력하세요(최대 9자리, 음수 가능): "

진행하지 마세요.

x를 수락합니다.

함수 numval(x)를 XasNum으로 이동합니다.

x2 = XasNum ** 2를 계산합니다.

x2를 x2-edit로 이동합니다. p>

display "이 값의 제곱은 다음과 같습니다. " X의 값을 지정합니다. DISPLAY의 출력은 JOB LOG로 이동해야 확인할 수 있습니다.

출력 곱셈표는 다음과 같습니다:

작업-저장 섹션

77 i pic 99.

77 j pic 99.

77 k pic 99.

절차 분할.

i > 9까지 i를 1x1로 변경합니다.

j > i가 될 때까지 j를 1x1로 변경

k = i * j를 계산

진행 없이 i "*" j "=" k " " 표시

p>

실행 종료

표시 " "

실행 종료

실행을 중지하세요.

두 프로그램은 COBOL을 준수합니다. 모든 ANSI 85 표준 컴파일러가 이를 지원합니다. 또한, DATA DIVISION, ENVIRONMENT DIVISION, IDENTIFICATION DIVISION 중 필요한 코드만 나열했습니다.

다음과 같이 보충합니다.

귀하께서 문의하신 SYSIN은 IBM MAINFRAME 시리즈 JCL에서 다음 형식을 갖습니다. (위의 ACCEPT 값을 사용하여 해당 사각형과 DISPLAY를 예로 들어보세요.)

//SYSIN DD *

+1000

/*

해당 예는 한 번만 ACCEPT하므로 해당 사각형을 찾는 것이 출력입니다. , 그래서 SYSIN은 위와 같습니다.

프로그램을 변경하고 루프를 만들고 ACCEPT 값이 9999와 같아질 때까지 해당 사각형을 순서대로 ACCEPT 및 표시하면 프로그램이 종료됩니다.

이때, SYSIN의 형식은 다음과 같습니다:

//SYSIN DD *

100

+1000

+1000

//SYSIN DD * p>

-20300

9999

/*

이런 방식으로 프로그램은 ***양수 100, 양수 1000 및 양수 1000의 세 가지 값을 처리합니다. 음수 20300 .

문의하신 ALLOC DD(SYSIN) DS(*)에 대한 TSO 명령입니다. 이는 터미널을 SYSIN으로 사용하는 것입니다.

선생님은 어떻게 반응하셨나요? CALL에 대해 언급하셨는데, 이것이 사용되는 방식인 것 같습니다:

JCL에서 SYSTSIN 지정:

//SYSTSIN DD *

ALLOC DD(SYSIN ) DS (*)

CALL(실행 가능한 모듈)

아니면 선생님이 CLIST를 작성하셨나요?

자세한 내용은 선생님께 물어보세요.