COBOL？極めてやんよシュッシュ!!

COBOL？極めてやんよシュッシュ!! (195ﾚｽ)
上下前次1-新
抽出解除ﾚｽ栞

ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡

122(1): 2013/02/24(日)22:14 AAS
PERFORM WRITE-RTN THRU WRITE-EXT
VARYING S-IDX FROM 1 BY 1
UNTIL ( S-IDX > 10 ).

123: 2013/02/25(月)19:03 AAS
>>122WRITE-RTNからWRITE-EXTを、S-IDXを１から始めて１ずつカウントアップし、S-IDXが
10を超過するまで繰り返す…か。