Ａ−ＶＸに電子メールを送って返事をもらう
２．ＣＯＢＯＬプログラムの作成
メールを送受信するＣＯＢＯＬプログラムを作ります。
今回は、足し算をして結果を電子メールで送るＣＯＢＯＬプログラムを作りました。
サンプルプログラムのダウンロード：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行目で、オープンすることによって、仮想ファイルを足し算する２桁の２つの数が書かれたメールを受信。
470行目で、２つの数を足し算する。
520行目で、仮想ファイルに計算結果を書き込み。（送信したい内容を書き込む。）
530行目で、仮想ファイルをクローズ。（クローズ時にメールが送信される。）
今回はサンプルなので、非常に簡単に作っていますが、メール連携機能にはいろいろな機能があります。細かいコーディング方法は説明書を見てください。
