仕事で担当者が急病になり、突然以下のPGの担当者になりました。

が、しかし私には何の言語なのかまったくわかりません。
この仕事をわかるPGに振らないといけないのですが、いったい何の言語なのでしょうか？

わかる方いらしたら教えてください。
AS/400上で動いているらしいことだけはわかりました。

〜〜〜 以下がソース　〜〜〜

PGM
DCL VAR(&HOSTIP) TYPE(*CHAR) LEN(15) + VALUE('10.100.100.100')
DCL VAR(&TWNSRC) TYPE(*CHAR) LEN(10) + VALUE('sLIB')
DCL VAR(&FTPSND) TYPE(*CHAR) LEN(10) + VALUE('EUCRV1')

CLRPF FILE(&TWNSRC/M3EMLDOC) MBR(FTPOUT)
OVRDBF FILE(INPUT) TOFILE(&TWNSRC/MEMMLDOC) + MBR(FTPSND)
OVRDBF FILE(OUTPUT) TOFILE(&TWNSRC/MEMMLDOC) + MBR(FTPOUT)
FTP RMTSYS(&HOSTIP)
DLTOVR FILE(INPUT OUPUT)
STEP99:
ENDPGM