5ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

以下の言語がわかる方いますか??

1 :にっくん:02/04/06 21:16
仕事で担当者が急病になり、突然以下の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

2 :デフォルトの名無しさん:02/04/06 21:19
あの・・・こんにちは。えと・・・>>1のパイロットです。
・・・僕だって好きでこんなのに乗ったわけじゃないんだ。
でも、父さんや周りの人たちが乗れって言うから・・・。
僕はただ父さんに会いに来ただけだったのに・・・父さんは僕を道具としてしか見てなかったんだ。
「いやだ!無理だよ!こんなのできないよ!」
僕が拒否すると、父さんは一人の女の子を呼んだ。彼女は僕のスペア・・・らしい。
うめき声を上げて倒れる彼女・・・これは・・・血?
僕の代わりに彼女が死ぬ・・・良いのかこれで・・・良いのか・・・
・・・ダメだ・・・そんなのダメだ・・・そんなのダメだ・・・そんなのダメだ!

「僕が乗ります!」

【目標URLへのソケット接続完了。パケット到達率74・・・75・・・76・・・臨界点突破。TCPコネクション、正常です。】
「行けるわ!発進!!!」

・・・気が付くと僕はPCの前にだらりと座っていた。
明るく光るディスプレイを見ると、いつも行く掲示板に吐き気を催すほど痛いクソスレが・・・。
「う・・・う・・・うわぁぁぁぁぁぁぁぁぁぁぁぁぁぁぁぁぁぁぁぁ!!」
ドアが静かに開き、僕をここに連れてきたお姉さんが入ってきた。
お姉さんは「これは暴走した>>1が建てたスレよ。」と教えてくれた。
そして「あなたは人にほめられる立派なことをしたのよ。」とも言ってくれた。
でも・・・この罪・・・は僕が・・・抱える・・・には・・・重す・・・ぎるよ・・・。
僕は泣いて・・・そして窓を開け・・・飛び降りた。

〜次回予告〜
何とか一命を取り留められた僕。
この>>1は僕がなんとかしなきゃ。これ以上不幸な板を作っちゃいけない。
削除依頼に行く僕・・・そこにはまた悲しい運命が。
「第2話 消えないスレッド」
次週もこのチャンネルに逝ってよし!

3 :デフォルトの名無しさん:02/04/06 21:21
想像は付く。
PGM
(プログラム?)
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
(エンドプログラム)

4 :にっくん:02/04/06 21:25
早速レスありがとうございます。

RPG系だとは思うんですが、その中でも何かわかりますか?
もし、わかるようでしたら教えてください。

5 :デフォルトの名無しさん:02/04/06 21:26
RPGでしょ。
IBM AS/400の。


6 :にっくん:02/04/06 21:27
すいません。わたしの知識不足なのですが、
IBM AS/400専用RPGなのでしょうか?

7 :名古屋在住・中日ファン:02/04/06 21:28
>>1
OVRDBFのように特徴的な文字列があるのだから
Web検索というものをやってみたらいいのに・・・

↓ほれ
http://www-6.ibm.com/jp/servers/eserver/iseries/nintei/sam266.htm

8 :デフォルトの名無しさん:02/04/06 21:30
ま、ロストワールドでも見てマターリしようや

9 :にっくん:02/04/06 21:30
本当にありがとうございます。

そのURLよりいろいろと調べてみます。

10 :デフォルトの名無しさん:02/04/06 21:47
なんでそのPGに直接聞かないのか?
急病というのはウソで、実は>>1が殴って入院させたんだろ。


11 :にっくん:02/04/06 22:11
クリーンルームとかにいるらしく、簡単に聞ける状況じゃないんです。

すいません。

12 :デフォルトの名無しさん:02/04/06 22:15
にっくん=ぴーちゃん これ定説

13 :デフォルトの名無しさん:02/04/06 22:17
逃げちゃだめだ逃げちゃだめだ逃げちゃだめだ!!


やります、僕が>>13と犯ります!

14 :デフォルトの名無しさん:02/04/06 22:21
>>13
体、柔らかいんですね。

15 :デフォルトの名無しさん:02/04/06 22:36
>14
13は長いけどフニャチンなので、
リング状にして菊に入れることもできるって自慢してました。

16 :デフォルトの名無しさん:02/04/06 22:40
>>13 犯る ??? with >>13」なわけで対象は明示されてないよ。

17 :デフォルトの名無しさん:02/04/06 22:41
>>16
日本語の勉強しなさい。あなたの第一言語はVBですか?

18 :デフォルトの名無しさん:02/04/06 23:07
ばかだなー

19 :デフォルトの名無しさん:02/04/07 01:01
第一言語って何?

6 KB
■ このスレッドは過去ログ倉庫に格納されています

★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.04.02 2018/11/22 Walang Kapalit ★
FOX ★ DSO(Dynamic Shared Object)