.COBOLファイル 実行例
(例1) 編集コマンド
(1) 元ファイル
EDIT---|G:\src\xe\htmlwk\samp1.cob =L(24-07-30 21:25)--------------------- 001-( 1)-088=Ins
===> ===>HALF
col |....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+...
****|*L*t**l*** TOP OF FILE *******Lig:OFF **************************************************
0001| IDENTIFICATION DIVISION.↵
0002| PROGRAM-ID. SAMP1.↵
0003| * Example↵
0004| ENVIRONMENT DIVISION.↵
0005| DATA DIVISION.↵
0006| PROCEDURE DIVISION.↵
0007| DISPLAY "Hello World!"↵
0008| STOP RUN.↵
0009| END PROGRAM SAMP1.↵
****|*L*t**l*** END OF FILE *******Lig:OFF **************************************************
(2) cobファイルとして開く
ec samp1.cob ===>HALF
行番号付きファイルの行長エラー(!=80)L(24-07-30 21:25)--------------------- 001-( 1)-088=Ins
===> ===>HALF
col |....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+...
****|*L*t**l*** TOP OF FILE *******Lig:OFF **************************************************
0001| IDENTIFICATION DIVISION.↵
0002| PROGRAM-ID. SAMP1.↵
0003| * Example↵
0004| ENVIRONMENT DIVISION.↵
0005| DATA DIVISION.↵
0006| PROCEDURE DIVISION.↵
0007| DISPLAY "Hello World!"↵
0008| STOP RUN.↵
0009| END PROGRAM SAMP1.↵
****|*L*t**l*** END OF FILE *******Lig:OFF **************************************************
RENum
9 行更新。(COB欄のみ)mlwk\samp1.cob =L(24-07-30 21:25)--------------------- 007-( 7)-093=Ins
===> ===>HALF
col |...1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9...
*****|*L*t**l*** TOP OF FILE *******Lig:OFF *************************************************
00100* IDENTIFICATION DIVISION. ↵
00200* PROGRAM-ID. SAMP1. ↵
00300* * Example ↵
00400* ENVIRONMENT DIVISION. ↵
00500* DATA DIVISION. ↵
00600* PROCEDURE DIVISION. ↵
00700* DISPLAY "Hello World!" ↵
00800* STOP RUN. ↵
00900* END PROGRAM SAMP1. ↵
*****|*L*t**l*** END OF FILE *******Lig:OFF *************************************************
PF10(左シフト)
EDIT---*G:\src\xe\htmlwk\samp1.cob =L(24-07-30 21:25)--------------------- 001-( 1)-087=Ins
===> ===>HALF
col |....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+..
*****|*L*t**l*** TOP OF FILE *******Lig:OFF *************************************************
00100*000100 IDENTIFICATION DIVISION. ↵
00200*000200 PROGRAM-ID. SAMP1. ↵
00300*000300 * Example ↵
00400*000400 ENVIRONMENT DIVISION. ↵
00500*000500 DATA DIVISION. ↵
00600*000600 PROCEDURE DIVISION. ↵
00700*000700 DISPLAY "Hello World!" ↵
00800*000800 STOP RUN. ↵
00900*000900 END PROGRAM SAMP1. ↵
*****|*L*t**l*** END OF FILE *******Lig:OFF *************************************************
(3) spf-cobファイルとして開く
ecn samp1.cob ===>HALF
行番号付きファイルの行長エラー(!=80)L(24-07-30 21:25)--------------------- 001-( 1)-088=Ins
===> ===>HALF
col |....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+...
****|*L*t**l*** TOP OF FILE *******Lig:OFF **************************************************
0001| IDENTIFICATION DIVISION.↵
0002| PROGRAM-ID. SAMP1.↵
0003| * Example↵
0004| ENVIRONMENT DIVISION.↵
0005| DATA DIVISION.↵
0006| PROCEDURE DIVISION.↵
0007| DISPLAY "Hello World!"↵
0008| STOP RUN.↵
0009| END PROGRAM SAMP1.↵
****|*L*t**l*** END OF FILE *******Lig:OFF **************************************************
RENum
9 行更新。:\src\xe\htmlwk\samp1.cob =L(24-07-30 21:25)--------------------- 007-( 7)-093=Ins
===> ===>HALF
col |...1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9...
*****|*L*t**l*** TOP OF FILE *******Lig:OFF *************************************************
00100* IDENTIFICATION DIVISION. 00010000↵
00200* PROGRAM-ID. SAMP1. 00020000↵
00300* * Example 00030000↵
00400* ENVIRONMENT DIVISION. 00040000↵
00500* DATA DIVISION. 00050000↵
00600* PROCEDURE DIVISION. 00060000↵
00700* DISPLAY "Hello World!" 00070000↵
00800* STOP RUN. 00080000↵
00900* END PROGRAM SAMP1. 00090000↵
*****|*L*t**l*** END OF FILE *******Lig:OFF *************************************************
PF10(左シフト)
EDIT---*G:\src\xe\htmlwk\samp1.cob =L(24-07-30 21:25)--------------------- 001-( 1)-087=Ins
===> ===>HALF
col |....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+..
*****|*L*t**l*** TOP OF FILE *******Lig:OFF *************************************************
00100*000100 IDENTIFICATION DIVISION. 00010000↵
00200*000200 PROGRAM-ID. SAMP1. 00020000↵
00300*000300 * Example 00030000↵
00400*000400 ENVIRONMENT DIVISION. 00040000↵
00500*000500 DATA DIVISION. 00050000↵
00600*000600 PROCEDURE DIVISION. 00060000↵
00700*000700 DISPLAY "Hello World!" 00070000↵
00800*000800 STOP RUN. 00080000↵
00900*000900 END PROGRAM SAMP1. 00090000↵
*****|*L*t**l*** END OF FILE *******Lig:OFF *************************************************
(4) cobkファイルとして開く
ek samp1.cob ===>HALF
EDIT---|G:\src\xe\htmlwk\samp1.cob =L(24-07-30 21:25)--------------------- 007-( 7)-094=Ins
===> ===>HALF
col |...1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....
****|*L*t**l*** TOP OF FILE *******Lig:OFF **************************************************
0001| IDENTIFICATION DIVISION.↵
0002| PROGRAM-ID. SAMP1.↵
0003| * Example↵
0004| ENVIRONMENT DIVISION.↵
0005| DATA DIVISION.↵
0006| PROCEDURE DIVISION.↵
0007| DISPLAY "Hello World!"↵
0008| STOP RUN.↵
0009| END PROGRAM SAMP1.↵
****|*L*t**l*** END OF FILE *******Lig:OFF **************************************************
PF10(左シフト)
EDIT---|G:\src\xe\htmlwk\samp1.cob =L(24-07-30 21:25)--------------------- 001-( 1)-088=Ins
===> ===>HALF
col |....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+...
****|*L*t**l*** TOP OF FILE *******Lig:OFF **************************************************
0001| IDENTIFICATION DIVISION.↵
0002| PROGRAM-ID. SAMP1.↵
0003| * Example↵
0004| ENVIRONMENT DIVISION.↵
0005| DATA DIVISION.↵
0006| PROCEDURE DIVISION.↵
0007| DISPLAY "Hello World!"↵
0008| STOP RUN.↵
0009| END PROGRAM SAMP1.↵
****|*L*t**l*** END OF FILE *******Lig:OFF **************************************************
(5) spf-cobkファイルとして開く
ekn samp1.cob ===>HALF
行番号付きファイルの行長エラー(!=80)L(24-07-30 21:25)--------------------- 001-( 1)-088=Ins
===> ===>HALF
col |....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+...
****|*L*t**l*** TOP OF FILE *******Lig:OFF **************************************************
0001| IDENTIFICATION DIVISION.↵
0002| PROGRAM-ID. SAMP1.↵
0003| * Example↵
0004| ENVIRONMENT DIVISION.↵
0005| DATA DIVISION.↵
0006| PROCEDURE DIVISION.↵
0007| DISPLAY "Hello World!"↵
0008| STOP RUN.↵
0009| END PROGRAM SAMP1.↵
****|*L*t**l*** END OF FILE *******Lig:OFF **************************************************
RENum
9 行更新。:\src\xe\htmlwk\samp1.cob =L(24-07-30 21:25)--------------------- 007-( 7)-093=Ins
===> ===>HALF
col |...1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9...
*****|*L*t**l*** TOP OF FILE *******Lig:OFF *************************************************
00100* IDENTIFICATION DIVISION. 00010000↵
00200* PROGRAM-ID. SAMP1. 00020000↵
00300* * Example 00030000↵
00400* ENVIRONMENT DIVISION. 00040000↵
00500* DATA DIVISION. 00050000↵
00600* PROCEDURE DIVISION. 00060000↵
00700* DISPLAY "Hello World!" 00070000↵
00800* STOP RUN. 00080000↵
00900* END PROGRAM SAMP1. 00090000↵
*****|*L*t**l*** END OF FILE *******Lig:OFF *************************************************
PF10(左シフト)
EDIT---*G:\src\xe\htmlwk\samp1.cob =L(24-07-30 21:25)--------------------- 001-( 1)-087=Ins
===> ===>HALF
col |....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+..
*****|*L*t**l*** TOP OF FILE *******Lig:OFF *************************************************
00100* IDENTIFICATION DIVISION. 00010000↵
00200* PROGRAM-ID. SAMP1. 00020000↵
00300* * Example 00030000↵
00400* ENVIRONMENT DIVISION. 00040000↵
00500* DATA DIVISION. 00050000↵
00600* PROCEDURE DIVISION. 00060000↵
00700* DISPLAY "Hello World!" 00070000↵
00800* STOP RUN. 00080000↵
00900* END PROGRAM SAMP1. 00090000↵
*****|*L*t**l*** END OF FILE *******Lig:OFF *************************************************
(例2) ディレクリー全体をCOBOに設定する
(1) 事前確認、ディレクトリーを開く
s : 選択(Select)e\htmlwk =l(24-07-11 20:29)--------------------------------------------=Rep
===> ===>HALF
_0021|||||. cob9 A--- 01-09-18 20:00 656
_0022|||||. cob90 A--- 01-09-18 19:58 656
_0023|||||. cob9nocid A--- 24-07-31 20:54 574
_0024|||||. cobe3 A--- 01-07-22 10:59 656
_0025|||||. cobsamp2.cob A--- 24-07-04 20:07 5,210
_0026|||||. color A--- 24-07-30 16:50 63
_0027|||||. comsamp22.cob A--- 24-07-04 20:12 13,776
s0028|||||+ dircobol ---- 24-08-01 14:16 0
_0029|||||+ dirspf ---- 24-07-31 14:06 0
_0030|||||. HID00000028.COBOL.htm A--- 24-07-31 16:29 6,959
(2) 事前確認、ディレクトリーのプロファイルを確認
EDIT---|G:\src\xe\htmlwk\dircobol =l(24-08-01 14:16)-----------------------------------=Rep
===>pro ===>HALF
*****|*l****l*** TOP OF LIST *******Unicomb: COMB *****************************************
_0001|: G:\ x4000 15,912,016K/ 33,538,016K
_0002||: src ---- 24-06-28 12:28 0
_0003|||: xe ---- 24-07-08 19:25 0
_0004||||: htmlwk ---- 24-07-11 20:29 0
_0005|||||: dircobol ---- 24-08-01 14:16 244
_0006||||||. memb1.cob A--- 24-08-01 14:19 244
*****|*l****l*** END OF LIST *******Unicomb: COMB *****************************************
CAP=OFF TAB=0\xe\htmlwk\dircobol =l(24-08-01 14:16)-----------------------------------=Rep
===> ===>HALF
*****|*l****l*** TOP OF LIST *******Unicomb: COMB *****************************************
_0001|: G:\ x4000 15,912,016K/ 33,538,016K
_0002||: src ---- 24-06-28 12:28 0
_0003|||: xe ---- 24-07-08 19:25 0
_0004||||: htmlwk ---- 24-07-11 20:29 0
_0005|||||: dircobol ---- 24-08-01 14:16 244
_0006||||||. memb1.cob A--- 24-08-01 14:19 244
*****|*l****l*** END OF LIST *******Unicomb: COMB *****************************************
(3) 事前確認、メンバーのプロファイルを確認
s : 選択(Select)e\htmlwk\dircobol =l(24-08-01 14:16)-----------------------------------=Rep
===> ===>HALF
*****|*l****l*** TOP OF LIST *******Unicomb: COMB *****************************************
_0001|: G:\ x4000 15,912,016K/ 33,538,016K
_0002||: src ---- 24-06-28 12:28 0
_0003|||: xe ---- 24-07-08 19:25 0
_0004||||: htmlwk ---- 24-07-11 20:29 0
_0005|||||: dircobol ---- 24-08-01 14:16 244
s0006||||||. memb1.cob A--- 24-08-01 14:19 244
*****|*l****l*** END OF LIST *******Unicomb: COMB *****************************************
EDIT---|G:\src\xe\htmlwk\dircobol\memb1.cob =l(24-08-01 14:19)---------- 001-( 1)-086=Rep
===>pro ===>HALF
col |....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+.
****|*l*t**l*** TOP OF FILE *******Lig:OFF ************************************************
0001| IDENTIFICATION DIVISION.↵
0002| PROGRAM-ID. MEMB1.↵
0003| * Example↵
0004| ENVIRONMENT DIVISION.↵
0005| DATA DIVISION.↵
0006| PROCEDURE DIVISION.↵
0007| DISPLAY "Hello Wwwww!"↵
0008| STOP RUN.↵
0009| END PROGRAM MEMB1.↵
****|*l*t**l*** END OF FILE *******Lig:OFF ************************************************
CAP=OFF LRECL= 32760 TAB=4rcobol\memb1.cob =l(24-08-01 14:19)---------- 001-( 3)-086=Rep
===> ===>HALF
col |....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+.
****|*l*t**l*** TOP OF FILE *******Lig:OFF ************************************************
0001| IDENTIFICATION DIVISION.↵
0002| PROGRAM-ID. MEMB1.↵
0003| * Example↵
0004| ENVIRONMENT DIVISION.↵
0005| DATA DIVISION.↵
0006| PROCEDURE DIVISION.↵
0007| DISPLAY "Hello Wwwww!"↵
0008| STOP RUN.↵
0009| END PROGRAM MEMB1.↵
****|*l*t**l*** END OF FILE *******Lig:OFF ************************************************
(4) ディレクトリーを COBOL オプションで開く
EDIT---|G:\src\xe\htmlwk =l(24-07-11 20:29)--------------------------------------------=Rep
===>scn dircobol ===>HALF
_0021|||||. cob9 A--- 01-09-18 20:00 656
_0022|||||. cob90 A--- 01-09-18 19:58 656
_0023|||||. cob9nocid A--- 24-07-31 20:54 574
_0024|||||. cobe3 A--- 01-07-22 10:59 656
_0025|||||. cobsamp2.cob A--- 24-07-04 20:07 5,210
_0026|||||. color A--- 24-07-30 16:50 63
_0027|||||. comsamp22.cob A--- 24-07-04 20:12 13,776
_0028|||||+ dircobol ---- 24-08-01 14:16 0
_0029|||||+ dirspf ---- 24-07-31 14:06 0
_0030|||||. HID00000028.COBOL.htm A--- 24-07-31 16:29 6,959
_0031|||||. HID00000028.COBOL.org.htm A--- 20-05-16 10:57 3,429
EDIT---|G:\src\xe\htmlwk\dircobol =l(24-08-01 14:16)-----------------------------------=Rep
===>pro ===>HALF
*****|*l****l*** TOP OF LIST *******Unicomb: COMB *****************************************
_0001|: G:\ x4000 15,912,016K/ 33,538,016K
_0002||: src ---- 24-06-28 12:28 0
_0003|||: xe ---- 24-07-08 19:25 0
_0004||||: htmlwk ---- 24-07-11 20:29 0
_0005|||||: dircobol ---- 24-08-01 14:16 244
_0006||||||. memb1.cob A--- 24-08-01 14:19 244
*****|*l****l*** END OF LIST *******Unicomb: COMB *****************************************
CAP=OFF NUMSTD P0 NUMCOB=ON LRECL= 80 M72 TAB=0:16)-----------------------------------=Rep
===> ===>HALF
*****|*l****l*** TOP OF LIST *******Unicomb: COMB *****************************************
_0001|: G:\ x4000 15,912,016K/ 33,538,016K
_0002||: src ---- 24-06-28 12:28 0
_0003|||: xe ---- 24-07-08 19:25 0
_0004||||: htmlwk ---- 24-07-11 20:29 0
_0005|||||: dircobol ---- 24-08-01 14:16 244
_0006||||||. memb1.cob A--- 24-08-01 14:19 244
*****|*l****l*** END OF LIST *******Unicomb: COMB *****************************************
(5) メンバーのプロファイルを確認
s : 選択(Select)e\htmlwk\dircobol =l(24-08-01 14:16)-----------------------------------=Rep
===> ===>HALF
*****|*l****l*** TOP OF LIST *******Unicomb: COMB *****************************************
_0001|: G:\ x4000 15,912,016K/ 33,538,016K
_0002||: src ---- 24-06-28 12:28 0
_0003|||: xe ---- 24-07-08 19:25 0
_0004||||: htmlwk ---- 24-07-11 20:29 0
_0005|||||: dircobol ---- 24-08-01 14:16 244
s0006||||||. memb1.cob A--- 24-08-01 14:19 244
*****|*l****l*** END OF LIST *******Unicomb: COMB *****************************************
EDIT---|G:\src\xe\htmlwk\dircobol\memb1.cob =l(24-08-01 14:19)---------- 001-( 1)-086=Rep
===>pro ===>HALF
col |....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+.
****|*l*t**l*** TOP OF FILE *******Lig:OFF ************************************************
0001| IDENTIFICATION DIVISION.↵
0002| PROGRAM-ID. MEMB1.↵
0003| * Example↵
0004| ENVIRONMENT DIVISION.↵
0005| DATA DIVISION.↵
0006| PROCEDURE DIVISION.↵
0007| DISPLAY "Hello Wwwww!"↵
0008| STOP RUN.↵
0009| END PROGRAM MEMB1.↵
****|*l*t**l*** END OF FILE *******Lig:OFF ************************************************
CAP=OFF LRECL= 32760 TAB=4rcobol\memb1.cob =l(24-08-01 14:19)---------- 001-( 3)-086=Rep
===> ===>HALF
col |....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+.
****|*l*t**l*** TOP OF FILE *******Lig:OFF ************************************************
0001| IDENTIFICATION DIVISION.↵
0002| PROGRAM-ID. MEMB1.↵
0003| * Example↵
0004| ENVIRONMENT DIVISION.↵
0005| DATA DIVISION.↵
0006| PROCEDURE DIVISION.↵
0007| DISPLAY "Hello Wwwww!"↵
0008| STOP RUN.↵
0009| END PROGRAM MEMB1.↵
****|*l*t**l*** END OF FILE *******Lig:OFF ************************************************
(5) ディレクトリーの プロファイルは SAVE しないとメンバーには有効とならないので
ディレクトリー画面で "pro save" する。
EDIT---|G:\src\xe\htmlwk\dircobol =l(24-08-01 14:16)-----------------------------------=Rep
===>pro ===>HALF
*****|*l****l*** TOP OF LIST *******Unicomb: COMB *****************************************
_0001|: G:\ x4000 15,912,016K/ 33,538,016K
_0002||: src ---- 24-06-28 12:28 0
_0003|||: xe ---- 24-07-08 19:25 0
_0004||||: htmlwk ---- 24-07-11 20:29 0
_0005|||||: dircobol ---- 24-08-01 14:16 244
_0006||||||. memb1.cob A--- 24-08-01 14:19 244
*****|*l****l*** END OF LIST *******Unicomb: COMB *****************************************
CAP=OFF NUMSTD P0 NUMCOB=ON LRECL= 80 M72 TAB=0:16)-----------------------------------=Rep
===> ===>HALF
*****|*l****l*** TOP OF LIST *******Unicomb: COMB *****************************************
_0001|: G:\ x4000 15,912,016K/ 33,538,016K
_0002||: src ---- 24-06-28 12:28 0
_0003|||: xe ---- 24-07-08 19:25 0
_0004||||: htmlwk ---- 24-07-11 20:29 0
_0005|||||: dircobol ---- 24-08-01 14:16 244
_0006||||||. memb1.cob A--- 24-08-01 14:19 244
*****|*l****l*** END OF LIST *******Unicomb: COMB *****************************************
EDIT---|G:\src\xe\htmlwk\dircobol =l(24-08-01 14:16)-----------------------------------=Rep
===>pro save ===>HALF
*****|*l****l*** TOP OF LIST *******Unicomb: COMB *****************************************
_0001|: G:\ x4000 15,912,016K/ 33,538,016K
_0002||: src ---- 24-06-28 12:28 0
_0003|||: xe ---- 24-07-08 19:25 0
_0004||||: htmlwk ---- 24-07-11 20:29 0
_0005|||||: dircobol ---- 24-08-01 14:16 244
_0006||||||. memb1.cob A--- 24-08-01 14:19 244
*****|*l****l*** END OF LIST *******Unicomb: COMB *****************************************
ProfileRecordType:* was savedobol =l(24-08-01 14:16)-----------------------------------=Rep
===> ===>HALF
*****|*l****l*** TOP OF LIST *******Unicomb: COMB *****************************************
_0001|: G:\ x4000 15,912,016K/ 33,538,016K
_0002||: src ---- 24-06-28 12:28 0
_0003|||: xe ---- 24-07-08 19:25 0
_0004||||: htmlwk ---- 24-07-11 20:29 0
_0005|||||: dircobol ---- 24-08-01 14:16 244
_0006||||||. memb1.cob A--- 24-08-01 14:19 244
*****|*l****l*** END OF LIST *******Unicomb: COMB *****************************************
(6) "pro save" した後メンバーをCOBOLオプション無しで開く
s : 選択(Select)e\htmlwk\dircobol =l(24-08-01 14:16)-----------------------------------=Rep
===> ===>HALF
*****|*l****l*** TOP OF LIST *******Unicomb: COMB *****************************************
_0001|: G:\ x4000 15,912,016K/ 33,538,016K
_0002||: src ---- 24-06-28 12:28 0
_0003|||: xe ---- 24-07-08 19:25 0
_0004||||: htmlwk ---- 24-07-11 20:29 0
_0005|||||: dircobol ---- 24-08-01 14:16 244
s0006||||||. memb1.cob A--- 24-08-01 14:19 244
*****|*l****l*** END OF LIST *******Unicomb: COMB *****************************************
行番号付きファイルの行長エラー(!=80)mb1.cob =l(24-08-01 14:19)---------- 001-( 1)-086=Rep
===> ===>HALF
col |....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+.
****|*l*t**l*** TOP OF FILE *******Lig:OFF ************************************************
0001| IDENTIFICATION DIVISION.↵
0002| PROGRAM-ID. MEMB1.↵
0003| * Example↵
0004| ENVIRONMENT DIVISION.↵
0005| DATA DIVISION.↵
0006| PROCEDURE DIVISION.↵
0007| DISPLAY "Hello Wwwww!"↵
0008| STOP RUN.↵
0009| END PROGRAM MEMB1.↵
****|*l*t**l*** END OF FILE *******Lig:OFF ************************************************
(7) RENum コマンドで整形する
EDIT---|G:\src\xe\htmlwk\dircobol\memb1.cob =l(24-08-01 14:19)---------- 001-( 1)-086=Rep
===>ren f ===>HALF
col |....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+.
****|*l*t**l*** TOP OF FILE *******Lig:OFF ************************************************
0001| IDENTIFICATION DIVISION.↵
0002| PROGRAM-ID. MEMB1.↵
0003| * Example↵
0004| ENVIRONMENT DIVISION.↵
0005| DATA DIVISION.↵
0006| PROCEDURE DIVISION.↵
0007| DISPLAY "Hello Wwwww!"↵
0008| STOP RUN.↵
0009| END PROGRAM MEMB1.↵
****|*l*t**l*** END OF FILE *******Lig:OFF ************************************************
9 行更新。:\src\xe\htmlwk\dircobol\memb1.cob =l(24-08-01 14:19)---------- 007-( 7)-091=Rep
===> ===>HALF
col |...1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9.
*****|*l*t**l*** TOP OF FILE *******Lig:OFF ***********************************************
00100* IDENTIFICATION DIVISION. 00010000↵
00200* PROGRAM-ID. MEMB1. 00020000↵
00300* * Example 00030000↵
00400* ENVIRONMENT DIVISION. 00040000↵
00500* DATA DIVISION. 00050000↵
00600* PROCEDURE DIVISION. 00060000↵
00700* DISPLAY "Hello Wwwww!" 00070000↵
00800* STOP RUN. 00080000↵
00900* END PROGRAM MEMB1. 00090000↵
*****|*l*t**l*** END OF FILE *******Lig:OFF ***********************************************
EDIT---*G:\src\xe\htmlwk\dircobol\memb1.cob =l(24-08-01 14:19)---------- 007-( 7)-091=Rep
===>pro ===>HALF
col |...1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9.
*****|*l*t**l*** TOP OF FILE *******Lig:OFF ***********************************************
00100* IDENTIFICATION DIVISION. 00010000↵
00200* PROGRAM-ID. MEMB1. 00020000↵
00300* * Example 00030000↵
00400* ENVIRONMENT DIVISION. 00040000↵
00500* DATA DIVISION. 00050000↵
00600* PROCEDURE DIVISION. 00060000↵
00700* DISPLAY "Hello Wwwww!" 00070000↵
00800* STOP RUN. 00080000↵
00900* END PROGRAM MEMB1. 00090000↵
*****|*l*t**l*** END OF FILE *******Lig:OFF ***********************************************
CAP=OFF NUMSTD P0 NUMCOB=ON LRECL= 80 M72 TAB=44-08-01 14:19)---------- 007-( 8)-091=Rep
===> ===>HALF
col |...1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9.
*****|*l*t**l*** TOP OF FILE *******Lig:OFF ***********************************************
00100* IDENTIFICATION DIVISION. 00010000↵
00200* PROGRAM-ID. MEMB1. 00020000↵
00300* * Example 00030000↵
00400* ENVIRONMENT DIVISION. 00040000↵
00500* DATA DIVISION. 00050000↵
00600* PROCEDURE DIVISION. 00060000↵
00700* DISPLAY "Hello Wwwww!" 00070000↵
00800* STOP RUN. 00080000↵
00900* END PROGRAM MEMB1. 00090000↵
*****|*l*t**l*** END OF FILE *******Lig:OFF ***********************************************
(例3) CIDヘッダーによる設定 (コンパイラーが1行目にコメント行を置くことを許す場合)
(1) spf-cobol の場合
(1-1) CIDヘッダー行の設定 option: "n" + "cob"
EDIT---*G:\src\xe\htmlwk\samp2.cob =l(24-08-01 20:06)------------------ 001-( 7)-085=Ins
===> ===>HALF
col |....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+
****|*l*t**l*** TOP OF FILE *******Lig:OFF ***********************************************
0000* *CID:*>+v101R~:option=(m72,n,cob,p0,tabclear) update#= 14;↵
0001| IDENTIFICATION DIVISION.↵
0002| PROGRAM-ID. SAMP2.↵
0003| * Example↵
0004| ENVIRONMENT DIVISION.↵
0005| DATA DIVISION.↵
0006| PROCEDURE DIVISION.↵
0007| DISPLAY "Hello World!"↵
0008| STOP RUN.↵
0009| END PROGRAM SAMP2.↵
****|*l*t**l*** END OF FILE *******Lig:OFF ***********************************************
(1-2) ファイルを開く
e samp2.cob
行番号付きファイルの行長エラー(!=80)l(24-08-01 20:32)------------------ 001-( 1)-085=Ins
===> ===>HALF
col |....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+
****|*l*t**l*** TOP OF FILE *******Lig:OFF ***********************************************
0001| *CID:*>+v101R~:option=(m72,n,cob,p0,tabclear) update#= 14;↵
0002| IDENTIFICATION DIVISION.↵
0003| PROGRAM-ID. SAMP2.↵
0004| * Example↵
0005| ENVIRONMENT DIVISION.↵
0006| DATA DIVISION.↵
0007| PROCEDURE DIVISION.↵
0008| DISPLAY "Hello World!"↵
0009| STOP RUN.↵
0010| END PROGRAM SAMP2.↵
****|*l*t**l*** END OF FILE *******Lig:OFF ***********************************************
(1-3) REN コマンドで整形する
EDIT---|G:\src\xe\htmlwk\samp2.cob =l(24-08-01 20:32)------------------ 001-( 1)-085=Ins
===>ren f ===>HALF
col |....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+
****|*l*t**l*** TOP OF FILE *******Lig:OFF ***********************************************
0001| *CID:*>+v101R~:option=(m72,n,cob,p0,tabclear) update#= 14;↵
0002| IDENTIFICATION DIVISION.↵
0003| PROGRAM-ID. SAMP2.↵
0004| * Example↵
0005| ENVIRONMENT DIVISION.↵
0006| DATA DIVISION.↵
0007| PROCEDURE DIVISION.↵
0008| DISPLAY "Hello World!"↵
0009| STOP RUN.↵
0010| END PROGRAM SAMP2.↵
****|*l*t**l*** END OF FILE *******Lig:OFF ***********************************************
10 行更新。\src\xe\htmlwk\samp2.cob =l(24-08-01 20:32)------------------ 007-( 7)-090=Ins
===> ===>HALF
col |...1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9
*****|*l*t**l*** TOP OF FILE *******Lig:OFF **********************************************
00100**CID:*>+v101R~:option=(m72,n,cob,p0,tabclear) update#= 14; 00010000↵
00200* IDENTIFICATION DIVISION. 00020000↵
00300* PROGRAM-ID. SAMP2. 00030000↵
00400** Example 00040000↵
00500* ENVIRONMENT DIVISION. 00050000↵
00600* DATA DIVISION. 00060000↵
00700* PROCEDURE DIVISION. 00070000↵
00800* DISPLAY "Hello World!" 00080000↵
00900* STOP RUN. 00090000↵
01000* END PROGRAM SAMP2. 00100000↵
*****|*l*t**l*** END OF FILE *******Lig:OFF **********************************************
(1-4) SPF 行番号がセットされた。PF10 で COBOL 行番号欄も確認
EDIT---*G:\src\xe\htmlwk\samp2.cob =l(24-08-01 20:32)------------------ 001-( 1)-084=Ins
===> ===>HALF
col |....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....
*****|*l*t**l*** TOP OF FILE *******Lig:OFF **********************************************
00100*000100*CID:*>+v101R~:option=(m72,n,cob,p0,tabclear) update#= 14; 00010000↵
00200*000200 IDENTIFICATION DIVISION. 00020000↵
00300*000300 PROGRAM-ID. SAMP2. 00030000↵
00400*000400* Example 00040000↵
00500*000500 ENVIRONMENT DIVISION. 00050000↵
00600*000600 DATA DIVISION. 00060000↵
00700*000700 PROCEDURE DIVISION. 00070000↵
00800*000800 DISPLAY "Hello World!" 00080000↵
00900*000900 STOP RUN. 00090000↵
01000*001000 END PROGRAM SAMP2. 00100000↵
*****|*l*t**l*** END OF FILE *******Lig:OFF **********************************************
(1-5) 初期設定なので行番号欄変更による 全行に CID が設定されるの避けるために "CID off" コマンドを使用する。
EDIT---*G:\src\xe\htmlwk\samp2.cob =l(24-08-01 20:32)------------------ 007-( 7)-090=Ins
===>cid off ===>HALF
col |...1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9
*****|*l*t**l*** TOP OF FILE *******Lig:OFF **********************************************
00100**CID:*>+v101R~:option=(m72,n,cob,p0,tabclear) update#= 14; 00010000↵
00200* IDENTIFICATION DIVISION. 00020000↵
00300* PROGRAM-ID. SAMP2. 00030000↵
00400** Example 00040000↵
00500* ENVIRONMENT DIVISION. 00050000↵
00600* DATA DIVISION. 00060000↵
00700* PROCEDURE DIVISION. 00070000↵
00800* DISPLAY "Hello World!" 00080000↵
00900* STOP RUN. 00090000↵
01000* END PROGRAM SAMP2. 00100000↵
*****|*l*t**l*** END OF FILE *******Lig:OFF **********************************************
このファイルの保存時,変更行に CID はセットされません)------------------ 007-( 12)-090=Ins
===> ===>HALF
col |...1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9
*****|*l*t**l*** TOP OF FILE *******Lig:OFF **********************************************
00100**CID:*>+v101R~:option=(m72,n,cob,p0,tabclear) update#= 14; 00010000↵
00200* IDENTIFICATION DIVISION. 00020000↵
00300* PROGRAM-ID. SAMP2. 00030000↵
00400** Example 00040000↵
00500* ENVIRONMENT DIVISION. 00050000↵
00600* DATA DIVISION. 00060000↵
00700* PROCEDURE DIVISION. 00070000↵
00800* DISPLAY "Hello World!" 00080000↵
00900* STOP RUN. 00090000↵
01000* END PROGRAM SAMP2. 00100000↵
*****|*l*t**l*** END OF FILE *******Lig:OFF **********************************************
(1-6) フィルを更新するために保存し再度ファイルを開く。
e samp2.cob
EDIT---|G:\src\xe\htmlwk\samp2.cob =l(24-08-01 20:33)------------------ 007-( 7)-090=Ins
===> ===>HALF
col |...1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9
*****|*l*t**l*** TOP OF FILE *******Lig:OFF **********************************************
00100|*CID:*>+v101R~:option=(m72,n,cob,p0,tabclear) update#= 15; 00010001↵
00200| IDENTIFICATION DIVISION. 00020001↵
00300| PROGRAM-ID. SAMP2. 00030001↵
00400|* Example 00040001↵
00500| ENVIRONMENT DIVISION. 00050001↵
00600| DATA DIVISION. 00060001↵
00700| PROCEDURE DIVISION. 00070001↵
00800| DISPLAY "Hello World!" 00080001↵
00900| STOP RUN. 00090001↵
01000| END PROGRAM SAMP2. 00100001↵
*****|*l*t**l*** END OF FILE *******Lig:OFF **********************************************
(1-7) "cid off"の効果で CID は設定されていない。
行の更新処理を確認するために1行挿入する
EDIT---*G:\src\xe\htmlwk\samp2.cob =l(24-08-01 20:33)------------------ 007-( 15)-090=Ins
===> ===>HALF
col |...1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9
*****|*l*t**l*** TOP OF FILE *******Lig:OFF **********************************************
00100|*CID:*>+v101R~:option=(m72,n,cob,p0,tabclear) update#= 15; 00010001↵
00200| IDENTIFICATION DIVISION. 00020001↵
00300| PROGRAM-ID. SAMP2. 00030001↵
00400|* Example 00040001↵
00500| ENVIRONMENT DIVISION. 00050001↵
00600| DATA DIVISION. 00060001↵
00700| PROCEDURE DIVISION. 00070001↵
00710**cmt add↵
00800| DISPLAY "Hello World!" 00080001↵
00900| STOP RUN. 00090001↵
01000| END PROGRAM SAMP2. 00100001↵
*****|*l*t**l*** END OF FILE *******Lig:OFF **********************************************
(1-8) ファイルを保存し更新状況を確認するために再度開く
e samp2.cob
EDIT---|G:\src\xe\htmlwk\samp2.cob =l(24-08-01 20:34)------------------ 007-( 7)-090=Ins
===> ===>HALF
col |...1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9
*****|*l*t**l*** TOP OF FILE *******Lig:OFF **********************************************
00100|*CID:*>+v101R~:option=(m72,n,cob,p0,tabclear) update#= 16; 00010001↵
00200| IDENTIFICATION DIVISION. 00020001↵
00300| PROGRAM-ID. SAMP2. 00030001↵
00400|* Example 00040001↵
00500| ENVIRONMENT DIVISION. 00050001↵
00600| DATA DIVISION. 00060001↵
00700| PROCEDURE DIVISION. 00070001↵
00710|*cmt add *>+v101I~ 00071002↵
00800| DISPLAY "Hello World!" 00080001↵
00900| STOP RUN. 00090001↵
01000| END PROGRAM SAMP2. 00100001↵
*****|*l*t**l*** END OF FILE *******Lig:OFF **********************************************
(1-9) 行番号が自動採番され CID がセットされている
CID の位置はCIDヘッダーでは指定されていないので省略値で左マージンの右端
PF10 で COBOL行番号も確認
EDIT---|G:\src\xe\htmlwk\samp2.cob =l(24-08-01 20:34)------------------ 001-( 1)-084=Ins
===> ===>HALF
col |....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....
*****|*l*t**l*** TOP OF FILE *******Lig:OFF **********************************************
00100|000100*CID:*>+v101R~:option=(m72,n,cob,p0,tabclear) update#= 16; 00010001↵
00200|000200 IDENTIFICATION DIVISION. 00020001↵
00300|000300 PROGRAM-ID. SAMP2. 00030001↵
00400|000400* Example 00040001↵
00500|000500 ENVIRONMENT DIVISION. 00050001↵
00600|000600 DATA DIVISION. 00060001↵
00700|000700 PROCEDURE DIVISION. 00070001↵
00710|000710*cmt add *>+v101I~ 00071002↵
00800|000800 DISPLAY "Hello World!" 00080001↵
00900|000900 STOP RUN. 00090001↵
01000|001000 END PROGRAM SAMP2. 00100001↵
*****|*l*t**l*** END OF FILE *******Lig:OFF **********************************************
(2) cobol の場合
CIDヘッダー行の設定 option: "cob"
EDIT---|G:\src\xe\htmlwk\samp3.cob =l(24-08-02 14:39)------------------- 007-( 7)-091
===> ===>HALF
col |...1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9.
*****|*l*t**l*** TOP OF FILE *******Lig:OFF ***********************************************
00100|*CID:*>+DATER~:option=(m72,cob,p0,tabclear) update#= 18; ↵
00200| IDENTIFICATION DIVISION. ↵
00300| PROGRAM-ID. SAMP3. ↵
00400|* Example ↵
00500| ENVIRONMENT DIVISION. ↵
00600| DATA DIVISION. ↵
00700| PROCEDURE DIVISION. ↵
00710|* cmt add *>+4802I~ ↵
00800| DISPLAY "Hello World!" ↵
00900| STOP RUN. ↵
01000| END PROGRAM SAMP3. ↵
*****|*l*t**l*** END OF FILE *******Lig:OFF ***********************************************
EDIT---|G:\src\xe\htmlwk\samp3.cob =l(24-08-02 14:39)------------------- 001-( 1)-085
===> ===>HALF
col |....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+
*****|*l*t**l*** TOP OF FILE *******Lig:OFF ***********************************************
00100|000100*CID:*>+DATER~:option=(m72,cob,p0,tabclear) update#= 18; ↵
00200|000200 IDENTIFICATION DIVISION. ↵
00300|000300 PROGRAM-ID. SAMP3. ↵
00400|000400* Example ↵
00500|000500 ENVIRONMENT DIVISION. ↵
00600|000600 DATA DIVISION. ↵
00700|000700 PROCEDURE DIVISION. ↵
00710|000710* cmt add *>+4802I~ ↵
00800|000800 DISPLAY "Hello World!" ↵
00900|000900 STOP RUN. ↵
01000|001000 END PROGRAM SAMP3. ↵
*****|*l*t**l*** END OF FILE *******Lig:OFF ***********************************************
(3) cobol で CID を カラム73-80 にセットする場合
CID ヘッダー行で CIDの位置=73 とする
EDIT---|G:\src\xe\htmlwk\samp4.cob =l(24-08-02 14:52)------------------- 007-( 7)-091
===> ===>HALF
col |...1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9.
*****|*l*t**l*** TOP OF FILE *******Lig:OFF ***********************************************
00100**CID:*>+DATER:#73 option=(m72,cob,p0,tabclear) update#= 17; *>+4802R↵
00200* IDENTIFICATION DIVISION. ↵
00300* PROGRAM-ID. SAMP4. *>+4802R↵
00400** Example ↵
00500* ENVIRONMENT DIVISION. ↵
00600* DATA DIVISION. ↵
00700* PROCEDURE DIVISION. ↵
00800* DISPLAY "Hello World!" ↵
00900* STOP RUN. ↵
01000* END PROGRAM SAMP4. *>+4802R↵
*****|*l*t**l*** END OF FILE *******Lig:OFF ***********************************************
EDIT---*G:\src\xe\htmlwk\samp4.cob =l(24-08-02 14:52)------------------- 001-( 1)-085
===> ===>HALF
col |....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+
*****|*l*t**l*** TOP OF FILE *******Lig:OFF ***********************************************
00100*000100*CID:*>+DATER:#73 option=(m72,cob,p0,tabclear) update#= 17; *>+4802R↵
00200*000200 IDENTIFICATION DIVISION. ↵
00300*000300 PROGRAM-ID. SAMP4. *>+4802R↵
00400*000400* Example ↵
00500*000500 ENVIRONMENT DIVISION. ↵
00600*000600 DATA DIVISION. ↵
00700*000700 PROCEDURE DIVISION. ↵
00800*000800 DISPLAY "Hello World!" ↵
00900*000900 STOP RUN. ↵
01000*001000 END PROGRAM SAMP4. *>+4802R↵
*****|*l*t**l*** END OF FILE *******Lig:OFF ***********************************************
(4) spf-cobk の場合
CIDヘッダー行の設定 option: "n" + "cobk"
EDIT---|G:\src\xe\htmlwk\samp5.cob =l(24-08-02 15:23)------------------- 007-( 7)-091=Ins
===> ===>HALF
col |...1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9.
*****|*l*t**l*** TOP OF FILE *******Lig:OFF ***********************************************
00100|*CID:*>+DATER~:option=(cobk,n,p0,tabclear) update#= 21; 00010001↵
00200| IDENTIFICATION DIVISION. 00020001↵
00300| PROGRAM-ID. SAMP3. 00030001↵
00400|* Example 00040001↵
00500| ENVIRONMENT DIVISION. 00050001↵
00600| DATA DIVISION. 00060001↵
00700| PROCEDURE DIVISION. 00070001↵
00710|* cmt add *>+4802I~ 00071002↵
00800| DISPLAY "Hello World!" 00080001↵
00900| STOP RUN. 00090001↵
01000| END PROGRAM SAMP3. 00100001↵
*****|*l*t**l*** END OF FILE *******Lig:OFF ***********************************************
EDIT---|G:\src\xe\htmlwk\samp5.cob =l(24-08-02 15:23)------------------- 001-( 1)-085=Ins
===> ===>HALF
col |....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+
*****|*l*t**l*** TOP OF FILE *******Lig:OFF ***********************************************
00100| *CID:*>+DATER~:option=(cobk,n,p0,tabclear) update#= 21; 00010001↵
00200| IDENTIFICATION DIVISION. 00020001↵
00300| PROGRAM-ID. SAMP3. 00030001↵
00400| * Example 00040001↵
00500| ENVIRONMENT DIVISION. 00050001↵
00600| DATA DIVISION. 00060001↵
00700| PROCEDURE DIVISION. 00070001↵
00710| * cmt add *>+4802I~ 00071002↵
00800| DISPLAY "Hello World!" 00080001↵
00900| STOP RUN. 00090001↵
01000| END PROGRAM SAMP3. 00100001↵
*****|*l*t**l*** END OF FILE *******Lig:OFF ***********************************************
(4) cobk の場合
CIDヘッダー行の設定 option: "cobk"
行長は自由、RENコマンドは無効
EDIT---|G:\src\xe\htmlwk\samp6.cob =l(24-08-02 15:59)------------------- 007-( 7)-092
===> ===>HALF
col |...1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9..
****|*l*t**l*** TOP OF FILE *******Lig:OFF ************************************************
0001|*CID:*>+DATER~:#63 option=(m72,cobk,p0,tabclear) update#= 27; ↵
0002| IDENTIFICATION DIVISION.↵
0003| PROGRAM-ID. SAMP6.↵
0004|* Example↵
0005| ENVIRONMENT DIVISION.↵
0006| DATA DIVISION.↵
0007| PROCEDURE DIVISION.↵
0008|*cmt add *>+4802I~↵
0009| DISPLAY "Hello World!"↵
0010| STOP RUN.↵
0011| END PROGRAM SAMP6. ↵
****|*l*t**l*** END OF FILE *******Lig:OFF ************************************************
EDIT---|G:\src\xe\htmlwk\samp6.cob =l(24-08-02 15:59)------------------- 001-( 1)-086
===> ===>HALF
col |....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+.
****|*l*t**l*** TOP OF FILE *******Lig:OFF ************************************************
0001| *CID:*>+DATER~:#63 option=(m72,cobk,p0,tabclear) update#= 27; ↵
0002| IDENTIFICATION DIVISION.↵
0003| PROGRAM-ID. SAMP6.↵
0004| * Example↵
0005| ENVIRONMENT DIVISION.↵
0006| DATA DIVISION.↵
0007| PROCEDURE DIVISION.↵
0008| *cmt add *>+4802I~↵
0009| DISPLAY "Hello World!"↵
0010| STOP RUN.↵
0011| END PROGRAM SAMP6. ↵
****|*l*t**l*** END OF FILE *******Lig:OFF ************************************************
(例4) 行コマンド
ディレクトリーリストに i/j/k 行コマンドを入力する
i : Col.1-6行番号、SPF-COBOLファイルとして開く-----------------------------------------------
===> ===>HALF
*****|*l****l*** TOP OF LIST *******Unicomb: COMB *******************************************
_0001|: G:\ x4000 15,914,688K/ 33,538,016K
_0002||: src ---- 24-06-28 12:28 0
_0003|||: xe ---- 24-07-08 19:25 0
_0004||||: htmlwk ---- /ot- 24-07-11 20:29 134,512
_0005|||||. SPFHowTo.xej.txt A--- 24-07-31 15:17 38,546
_0006|||||+ dirspf ---- 24-07-31 14:06 0
i0007|||||. samp1.cob A--- 24-07-30 21:25 244
_0008|||||. samp1.cob.org A--- 24-07-30 21:25 244
(結果)
行番号付きファイルの行長エラー(!=80)L(24-07-30 21:25)--------------------- 001-( 1)-088
===> ===>HALF
col |....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+...
****|*L*t**l*** TOP OF FILE *******Lig:OFF **************************************************
0001| IDENTIFICATION DIVISION.↵
0002| PROGRAM-ID. SAMP1.↵
0003| * Example↵
0004| ENVIRONMENT DIVISION.↵
0005| DATA DIVISION.↵
0006| PROCEDURE DIVISION.↵
0007| DISPLAY "Hello World!"↵
0008| STOP RUN.↵
0009| END PROGRAM SAMP1.↵
****|*L*t**l*** END OF FILE *******Lig:OFF **************************************************
PRO コマンドで確認
CAP=OFF NUMSTD P0 NUMCOB=ON LRECL= 80 M72 TAB=41:25)--------------------- 001-( 1)-088
===> ===>HALF
col |....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+...
****|*L*t**l*** TOP OF FILE *******Lig:OFF **************************************************
0001| IDENTIFICATION DIVISION.↵
0002| PROGRAM-ID. SAMP1.↵
0003| * Example↵
0004| ENVIRONMENT DIVISION.↵
0005| DATA DIVISION.↵
0006| PROCEDURE DIVISION.↵
0007| DISPLAY "Hello World!"↵
0008| STOP RUN.↵
0009| END PROGRAM SAMP1.↵
****|*L*t**l*** END OF FILE *******Lig:OFF **************************************************
RENum コマンドで行番号を設定
ren f
(結果)
9 行更新。:\src\xe\htmlwk\samp1.cob =L(24-07-30 21:25)--------------------- 007-( 7)-093
===> ===>HALF
col |...1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9...
*****|*L*t**l*** TOP OF FILE *******Lig:OFF *************************************************
00100* IDENTIFICATION DIVISION. 00010000↵
00200* PROGRAM-ID. SAMP1. 00020000↵
00300* * Example 00030000↵
00400* ENVIRONMENT DIVISION. 00040000↵
00500* DATA DIVISION. 00050000↵
00600* PROCEDURE DIVISION. 00060000↵
00700* DISPLAY "Hello World!" 00070000↵
00800* STOP RUN. 00080000↵
00900* END PROGRAM SAMP1. 00090000↵
*****|*L*t**l*** END OF FILE *******Lig:OFF *************************************************