af08.html

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


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

﹟皿伕弘仿丞及濩抸﹠
 跟騷⻣羈及蜇嗯障蛟及凶戶及煩⻣障蛟白央奶伙互丐月﹝仇及煩⻣障蛟白央奶伙井日﹞
模夠帎卞蜇嗯障蛟喊卞殺元凶備嗯潘及优邰醒毛執儂允月﹝
﹋1﹌煩⻣障蛟白央奶伙及伊戊□玉迋摯反﹞慼及午云曰匹丐月﹝
      見芋芋芋芋芋豕芋芋芋芋芋豕芋芋芋芋芋豕芋芋芋芋芋芋芋芋芋芋芋芋芋角
      芍 模夠⺀寞 芍朿杹戊□玉芍蜇嗯障蛟喊芍	   公及職及樹扷       芍
      芍  X﹋12﹌ 芍  X﹋2﹌  芍   9﹋8﹌ 芍	      X﹋78﹌         芍
      谷芋芋芋芋芋赤芋芋芋芋芋赤芋芋芋芋芋赤芋芋芋芋芋芋芋芋芋芋芋芋芋言
﹋2﹌煩⻣障蛟白央奶伙反﹞朿杹戊□玉﹞模夠⺀寞及噥渲卞幫昫今木化中月﹝
﹋3﹌煩⻣障蛟白央奶伙及蜇嗯障蛟喊反﹞0方曰釐五中幫醒午允月﹝
﹋4﹌煩⻣障蛟白央奶伙卞反﹞1瘀動曉及犯□正互丐月﹝
﹋5﹌執儂迋摯反﹞慼及午云曰匹丐月﹝



岡1, 備嗯潘及障蛟呦醒毛模夠仍午卞執儂允月﹝朿杹帎及寧煌菴太鍚煌手執儂允月﹝
岷2, ⑺元朿杹戊□玉互糧仁樺寧反﹞瘉賡及模夠分仃朿杹戊□玉毛執儂允月﹝
岡3, 葦請仄及執儂反﹞燮⑵卞1莢分仃午允月﹝
岸4, 備嗯潘及鍚呦醒反﹞4仃凶動〇午允月﹝

﹟皿伕弘仿丞﹠
DATA DIVISION.
FILE SECTION.
FD KFIHI-FILE.
01 KEIHI-REC.
	02 KEIHI-BANGOU PIC X(l2).
	02 KEIHI-BUMON  PIC X(02).
	02 KEIHI-GAKU   PIC 9(08).
	02		PIC X(78).
FD KINSHU-FILE.
01 KINSEU-REC
WORKING-STORAGE SECTION.
01 END-FILE		PIC X(03) VALUE SPACE.
01 CON			PIC 9(02).
01 HYON			PIC 9(01).
01 WORK-BUMON		PIC X(02).
01 GAKU			PIC 9(08)
01 KIN1.
	02 KIN2 OCCURS3.
		03 KIN OCCURS 9 PIC 9(04).
01 TBL.
	02 TBL1 	PIC X(45) VALUE
	"100000500001000005000010000050000100000500001﹎.
	02 REDEFIES TBL1.
		03 TBL-GAKU OCCURS 9 PIC 9(05).
01 PRINT-M.
	02		PIC X(22) VALUE
	"皮乒件戊□玉 扑乓奶件田件打它".
02 PM-GAKU OCCURS 9
01 PRINT-D.
	02 PD-BUMON	PIC X(10).
	02 PD≡BANGOU	PIC X(l2).
 	02 PD≡KINSHU OCCURS9 PIC ZZ,ZZZ.
PROCEDURE DIVISION.
MAIN-RTN.
	OPEN INPUT KEIHI-FILE OUTPUT KINSHU-FILE
	INITIALIZE KINI PRINT-D.
	PERFORM VARYING CON FROM 1BY 1 UNTIL CON > 9
		MOVE TBL-GAKU(CON) TO PM-GAKU (CON)
	END-PERFORM.
	WRITE KINSHU-REC FROM PRINT-M AFTER PAGE.
	READ KEIHI-FILE AT END
		MOVE "END" TO END-FILE
	NOT AT END
		MOVE KEIHI-BUMON TO WORK-BUMON
		MOVE "1ST	" TO PD-BUMON
	END-READ.
      PERFORM UNTIL END-FILE="EUD"
	IF KEIHI-BUMON NOT=WORK-BUMON THEN
	   ﹟		    a		   ﹠  
		PERFORM PRINT-RTN
		MOVE KEIHI-BUMON TO WORK-BUMON
		MOVE "1st 	" TO PD-BUMON
	END-IF
        ﹟		b		﹠
	MOVE I TO HYOU
	PERFORM PRINT-RTN
	READ KEIHI-FILE AT END
		MOVE "END" TO END FILE
		PERFORM PRINT-RTN VARYING HYOU FROM 2 BY 1 UNTIL HYOU > 3

	END-READ
    END-PERFORM.
    CLOSE KEIHI-FILE KINSHU-FILE
    STOP RUN.
