콘텐츠
IBM의 COBOL (Common Business Oriented Language)을 사용하면 비즈니스 및 재무 소프트웨어 응용 프로그램에서 다양한 유형의 데이터를 처리 할 수 있습니다. COBOL은 하드 디스크에 저장된 데이터베이스 파일에 사용할 가변 길이 레코드 데이터 유형을 지원합니다. 사용자는 가변 길이 레코드가있는 디스크의 파일을 설명하기 위해 레코드의 최대 및 최소 길이를 지정합니다. 가변 길이 데이터 파일 읽기를 사용하면 COBOL 프로그램에서 레코드의 정확한 크기를 설정하지 않고 데이터베이스 정보를 처리 할 수 있습니다.
지침
-
z / OS360 메인 프레임 시스템 관리 콘솔에서 "편집"을 입력하고 "Enter"키를 눌러 COBOL 프로그램을 편집하십시오.
-
프로그램 시작 부분에 다음 코드를 추가하십시오.
신분 확인 부서. PROGRAM-ID. COBVAR. 환경부. 입력 - 출력 섹션. 파일 제어. IFILE을 선택하면 "IFILE"로 지정됩니다.
DATE DIVISION. 파일 섹션. FD IFILE 기록은 LEN에 따라 10에서 50까지 다양합니다. 01 IREC. 05 FILLER PIC X LEN에 따라 10에서 50까지의 시간이 필요합니다.
프로 시저 부. P1. DISPLAY "예 1 REC에 따라 달라짐"LEN = -1이 될 때까지 입력 IFILE이 수행됩니다. 끝에서 IFILE 끝 -1에서 끝까지 출력 DISPLAY IREC DISPLAY LEN END-READ END-PERFORM CLOSE IFILE DISPLAY SPACE
"고정 된 녹화 예"를 엽니 다. 입력 된 모든 IFILE이 "X"로 이동하여 IREC에 마지막으로 IFILE을 읽습니다. LEN 디스플레이로 이동합니다. IREC 디스플레이 공간
-
프로그램에 가변 길이 레코드를 처리하려면 콘솔에 "저장"을 입력하고 "Enter"키를 누르십시오.