[PR]¡“ú‚ÌÆ­°½‚Í
¢Infoseek ÓÊÞ²Ù£

counter since 1/15/2006

COBOL$B4A;z(J

COBOL$BJ8;z%3!<%IJQ49%W%m%0%i%`!!(JVer. 1.3a (10/8/2006)

$B%@%&%s%m!<%I(J
nec2win3a.zip

$BJQ99E@(J
10/8/2006$B!!(JVer. 1.3a
$B!!(JOCCURS 4. $B$KBP1~$G$-$F$$$J$+$C$?(J

8/4/2006$B!!(JVer. 1.3
$B!!@_Dj2hLL$r:n@.(J

1/31/2006$B!!(JVer. 1.2
$B!!(JPIC V9(3) $B$KBP1~(J
$B!!(JCOMP$B$,$"$C$?$H$-$K%"%i!<%`(J
$B!!?t;z$N:8$N%<%m$r:o=|$9$k%*%W%7%g%s(J
$B!!1&B&%&%#%s%I%&$G(JX$B$r;XDj$G$-$k(J
$B!!%P%$%J%j!<%U%!%$%k$N>l9gJ8;z?t$r;XDj(J
$B!!(JIni$B%U%!%$%k$rJ]B8$7$?$H$-$KD>$A$K:FFI9~(J
$B!!=*N;;~$K(JIni$B%U%!%$%k$r:n@.$9$k(J
$BFCD9(J
NEC$B$N%*%U%3%s!J(JACOS2)$B$G
NEC$B$N%*%U%3%s$G%G!<%?$r
  • $BJ8;z%3!<%I$N@Z$jBX$(0LCV$r;XDj$9$k$@$1$G!"J8;z%3!<%I$r(JShiftJIS$B$KJQ49$7$?%F%-%9%H%U%!%$%k$r=PNO$9$k(J
  • $B3F%U%#!<%k%I$NB0@-$d7e?t$r;XDj$9$l$P!"Id9f$d>.?tE@$rDI2C$7$?(JCSV$B%U%!%$%k$r=PNO$9$k(J
  • $B%<%m$G;O$^$k?t;z$@$1$+$i$J$kJ8;zNs$d(J"2E23"$B$H$$$&$h$&$JJ8;zNs$b%^%$%/%m%=%U%H%(%/%;%k$G@5$7$/FI$a$k7A$G=PNO$9$k(J $B$3$H$,$G$-$^$9!#$^$?!"(JCOBOL$B$N!V(JCOPY$B6g!W$,$"$l$P(J
    • $BJ8;z%3!<%I$N@Z$jBX$(0LCV$r4^$`%U%#!<%k%I$N7e?t@_Dj$H(JCSV$B%U%!%$%k$N9`L\L>$r<+F0:n@.$9$k(J
    $B$3$H$b$G$-$^$9!#(J
    • $B=`Hw(J
    Vector$B$J$I$+$i(Jnkf32.dll$B$r%@%&%s%m!<%I$7!"%W%m%0%i%`$HF1$8%G%#%l%/%H%j$^$?$O%7%9%F%`%G%#%l%/%H%j$K$*$$$F$/$@$5$$!#(J
    $B
    $B2hLL1&B&$N%(%j%"(J($B7e?t@_Dj%(%j%"(J)$B$K%G!<%?%U%!%$%k$N3F%U%#!<%k%I$N7e?t$r;XDj$7$^$9!#$?$H$($P#1%l%3!<%I$,(JASCII 3$B%P%$%H!"4A;z(J 20$B%P%$%H!"?tCM(J 10$B%P%$%H!J>.?tItJ,(J3$B7e!K!"Id9fIU?tCM(J 8$B%P%$%H!J>.?tItJ,(J2$B7e!K$G$"$l$P!"(J
    3
    N10
    7.3
    S6.2
    L300
    $B$H;XDj$7$^$9!#(JN$B$OF|K\8lJ8;z$r0UL#$7!"$=$N8e$K$OJ8;z?t$r=q$-$^$9!J(J20$B%P%$%H$J$i(J10$B$H$9$k!K!#$^$?!"(JS$B$OId9fIU?tCM$r0UL#$7$^$9!#(JX$B!J1Q?t;z;XDj!K$d(J9$B!J?t;z;XDj!K$O=q$/I,MW$,$"$j$^$;$s!J?tCM$N:8B&$N%<%m$r:o=|$9$k%*%W%7%g%s$r;XDj$9$k$H$-$O=q$$$F$/$@$5$$!K!#M>J,$J%9%Z!<%9$d2~9T$rESCf$KF~$l$?$j$9$k$H@5$7$/F0:n$7$^$;$s!#$3$NItJ,$N@_Dj$O%a%K%e!<$N!V7e?t@_Dj!W$r;H$C$FJ]B8$HFI$_=P$7$r$9$k$3$H$b$G$-$^$9!#(JL$B$O%G!<%?%U%!%$%k$,%F%-%9%H%U%!%$%k$N>l9g$O;XDjITMW$G$9$,!"%P%$%J%j!<%U%!%$%k!J2~9T%3!<%IL5$7!K$N>l9g$K$O#1%l%3!<%I$N%P%$%H?t$r;XDj$7$^$9!#(J

    $B$D$$$G!"%a%K%e!<$N!V%U%!%$%k!d%G!<%?%U%!%$%k$rJQ49!W$G%G!<%?%U%!%$%k$r%*!<%W%s$9$k$H!"$=$N%U%!%$%k$,(JShiftJIS$B$KJQ49$5$l$FJ]B8$5$l$^$9!#85$N%U%!%$%kL>$,(JAAAA.txt$B$G$"$l$PJ]B8$5$l$k%U%!%$%kL>$O(JSJIS-AAAA.txt$B$H$J$j!"F1$8%G%#%l%/%H%j$K:n@.$5$l$^$9!#(J

    $B$5$i$K!"(JCSV$B%U%!%$%k!J(JAAAA-SJIS.csv$B!K$b:n@.$7$^$9!#(JCSV$B%U%!%$%k$G$O>.?tE@$d%^%$%J%9Id9f$rDI2C$9$k$[$+!"%(%/%;%k$GJ8;zNs$H$7$FFI$_9~$`$?$a$K3F%G!<%?$K(J '=' $B$r$D$1$?%U%!%$%k!J(JEQ-AAAA-SJIS.csv$B!K$b=PNO$7$^$9!#(J

    COPY$B6g$rFI$_9~$s$G
    COBOL$B$N(JCOPY$B6g$rFI$_9~$s$G@_Dj$r<+F0FI$_9~$_$9$k$3$H$b$G$-$^$9!#$3$3$G$$$&(JCOPY$B6g$H$O(J
    10 $BM=;;(J.
    $B!!(J20 $B8\5RL>!!(J PIC N(8).
    $B!!(J20 $BHNGdM=;;(J PIC 9(7).
    10 $BL@:Y!!!!!!(J OCCURS 3 TIMES.
    $B!!(J20 $B9`L\!!!!(J PIC N(6).
    $B!!(J20 $B6b3[!!!!(J PIC S9(6)V9(3).
    $B$H$$$&$h$&$J=q<0$N%F%-%9%H%U%!%$%k!J(JShiftJIS$B!\(JCRLF$B!K$G$9!#$3$l$rFI$_9~$`!J(JCOPY$B6g!d(JCOPY$B6g%U%!%$%k$rFI9~!K$H!"1&B&$N%(%j%"$K7e?t@_Dj$rH4$-=P$7$^$9!#eIt$K9`L\L>$rI=<($9$k$3$H$,$G$-$^$9!#(J

    $BBP1~$7$F$$$k=q<0(J($BNc(J)
    • OCCURS 10 TIMES.
    • OCCURS 10.
    • PIC N(20) OCCURS 10.
    • OCCURS 10 TIMES PIC N(20).
    • PIC S9(4)V9(3).
    • PIC V9(3).
    • PIC NNNNNN.
    • PIC 999.99.
    • * ($B9TF,$K$"$k>l9g(J)
    $BBP1~$7$F$$$J$$=q<0(J($BNc(J)
    • $B%T%j%*%I$,>JN,$5$l$F$$$k(J
    • COPY
    • REDEFINES
    • INCLUDE
    • COMP-1
    $BF0:n@_Dj(J
    $B@_Dj2hLL$G;XDj$7$^$9!#FC$K$o$+$j$K$/$$$H$3$m$O$J$$$H;W$$$^$9!#(J
    $B@)8B;v9`(J
    $B
    1$B%l%3!<%I$ND9$5(J$B!!(J30,000$B%P%$%H0J2<(J
    1$B%l%3!<%I$K4^$^$l$k4A;z%U%#!<%k%I$N?t(J$B!!(J100$B0J2<(J
    1$B%l%3!<%I$K4^$^$l$k%U%#!<%k%I$NAm?t(J$B!!(J2,000$B0J2<(J
    COPY$B6g$N%M%9%H$N?<$5(J$B!!(J20$B0J2<(J
    $B%7%'%"%&%'%"(J
    $B$3$N%=%U%H%&%'%"$O(JPC1$BBf$"$?$j(J3,000$B1_$N%7%'%"%&%'%"$H$5$;$F$$$?$@$$$F$$$^$9!#;HMQ$7$?$$J}$O$4EPO?$r$*4j$$$7$^$9!#EPO?$7$?$$J}$O(J$B:n$B$/$@$5$$!#EPO?$r$7$F$$$J$$>l9g$O(J40$B%l%3!<%I$@$1JQ49$9$k$3$H$,$G$-$^$9!#(J
    $B;HMQ>r7o$J$I(J
    $B
    $B$3$N%W%m%0%i%`$O
  • NKF32.DLL by $B3$?M(J
  • NKF32.PAS Ver.1.0 (c)1996 by A.Nakata


    • All rights reserved.$B!!%j%s%/$O<+M3$G$9$,!"E>:\!&0zMQ!&G[I[!J0u:~$b$U$/$`!K$r$5$l$k$H$-$O(J$B:n$B$/$@$5$$!#46A[$b$*BT$A$7$F$$$^$9!#(J
    $B:n