open_sky的专栏

space ? & SPACE ?

open_sky — Thu, 26 Jun 2008 16:51:00 +0800

330 030100 ODAYNEWS-EDIT-RTN SECTION.
331 030200*

Batch copy

open_sky — Sun, 15 Jun 2008 00:39:00 +0800

ls | grep -n '' | sed 's/$[0-9]*$:$.*$/\2 123\1.csh/g' | xargs -L 1 cp

ls | grep -n '' | sed 's/$[0-9]*$:$.*$/\2 \1.csh/g' | xargs -L 1 cp

awk '{ print $1 " " $2 }' 567 | xargs -L 2 cp

"
for f in *.jpg;
do
mv $f \
$(echo ${f%.jpg}|
sed -e 's/$[0-9]\{2\}$-$[0-9]\{2\}$-$[0-9]\{2\}$_$[0-9]\{4\}$/20\3-\2-\1_\4/').jpg;
done
"

vi 删除全文命令

open_sky — Fri, 06 Jun 2008 01:18:00 +0800

vi 删除全文命令

NATIONAL CHARACHER [ COBOL ]

open_sky — Thu, 05 Jun 2008 01:02:00 +0800

01 SOURCE-CHAR PIC X(60）
01 DST-CHAR

grepの簡単な使い方

open_sky — Sat, 31 May 2008 00:31:00 +0800

grepの簡単な使い方

open_sky — Sat, 31 May 2008 00:29:00 +0800

grepの簡単な使い方

FCOPY ( Powersort )

open_sky — Sat, 31 May 2008 00:14:00 +0800

FCOPY ( Powersort )

iconv -f SHIFT-JIS -t EUC-JP -o output.txt input.txt

open_sky — Fri, 30 May 2008 22:59:00 +0800

iconv -f SHIFT-JIS -t EUC-JP -o output.txt input.txt

COBOL:rts: HALT: JMP0310I-U [PID:0000397D TID:B7FDC6C0] 'IN01'ファイルで'OPEN'エラーが発生しました．'INV-DELMTR' PGM=

open_sky — Fri, 30 May 2008 21:31:00 +0800

COBOL:rts: HALT: JMP0310I-U [PID:0000397D TID:B7FDC6C0] 'IN01'ファイルで'OPEN'エラーが発生しました．'INV-DELMTR' PGM=

ホ—ムペ—ジ

open_sky — Sat, 24 May 2008 19:38:00 +0800

http://en.wikipedia.org/wiki/Object_orientation<br />http://xinehq.de/index.php/hackersguide#AEN390<br />http://sb.xrea.com/index.php

COBOL 8位日付取得

open_sky — Sat, 17 May 2008 19:09:00 +0800

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 01&nbsp; W-DATE-AREA.&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&amp

日本語文字コード表（2バイト文字）

open_sky — Wed, 14 May 2008 22:29:00 +0800

http://www.ajisai.sakura.ne.jp/~dindi/chrc/ref/wincode2.txt

帳票(COBOL)

open_sky — Thu, 08 May 2008 23:23:00 +0800

       IDENTIFICATION                  DIVISION.<br />       PROGRAM-ID.                &

Reads The Text (AWK )

open_sky — Wed, 07 May 2008 21:33:00 +0800

BEGIN {
   nLen = ;
nEnd = ;
   nCnt = ;
}

{
}

function Display( nLen )
{
   for( nIndex = 1; nIndex <= length($0); nIndex += nLen )
   {
       print substr( $0, nIndex, nLen );
   }
}

function DisplaysRecord( nLen, nEnd )
{
     bFlg = 1;
&

mdport(table)

open_sky — Wed, 07 May 2008 21:26:00 +0800

input.copyfile

01 ()-REC.
05 ()-KEY. &n