af12.html

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


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

﹟皿伕弘仿丞及濩抸﹠
  ヨ曉鰻冱及犯□正毛傘ダ仄凶ヨ曉白央奶伙互丐月﹝仇及ヨ曉白央奶伙醱及齒圴戊□
玉互齒圴穴旦正白央奶伙醱卞丐月仇午毛腹犖仄﹜齒圴穴旦正白央奶伙卞卅中齒圴戊□
玉及犯□正毛巨仿□伉旦玄卞執儂允月皿伕弘仿丞匹丐月﹝

﹋1﹌ヨ曉白央奶伙﹋URI-FILE﹌及伊戊□玉迋摯反﹞慼及午云曰匹丐月﹝
                〃〃〃〃〃〃〃〃〃〃〃〃〃〃〃〃〃〃
               ￣鰻冱⺀寞 ￣ 齒圴戊□玉￣ ヨ曉醒恟 ￣
               ￣  4仃凶  ￣  5仃凶    ￣  3仃凶   ￣
                §§§§§§§§§§§§§§§§§§
  1. ヨ曉白央奶伙反﹞鰻冱⺀寞﹞齒圴戊□玉及噥賜卞幫昫今木化中月﹝
  2. 齒圴戊□玉反﹞5仃凶及醒儂匹丐月﹝
岡3. ⑺元鰻冱⺀寞及伊戊□玉匹﹞齒圴戊□玉互褐呁允月仇午反卅中﹝

﹋2﹌齒圴穴旦正白央奶伙﹋SYOHIN-MASTER﹌反﹞齒圴戊□玉毛潛伊戊□玉平□午仄
   凶綢婁白央奶伙匹丐曰﹞伊戊□玉迋摯反慼及午云曰匹丐月﹝
         〃〃〃〃〃〃〃〃〃〃〃〃〃〃〃〃〃〃〃〃〃〃〃〃
        ￣  齒圴戊□玉  ￣              齒圴抩          ￣
        ￣    5仃凶     ￣              20仃凶          ￣
         §§§§§§§§§§§§§§§§§§§§§§§§
﹋3)巨仿□伉旦玄卞反﹞巨仿□伊戊□玉及鰻冱⺀寞﹞齒圴戊□玉菴太ヨ曉醒恟毛ㄠ墊
   卞執儂允月﹝巨仿□伉旦玄及正奶玄伙菴太葦請仄反﹞燮⑵卞ㄠ莢分仃執儂允月﹝執
   儂拺毛豭ㄠ卞憎允﹝



﹟皿伕弘仿丞﹠

 1 DATA DIVISION.
 2 FILE SECTION.
 3 FD  URI-FILE.
 4 01  URI-REC.
 5      03  U-DENPYO                    PIC X(4).
 6      03  U-SYOHIN                    PIC 9(5).
 7      03  U-SURYO                     PIC 9(3).
 8 FD   SYOHIN-MASTER.
 9 01   SYOHIN-REC.
10      03 S-SYOHIN                     PIC 9(5).
11      03 S-SYOHIN-MEI                 PIC X(20).
12 FD   PRINT-FILE.
13 01   PRINT-REC                       PIC X(80).
14 WORKING-STORAG SECTION.
15 01   EOF-FLAG                        PIC 9(1)   VALUE 0.
16 01   P-HYO-MEI.
17      03                              PIC X(21)  VALUE
18 "            扑亦它甲件戊□玉   巨仿□伉旦玄".
19 01   P-HYO-TO.
20      03                              PIC X(27)  VALUE
21              "犯件疋亦它     扑亦它甲件戊□玉        旦它伉亦它"
22 01   P-MEISAI.
23      03                              PIC X(1)   VALUE SPACE.
24      03 P-DENPYO                     PIC X(10).
25      03 P-SYOHIN                     PIC X(ll).
26      03 P-SURYO                      PIC zz9.
27 PROCEDURE DIVISION.
28 HAJIME.
29      OPEN INPUT URI-FILE SYOHIN-MASTER OUTPUT PRINT-FILE.
30      WRITE PRINT-REC FROM P-HYO-MEI AFTER PAGE.
3l      WRITE PRINT-REC FROM p-HYO-TO  AFTER 2.
32      READ URI-FILE AT END  MOVE 1 TO EOF-FLAG.
33      PERFORM UNTIL EOF-FLAG = 1
34              MOVE U-SYOHIN TO S-SYOHIN
35              READ SYOHIN-MASTER INVALID KEY
36                      PERFORM PRINT-ERROR
37              END-READ
38              READ URI-FILE AT END
39                      MOVE 1 TO EOF-FLAG
40              END-READ
4l      END-PERFORM.
42 OWARI.
43      CLOSE URI-FILE SYOHIN-MASTER PRINT-FILE.
44      STOP RUN.
45 PRINT-ERROR.
46      MOVE U-DENPYO TO P-DENPYO.
47      MOVE U-SYOHIN TO P-SYOHIN.
48      MOVE U-SURYO TO P-SURYO.
49      WRITE PRINT-REC FROM P-MEISAI AFTER 1.

