af12.html

尪嶽ㄧコ蘸 調渝 鎔き潘 詬詨 杽12
     ﹛﹛﹛﹛﹛﹛﹛﹛﹛﹛﹛﹛﹛﹛﹛﹛﹛﹛﹛﹛﹛﹛﹛﹛﹡凳蕙ざ＋1996.06.04


杽12  慼及COBOL皿伕弘仿丞及濩抸菴太皿伕弘仿丞毛厶氏匹﹞澀杽卞蠶尹方﹝

﹟皿伕弘仿丞及濩抸﹠
  綜僅嫩杴白央奶伙毛厶心﹞呿ざ井日1井畸坌及綜僅嫩杴毛執儂允月﹝
(1) 綜僅嫩杴白央奶伙及伊戊□玉迋摯反﹞慼及午云曰匹丐月﹝
見芋芋芋芋芋豕芋芋芋芋芋豕芋芋芋芋豕芋芋芋芋芋豕芋芋芋芋芋豕芋芋芋芋芋豕芋芋芋芋芋角
芍綜僅戊□玉芍綜僅嫩杴抩芍繫癲樊抩芍釩銨芺爛ざ芍釩銨撢歜ざ芍蔽弇芺爛ざ芍蔽弇撢歜ざ芍
豆芋芋芋芋芋走芋芋芋芋芋走芋芋芋芋走芋芋芋芋芋走芋芋芋芋芋走芋芋芋芋芋走芋芋芋芋芋貝
芍   6仃凶  芍  l4仃凶  芍 l0仃凶 芍   6仃凶  芍   6仃凶  芍   6仃凶  芍   6仃凶  芍
谷芋芋芋芋芋赤芋芋芋芋芋赤芋芋芋芋赤芋芋芋芋芋赤芋芋芋芋芋赤芋芋芋芋芋赤芋芋芋芋芋言
  公木冗木及ざ尥卞反﹞コ畸ざ互YYMMDD﹋YY“擰昢票2仃凶, MM“畸,DD“ざ﹌及溥摯匹
じ勻化中月﹝凶分仄﹞釩銨撢歜ざ坭反蔽弇撢歜ざ互怳瓚狤及樺寧反﹞公及ざ尥及允屯化
及仃凶卞﹍0﹎互じ勻化中月﹝
(2) 呿ざ井日﹞慼及畸及⑺元ざ引匹毛﹍1井畸﹎午允月﹝
(3) 票豭及方丹卞﹞綜僅渝棉互﹍1井畸﹎卞殖引木月綜僅嫩杴(臍瞬)毛執儂覆擂午允月﹝

               筏寞  ↘“釩銨芺爛ざ﹞﹣“蔽弇芺爛ざ

                     呿ざ    1井畸    1井畸詨
    芋芋芋芋芋芋芋芋芋豕芋芋芋芋芋芋芋芋豕芋芋芋芋芋芋芋芋
      ↘芋芋芋芋芋﹣  芍                芍
                      芍                芍
          ↘芋芋芋芋芋走足足足﹣        芍
                      芍                芍
              ↘芋芋芋走足足足足足足足足酉芋芋﹣
                      芍                芍
                      芍   ↘足足足足﹣ 芍
                      芍                芍
                      芍      ↘足足足足酉芋芋芋芋﹣
                      芍                芍
                      芍                芍↘芋芋芋芋芋﹣
                      芍                芍

