Google
オフコン練習帳内を検索
インターネット全体を検索

NECオフコン関連
オフコン一般
情報

トップ  >  COBOLプログラムからWindowsファイルの読み込み/書き出しを行う

プログラム


000010 IDENTIFICATION DIVISION.                                                 
000020************************************************************              
000030**   SAMPLE PROGRAM                                       **              
000040**   ファイルの内容を画面に出力する                       **              
000050************************************************************              
000060 PROGRAM-ID.    YAMAGU.                                                   
000070*                                                                         
000080 ENVIRONMENT    DIVISION.                                                 
000090 INPUT-OUTPUT   SECTION.                                                  
000100 FILE-CONTROL.                                                            
000110      SELECT WINFILE1 ASSIGN TO FILE01-MSD                                
000120                      ORGANIZATION IS SEQUENTIAL                          
000130                      FILE STATUS WFSTS1.                                 
000140 I-O-CONTROL.                                                             
000150      APPLY EXCLUSIVE-MODE ON WINFILE1.                                   
000160*                                                                         
000170 DATA           DIVISION.                                                 
000180 FILE           SECTION.                                                  
000190 FD   WINFILE1                                                            
000200      BLOCK CONTAINS 256 CHARACTERS                                       
000210      LABEL RECORD IS STANDARD                                            
000220      VALUE OF IDENTIFICATION IS "WINFILE01".                             
000230 01   WINREC.                                                             
000240      02 A1 PIC X(80).                                                    
000250      02 A2 PIC X(176).                                                   
000260*                                                                         
000270 WORKING-STORAGE SECTION.                                                 
000280 01   WFSTS1  PIC X(02).                                                  
000290 01   AFSTS1  PIC X(02).                                                  
000300*                                                                         
000310 01   EFLAG  PIC X(03).                                                   
000320*                                                                         
000330 01   IN-P   PIC X(01).                                                   
000340*                                                                         
000350 SCREEN          SECTION.                                                 
000360 SD   GAMEN    END STATUS IS ENDSTS.                                      
000370 01   DSP-SUP.                                                            
000380**   スクロール範囲2-24 上スクロールする                                 
000390      05    LINE 1.                                                       
000400            10  COLUMN 1  PIC X(10)  VALUE  ""27C1"0224".                 
000410            10  COLUMN 1  PIC X(10)  VALUE  ""27C6"01".                   
000420 01   ACP-PAUSE.                                                          
000430      05    LINE 1.                                                       
000440            10  COLUMN 60  PIC X(01) USING IN-P.                          
000450 01   DSP-LINE.                                                           
000460      05    LINE 24.                                                      
000470            10  COLUMN 1 PIC X(80) FROM A1.                               
000480*                                                                         
000490 PROCEDURE       DIVISION.                                                
000500************************************************                          
000510**    EFLAG = "LOP" .... READ NEXT DATA                                   
000520**          = "END" .... READ END                                         
000530************************************************                          
000540 MPROG.                                                                   
000550      OPEN INPUT WINFILE1                                                 
000560      MOVE "LOP" TO EFLAG.                                                
000570      PERFORM UNTIL EFLAG = "END"                                         
000580         READ WINFILE1                                                    
000590            AT END                                                        
000600               MOVE "END" TO EFLAG                                        
000610            NOT AT END                                                    
000620               DISPLAY   DSP-SUP                                          
000630               DISPLAY   DSP-LINE                                         
000640         END-READ                                                         
000650      END-PERFORM.                                                        
000660      CLOSE WINFILE1                                                      
000670**   全部画面表示終わったら入力待ちする                                   
000680      ACCEPT   ACP-PAUSE.                                                 
000690      STOP RUN.