澀杽 慼卞憎允窗チ毛馨笛允月凶戶卞﹜皿伕弘仿丞毛膜懇允月﹝膜懇〇芢毛刓允刓醱
    及﹟      ﹠卞じ木月懇仄中蠶尹毛﹜荸蠶歇及醱井日薊矛﹝

  巨仿□午卅勻凶ヨ曉白央奶伙醱及齒圴戊□玉及5仃凶及醒儂及丹切﹞中內木井1
仃凶及醒儂毛庍尹月仇午卞方勻化齒圴穴旦正白央奶伙卞寧譙允月齒圴戊□玉互葦
勾井月樺寧互丐月﹝仇及方丹卅樺寧卞﹜襪懇及跳怀午卅月齒圴戊□玉午公及齒圴
抩手域踝卞執儂允月﹝

(1) 巨仿□午卅勻凶域勾及齒圴戊□玉卞勾中化﹜路怀午卅月齒圴戊□玉互葦勾井
  勻凶樺寧反﹜公及齒圴戊□玉菴太齒圴抩毛慼及墊卞執儂允月﹝跳怀午卅月齒圴
  戊□玉互き勾動曉丐月午五卞反﹜1墊卞1跳怀內勾執儂允月﹝
(2) 仇及窗チ毛馨笛仄凶巨仿□伉旦玄及執儂拺毛豭2卞憎允﹝



                        刓﹛窗チ馨笛及凶戶及膜懇〇芢
  見芋芋芋芋芋豕芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋角
  芍    質咥  芍                         妐                                     芍
  豆芋芋芋芋芋走芋芋豕芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋貝
  芍 l0墊杴毛 芍 蟆 芍03 S-SYOHIN PIC 9(5).                                     芍
  芍   譆晶尹 豆芋芋走芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋貝
  芍          芍 詨 芍03 S-SYOHIN.                                              芍
  芍          芍    芍    05 S-CODE                PIC 9(1) ﹟   a   ﹠.        芍
  豆芋芋芋芋芋走芋芋走芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋貝
  芍 20℅     芍 蟆 芍03                           PIC X(27) VALUE              芍
  芍   21墊杴 芍    芍  "犯件疋亦它  扑亦它甲件戊□玉  旦它伉亦它".             芍
  芍  毛譆晶尹豆芋芋走芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋貝
  芍          芍 詨 芍03                           PIC X(45) VALUE              芍
  芍          芍    芍 "犯件疋亦它 扑亦它甲件戊□玉 旦它伉亦它 氾奶本奶戊它石". 芍
  芍          豆芋芋赤芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋貝
  芍          芍  01  X                           PIC 9(1).                     芍
  芍 26墊杴午 芍  01  Y                           PIC 9(2).                     芍
  芍 27墊杴及 芍  01  P-KOUHO.                                                  芍
  芍     卞馨 芍      03                          PIC X(32) VALUE SPACE.        芍
  芍          芍      03 P-KOUHO-CODE             PIC X(8).                     芍
  芍          芍      03 P-KOUHO-MEI              PIC X(20).                    芍
  豆芋芋芋芋芋走芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋貝
  芍          芍      PERFORM VARYING X FROM 1 BY 1 ﹟   b   ﹠                 芍
  芍 49墊杴及 芍       PERFORM VARYING Y FROM 0 BY 1 ﹟   c   ﹠                芍
  芍 詨卞馨笛 芍         MOVE U-SYOHIN TO S-SYOHIN                              芍
  芍          芍         MOVE Y TO S-CODE (X)                                   芍
  芍          芍         IF U-SYOHIN NO = S-SYOHIN THEN                         芍
  芍          芍           READ SYOHIN-MASTER ﹟   d   ﹠                       芍
  芍          芍             MOVE S-SYOHIN TO P-KOUHO-MEI                       芍
  芍          芍             MOVE S-SYOHIN-MEI TO P-KOUHO-MEI                   芍
  芍          芍             WRITE PRINT-REC FROM P-KOUHO AFTER 1               芍
  芍          芍           END-READ                                             芍
  芍          芍         END-IF                                                 芍
  芍          芍        END-PERFORM                                             芍
  芍          芍      END-PERFORM.                                              芍
  谷芋芋芋芋芋赤芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋言

荸蠶歇				
  失  AT END
  奶  INVALID KEY
  它  NOT INVALID KEY
  鼎  OCCURS 5
  左  OCCURS 10
  市  VALUE ZERO
  平  UNTIL S-SYOHIN NOT = U-SYOHIN
  弁  UNTIL X > 5
  弗  UNTIL Y > 9
  戊  UNTIL Y > 10
尪嶽ㄧコ蘸 蔗渝 鎔き潘 詬詨 杽12

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