NYUUKO - みる会図書館


検索対象: COBOL プログラミング
24件見つかりました。

1. COBOL プログラミング

297 整列併合処理 SORT-JYUNBI. OPEN INPUT INFILE MOVE ” 0 ” TO W-FLAG READ INFILE ÅT END MOVE ” 1 ” TO W-FLÅG END-REÅD PERFORM YOMU-SHORI THRU YOMU-SHORI-EXIT UNTIL W-FLAG = CLOSE INFILE . SORT-ATO. OPEN OUTPUT OUTFILE MOVE ” 0 ” TO W-FLÅG RETURN SORTFILE ÅT END MOVE ” 1 ” TO W-FLAG ←整列併合用ファイルからの受取り END-RETURN PERFORM KAKU-SHORI THRU KÅKU-SHORI-EXIT UNTIL W-FLÅG ニ CLOSE OUTFILE. I-RYOU TO S-NYUUKO I-RYOU TO S-SYUKKO MOVE I-SCODE TO S-SCODE KÅKU-SHORI. E X け . YOMU-SHORI-EXIT. END-REÅD. AT END MOVE ” 1 ” TO W-FLÅG READ INFILE RELEÅSE SORTREC RETURN SORTFILE WRITE OUTREC FROM W-MEISAI ÅFTER 2 MOVE S-SYUKKO TO WM-SYUKKO MOVE S-NYUUKO TO WM-NYUUKO MOVE S-SCODE TO WM-SCODE YOMU-SHORI . IF I-KUBUN = THEN MOVE 0 MOVE ELSE MOVE 0 MOVE E N D ー I F TO S-SYUKKO TO S-NYUUKO ←整列併合用ファイルへの受渡し ←整列併合用ファイルからの受取り します。 並べ替えのもとになる商品コードがバラバラになるような入力データを使用 この例題では , 整列が正しく行なわれるかどうかチェックします。 1 圧 4 - 3 テストテータの作成とテスト EX 灯 . KÅKU-SHORI-EXIT . END-RETURN . ÅT END MOVE ” 1 ” TO W-FLÅG

2. COBOL プログラミング

289 整列併合処理 【ファイルレイアウト】 〔入出庫ファイル〕 ファイル名 : INFILE, レコード名 : INREC 商品コ ード : ト SCODE 入庫 量 : ト NYUUKO 里 : ト SYUKKO X ( 6 ) 9 ( 5 ) 田 02 03 04 05 06 07 08 09 田Ⅱ にロ図巧 〔整列済み入出庫ファイル〕 ファイル名 : OUTFILE, レコード名 : OUTREC 商ロコ ード : O—SCODE 入庫 量 : O—NYUUKO 里 : O-SYUKKO 9 ( 5 ) X(6) 田 02 03 04 05 06 07 08 四田口 にロ巧

3. COBOL プログラミング

コントロールプレイク処理 【ファイルレイアウト】 〔入出庫ファイル〕 ファイル名 : INFILE, レコード名 : INREC 商品コード : ト SCODE 入庫量 : I—NYUUKO 出庫量 : ト SHUKKO x(6) 田 02 03 04 05 06 07 08 09 田Ⅱロ図丐 9 ( 5 ) 9 ( 5 ) 〔入出庫リスト〕 ファイル名 : OUTFILE, レコード名 : OUTREC 1 2 3 4 5 6 7 8 9 1 い 1 12 13 14 15 旧円幻 22 23 24 27 四 31 32 33 37 41 42 43 44 45 47 49 引 52 53 55 57 59 9 大見出し行レコード名 : W-OOMIDASHI 小見出し行レコード名 : W- K 0 M IDA S 印 明細行レコード名 : W-MEISAI 商品コード : W-SCODE 入庫量 : W-NYUUKO 出庫量 : W-SHUKKO

4. COBOL プログラミング

