ibm - Can anybody tell me what language is this? -

ibm - Can anybody tell me what language is this? -

i have find logic old legacy code. manager says cobol, i'm not sure it. have tried find keywords on cobol tutorials without luck.

here code snippets:

proc(&qprog); verify off proc;declare &msg1 a75; /* don't phone call screen if it's */ if &qprog ne 'yuitg' do; phone call qaaf; screen query loaded qaaf otw do; print 'screen not load'; exit; end; end; on error do;print &&rc;exit; end; if lengthb(&p_what) = 4 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) a1; declare &keywordd_f(0) 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 do; &allprog = 'yes'; &prog = 'pr2'; end; -top_prog cms filedef qaa2 disk qaa2 nomad a6 (lrecl 100; write '/* study */' on qaa2; write '&grp = ''' catb &grp catb ''';' on qaa2; write '&mgtrpt = ''' catb &qprog catb ''';' on qaa2; if &amprfrom ne &nav do; write '&amprfrom = ''' catb display(&amprfrom) catb ''';' on qaa2; end; close qaa2;

edit:

this has been bugging me. reasoning not exec , not rexx, running in cms, left exec 2.

however, believe nomad itself. hard confirm, here, http://www.tallant.com/portfolio/webpages/web/nomad/nomad2.html, examples of of code.

whether runs from/alongside exec 2, don't know. may operate in similar manner, or have back upwards "shelling out" cms or cp necessary perform "system functions".

so, not...

it exec2.

there 2 "old" command languages vm/cms, oldest, , limited, exec. rexx "new" command language.

if think bad, imagine exec like. exec , exec2 have similarities clist, don't know if have joint ancestor.

so, these days "a shell-scripting language" ibm's vm operating system, original "virtual machine" , includes ability run multiple copies of "single-user operating system" called cms (conversational monitor system, believe) runs on vm , "cms filedef" comes in (it "shelling out" cms), vm can run, single or multiple instances, full-blown ibm operating systems such dos/vse, mvs, vm (again, can run other "guest" operating systems) , these days z/os, z/vse and, don't know, linux.

edit. bad practice includes "/" "/" comment. if first line of file starts , ends that, contents assumed rexx. vm supports 3 "languages" runs different interpreters depending on how programme starts.

from memory, exec starts * (comment), exec2 not need that, , rexx /* */, on cms can span more 1 line.

programming-languages ibm mainframe