(4) 綜僅嫩杴及執儂反﹞慼及方丹卞墊丹﹝
 1.執儂迋摯反﹞慼及午云曰匹丐月﹝
 見芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋角
 芍                          1井畸坌及綜僅嫩杴域厖                         芍
 芍綜僅戊□玉  綜僅嫩杴抩  繫癲樊抩  釩銨芺爛ざ▼撢歜ざ  蔽弇芺爛ざ▼撢雒ざ芍
 芍XXXXXX      XXXXXX＿X   XXXX＿X   YY-MM-DD  YY-MM-DD  YY-MM-DD  YY-MM-DD芍
 芍XXXXXX      XXXXXX＿X   XXXX＿X   YY-MM-DD  YY-MM-DD  YY-MM-DD  YY-MM-DD芍
 芍  “           “          “        “        “        “        “   芍
 芍XXXXXX      XXXXXX＿X   XXXX＿X   YY-MM-DD  YY-MM-DD  YY-MM-DD  YY-MM-DD芍
 谷芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋言
 2.蔽弇芺爛ざ及鍍中賜卞執儂允月﹝
 3.釩銨撢歜ざ坭反蔽弇撢歜ざ互怳瓚狤及樺寧反﹞塢ヶ毛執儂允月﹝
 4.刓鎖﹋2墊﹌反﹞湃卞執綬今木化中月手及午允月﹝
(5) 汏皿伕弘仿丞﹍editdate﹎反﹞鎔1婁醒及ざ尥﹋YYMMDD﹌毛鎔2婁醒﹋YY-MM-DD﹌
  及溥摯卞彸螂允月﹝

﹟皿伕弘仿丞﹠
 1   data division.
 2   file section.
 3   fd   sagyo-komoku-file.
 4   01   sagyo-rec              pic x(54).
 5   fd   print-file.
 6   01   print-rec              pic x(80).
 7   sd   sort-file.
 8   01   sort-rec.
 9     05 s-code                 pic x(6).
10     05 s-komoku-mei           pic x(14).
11     05 s-tantosya-mei         pic x(10).
12     05 s-kai-yo-bi            pic x(6).
13     05 s-kai-zi-bi            pic x(6).
14     05 s-syu-yo-bi            pic x(6).
15     05 s-syu-zi-bi            pic x(6).
16   working-storage section.
17   01 detail-rec.
18     05                        pic x(2) value space.
19     05 p-code                 pic x(6).
20     05                        pic x(6) value space.
21     05 p-komoku-mei           pic x(14).
22     05                        pic x(2) value space.
23     05 p-tantosya-mei         pic x(10).
24     05                        pic x(2) value space.
25     05 p-kai-yo-bi            pic x(8).
26     05                        pic x(2) value space.
27     05 p-kai-zi-bi            pic x(8).
28     05                        pic x(2) value space.
29     05 p-syu-yo-bi            pic x(8).
30     05                        pic x(2) value space.
31     05 p-syu-zi-bi            pic x(8).
32   01 honzitu.
33     05 h-yy                   pic 9(2).
34     05 h-mm                   pic 9(2).
35     05 h-dd                   pic 9(2).
36   01 raigetu.
37     05 r-yy                   pic 9(2).
38     05 r-mm                   pic 9(2).
39     05 r-dd                   pic 9(2).
40   procedure division.
41   main section.
42   ml.  accept honzitu from date
43        move honzitu to raigetu
44        if h-mm = 12
45          compute r-yy = r-yy + 1
46          move 1  to r-mm
47        else
48          compute r-mm = r-mm + 1
49        end-if
50        sort sort-file descending key s-syu-yo-bi
51             input procedure s-in output procedure s-out
52        stop run.
53   s-in section.
54   i1.  open input sagyo-komoku-file.
55   i2.  read sagyo-komoku-file into sort-rec
56             at end go to i3.
57        if (s-syu-yo-bi >= honzitu and s-kai-yo-bi <= raigetu)
58          release sort-rec
59        end-if
60        go to i2.
61   i3.  close sagyo-komoku-file.
62   s-out section.
63   o1.  open output print-file.
64   o2.  return sort-fiie at end 90 to o3.
65        move s-code to p-code
66        move s-komoku-mei to p-komoku-mei
67        move s-tantosya-mei to p-tantosya-mei
68        call "editdate"   using s-kai-yo-bi p-kai-yo-bi
69        if s-kai-zi-bi = zero
70          move space to p-kai-zi-bi
71        else
72          call "editdate" using s-kai-zi-bi p-kai-zi-bi 
73        end-if
74        call "editdate" using s-syu-yo-bi p-syu-yo-bi
75        if s-syu-zi-bi = zero
76          move space to p-syu-zi-bi
77        else
78         call "editdate" using s-syu-zi-bi p-syu-zi-bi
79        end-if
80        write print-rec from detail-rec after 1
81        go to o2.
82   o3.  close print-file.
          
