以下の言語がわかる方いますか？？
■ このスレッドは過去ログ倉庫に格納されています
0001にっくん
NGNGが、しかし私には何の言語なのかまったくわかりません。
この仕事をわかる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
0002デフォルトの名無しさん
NGNG・・・僕だって好きでこんなのに乗ったわけじゃないんだ。
でも、父さんや周りの人たちが乗れって言うから・・・。
僕はただ父さんに会いに来ただけだったのに・・・父さんは僕を道具としてしか見てなかったんだ。
「いやだ！無理だよ！こんなのできないよ！」
僕が拒否すると、父さんは一人の女の子を呼んだ。彼女は僕のスペア・・・らしい。
うめき声を上げて倒れる彼女・・・これは・・・血？
僕の代わりに彼女が死ぬ・・・良いのかこれで・・・良いのか・・・
・・・ダメだ・・・そんなのダメだ・・・そんなのダメだ・・・そんなのダメだ！
「僕が乗ります!」
【目標URLへのソケット接続完了。パケット到達率７４・・・７５・・・７６・・・臨界点突破。TCPコネクション、正常です。】
「行けるわ！発進！！！」
・・・気が付くと僕はＰＣの前にだらりと座っていた。
明るく光るディスプレイを見ると、いつも行く掲示板に吐き気を催すほど痛いクソスレが・・・。
「う・・・う・・・うわぁぁぁぁぁぁぁぁぁぁぁぁぁぁぁぁぁぁぁぁ！！」
ドアが静かに開き、僕をここに連れてきたお姉さんが入ってきた。
お姉さんは「これは暴走した>>1が建てたスレよ。」と教えてくれた。
そして「あなたは人にほめられる立派なことをしたのよ。」とも言ってくれた。
でも・・・この罪・・・は僕が・・・抱える・・・には・・・重す・・・ぎるよ・・・。
僕は泣いて・・・そして窓を開け・・・飛び降りた。
〜次回予告〜
何とか一命を取り留められた僕。
この>>1は僕がなんとかしなきゃ。これ以上不幸な板を作っちゃいけない。
削除依頼に行く僕・・・そこにはまた悲しい運命が。
「第２話 消えないスレッド」
次週もこのチャンネルに逝ってよし！
0003デフォルトの名無しさん
NGNGPGM
（プログラム？）
DCL VAR(&HOSTIP) TYPE(*CHAR) LEN(15) + VALUE('10.100.100.100')
（宣言 変数名HOSTIO 15文字のキャラクタ型 値10.100.100.100）
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)
（FTPで接続）
DLTOVR FILE(INPUT OUPUT)
（INPUTをOUTPUTに書き出し。）
STEP99:
ENDPGM
（エンドプログラム）
0004にっくん
NGNGRPG系だとは思うんですが、その中でも何かわかりますか？
もし、わかるようでしたら教えてください。
0005デフォルトの名無しさん
NGNGIBM AS/400の。
0006にっくん
NGNGIBM AS/400専用RPGなのでしょうか？
0007名古屋在住・中日ファン
NGNGOVRDBFのように特徴的な文字列があるのだから
Web検索というものをやってみたらいいのに・・・
↓ほれ
http://www-6.ibm.com/jp/servers/eserver/iseries/nintei/sam266.htm
0008デフォルトの名無しさん
NGNG0009にっくん
NGNGそのURLよりいろいろと調べてみます。
0010デフォルトの名無しさん
NGNG急病というのはウソで、実は>>1が殴って入院させたんだろ。
0011にっくん
NGNGすいません。
0012デフォルトの名無しさん
NGNG0013デフォルトの名無しさん
NGNGやります、僕が>>13と犯ります！
0014デフォルトの名無しさん
NGNG体、柔らかいんですね。
0015デフォルトの名無しさん
NGNG13は長いけどフニャチンなので、
リング状にして菊に入れることもできるって自慢してました。
0016デフォルトの名無しさん
NGNG0017デフォルトの名無しさん
NGNG日本語の勉強しなさい。あなたの第一言語はVBですか？
0018デフォルトの名無しさん
NGNG0019デフォルトの名無しさん
NGNG■ このスレッドは過去ログ倉庫に格納されています