Kann mir jemand sagen, welche Sprache das ist?

Question

Ich muss eine Logik aus einem alten Legacy-Code finden. Mein Manager sagt, ist COBOL, ich bin mir nicht sicher. Ich habe versucht, einige Schlüsselwörter auf Cobol Tutorials ohne Glück zu finden.

Hier sind einige Code-Schnipsel:

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

EDIT:

Das hat mich nervt. Schlussfolgerung, dass es nicht EXEC und nicht REXX war, aber eindeutig in CMS lief, das EXEC 2 verließ.

Allerdings glaube ich jetzt, dass es NOMAD selbst ist. Schwierig zu bestätigen, aber hier, http://www.tallant.com/portfolio/webpages/web/nomad/nomad2.html, sind Beispiele für einige der Code.

Ob es von/neben EXEC 2 läuft, weiß ich nicht. Es kann einfach in ähnlicher Weise arbeiten oder nur Unterstützung für das "Ausbrechen" zu CMS oder CP haben, wie es notwendig ist, um "Systemfunktionen" auszuführen.

Also, es ist wahrscheinlich nicht ...

Es Exec2 ist.

Es gibt zwei "alte" Befehlssprachen mit VM/CMS, die älteste und am meisten eingeschränkte ist EXEC. Rexx war die "neue" Befehlssprache.

Wenn Sie denken, dass dies schlecht ist, sich vorstellen, was EXEC wie ist. EXEC und EXEC2 haben Ähnlichkeiten mit CLIST, aber ich weiß nicht, ob sie einen gemeinsamen Vorfahren haben.

Also, was ist heutzutage "eine Shell-Skriptsprache" mit IBM VM-Betriebssystem zu tun, die die ursprüngliche "virtuelle Maschine" ist und die Möglichkeit enthält, mehrere Kopien eines "Single-User Betriebssystem "genannt CMS (Conversational Monitor System, glaube ich), die nur auf VM läuft und wo ist die" CMS FILEDEF "kommt (es" schält "auf CMS), sowie VM kann als Einzel- oder Multiple laufen Instanzen, vollwertige IBM-Betriebssysteme wie DOS/VSE, MVS, VM (wieder, die dann andere "Gast" -Betriebssysteme ausführen können) und heutzutage z/OS, z/VSE und, weiß ich nicht, aber wahrscheinlich Linux.

Bearbeiten. Es ist sehr schlechte Praxis, dass es die "/ " " /" Kommentar enthält. Wenn die erste Zeile einer Datei so beginnt und endet, wird der Inhalt als Rexx angenommen. Die VM unterstützt alle drei "Sprachen", führt jedoch je nach Start des Programms unterschiedliche Interpreter aus.

Vom Speicher beginnt EXEC mit einem * (Kommentar), EXEC2 benötigt das nicht, und Rexx mit dem/* zu * /, das auf CMS mehr als eine Zeile umfassen kann.

Answer 2

ich darüber bin nicht sicher, aber es sieht aus wie es REXX sein kann. Werfen Sie einen Blick:

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

Answer 3

Diese CLIST ist. Häufig auf IBM Mainframes gefunden.

EDIT

Auf den zweiten nehmen, ist dies nicht CLIST. Es sieht jedoch aus wie ein enger Verwandter von CLIST (von denen ältere IBM-Systeme einige Varianten hatten). Meine beste Vermutung ist, dass dies eine ziemlich alte EXEC ist, die unter CMS läuft.

Die Linie:

CMS FILEDEF QAA2 DISK QAA2 NOMAD A6 (LRECL 100; 

sieht aus wie eine Flucht zu CMS für die Zuordnung-Datei, damit Sie mich über CMS macht denken.

Jemand schlug vor, dass es SAS sein könnte. SAS auf IBM-Systemen kann auch ein CLISTish-Look haben, aber ich denke nicht, dass es SAS ist (arbeitete nur mit SAS einige Male vor sehr langer Zeit, also werde ich auch hier korrigiert werden).

Ich bin nicht so sicher, dass dies auch EXEC2 ist. Ich grub die VM SP EXEC 2 Reference Manual. Einige der Dinge in dem Beispiel scheinen nicht in EXEC2 zu "übersetzen": PROC, DECLARE, LENGTHB, CALL und CAT zum Beispiel sind nicht im Handbuch beschrieben. Ich habe CMS in den 80ern für eine Weile verwendet und musste eigentlich ähnliche Sachen schreiben, aber das war eine lange Zeit her und ich erinnere mich nicht mehr viel an die Syntax der .

Über alles kann ich sagen, dass dieses Zeug wie eine Derivat der Skriptsprachen auf IBM-Systemen der Mitte der späten 1980er Jahre aussieht.

Es ist sicherlich nicht COBOL oder REXX.

Answer 4

Dies ist ein CLIST-Code.

Früher benutzt es viele CLIST Code zu sein, und jetzt hat REXX seinen eigenen Platz genommen. Aber CLIST wird immer noch in vielen Mainframe-Systemen verwendet.