title: What language is this: PROC, VERIFY, DECLARE, SCREEN, CMS,
body: <p>I have to find some logic from an old legacy code. My manager says is COBOL, I'm not sure about it. I have tried to find some keywords on cobol tutorials without any luck. </p>
  
  <p>Here are some code snippets:</p>
  
  <pre><code>PROC(&amp;QPROG);
  VERIFY OFF PROC;DECLARE &amp;MSG1 AS A75;
  /* DON'T CALL SCREEN IF IT'S FROM  */
  IF &amp;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 &amp;&amp;RC;EXIT; END;
  
  IF LENGTHB(&amp;P_WHAT) = 4 THEN DO; &amp;P_WHATT = SUBSTR(&amp;P_WHAT,1,1) CAT
     ', ' CAT SUBSTR(&amp;P_WHAT,2,1) CAT ', ' CAT SUBSTR(&amp;P_WHAT,3,1) CAT
     ' &amp; ' CAT SUBSTR(&amp;P_WHAT,4,1);
  END;
  DECLARE &amp;KEYWORDD_A(0) AS A1;
  DECLARE &amp;KEYWORDD_F(0) AS 99L;
  &amp;KEYWORDD_A=
  (SUBSTR(&amp;KEYWORDD,1,1),SUBSTR(&amp;KEYWORDD,2,1),SUBSTR(&amp;KEYWORDD,3,1),
  SUBSTR(&amp;KEYWORDD,4,1),SUBSTR(&amp;KEYWORDD,5,1),SUBSTR(&amp;KEYWORDD,6,1),
  SUBSTR(&amp;KEYWORDD,37,1),SUBSTR(&amp;KEYWORDD,38,1),SUBSTR(&amp;KEYWORDD,39,1),
  SUBSTR(&amp;KEYWORDD,40,1));
  &amp;KEYWORDD_F = FINDEX(&amp;KEYWORDD_A = ' ',ALL);
  
  IF &amp;PROG EQ &amp;NAV THEN DO;
     &amp;ALLPROG = 'YES';
     &amp;PROG = 'PR2';
  END;
  -TOP_PROG
  CMS FILEDEF QAA2 DISK QAA2 NOMAD A6 (LRECL 100;
  WRITE '/* REPORT */' ON QAA2;
  WRITE '&amp;GRP        = ''' CATB &amp;GRP CATB ''';' ON QAA2;
  WRITE '&amp;MGTRPT     = ''' CATB &amp;QPROG CATB ''';' ON QAA2;
  IF &amp;AMPRFROM NE &amp;NAV THEN DO;
     WRITE '&amp;AMPRFROM = ''' CATB DISPLAY(&amp;AMPRFROM) CATB ''';' ON QAA2;
  END;
  
  CLOSE QAA2;
  </code></pre>