澀杽  慼及筏課醱及 [         ] 卞じ木月懇仄中蠶尹毛﹞荸蠶歇及醱井日薊矛﹝

  (1) 仇及皿伕弘仿丞醱卞反1墊貲曰互丐月﹝公及墊毛 [    a    ] 卞庍凳允月﹝
  (2) 仇及皿伕弘仿丞匹反﹞ざ尥醱及コ互2仃凶匹刓蜇今木化中月﹝擰昢2000コ動嫦
    卞卅月午﹞仇及引引匹反漱月及匹﹞コ毛4仃凶卞庍凳仄凶中﹝
岡 1. 綜僅嫩杴白央奶伙午末□玄白央奶伙﹋sort﹞file﹌及伊戊□玉迋摯醱及ざ
    尥﹋4井赭﹌毛﹞6仃凶井日8仃凶卞庍凳允月﹝4墊杴午6墊杴及贏今毛﹞
    公木冗木 [    b    ] 仃凶午88仃凶卞庍尹月﹝l2﹞l3﹞14菴太l5墊杴及
    犯□正嫩杴及贏今毛 [    c    ] 仃凶卞庍尹月﹝
   2. 執儂迋摯醱及YY毛YYYY卞庍凳允月﹝25﹞27﹞29菴太31墊杴及犯□正嫩杴及
    贏今毛 [    d    ] 仃凶卞庍尹月﹝
岡 3. 33墊杴午37墊杴及コ毛傘ダ允月綜僅恄啗及贏今毛﹞4仃凶卞庍凳允月﹝
岸 4. 42墊杴及accept from date妐匹反2仃凶及コ仄井潸丿匹五卅中﹝仇及墊毛﹞
    擰昢4仃凶及コ﹞2仃凶及畸﹞2仃凶及ざ毛潸丿允月汏皿伕弘仿丞﹍getdate﹎
    毛裟少方丹卞庍尹月﹝ 
     	      m1‘call "getdate" using honzitu
岩 5. 汏皿伕弘仿丞"editdate"及鎔1婁醒午鎔2婁醒及贏今毛公木冗木2仃凶內勾
    餵支仄﹞YYYYMMDD井日YYYY-MM-DD及溥摯卞彸螂允月方丹卞﹞庍凳允月﹝
 (3)  "蔽弇芺爛ざ互呿ざ方曰蟆匹﹞蔽弇撢歜ざ互怳瓚狤"午"釩銨芺爛ざ互1井畸
    詨方曰詨匹﹞釩銨撢歜ざ互瓚狤碧心匹﹞蔽弇撢歜ざ互怳瓚狤"及綜僅嫩杴手
    執儂覆擂綜僅嫩杴午允月仇午卞卅勻凶﹝公及凶戶卞反﹞57墊杴午58墊杴及棉
    卞慼及儂嗥毛馨笛允木壬方中﹝
                   
    or﹋s-syu-yo-bi [     e     ] honzitu and s-syu-z-bi = zero﹌
    or﹋s-kai-yo-bi > raigetu and s-kai-zi-bi not = zero
        and s-syu-zi-bi [     f     ] zero﹌

a卞楮允月荸蠶歇			
  失  43     move 0 to r-mm
  奶  50     sort sort-file ascending key s-syu-yo-bi
  它  57     if﹋s-syu-yo-bi >= honzitu or s-kai-yo-bi <= raigetu﹌
  巨  80     write print-rec after 1

b℅d卞楮允月荸蠶歇		
  失  2		奶  4		它  6		巨  8		左  10
  市  56	平  58		弁  60		弗  62		戊  64

e﹞f卞楮允月荸蠶歇		
  失  >		奶  <		它  =		巨  not =
  左  or	市  and
尪嶽ㄧコ蘸 調渝 鎔き潘 詬詨 杽12

尪嶽ㄧコ蘸調渝鎔き潘詬詨杽12
