af08.html


尪嶽ㄨコ蘸 調渝 鎔き潘 詬詨 杽8 
      ﹛﹛﹛﹛﹛﹛﹛﹛﹛﹛﹛﹛﹛﹛﹛﹛﹛﹛﹛﹛﹛﹛﹛﹛﹡凳蕙ざ＋1997.05.30

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

﹟皿伕弘仿丞及濩抸﹠
 犯□正毛﹍," 匹嗉濠勻凶CSV﹋Comma Separated Value﹌溥摯及白央奶伙毛厶心
慇氏匹﹞隙爛今木凶正皮匏譆卞寧歹六化執儂允月皿伕弘仿丞匹丐月﹝

﹋1﹌仇及CSV溥摯及白央奶伙CSV-FILE及伊戊□玉贏反80仃凶匹丐曰﹞備伊戊□玉
    卞反﹍,﹎匹嗉濠日木凶妐儂昫犯□正互傘ダ今木化中月﹝伊戊□玉〇芢及拺
    毛慼卞憎允﹝

        拺“CSV-FILE及伊戊□玉〇芢
見芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋角
芍105,玄它平亦它玄立瓜玄弁,斥亦它石它扑亦伉幼斥亙汁扑乓扑弗件本件正□,001001芍
谷芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋芋言
岡1. 1伊戊□玉卞傘ダ今木化中月妐儂昫犯□正及蜊醒反﹞1℅5蜊匹丐月﹝
岷2. 1伊戊□玉醱及﹍,﹎毛殖戈犯□正及贏今互80仃凶卞坢凶卅中樺寧﹞芴ヶ及仃
    凶卞反LOW-VALUE互傘ダ今木化中月﹝
岡3. 妐儂昫犯□正反﹞贏今互0℅80仃凶匹丐曰﹞﹍,﹎菴太LOW-VALUE毛殖引卅中﹝

﹋2﹌正皮匏譆﹋備妐儂昫犯□正及執儂釩銨仃凶及匏譆﹌及隙爛反﹞伓賞じ恘隸譆井日
    ACCEPT妐匹厶心慇戈﹝じ恘迋摯反﹞慼及午云曰匹丐月﹝




岡1. 隙爛匹五月正皮匏譆及醒反﹞1℅5蜊匹丐月﹝
  2. 正皮匏譆及襖反﹞﹍01﹎℅﹍99﹎匹丐曰﹞慼及橢瘀毛坢凶允﹝
        正皮匏譆1～正皮匏譆2～正皮匏譆3～正皮匏譆4～正皮匏譆5
岡3. 正皮匏譆及隙爛拺毛﹞慼卞憎允﹝
    拺“正皮匏譆及隙爛
      見芋豕芋豕芋豕芋豕芋豕芋角
      芍 3芍01芍08芍40芍  芍  芍
      谷芋赤芋赤芋赤芋赤芋赤芋言

﹋3﹌執儂反﹞慼及方丹卞墊丹﹝
岡1. CSV-FILE及備妐儂昫犯□正毛﹞隙爛今木凶正皮匏譆井日賜卞執儂允月﹝
岷2. 妐儂昫犯□正及蜊醒互﹞隙爛今木凶正皮匏譆及蜊醒方曰手聶中樺寧卞反﹞隙爛
   今木凶正皮匏譆及蜊醒坌分仃及妐儂昫犯□正毛執儂允月﹝拺尹壬﹞妐儂昫犯□正
   互5蜊丐月卞手井井歹日內正皮匏譆互3蜊仄井隙爛今木卅井勻凶樺寧卞反﹞5蜊
   及妐儂昫犯□正及丹切瘉賡及3蜊及犯□正分仃毛執儂允月﹝
岡3. 妐儂昫犯□正互﹞慼及正皮匏譆引匹卞じ曰五日卅中樺寧卞反﹞慼及正皮匏譆及
    1仃凶蟆引匹執儂允月﹝
岸4. 執儂匏譆互120仃凶毛譯尹化仄引丹樺寧卞反﹞120仃凶杴引匹執儂允月﹝
岩5. ﹋2﹌及3.及方丹卞正皮匏譆互隙爛今木凶午五及執儂拺毛﹞慼卞憎允﹝





﹟皿伕弘仿丞﹠
DATA DIVISION.
FILE SECTION.
FD CSV-FILE.
Ol CSV-REC.
03 C-KETA 	PIC X(1) OCCURS 80.
FD PRINT-FILE.
O1 PRINT-REC	PIC X(120).
WORKING-STORAGE SECTION.
O1 EOF-FLAG 	PIC X(1) VALUE SPACE.
O1 HENSYU-AREA.
03 H-KETA 	PIC X(1) OCCURS 120.
O1 TAB-SET.
03 TAB-CNT 	PIC 9(1).
03 TAB 		PIC 9(2) OCCURS 5.
O1 T-POS 	PIC 9(1).
O1 C-POS 	PIC 9(2).
O1 P-POS 	PIC 9(3).
PROCEDURE DIVISION. 
MAIN-RTN.
	ACCEPT TAB-SET.
	OPEN INPUT CSV-FILE OUTPUT PRINT-FILE.
	READ CSV-FILE AT END MOVE "E" TO EOF-FLAG.
	PERFORM UNTIL EOF-FLAG = "E"
		MOVE SPACE TO HENSYU-AREA
		MOVE 1 TO T-POS
		MOVE [   a   ] TO P-POS
		PERFORM VARYNG [   b   ] FROM 1 BY 1
			UNTIL C-POS > 80 OR
			      C-KETA (C-POS) = LOW-VALUE OR 
			      P-POS > 120
			IF C-KETA (C-POS) = [   c   ] THEN
			   COMPUTE T-POS = T-POS + 1
			   IF T-POS > TAB-CNT THEN
				MOVE 121 TO P-POS	
			   ELSE 
				MOVE TAB (T-POS) TO P-POS
			   END-IF 
			ELSE 
			   IF T-POS = TAB-CNT OR
				P-POS NOT = [   d   ] THEN
				MOVE C-KETA (C-POS) TO H-KETA (P-POS)
				COMPUTE P-POS = P-POS + 1
			   END-IF 
			END-IF
		END-PERFORM
		WRITE PRINT-REC FROM HENSYU-AREA AFTER 2
		READ CSV-FILE AT END MOVE "E" TO EOF-FLAG
		END-READ
	END-PERFORM.
	CLOSE CSV-FILE PRINT-FILE.
	STOP RUN.

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

荸蠶歇                              
 失 1	    		奶 120			它﹍,﹎
 巨 C-POS   		左 P-POS		市 P-POS + 1
 平 TAB﹋T-POS﹌   	弁 TAB﹋T-POS + 1﹌   	弗 TAB-CNT
 戊 T-POS + 1
枑月 ﹛
蟆岆“杽7 ﹛
慼岆“杽9
尪嶽ㄨコ蘸 調渝 鎔き潘 詬詨 杽8

尪嶽ㄨコ蘸調渝鎔き潘詬詨杽8