1 0 . 1 圧 3 コ 293 整列併合処理 3 プログラムの作成 フローチャートとプログラム I D E N T I F I C AT 10 N D I V I S 1 0 N. PROGRAM-ID. REIIO. E NV I RO NM E N T D I V I S 1 0 N. CONFIGURATION SECTION. SOURCE-COMPUTER. ITEC. OBJECT-COMPUTER. ITEC. INPUT-OUTPUT SECTION. FILE-CONTROL. S E L E C T I N F I L E SELECT OUTFILE ASSIGN TO DISK102. SELECT SORTFILE ASSIGN TO DISK103. DATA DIVISION. FILE SECTION. F D F D 01 SD 0 1 I N F I L E. INREC. 02 1-SCODE 02 1-NYUUKO 02 1-SYUKKO OUTFILE. OUTREC. 02 0-SCODE 02 0-NYUUKO 02 0-SYUKKO SORTFILE. SORTREC. 02 S-SCODE 02 S-NYUUKO 02 S-SYUKKO ASSIGN TO DISKIOI. X ( 6 ) . PIC S9 ( 5 ) . PIC S9 ( 5 ) . X ( 6 ) . P I C S 9 ( 5 ) . P I C S 9 ( 5 ) . X ( 6 ) . P I C S 9 ( 5 ) . P I C S 9 ( 5 ) . P I C 円 C P I C PROCEDURE DIVISION. HAJIME. SORT SORTFILE STOP RUN. G I V I N G 0 U T F I L E U S I N G I N F I L E ON ASCENDING S-SCODE 開 整 終 列 了

5. COBOL プログラミング

206 ” 0 ” TO W-FLAG MOVE W-SCODE UNTIL W-FLAG PERFORM SHU-SHORI THRU SHU-SHORI-EXIT PERFORM MAE-SHORI THRU MAE-SHORI-EXIT HAJIME. PROCEDURE DIVISION. 第 7 章 OUTPUT OUTFILE I N F I L E PERFORM ATO-SHORI THRU ATO-SHORI-EXIT MAE-SHORI . STOP RUN. READ MOVE 0 MOVE 0 MOVE MOVE OPEN I N F I L E INPUT 25 TO W-LCOUNT TO W-SGOUKEI TO W-NGOUKEI AT END MOVE " 1 ” TO W-FLAG TO W-SSOUGOUKEI TO W-NSOUGOUKEI MOVE 0 MOVE 0 SHU-SHORI . EXIT. MAE-SHORI-EXIT. END-READ. IF W-LCOUNT END-PERFORM END-READ AT END MOVE " 1 ” TO W-FLAG READ INFILE ニ W-SGOUKEI + I-SHUKKO COMPUTE W-SGOUKEI ニ W-NGOUKEI + I-NYUUKO COMPUTE W-NGOUKEI PERFORM UNTIL I-SCODE NOT = W-SCODE OR W-FLAG MOVE I-SCODE TO W-SCODE MOVE W-SGOUKEI TO WM-SHUKKO MOVE W-NGOUKEI TO WM-NYUUKO TO WM-SCODE E L S E C 0 N T I NU E MOVE 0 TO W-LCOUNT WRITE OUTREC FROM W-KOMIDASHI AFTER 2 THEN WRITE OUTREC FROM W-OOMIDASHI AFTER PAGE END-IF EXIT. ATO-SHORI-EXIT. CLOSE INFILE OUTFILE. WRITE OUTREC FROM W-SOUGOUKEI AFTER 2 MOVE W-SSOUGOUKEI TO WS-SHUKKO MOVE W-NSOUGOUKEI TO WS-NYUUKO ATO-SHORI . EXIT. SHU-SHORI-EXIT. ニ W-SSOUGOUKEI + W-SGOUKEI. COMPUTE W-SSOUGOUKEI = W-NSOUGOUKEI + W-NGOUKEI COMPUTE W-NSOUGOUKEI COMPUTE W-LCOUNT = W-LCOUNT + 1 WRITE OUTREC FROM W-MEISAI AFTER 2

