Czy ktoś może mi powiedzieć, jaki to jest język?

Question

Muszę znaleźć jakąś logikę ze starego kodu źródłowego. Mój menadżer mówi, że jest COBOL, nie jestem tego pewien. Próbowałem znaleźć niektóre słowa kluczowe na samouczkach Cobol bez żadnego szczęścia.

Oto niektóre fragmenty kodu:

PROC(&QPROG); 
VERIFY OFF PROC;DECLARE &MSG1 AS A75; 
/* DON'T CALL SCREEN IF IT'S FROM */ 
IF &QPROG NE 'YUITG' THEN DO; 
    CALL QAAF; 
    SCREEN QUERY LOADED QAAF OTW DO; 
     PRINT 'SCREEN WILL NOT LOAD'; 
     EXIT; 
    END; 
END; 
ON ERROR DO;PRINT &&RC;EXIT; END; 

IF LENGTHB(&P_WHAT) = 4 THEN DO; &P_WHATT = SUBSTR(&P_WHAT,1,1) CAT 
    ', ' CAT SUBSTR(&P_WHAT,2,1) CAT ', ' CAT SUBSTR(&P_WHAT,3,1) CAT 
    ' & ' CAT SUBSTR(&P_WHAT,4,1); 
END; 
DECLARE &KEYWORDD_A(0) AS A1; 
DECLARE &KEYWORDD_F(0) AS 99L; 
&KEYWORDD_A= 
(SUBSTR(&KEYWORDD,1,1),SUBSTR(&KEYWORDD,2,1),SUBSTR(&KEYWORDD,3,1), 
SUBSTR(&KEYWORDD,4,1),SUBSTR(&KEYWORDD,5,1),SUBSTR(&KEYWORDD,6,1), 
SUBSTR(&KEYWORDD,37,1),SUBSTR(&KEYWORDD,38,1),SUBSTR(&KEYWORDD,39,1), 
SUBSTR(&KEYWORDD,40,1)); 
&KEYWORDD_F = FINDEX(&KEYWORDD_A = ' ',ALL); 

IF &PROG EQ &NAV THEN DO; 
    &ALLPROG = 'YES'; 
    &PROG = 'PR2'; 
END; 
-TOP_PROG 
CMS FILEDEF QAA2 DISK QAA2 NOMAD A6 (LRECL 100; 
WRITE '/* REPORT */' ON QAA2; 
WRITE '&GRP  = ''' CATB &GRP CATB ''';' ON QAA2; 
WRITE '&MGTRPT  = ''' CATB &QPROG CATB ''';' ON QAA2; 
IF &AMPRFROM NE &NAV THEN DO; 
    WRITE '&AMPRFROM = ''' CATB DISPLAY(&AMPRFROM) CATB ''';' ON QAA2; 
END; 

CLOSE QAA2; 

Answer 1

EDYTOWANIE:

To mnie wkurzyło. Rozumowanie, że nie było i nie Rexx EXEC, ale był wyraźnie działa w systemie CMS, który opuścił EXEC 2.

Jednak teraz uważam, że jest sama NOMAD. Trudne do potwierdzenia, ale tutaj, http://www.tallant.com/portfolio/webpages/web/nomad/nomad2.html, są przykładami niektórych kodu.

czy to działa z/obok EXEC 2, nie wiem. Może po prostu działać w podobny sposób lub po prostu mieć wsparcie dla "wystrzelenia" do CMS lub CP, jeśli jest to konieczne do wykonania "funkcji systemowych".

To prawdopodobnie nie jest ...

To EXEC2.

Istnieją dwa „stare” Języki poleceń z VM/CMS, najstarszy i najbardziej ograniczone, jest EXEC. Rexx był "nowym" językiem poleceń.

Jeśli uważasz, że jest to złe, wyobraź sobie, czym jest EXEC. EXEC i EXEC2 mają podobieństwa do CLIST, ale nie wiem, czy mają wspólnego przodka.

Tak, to jest to, co jest w tych dniach „język shell-scripting” zrobić z systemem operacyjnym IBM VM, który jest oryginalny „Virtual Machine”, a która obejmuje możliwość uruchamiania wielu kopii „single-user system operacyjny "o nazwie CMS (Conversational Monitor System, jak sądzę), który działa tylko na VM i gdzie pojawia się" CMS FILEDEF "(jest to" wystrzeliwanie "do CMS), jak również VM może działać jako pojedynczy lub wielokrotny instancje, pełnowymiarowe systemy operacyjne IBM, takie jak DOS/VSE, MVS, VM (ponownie, które mogą następnie uruchamiać inne systemy operacyjne "Gość") i obecnie z/OS, z/VSE i, nie wiem, ale prawdopodobnie Linux.

Edytuj. To bardzo zła praktyka, że ​​zawiera komentarz "/ " " /". Jeśli pierwszy wiersz pliku zaczyna się i kończy tak, to przyjmuje się, że jest to Rexx. VM obsługuje wszystkie trzy "języki", ale uruchamia różne interpretatory w zależności od sposobu uruchomienia programu.

Z pamięci EXEC zaczyna się od * (komentarz), EXEC2 tego nie potrzebuje, a Rexx z/* do * /, który w CMS może obejmować więcej niż jedną linię.

Answer 2

nie jestem tego pewien, ale wygląda na to może być REXX. Spójrz:

http://en.wikipedia.org/wiki/Rexx

Answer 3

To CLIST. Powszechnie spotykane na IBM Mainframe.

EDIT

Na drugim odbiorze, to nie jest clist. Wygląda jednak na bliskiego kuzyna CLIST (z których starsze systemy IBM miały kilka wariantów). Domyślam się, że jest to dość stare EXEC, działające pod CMS.

Linia:

CMS FILEDEF QAA2 DISK QAA2 NOMAD A6 (LRECL 100; 

wygląda ucieczki CMS alokacji plików, dzięki czemu kojarzy mi się z CMS.

Ktoś zasugerował, że może to być SAS. SAS na systemach IBM może mieć również wygląd CLIST-owy, ale nie sądzę, że jest to SAS (pracował z SAS kilka razy bardzo dawno temu, więc również mogę to poprawić).

Nie jestem więc pewien, że to EXEC2 albo. Wygrzebałem z VM SP EXEC 2 Reference Manual. Niektóre rzeczy w tym przykładzie nie wydają się "tłumaczyć" na EXEC2: PROC, DECLARE, LENGTHB, CALL i CAT na przykład nie są opisane w instrukcji. Używałem CMSa w latach 80-tych i musiałem pisać rzeczy podobne do tego, ale to było dawno temu i naprawdę nie pamiętam zbyt wiele składni.

O wszystko, co mogę powiedzieć to to, że ten materiał wygląda jak derivitave z języków skryptowych występujących w systemach IBM w połowie lat 1980-tych.

To na pewno nie jest COBOL lub REXX.

Answer 4

To jest kod CLIST.

Wcześniej istnieje wiele kodów CLIST, a teraz REXX zajął własne miejsce. Ale nadal CLIST jest używany w wielu systemach Mainframe.