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

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

トップ  >  メール連携

A−VXに電子メールを送って返事をもらう

2.COBOLプログラムの作成

メールを送受信するCOBOLプログラムを作ります。
今回は、足し算をして結果を電子メールで送るCOBOLプログラムを作りました。

サンプルプログラムのダウンロード:download

000010*****************************************************                     
000020**   MAIL TEST PROGRAM 3                           **                     
000030*****************************************************                     
000040 IDENTIFICATION DIVISION.                                                 
000050 PROGRAM-ID. MAIL03.                                                      
000060**                                                                        
000070 ENVIRONMENT DIVISION.                                                    
000080**                                                                        
000090 INPUT-OUTPUT SECTION.                                                    
000100 FILE-CONTROL.                                                            
000110     SELECT MAIL03 ASSIGN MAIL03-MSD                                      
000120            ORGANIZATION SEQUENTIAL                                       
000130            ACCESS MODE SEQUENTIAL                                        
000140            FILE STATUS MAIL03-STS.                                       
000150**                                                                        
000160 DATA DIVISION.                                                           
000170 FILE SECTION.                                                            
000180 FD  MAIL03                                                               
000190     BLOCK CONTAINS 3 RECORDS                                             
000200     RECORD CONTAINS 80 CHARACTERS                                        
000210     LABEL RECORD IS STANDARD                                             
000220     VALUE OF IDENTIFICATION "MAILMES".                                   
000230 01  MAIL03REC.                                                           
000240     02 NUM01 PIC 9(03).                                                  
000250     02 NUM02 PIC 9(03).                                                  
000260     02 FILLER PIC X(74).                                                 
000270**                                                                        
000280 WORKING-STORAGE SECTION.                                                 
000290 01  CALN01 PIC 9(03).                                                    
000300 01  CALN02 PIC 9(03).                                                    
000310 01  CALN03 PIC 9(03).                                                    
000320*                                                                         
000330 01  MAIL03-STS  PIC X(02).                                               
000340***********************************                                       
000350 PROCEDURE DIVISION.                                                      
000360 PRG-ENT.                                                                 
000370** 仮想ファイルの読み込み(メール受信)                                   
000380     OPEN INPUT MAIL03.                                                   
000390      READ MAIL03                                                         
000400         AT END                                                           
000410         CLOSE MAIL03                                                  
000420         GO TO PRG-END.                                                
000430      MOVE NUM01 TO CALN01.                                            
000440      MOVE NUM02 TO CALN02.                                            
000450     CLOSE MAIL03.                                                     
000460**   計算                                                              
000470     COMPUTE CALN03 = CALN01 + CALN02.                                 
000480**   仮想ファイルへの書き込み(メール送信)                            
000490     OPEN OUTPUT MAIL03.                                               
000500       MOVE CALN03 TO NUM01.                                           
000510       MOVE ZERO TO NUM02.                                             
000520       WRITE MAIL03REC.                                                
000530     CLOSE MAIL03.                                                     
000540**                                                                     
000550 PRG-END.                                                              
000560     STOP RUN.                                                         

説明:
説明するほどのものではないですが、
380行目で、オープンすることによって、仮想ファイルを足し算する2桁の2つの数が書かれたメールを受信。
470行目で、2つの数を足し算する。
520行目で、仮想ファイルに計算結果を書き込み。(送信したい内容を書き込む。)
530行目で、仮想ファイルをクローズ。(クローズ時にメールが送信される。)

今回はサンプルなので、非常に簡単に作っていますが、メール連携機能にはいろいろな機能があります。細かいコーディング方法は説明書を見てください。