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

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

☆☆☆おっしょい@博多駅ってどうよ??????

1 :渋沢ガス屋:01/11/27 01:02
情報求む、おっしょい@博多駅前

2 :弁護くん ◆.t4dJfuU :01/11/27 01:05
博多駅にまともなラーメン屋なんてあったっけ?
天神の方が10倍マシじゃない?

3 :ラーメン大好き@名無しさん:01/11/29 21:28
博多駅前は2とおり。人気なのは博多駅の中の方にある。

4 :ラーメン大好き@名無しさん:01/11/29 22:52
駅の中・・・
うまい店なんかあったかなぁ・・・・?

5 :博多区在住:01/12/07 21:54
残念ながら、博多駅に旨いラーメン屋はありません。

6 :ラーメン大好き@名無しさん:01/12/13 00:47
コンナニオイシイラーメンガアッタナンテ
イキテテヨカッタ。

7 :ラーメン大好き@名無しさん:01/12/13 01:04
>6
ホンマ?

8 :てすと ◆yu58nYFI :01/12/18 21:13
01 CHAR-AREA.
03 CHAR-TBL PIC X(42) VALUE
'ABCDEFGHIJKLMNOPQRSTUVWXYZ.&#?+-*/.!():='.
01 OUT-TBL.
03 FIL01 PIC X(30) VALUE '0AA002430340EC066004576801099C'.
03 FIL02 PIC X(30) VALUE 'AA91C8904003120030007699390999'.
03 FIL03 PIC X(30) VALUE '005550120066AAA023037036020008'.
03 FIL04 PIC X(30) VALUE '007009014032004015015007035021'.
03 FIL05 PIC X(30) VALUE '018021011021019020000015000015'.
03 FIL06 PIC X(30) VALUE '007014001000001020009019001000'.
03 FIL07 PIC X(30) VALUE 'EEEB00D00FF00019EEFF1100FF0678'.
03 FIL08 PIC X(30) VALUE '5540002C983405640034005006700D'.
03 FIL09 PIC X(30) VALUE '99927009599599669994999D999990'.
03 FIL10 PIC X(30) VALUE '00F00EFEF023044452305083400023'.
01 OUT-RDF REDEFINES OUT-TBL.
03 OUT-CLM PIC 9(003) OCCURS 100.
01 SYS-DATE.
03 SYS-Y PIC 9(004).
03 SYS-M PIC 9(002).
03 SYS-D PIC 9(002).
01 IN-TXT1 PIC X(050) VALUE SPACE.
01 IN-TXT2 PIC X(050) VALUE SPACE.
01 TEXT.
03 T1 PIC X(044) VALUE
'http://mentai.2ch.net/test/read.cgi/history/'.
03 T2 PIC X(005) VALUE '10017'.
03 T3 PIC 9(005) VALUE 00000.
03 T4 PIC X(004) VALUE '____'.

9 :てすと ◆yu58nYFI :01/12/18 21:14
01 CHAR-AREA.
03 CHAR-TBL PIC X(42) VALUE
'ABCDEFGHIJKLMNOPQRSTUVWXYZ.&#?+-*/.!():='.
01 OUT-TBL.
03 FIL01 PIC X(30) VALUE '0AA002430340EC066004576801099C'.
03 FIL02 PIC X(30) VALUE 'AA91C8904003120030007699390999'.
03 FIL03 PIC X(30) VALUE '005550120066AAA023037036020008'.
03 FIL04 PIC X(30) VALUE '007009014032004015015007035021'.
03 FIL05 PIC X(30) VALUE '018021011021019020000015000015'.
03 FIL06 PIC X(30) VALUE '007014001000001020009019001000'.
03 FIL07 PIC X(30) VALUE 'EEEB00D00FF00019EEFF1100FF0678'.
03 FIL08 PIC X(30) VALUE '5540002C983405640034005006700D'.
03 FIL09 PIC X(30) VALUE '99927009599599669994999D999990'.
03 FIL10 PIC X(30) VALUE '00F00EFEF023044452305083400023'.
01 OUT-RDF REDEFINES OUT-TBL.
03 OUT-CLM PIC 9(003) OCCURS 100.
01 SYS-DATE.
03 SYS-Y PIC 9(004).
03 SYS-M PIC 9(002).
03 SYS-D PIC 9(002).
01 IN-TXT1 PIC X(050) VALUE SPACE.
01 IN-TXT2 PIC X(050) VALUE SPACE.
01 TEXT.
03 T1 PIC X(044) VALUE
'ttp://mentai.2ch.net/test/read.cgi/history/'.
03 T2 PIC X(005) VALUE '10017'.
03 T3 PIC 9(005) VALUE 00000.
03 T4 PIC X(004) VALUE '____'.

10 :てすと ◆yu58nYFI :01/12/18 21:20
ACCEPT SYS-DATE FROM DATE YYYYMMDD.
COMPUTE T3 = ( 2400 * 34 ) + 1644.
MOVE '/l50' TO T4.
DIVIDE 3 INTO SYS-D
GIVING L REMAINDER J.
ADD 20 TO L.
COMPUTE K = L + 35 - 1.
MOVE 0 TO M.
PERFORM VARYING I FROM L BY 1 UNTIL ( I > K )
MOVE OUT-CLM(I) TO J
ADD 1 TO M
IF J = 0
MOVE ' ' TO IN-TXT1(M:1)
ELSE
MOVE CHAR-TBL(J:1) TO IN-TXT1(M:1)
END-IF
END-PERFORM.
MOVE 1 TO J
PERFORM VARYING I FROM 35 BY -1 UNTIL ( I < 1 )
MOVE IN-TXT1(I:1) TO IN-TXT2(J:1)
ADD 1 TO J
END-PERFORM.
DISPLAY IN-TXT2 UPON DPLY.
STOP RUN.

★AS/400にて実行確認済。BUGは無い。

11 :てすと ◆yu58nYFI :01/12/18 21:59
03 FIL01 PIC X(30) VALUE '000002430340110660045768010991'.
03 FIL02 PIC X(30) VALUE '009108904003120030007699390999'.
03 FIL03 PIC X(30) VALUE '005550120066999023037036020008'.
03 FIL04 PIC X(30) VALUE '007009014032004015015007035021'.
03 FIL05 PIC X(30) VALUE '018021011021019020000015000015'.
03 FIL06 PIC X(30) VALUE '007014001000001020009019001000'.
03 FIL07 PIC X(30) VALUE 'EEEB00D00FF00019EEFF1100FF0678'.
03 FIL08 PIC X(30) VALUE '5540002C983405640034005006700D'.
03 FIL09 PIC X(30) VALUE '99927009599599669994999D999990'.
03 FIL10 PIC X(30) VALUE '00F00EFEF023044452305083400023'.

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

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

read.cgi ver 05.04.00 2017/10/04 Walang Kapalit ★
FOX ★ DSO(Dynamic Shared Object)