.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 *************************************************