🚀 go-pugleaf

$B!!>>ED9@J?$G$9!#(B

  Followup-To: fj.comp.lang.cobol $B$G$9!#(B

  COBOL$B$NOC$J$N$G=P$F$-$^$7$?(B...$B!#(B

In article <6g4oet$f2d@utogw.gssm.otsuka.tsukuba.ac.jp> kuno@gssm.otsuka.tsukuba.ac.jp writes:
>$B5WLn$G$9!#(Bfj.lang.c$B$rMn$H$7$^$9$h!#(B
>$B$_$s$D$5$s(B:
>> COBOL $B$G(B SOURCE-COMPUTER./OBJECT-COMPUTER. $B6g$,$O$J(B
>> $B$+$i<BAu$5$l$F$$$k$+$i!"$b$7$d%/%m%9%3%s%Q%$%i!#(B
>  $B$I$&!V<BAu!W$5$l$F$k$N$+6=L#$,$"$j$^$9$M!#(B:-)

COBOL$B$N(B CONFIGRATION SECTION.($B9=@.@a$HLu$7$F$$$^$9$,(B)$B$G$N!"$H(B
SOURCE-COMPUTER.$B$H(BOBJECT-COMPUTER.$B$O6g$G$O$J$/CJMnL>$G$9!#$s$G!"(B
$BCJMnL>$+$I$&$+$O!"(BDIVISION$B$G$b$J$/(BSECTION$B$G$b$J$/(BA$B%^!<%8%s$+$i(B
$B=q$/$b$N$H8@$($P$$$$$G$7$g$&!#(B
$B$=$s$G!"(BSOURCE-COMPUTER$BCJMn$K=q$/$3$3$H$,$G$-$k6g$O!"(B
  SOURCE-COMPUTER  HOGEHOGE WHITH DEBUGING MODE.
$B$J$s$+$N$h$&$K!"%3%s%Q%$%i$N%W%j%W%m%;%9CJ3,$G$N%*%W%7%g%s$J$I(B
$B$N;XDj$,Cf?4$J$s$G$9$,!"A05-$N(BDEBUGING MODE$B$/$i$$$7$+;H$o$l$J$$(B
$B$_$?$$$G$9!#$^$?!"(BOBJECT-COMPUTER$BCJMn$K=q$/6g$O!"$[$H$s$I$,%3%a(B
$B%s%H07$$$N>l9g$,B?$$$N$G$9$,!"Hs>oCs(BSECTION($B2{$+$7$$$J!A(B)$B$N$?$a(B
$B$N%-%c%C%7%e%5%$%:$N;XDj$H$+!":GBg%a%b%j%5%$%:$H$+!"<B9T;~$N%*%W(B
$B%7%g%s$H$+8=:_$N%m!<%@!<$N%Q%i%a!<%?$N$h$&$J$b$N$,Cf?4$G$9!#$7$+(B
$B$7!"$3$l$b%G%P%C%,$,H/C#$7$?8=:_$G$O$[$H$s$I;H$o$l$F$$$^$;$s!#(B
$B$b$C$H$b!"(BCOBOL$B$N;EMM$G$O!"%/%m%9%3%s%Q%$%k$b4^$^$l$F$$$^$9$,!"(B
$BI,?\$G$O$"$j$^$;$s!#$?$@!"$`$+$7$`$+$7$N!"%*%U%#%9%W%m%;%C%5$H3+(B
$BH/%^%7%s$N4V$G!"(B
CONFIGRATION SECTION.
    SOURCE-COMPUTER.  $B3+H/%^%7%s(B.
    OBJECT-COMPUTER.  $B%*%U%#%9%W%m%;%C%5(B.  
                      WITH MEMORY SIZE $B<d$7$$Bg$-$5(B CHARACTERS.
$B$H$$$&$h$&$J%1!<%9$b$"$j$^$7$?!#%3%s%Q%$%i$N<B9T$G$-$k%^%7%s$,$^(B
$B$@$^$@Hs>o$K9b2A$@$C$?$3$m$NOC$G$9!#(BMicroforcus$B$N@=IJ$NCf$K$O!"(B
$B%/%m%9%3%s%Q%$%k5!G=$N$"$k$b$N$,H/Gd$5$l$F$$$^$7$?$,!"#1#5G/A0$G(B
MS-DOS$BMQ$G!"(B1,200$BK|1_$/$i$$$@$C$?$H;W$$$^$9!#(B

>  $B$7$+$7$J$s$G(Bcobol$B$@$HBgJ8;z(B? $B>.J8;z$8$c5$J,=P$J$$$G$9$+$!(B?
>$B%7%U%H%-!<2!$9$N$G;X$,Hh$l$A$c$&$h(B($B$b$A$m$s;d$O(BCapsLock$B$J$s$F(B
>$B$$$&<YKb$J%-!<$O;&$7$F$$$k(B)$B!#(B

$BKM$O!":#$G$b!"(BCOBOL$B$r;H$&$3$H$,$"$j$^$9$,!"BgJ8;z$H>.J8;z$N6hJL(B
$B$,$J$$$3$H$r9,$$$K!"(B

Identification division.
Program-ID.    HogeHoge.
Date-written.  04/07/98
Date-Compiled. 04/07/98
Author.        Jetta.
Environment    divison.
Configuration  section.

$B$J$s$F=q$-J}$r$7$^$9$h!#$3$N$[$&$,!"%=!<%9$rFI$`$H$-$K%_%9$,>/(B
$B$J$$$7Aa$$$G$9!#KM$K$H$C$F$O!"(BCobol$B$O$*6b$,L5$/$J$C$?$H$-$K$*@$(B
$BOC$K$J$k$b$N$G$9$+$i!"@8;:@-$,>e$,$k(B($B$h$jLY$+$k(B)$B$J$i2?$G$b$7$^(B
$B$9$h(B...$B!#(B

-- 
/* $B>>ED9@J?(B                  (Kouhei Matsuda, Asao Kawasaki, JPN.)
   jetta@marie.iijnet.or.jp  (GBC01634@niftyserve.or.jp )          */