Which programming language is this?

Question

following are the snippets of the code:

DO INIT

LOOP

VARYING W FROM 1 BY 1 UP THRU PROF - 1

SELECT W

WHEN 1

SET W = P1 BY NAME

WHEN 2

SET W = P2 BY NAME

WHEN 3

SET W = P3 BY NAME

WHEN 4

SET W = P4 BY NAME

ENDSEL

is COBOL or BASIC or something else?

Answer 1

Advantage CA-Ideal by Computer Associates.

Answer 2

It seems to be an old High Level Macro Assembler language originated from IBM. I don't know the name of the language though, but I thought I saw something like that in class before.

Answer 3

I learned COBOL a long time ago in school I'm pretty sure that's what it is.