6. COBOL プログラミング

印字処理 【ファイルレイアウト】 〔入出庫ファイル〕 ファイル名 : INFILE, レコード名 : INREC 商品コ ード : ト SCODE 単 価 : ト TANKA 在 庫 量 : ト ZA 区 0 入 庫 量 : ト NYUUKO 量 : ト SHUKKO 出 庫 在庫量 入庫量 出庫量 商品コード 価 X ( 6 ) 田 02 03 04 05 06 07 08 09 田Ⅱ にロ丐田口田円 20 幻 22 23 24 25 26 27 28 9 ( 5 ) 〔在庫量リスト〕 ファイル名 :OUTFILE, レコード名 :OUTREC Ⅱにロ巧円 ~ 2 ] るれ艾 33 る 31 純載 4 ] 45 41 鴫變 5 ] 55 51 59 い日 65 い々リ 14 汚 16 リ 18 て羆翡ーー ② 3030 09 田 ー 2 3 4 5 6 7 8 9 ー ード名 : W-OOMIDASHI 大見出し行レコ 年 : WO-YY 月 : WO-MM 日 : WO-DD ード名 : W-KOMIDASHI 小見出し行レコ 明細行レコード名 : W-MEISAI ード : W-SCODE 商品コ 価 : W-TANKA 早 在 匣 : W-ZAIKO 入 匣 : W-NYUUKO 出 里 : W-SHUKKO

7. COBOL プログラミング

索引ファイルの取扱い 257 【ファイルレイアウト】 〔在庫マスタファイル〕 ファイル名 :IOFILEM, レコード名 :IORECM 商品コード :IOM-SCODE 早 価 :IOM-TANKA 在庫 匣 :IOM-ZAIKO 9 ( 5 ) 9 ( 7 ) X(6) 01 02 03 04 05 06 07 08 09 10 1 1 12 13 14 1 5 16 17 18 〔入出庫ファイル〕 ファイル名 : INFILET, レコード名 :INRECT 商品コード : IT—SCODE 価 : IT-NYUUKO 在庫 里 :IT-SYUKKO X(6) 9 ( 5 ) 9 ( 5 ) 01 02 03 04 05 06 07 08 09 1 0 1 1 12 1 3 14 15 16

8. COBOL プログラミング

コントロールプレイク処理 205 IDENTIFICATION DIVISION. PROGRAM-ID. RE107. E N V I RO NM E N T D I V I S 1 0 N. CONFIGURATION SECTION. SOURCE-COMPUTER. ITEC. OBJECT-COMPUTER. ITEC. INPUT-OUTPUT SECTION. FILE-CONTROL. S E L E C T I N F I L E AS S I G N TO D I S K 71. 02 WS-NYUUKO 02 WS-SHUKKO VALUE SPACE. VALUE SPACE. VALUE SPACE. VALUE SPACE. VALUE SPACE. VALUE SPACE. SELECT OUTFILE ASSIGN TO PRINTER. WORKING-STORAGE SECTION. 01 OUTREC F D OU T F I L E. 02 1-SHUKKO 02 1-NYUUKO 02 1-SCODE INREC. F D I N F I L E. F I L E S E C T 1 0 N. DATA DIVISION. 7 7 7 7 7 7 7 7 7 7 7 7 7 7 0 1 01 0 1 0 1 W-FLAG W-LCOUNT W-SCODE W-NGOUKEI W-SGOUKEI W-NSOUGOUKEI W-SSOUGOUKEI W-OOMIDASHI . W-KOMIDASHI . W-SOUGOUKEI . 02 WM-SHUKKO 02 WM-NYUUKO 02 WM-SCODE W-MEISAI. 02 02 02 X ( 6 ) . PIC S9 ( 5 ) . P I C S 9 ( 5 ) . X ( 133 ) . X. PIC S9 ( 2 ) . X ( 6 ) . PIC S9 ( 7 ) . PIC S9 ( 7 ) . S9 ( 9 ) . PIC S9 ( 9 ) . X ( 21 ) VALUE SPACE. X ( 112 ) P I C P I C P I C P I C P I C P I C P I C VALUE ” * * * ショウヒンギッニュウシュッコリスト P I C P I C P I C P I C P I C P I C P I C P I C P I C P I C P I C P I C P I C P I C P I C P I C P I C X ( 14 ) X ( 19 ) X ( 19 ) X ( 81 ) X ( 15 ) X ( 6 ) . X ( 10 ) Z, ZZZ, ZZ9. X ( 10 ) X ( 74 ) X ( 11 ) X ( 18 ) VALUE " * * 乃コ、、ウケイ VALUE ”シュッコリョウ” VALUE ”こュウコリョウ” VALUE ”ショウヒンコード ' X ( 74 ) VALUE SPACE. X(8) VALUE SPACE. ZZZ, ZZZ,ZZ9.

