.可変長レコードファイル 実行例
(例1) 可変帳ファイルを開く
(1) 元ファイル。 vfmt=RDW(省略値)
e fmvrdw /mh
ASCII Off.\src\xe\htmlwk\fmvrdw =b(24-08-04 15:49)-------------------- 0000(0000)0053
===> ===>HALF
****|*b*t**l*** TOP OF FILE *******Lig:OFF **********************************************
0000|▪▪▪▪A234567890123456| 00180000 41323334 35363738 39303132 33343536
0014|78-A▪"▪▪B23456789012| 37382d41 00220000 42323334 35363738 39303132
0028|3456789012345678-B▪▪| 33343536 37383930 31323334 35363738 2d42000e
003c|▪▪C2345678-C| 00004332 33343536 37382d43
****|*b*t**l*** END OF FILE *******Lig:OFF **********************************************
e fmvrdw;pro
CAP=OFF LRECL= 32760 TAB=4vrdw =b(24-08-04 15:49)-------------------- 0000(0000)0053
===> ===>HALF
colb|0.......+.......1.......+.......2.......+.......3.......+.......4.......+.......5...
****|*b*t**l*** TOP OF FILE *******Lig:OFF **********************************************
0000|▪▪▪▪A23456789012345678-A▪"▪▪B234567890123456789012345678-B▪▪▪▪C2345678-C|
|010043333333333333333324020043333333333333333333333333332400004333333324|
|0800123456789012345678d102002234567890123456789012345678d20e0032345678d3|
****|*b*t**l*** END OF FILE *******Lig:OFF **********************************************
(2) vfmt オプションを指定して開く
e fmvrdw /mv /frdw ;pro
CAP=OFF VFMT=RDW TAB=1k\fmvrdw =l(24-08-04 15:49)-------------------- 001-( 1)-084
===> ===>HALF
col |....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....
****|*l*v**l*** TOP OF FILE *******Lig:OFF **********************************************
0001|A23456789012345678-A↵
|43333333333333333324↵
|123456789012345678d1↵
0002|B234567890123456789012345678-B↵
|433333333333333333333333333324↵
|2234567890123456789012345678d2↵
0003|C2345678-C↵
|4333333324↵
|32345678d3↵
****|*l*v**l*** END OF FILE *******Lig:OFF **********************************************
(3) 行を修正して保存
EDIT---*G:\src\xe\htmlwk\fmvrdw =l(24-08-04 15:49)-------------------- 001-( 29)-084
===> ===>HALF
col |....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....
****|*l*v**l*** TOP OF FILE *******Lig:OFF **********************************************
0001*A23456789012345678-A EXP↵
*4333333333333333332422222455↵
*123456789012345678d100000580↵
0002|B234567890123456789012345678-B↵
|433333333333333333333333333324↵
|2234567890123456789012345678d2↵
0003|C2345678-C↵
|4333333324↵
|32345678d3↵
****|*l*v**l*** END OF FILE *******Lig:OFF **********************************************
(4) vfmt オプションをなしで開く
e fmvrdw
EDIT---|G:\src\xe\htmlwk\fmvrdw =l(24-08-04 15:53)-------------------- 001-( 1)-084
===> ===>HALF
col |....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....
****|*l*v**l*** TOP OF FILE *******Lig:OFF **********************************************
0001|A23456789012345678-A EXP↵
|4333333333333333332422222455↵
|123456789012345678d100000580↵
0002|B234567890123456789012345678-B↵
|433333333333333333333333333324↵
|2234567890123456789012345678d2↵
0003|C2345678-C↵
|4333333324↵
|32345678d3↵
****|*l*v**l*** END OF FILE *******Lig:OFF **********************************************
(5) RDW の 更新の確認
e fmvrdw /mh
ASCII Off.\src\xe\htmlwk\fmvrdw =b(24-08-04 15:53)-------------------- 0000(0000)0053
===> ===>HALF
colx|0.......+.......1... _00. . . _04. . . _08. . . _0C. . . _10. . . ↵
****|*b*t**l*** TOP OF FILE *******Lig:OFF **********************************************
0000|▪ ▪▪A234567890123456| 00200000 41323334 35363738 39303132 33343536
|02004333333333333333|
|00001234567890123456|
0014|78-A EXP▪"▪▪B234| 37382d41 20202020 20455850 00220000 42323334
|33242222245502004333|
|78d10000058002002234|
0028|56789012345678901234| 35363738 39303132 33343536 37383930 31323334
|33333333333333333333|
|56789012345678901234|
003c|5678-B▪▪▪▪C2345678-C| 35363738 2d42000e 00004332 33343536 37382d43
|33332400004333333324|
|5678d20e0032345678d3|
****|*b*t**l*** END OF FILE *******Lig:OFF **********************************************
(例2) レコード形式の変換
(1) 可変帳-->固定長
eh fmvrdw2
ASCII Off.\src\xe\htmlwk\fmvrdw2 =b(24-08-04 15:53)------------------ 0000(0000)0052=Ins
===> ===>HALF
colx|0.......+.......1... _00. . . _04. . . _08. . . _0C. . . _10. . . ↵
****|*b*t**l*** TOP OF FILE *******Lig:OFF *********************************************
0000|▪ ▪▪A234567890123456| 00200000 41323334 35363738 39303132 33343536
0014|78-A EXP▪"▪▪B234| 37382d41 20202020 20455850 00220000 42323334
0028|56789012345678901234| 35363738 39303132 33343536 37383930 31323334
003c|5678-B▪▪▪▪C2345678-C| 35363738 2d42000e 00004332 33343536 37382d43
****|*b*t**l*** END OF FILE *******Lig:OFF *********************************************
e fmvrdw2 /mv
EDIT---|G:\src\xe\htmlwk\fmvrdw2 =l(24-08-04 15:53)------------------ 001-( 1)-083=Ins
===> ===>HALF
col |....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8...
****|*l*v**l*** TOP OF FILE *******Lig:OFF *********************************************
0001|A23456789012345678-A EXP↵
0002|B234567890123456789012345678-B↵
0003|C2345678-C↵
****|*l*v**l*** END OF FILE *******Lig:OFF *********************************************
save fmvrdw2fr /f40 /mr
EDIT---|G:\src\xe\htmlwk\fmvrdw2 =l(24-08-04 15:53)------------------ 001-( 19)-083=Ins
===>save fmvrdw2fr /f40 /mr ===>HALF
col |....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8...
****|*l*v**l*** TOP OF FILE *******Lig:OFF *********************************************
0001|A23456789012345678-A EXP↵
0002|B234567890123456789012345678-B↵
0003|C2345678-C↵
****|*l*v**l*** END OF FILE *******Lig:OFF *********************************************
e fmvrdw2fr;pro
CAP=OFF P1 LRECL=R40 M40 TAB=12fr =L(24-08-04 19:46)---------------- 001-( 1)-083=Ins
===> ===>HALF
col |....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8...
****|*L*r**l*** TOP OF FILE *******Lig:OFF *********************************************
0001|A23456789012345678-A EXP |
0002|B234567890123456789012345678-B |
0003|C2345678-C |
****|*L*r**l*** END OF FILE *******Lig:OFF *********************************************
e fmvrdw2
save fmvrdw2fr20 /f20 /mr
EDIT---|G:\src\xe\htmlwk\fmvrdw2 =l(24-08-04 15:53)------------------ 001-( 1)-083=Ins
===>save fmvrdw2fr20 /f20 /mr ===>HALF
col |....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8...
****|*l*v**l*** TOP OF FILE *******Lig:OFF *********************************************
0001|A23456789012345678-A EXP↵
0002|B234567890123456789012345678-B↵
0003|C2345678-C↵
****|*l*v**l*** END OF FILE *******Lig:OFF *********************************************
e fmvrdw2fr20;pro
EDIT---|G:\src\xe\htmlwk\fmvrdw2fr20 =L(24-08-04 19:47)-------------- 001-( 1)-083=Ins
===> ===>HALF
col |....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8...
****|*L*r**l*** TOP OF FILE *******Lig:OFF *********************************************
0001|A23456789012345678-A|
0002| EXP |
0003|B2345678901234567890|
0004|12345678-B |
0005|C2345678-C |
****|*L*r**l*** END OF FILE *******Lig:OFF *********************************************
(2) 可変帳<--固定長
e fmvrdw2fr;pro
CAP=OFF P1 LRECL=R40 M40 TAB=12fr =L(24-08-04 19:46)---------------- 001-( 1)-083
===> ===>HALF
col |....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8...
****|*L*r**l*** TOP OF FILE *******Lig:OFF *********************************************
0001|A23456789012345678-A EXP |
0002|B234567890123456789012345678-B |
0003|C2345678-C |
****|*L*r**l*** END OF FILE *******Lig:OFF *********************************************
save fmvrdwfromfix /mv
EDIT---|G:\src\xe\htmlwk\fmvrdw2fr =L(24-08-04 19:46)---------------- 001-( 8)-083
===>save fmvrdwfromfix /mv ===>HALF
col |....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8...
****|*L*r**l*** TOP OF FILE *******Lig:OFF *********************************************
0001|A23456789012345678-A EXP |
0002|B234567890123456789012345678-B |
0003|C2345678-C |
****|*L*r**l*** END OF FILE *******Lig:OFF *********************************************
可変長レコード出力には -Fvfmt で レコード形式を指定する-------------- 001-( 1)-083
===>save fmvrdwfromfix /mv ===>HALF
col |....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8...
****|*L*r**l*** TOP OF FILE *******Lig:OFF *********************************************
0001|A23456789012345678-A EXP |
0002|B234567890123456789012345678-B |
0003|C2345678-C |
****|*L*r**l*** END OF FILE *******Lig:OFF *********************************************
save fmvrdwfromfix /mv /frdw
EDIT---|G:\src\xe\htmlwk\fmvrdw2fr =L(24-08-04 19:46)---------------- 001-( 1)-083
===>save fmvrdwfromfix /mv /frdw ===>HALF
col |....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8...
****|*L*r**l*** TOP OF FILE *******Lig:OFF *********************************************
0001|A23456789012345678-A EXP |
0002|B234567890123456789012345678-B |
0003|C2345678-C |
****|*L*r**l*** END OF FILE *******Lig:OFF *********************************************
G:\src\xe\htmlwk\fmvrdwfromfix を作成しました4 19:46)---------------- 001-( 28)-083
===> ===>HALF
col |....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8...
****|*L*r**l*** TOP OF FILE *******Lig:OFF *********************************************
0001|A23456789012345678-A EXP |
0002|B234567890123456789012345678-B |
0003|C2345678-C |
****|*L*r**l*** END OF FILE *******Lig:OFF *********************************************
e fmvrdwfromfix;pro
CAP=OFF VFMT=RDW TAB=1k\fmvrdwfromfix =L(24-08-04 20:05)------------ 001-( 1)-083
===> ===>HALF
col |....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8...
****|*L*v**l*** TOP OF FILE *******Lig:OFF *********************************************
0001|A23456789012345678-A EXP ↵
0002|B234567890123456789012345678-B ↵
0003|C2345678-C ↵
****|*L*v**l*** END OF FILE *******Lig:OFF *********************************************
(3) 可変帳-->PC ファイル
e fmvrdw2;pro
CAP=OFF VFMT=RDW TAB=1k\fmvrdw2 =l(24-08-04 15:53)------------------ 001-( 1)-083
===> ===>HALF
col |....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8...
****|*l*v**l*** TOP OF FILE *******Lig:OFF *********************************************
0001|A23456789012345678-A EXP↵
0002|B234567890123456789012345678-B↵
0003|C2345678-C↵
****|*l*v**l*** END OF FILE *******Lig:OFF *********************************************
save fmv2pcf /mp
EDIT---|G:\src\xe\htmlwk\fmvrdw2 =l(24-08-04 15:53)------------------ 001-( 1)-083
===>save fmv2pcf /mp ===>HALF
col |....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8...
****|*l*v**l*** TOP OF FILE *******Lig:OFF *********************************************
0001|A23456789012345678-A EXP↵
0002|B234567890123456789012345678-B↵
0003|C2345678-C↵
****|*l*v**l*** END OF FILE *******Lig:OFF *********************************************
G:\src\xe\htmlwk\fmv2pcf を作成しました08-04 15:53)------------------ 001-( 12)-083
===> ===>HALF
col |....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8...
****|*l*v**l*** TOP OF FILE *******Lig:OFF *********************************************
0001|A23456789012345678-A EXP↵
0002|B234567890123456789012345678-B↵
0003|C2345678-C↵
****|*l*v**l*** END OF FILE *******Lig:OFF *********************************************
e fmv2pcf;pro
CAP=OFF LRECL= 32760 TAB=4v2pcf =L(24-08-04 20:23)------------------ 001-( 1)-083
===> ===>HALF
****|*L*t**l*** TOP OF FILE *******Lig:OFF *********************************************
0001|A23456789012345678-A EXP↵
0002|B234567890123456789012345678-B↵
0003|C2345678-C↵
****|*L*t**l*** END OF FILE *******Lig:OFF *********************************************
eh fmv2pcf;pro
CAP=OFF LRECL= 32760 TAB=4v2pcf =b(24-08-04 20:23)------------------ 0000(0000)0052
===> ===>HALF
****|*b*t**l*** TOP OF FILE *******Lig:OFF *********************************************
0000|A23456789012345678-A| 41323334 35363738 39303132 33343536 37382d41
0014| EXP▪▪B234567890| 20202020 20455850 0d0a4232 33343536 37383930
0028|123456789012345678-B| 31323334 35363738 39303132 33343536 37382d42
003c|▪▪C2345678-C| 0d0a4332 33343536 37382d43
****|*b*t**l*** END OF FILE *******Lig:OFF *********************************************
(4) 可変帳<--PC ファイル
e fmv2pc;pro
CAP=OFF LRECL= 32760 TAB=4v2pc =L(24-08-04 20:23)------------------- 001-( 1)-083
===> ===>HALF
****|*L*t**l*** TOP OF FILE *******Lig:OFF *********************************************
0001|A23456789012345678-A EXP↵
0002|B234567890123456789012345678-B↵
0003|C2345678-C↵
****|*L*t**l*** END OF FILE *******Lig:OFF *********************************************
eh fmv2pc;pro
CAP=OFF LRECL= 32760 TAB=4v2pc =b(24-08-04 20:23)------------------- 0000(0000)0052
===> ===>HALF
****|*b*t**l*** TOP OF FILE *******Lig:OFF *********************************************
0000|A23456789012345678-A| 41323334 35363738 39303132 33343536 37382d41
0014| EXP▪▪B234567890| 20202020 20455850 0d0a4232 33343536 37383930
0028|123456789012345678-B| 31323334 35363738 39303132 33343536 37382d42
003c|▪▪C2345678-C| 0d0a4332 33343536 37382d43
****|*b*t**l*** END OF FILE *******Lig:OFF *********************************************
e fmv2pc /mpv
改行コードは可変長レコードモード指定により保存時には失われます------- 001-( 1)-083=Ins
===> ===>HALF
****|*L*pv*l*** TOP OF FILE *******Lig:OFF *********************************************
0001|A23456789012345678-A EXP↵
0002|B234567890123456789012345678-B↵
0003|C2345678-C↵
****|*L*pv*l*** END OF FILE *******Lig:OFF *********************************************
PF3
eh fmv2pc ;pro
CAP=OFF LRECL= 32760 TAB=4v2pc =b(24-08-04 21:54)------------------- 0000(0000)0052=Ins
===> ===>HALF
****|*b*t**l*** TOP OF FILE *******Lig:OFF *********************************************
0000|▪ ▪▪A234567890123456| 00200000 41323334 35363738 39303132 33343536
0014|78-A EXP▪"▪▪B234| 37382d41 20202020 20455850 00220000 42323334
0028|56789012345678901234| 35363738 39303132 33343536 37383930 31323334
003c|5678-B▪▪▪▪C2345678-C| 35363738 2d42000e 00004332 33343536 37382d43
****|*b*t**l*** END OF FILE *******Lig:OFF *********************************************
e fmv2pc ;pro
CAP=OFF VFMT=RDW TAB=1k\fmv2pc =L(24-08-04 21:54)------------------- 001-( 1)-083=Ins
===> ===>HALF
****|*L*v**l*** TOP OF FILE *******Lig:OFF *********************************************
0001|A23456789012345678-A EXP↵
0002|B234567890123456789012345678-B↵
0003|C2345678-C↵
****|*L*v**l*** END OF FILE *******Lig:OFF *********************************************
(5) vfmt 変換 /fRDW-->/fH
eh fmvrdw;pro
CAP=OFF LRECL= 32760 TAB=4vrdw =b(24-08-04 15:53)------------------- 0000(0000)0052
===> ===>HALF
colx|0.......+.......1... _00. . . _04. . . _08. . . _0C. . . _10. . . ↵
****|*b*t**l*** TOP OF FILE *******Lig:OFF *********************************************
0000|▪ ▪▪A234567890123456| 00200000 41323334 35363738 39303132 33343536
0014|78-A EXP▪"▪▪B234| 37382d41 20202020 20455850 00220000 42323334
0028|56789012345678901234| 35363738 39303132 33343536 37383930 31323334
003c|5678-B▪▪▪▪C2345678-C| 35363738 2d42000e 00004332 33343536 37382d43
****|*b*t**l*** END OF FILE *******Lig:OFF *********************************************
e fmvrdw;pro
CAP=OFF VFMT=RDW TAB=1k\fmvrdw =l(24-08-04 15:53)------------------- 001-( 1)-083
===> ===>HALF
col |....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8...
****|*l*v**l*** TOP OF FILE *******Lig:OFF *********************************************
0001|A23456789012345678-A EXP↵
0002|B234567890123456789012345678-B↵
0003|C2345678-C↵
****|*l*v**l*** END OF FILE *******Lig:OFF *********************************************
end /fh
-MV と -Fvfmt は両方指定する。w =l(24-08-04 15:53)------------------- 001-( 7)-083
===>end /fh ===>HALF
col |....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8...
****|*l*v**l*** TOP OF FILE *******Lig:OFF *********************************************
0001|A23456789012345678-A EXP↵
0002|B234567890123456789012345678-B↵
0003|C2345678-C↵
****|*l*v**l*** END OF FILE *******Lig:OFF *********************************************
end /fh /mv
EDIT---|G:\src\xe\htmlwk\fmvrdw =l(24-08-04 15:53)------------------- 001-( 1)-083
===>end /fh /mv ===>HALF
col |....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8...
****|*l*v**l*** TOP OF FILE *******Lig:OFF *********************************************
0001|A23456789012345678-A EXP↵
0002|B234567890123456789012345678-B↵
0003|C2345678-C↵
****|*l*v**l*** END OF FILE *******Lig:OFF *********************************************
G:\src\xe\htmlwk\fmvrdw 未更新ファイルを new V format で保存
eh fmvrdw;pro
CAP=OFF LRECL= 32760 TAB=4vrdw =b(24-08-04 20:48)------------------- 0000(0000)0052=Ins
===> ===>HALF
colx|0.......+.......1... _00. . . _04. . . _08. . . _0C. . . _10. . . ↵
****|*b*t**l*** TOP OF FILE *******Lig:OFF *********************************************
0000|▪▪A23456789012345678| 001e4132 33343536 37383930 31323334 35363738
0014|-A EXP▪ B2345678| 2d412020 20202045 58500020 42323334 35363738
0028|90123456789012345678| 39303132 33343536 37383930 31323334 35363738
003c|-B▪▪C2345678-C| 2d42000c 43323334 35363738 2d43
****|*b*t**l*** END OF FILE *******Lig:OFF *********************************************
e fmvrdw;pro
CAP=OFF VFMT=H TAB=1lwk\fmvrdw =L(24-08-04 20:48)------------------- 001-( 1)-083=Ins
===> ===>HALF
col |....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8...
****|*L*v**l*** TOP OF FILE *******Lig:OFF *********************************************
0001|A23456789012345678-A EXP↵
0002|B234567890123456789012345678-B↵
0003|C2345678-C↵
****|*L*v**l*** END OF FILE *******Lig:OFF *********************************************