COBOL - Konfiguracja środowiska
Wypróbuj opcję online
Stworzyliśmy środowisko programowania COBOL online, abyś mógł skompilować i wykonać wszystkie dostępne przykłady online. Daje ci pewność co do tego, co czytasz i umożliwia weryfikację programów za pomocą różnych opcji. Zapraszam do modyfikowania dowolnego przykładu i wykonywania go online.
Wypróbuj poniższy przykład, korzystając z naszego kompilatora online dostępnego w CodingGround
IDENTIFICATION DIVISION. PROGRAM-ID. HELLO. PROCEDURE DIVISION. DISPLAY 'Hello World'. STOP RUN.W przypadku większości przykładów podanych w tym samouczku w sekcji kodu naszej witryny w prawym górnym rogu znajdziesz opcję Wypróbuj, która przeniesie Cię do kompilatora online. Więc po prostu z tego skorzystaj i ciesz się nauką.
Instalowanie COBOL w systemie Windows / Linux
Istnieje wiele bezpłatnych emulatorów komputerów mainframe dostępnych dla systemu Windows, których można używać do pisania i uczenia się prostych programów w języku COBOL.
Jednym z takich emulatorów jest Hercules, który można łatwo zainstalować w systemie Windows, wykonując kilka prostych kroków, jak podano poniżej -
Pobierz i zainstaluj emulator Herculesa, który jest dostępny na stronie domowej Hercules: www.hercules-390.eu
Po zainstalowaniu pakietu na komputerze z systemem Windows utworzy on folder podobny do C:/hercules/mvs/cobol.
Uruchom wiersz polecenia (CMD) i przejdź do katalogu C: / hercules / mvs / cobol na CMD.
Kompletny przewodnik po różnych poleceniach do pisania i wykonywania programów JCL i COBOL można znaleźć pod adresem:
www.jaymoseley.com/hercules/installmvs/instmvs2.htm
Hercules to implementacja oprogramowania typu open source dla architektur System / 370 i ESA / 390 typu mainframe, będąca uzupełnieniem najnowszej 64-bitowej architektury z / Architecture. Hercules działa pod systemami Linux, Windows, Solaris, FreeBSD i Mac OS X.
Użytkownik może połączyć się z serwerem mainframe na wiele sposobów, takich jak cienki klient, fałszywy terminal, system klienta wirtualnego (VCS) lub system wirtualnego pulpitu (VDS). Każdy poprawny użytkownik otrzymuje identyfikator logowania, aby wejść do interfejsu Z / OS (TSO / E lub ISPF).
Kompilowanie programów w języku COBOL
Aby wykonać program w języku COBOL w trybie wsadowym przy użyciu JCL, program musi zostać skompilowany i utworzony zostaje moduł ładujący ze wszystkimi podprogramami. JCL wykorzystuje moduł ładujący, a nie rzeczywisty program w czasie wykonywania. Biblioteki ładowania są łączone i przekazywane do JCL w czasie wykonywania przy użyciuJCLLIB lub STEPLIB.
Dostępnych jest wiele narzędzi kompilujących dla komputerów mainframe do kompilowania programów w języku COBOL. Niektóre firmy używają narzędzi do zarządzania zmianami, takich jakEndevor, który kompiluje i przechowuje każdą wersję programu. Jest to przydatne w śledzeniu zmian wprowadzonych w programie.
//COMPILE JOB ,CLASS=6,MSGCLASS=X,NOTIFY=&SYSUID
//*
//STEP1 EXEC IGYCRCTL,PARM=RMODE,DYNAM,SSRANGE
//SYSIN DD DSN=MYDATA.URMI.SOURCES(MYCOBB),DISP=SHR
//SYSLIB DD DSN=MYDATA.URMI.COPYBOOK(MYCOPY),DISP=SHR
//SYSLMOD DD DSN=MYDATA.URMI.LOAD(MYCOBB),DISP=SHR
//SYSPRINT DD SYSOUT=*
//*IGYCRCTL to narzędzie kompilatora IBM COBOL. Opcje kompilatora są przekazywane za pomocą parametru PARM. W powyższym przykładzie RMODE instruuje kompilator, aby używał trybu adresowania względnego w programie. Program w języku COBOL jest przekazywany za pomocą parametru SYSIN. Copybook to biblioteka używana przez program w SYSLIB.
Wykonywanie programów w języku COBOL
Poniżej podano przykład JCL, w którym program MYPROG jest wykonywany przy użyciu pliku wejściowego MYDATA.URMI.INPUT i tworzy dwa pliki wyjściowe zapisywane do bufora.
//COBBSTEP JOB CLASS=6,NOTIFY=&SYSUID
//
//STEP10 EXEC PGM=MYPROG,PARM=ACCT5000
//STEPLIB DD DSN=MYDATA.URMI.LOADLIB,DISP=SHR
//INPUT1 DD DSN=MYDATA.URMI.INPUT,DISP=SHR
//OUT1 DD SYSOUT=*
//OUT2 DD SYSOUT=*
//SYSIN DD *
//CUST1 1000
//CUST2 1001
/*Moduł ładujący MYPROG znajduje się w MYDATA.URMI.LOADLIB. Należy zauważyć, że powyższa JCL może być używana tylko dla modułu innego niż DB2 w języku COBOL.
Wykonywanie programów COBOL-DB2
Do uruchomienia programu COBOL-DB2 w JCL i programie używane jest specjalistyczne narzędzie IBM; Region DB2 i wymagane parametry są przekazywane jako dane wejściowe do narzędzia.
Kroki wykonywane podczas uruchamiania programu w języku COBOL-DB2 są następujące:
Podczas kompilacji programu COBOL-DB2 tworzony jest DBRM (moduł żądania bazy danych) wraz z modułem ładowania. DBRM zawiera instrukcje SQL programów w języku COBOL, których składnia została sprawdzona pod kątem poprawności.
DBRM jest powiązany z regionem DB2 (środowiskiem), w którym będzie działać język COBOL. Można to zrobić za pomocą narzędzia IKJEFT01 w JCL.
Po kroku wiązania program COBOL-DB2 jest uruchamiany przy użyciu IKJEFT01 (ponownie) z biblioteką ładowania i biblioteką DBRM jako danymi wejściowymi dla JCL.
//STEP001 EXEC PGM=IKJEFT01
//*
//STEPLIB DD DSN=MYDATA.URMI.DBRMLIB,DISP=SHR
//*
//input files
//output files
//SYSPRINT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSDBOUT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//DISPLAY DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(SSID)
RUN PROGRAM(MYCOBB) PLAN(PLANNAME) PARM(parameters to cobol program) -
LIB('MYDATA.URMI.LOADLIB')
END
/*W powyższym przykładzie MYCOBB to program COBOL-DB2 uruchamiany przy użyciu IKJEFT01. Należy zwrócić uwagę, że nazwa programu, identyfikator podsystemu DB2 (SSID) i nazwa planu DB2 są przekazywane w instrukcji SYSTSIN DD. Biblioteka DBRM jest określona w STEPLIB.