9. COBOL プログラミング

296 02 WM-SCODE 02 WM-NYUUKO 02 WM-SYUKKO PROCEDURE DIVISION . < 例 > 第 10 章 整列併合用ファイル名 整列併合用レコード名 : SORTREC キー ( 昇順 ) 入力手続きの手続き名 : SORT-JYUNBI 出力手続きの手続き名 : SORT-ATO : SORTFILE : S-SCODE E N 日 C AT N 旧引 0 N . PROGRAM-ID. SORTIO. ENVIRONMENT DIVISION . CONFIGURATION SECTION . SOURCE-COMPUTER. ITEC. OBJECT-COMPUTER. ITEC. INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT SORTFILE ASSIGN TO DISK103. SELECT OUTFILE ASSIGN TO PRINTER. SEL E CT 燼 F I L E ÅSS I G N T 0 旧 S K 101 . F I L E SE C T 1 0 N . D Å T Å D I V I S 1 0 N. FD FD 01 S D 01 INF I L E. INREC. 02 1-SCODE 02 1-KUBUN 02 1-RYOU 0 UT F I L E. OUTREC SORTFILE . SORTREC. 02 S-SCODE 02 S-NYUUKO 02 S-SYUKKO P I C X ( 6 ) . P I C X( I) . PIC S9 ( 5 ) . P I C X ( 13 3 ) . PIC X ( 6 ) . PIC S9 ( 5 ) . PIC S9 ( 5 ) . WORKING-STORÅGE SECTION. 01 W-FLÅG 01 W-M 日 S A I . 円 C 02 02 02 HÅJIME. SORT SORTFILE X . X ( 1 D X ( 6 ) . X ( 10 ) P I C S 9 ( 5 ) . P I C P I C P I C P I C 円 C VALUE SPACE. VALUE SPÅCE . VÅLUE SPACE . X ( 1 の S9 ( 5 ) . ON ASCENDING S-SCODE INPUT PROCEDURE SORT-JYUNBI OUTPUT PROCEDURE SORT-ATO STOP RUN .

10. COBOL プログラミング

構造化プログラミング 【ファイルレイアウト】 〔入出庫ファイル〕 ファイル名 : INFILE, レコード名 : INREC 商品コ ード : ト SCODE 里 価 : ト TANKA 在 . 庫 里 : ト ZAIKO 入 . 庫 里 ト NYUUKO 出 里 : ト SYUKKO 在庫量 入庫量 商ロåコード 出庫量 価 X(6) 02 03 04 05 06 07 08 09 Ⅱ にロ凵巧ロ円 20 22 23 25 26 れ 28 〔在庫ファイル〕 ファイル名 : OUTFILE, レコード名 :OIJTREC 商品コード : O—SCODE 価 : O—TANKA 早 新在庫量 : O-ZAIKO X(6) 田 02 03 04 05 06 07 08 09 IO Ⅱ にロ巧ロ