KINSHU-RTN
    MOVE KEIHI-GAKU TO GAKU.
    PERFORM VARYING CON FROM 1 BY 1 UNTIL CON > 9
	COMPUTE KIN(l CON) = GAKU / TBL-GAKU(CON)
	COMPUTE GAKU = GAKU - KIN(1 CON) * TBL-GAKU(CON)
        ﹟		c		﹠
    END-PERFORM.
PRINT-RTN.
    PERFORM VARYING CON FROM 1 BY 1 UNTIL CON > 9
	MOVE KIN ( HYOU CON ) TO PD-KINSHU (CON)
    END-PERFORM
        ﹟		d		﹠
      WHEN 1
	MOVE KEIHI-BANGOU TO PD-BANGOU
	IF PD-BUMON﹥"1ST	" THEN
		MOVE WORK-BUMON TO PD-BUMON
	ELSE
		MOVE SPACE TO PD-BUMON
      WHEN 2
	MOVE SPACE TO PD-BANGOU
	MOVE "皮乒件弗奶" TO PD-BUMON
	PERFORM VARYING CON FROM 1 BY 1 UNTIL CON > 9
		COMPUTE KIN(3 CON)=KIN(3 CON) + KIN(2 CON)
	END-PERFORM
        ﹟		e		﹠
      WHEN OTHER
	MOVE "末它弗奶" TO PD=BUMON
    END-EVALUATE
    WRITE KINSHU-REC FROM PRINT-D AFTER 2.

澀杽 皿伕弘仿丞醱及﹟        ﹠卞じ木月懇仄中蠶尹毛﹜荸蠶歇及醱井日薊矛﹝

a卞楮允月荸蠶歇					
  失 MOVE 1 TO CON	   奶 MOVE 1 TO HYOU
  它 MOVE 2 TO CON	   巨 MOVE 2 TO HYOU
  左 MOVE 3 TO CON	   市 MOVE 3 TO HYOU

b卞楮允月荸蠶歇					
  失 PERFORM KINSHU-RTN
  奶 PERFORM KINSHU-RTN THRU PRINT-RTN
  它 PERFORM KINSHU-RTN VARYING HYOU FROM 1 BY 1 UNTIL HYOU > 2
  巨 PERFORM KINSHU-RTN VARYING HYOU FROM 1 BY 1 UNTIL HYOU > 3
  左 PERFORM MAIN-RTN
  市 PERFORM PRINT-RTN

c卞楮允月荸蠶歇					
  失 COMPUTE KIN(l CON) = (1 CON) + KIN (2 CON)
  奶 COMPUTE KIN(2 CON) = (2 CON) + KIN (1 CON)
  它 COMPUTE KIN(3 CON) = (3 CON) + KIN (1 CON)
  巨 MOVE KIN (1 CON) TO (2 CON)
  左 MOVE KIN (1 CON) TO (3 CON)
  市 MOVE KIN (2 CON) TO (3 CON)

d卞楮允月荸蠶歇					
  失 EVALUTE CON
  奶 EVALUTE GAKU 
  它 EVALUTE HYOU
  巨 EVALUTE TBL-GAKU(CON)
  左 EVALUTE TBL-GAKU(HYOU)
  市 EVALUTE WORK-BUMON

e卞楮允月荸蠶歇					
  失 INITIALIZE KIN1		奶 INITIALIZE KIN2 (1)
  它 INITIALIZE KIN2 (2)	巨 INITIALIZE KIN2 (3)
  左 INITIALIZE PRINT-D		市 INITIALIZE WORK-BUMON
尪嶽ㄧコ蘸 蔗渝 鎔き潘 詬詨 杽8

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