작동 제어 언어

Operational Control Language

운영 제어 언어(OCL)는 IBM System/32, System/34 및 System/36 Minicomputer 제품군의 제어 언어다.역호환성을 위해 IBM i의 System/36 Environment에서 지원한다.이전 제어 언어 JCL(시스템/370) 및 시스템/3과 유사하며, 이후 제어 언어(시스템/38 및 IBM AS/400), REXX(AS/400)와 관련이 없다.

개요

IBM S/32, S/34 및 S/36에서, 사용자나 시스템 프로그램을 메모리에 직접 로드하고, 시스템 자원을 할당하며, 시스템 제어를 실행이라고 하는 프로세스에서 그들에게 이전하기 위해 OCL 문을 사용한다.프로그램이 컴퓨터의 디스크 드라이브에 저장되어 있다는 사실 자체가 컴퓨터가 프로그램을 처리하거나 실행하는 원인이 되지 않는다.

OCL 문은 키보드에서 수동으로 입력할 수 있지만 일반적으로 S/32, S/34 또는 S/36 절차 멤버로 저장된다.절차 구성원은 라이브러리 내에서 자유롭게 편집할 수 있는 구성원으로, 원본 파일이다.S/32, S/34, S/36에서는 절차를 정리한 것이 아니라 해석한다.

예

OCL 문은 보통 두 개의 슬래시와 적어도 하나의 공백 문자로 시작한다.다음은 시스템/36에 멤버 PROC1로 저장된 절차의 예:

** 절차 PROC1 옵션 문서 ** Joe User 2006-05-29 ** // * 'PRC1 절차가 실행 중' // ' // IFF ACTIVE-'PRC2,PRC3' GOTO OK ** IFF는 '만약 거짓이라면' ** ACTIVE-name1,name2'가 참 **을 의미한다.나열된 프로그램 중 적어도 하나가 현재 실행 중임 ** GOTO xxx는 TAG xxx가 있는 문으로 건너뛰고 // PAUSE '다른 급여가 실행 중이므로 계속할 수 없음' ** 메시지//CANCE 메시지와 함께 실행을 중지함Stops execution of this procedure // TAG OKAY // IFF DATAF1-PFILE1 IFF DATAF1-PFILE2 GOTO NODELT // * 'Caution, Pay Data Exists'     Displays information on terminal // * ' ' // * 'Press 1 to continue and DELETE existing files' // IFF '1'=?1R? CANCEL              A parameter is indicated by question marks surrounding a number **물음표 사이에 1R을 사용하면 ** 매개변수가 필요함을 나타내며, 프로세싱은 사용자 입력을 기다린다.** Cancel(취소)은 즉시 작업 종료로 이동함을 의미한다. // LOAD $DELET $DELET은 파일을 삭제하는 데 사용된다. // RUNE ** END 문 // IF DATAF1-PFILE까지 데이터로서 ** 후속 문구를 처리하고, 소비한다.1 SCRATCH UNIT-F1,LABEL-PFILE1 **                                  Conditionally deletes an existing disk file // IF DATAF1-PFILE2 SCRATCH UNIT-F1,LABEL-PFILE2 // END ** // TAG NODELT // LOAD PR101                       PR101 could be an RPG or COBOL program // FILE NAME-PAYMAST,DISP-SHR       PAYMAST is the payroll master file // FILE NAME-PFILE1,DISP-NEW,RECH-100,EXTEND-100 ** 새로운 파일 PFILE1이 생성되어 할당 ** 100개의 레코드가 모두 사용될 때 시스템이 채워질 때마다 100개의 레코드를 더 확장하려고 시도한다. // RUN **END 문은 오직 **이 활성화된 프로그램이 데이터로서 다음 문구를 처리하는 경우에만 필요함 ** 이러한 데이터는 OCL // 스위치 1XX0XXXX와 같이 포맷할 필요가 없음 플래그 U1 ~U8 to be SETON (1), OFF (0), or left as previously set (X) ** // LOCAL OFFSET-1,DATA-'PROC1'      Places PROC1 in the Local Data Area (LDA) // LOCAL OFFSET-101,DATA-'?USER?'   Substitutes the operator's User ID                         **                                  LDA is accessed via a data structure, UDS within an RPG program **LDA 및 사용자 스위치(플래그)는 다른 방식으로 설정될 때까지 ** 하위 절차 멤버 및 로드된 프로그램의 소스 코드를 검사할 필요가 있음 **에서 LDA 및 사용자 전환 여부에 대해are actually read or altered // LOAD PR102 // FILE NAME-PAYMAST,DISP-SHR       DISP-SHR means the file is shared, versus exclusive access **                                  Other programs can use PAYMAST at the same time // FILE NAME-PFILE,LABEL-PFILE1     NAME/LABEL is used when the RPG file name reference **                                  and실제 디스크 파일 레이블이 다른 // RUN // RETURN 호출 절차로 돌아가기, 그렇지 않으면 작업 종료

이 절차 구성원은 다양한 OCL 문, 또한 절차 제어 표현식(PCE), 대부분 파일인 리소스를 할당하고 프로그램을 실행하는 몇 가지 작업 단계를 포함한다.

코멘트는 1열의 별표로 표시되며, 그렇지 않으면 자유형식으로 표시된다.또는 후행 쉼표처럼 다음 행으로 이어지는 문장의 표시기가 없는 경우 문장의 논리적 끝 뒤에 배치할 수 있다.

외부 링크

IBM은 OCL 36을 포함하여 온라인과 다운로드 가능한 설명서를 자유롭게 유지한다.