IDENTIFICATION DIVISION.
PROGRAM-ID. WRITE-HTML.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT HTML-FILE ASSIGN TO "output.html"
ORGANIZATION IS LINE SEQUENTIAL.
DATA DIVISION.
FILE SECTION.
FD HTML-FILE.
01 HTML-LINE PIC X(255).
WORKING-STORAGE SECTION.
01 WS-CRLF PIC X(2) VALUE X"0D0A".
PROCEDURE DIVISION.
MAIN.
OPEN OUTPUT HTML-FILE
MOVE "Content-type: text/html" TO HTML-LINE
WRITE HTML-LINE
MOVE "<!DOCTYPE html>" TO HTML-LINE
WRITE HTML-LINE
MOVE "<html lang=""ja"">" TO HTML-LINE
WRITE HTML-LINE
MOVE "<head>" TO HTML-LINE
WRITE HTML-LINE
MOVE "<meta charset=""UTF-8"">" TO HTML-LINE
WRITE HTML-LINE
MOVE "<title>タイトル</title>" TO HTML-LINE
WRITE HTML-LINE
MOVE "</head>" TO HTML-LINE
WRITE HTML-LINE
MOVE "<body>" TO HTML-LINE
WRITE HTML-LINE
MOVE "Hello HTML!" TO HTML-LINE
WRITE HTML-LINE
MOVE "</body>" TO HTML-LINE
WRITE HTML-LINE
MOVE "</html>" TO HTML-LINE
WRITE HTML-LINE
CLOSE HTML-FILE
DISPLAY "HTML file 'output.html' has been written successfully."
STOP RUN.
何をやろうとしているのかというと、
<!DOCTYPE html>
<html lang=""ja"">
<head>
<meta charset=""UTF-8"">
<title>タイトル</title>
</head>
<body>
Hello HTML!
</body>
</html>
というHTMLタグをGnu COBOL2.2で書いたプログラムを動かしてテキストファイルに書き込ませ、htmlファイルに変換してHello HTML!という文字を表示させる簡単なWebアプリを作ることだ。
まず、Androidのコードエディタに上記のソースコードをコピペし、
実行ボタンを押してみた。
結果は失敗。
出来てもいないのにHTML file 'output.html' has been written successfully.と表示して終了するインチキプログラムであった。
ちなみにこのプログラムの作成者はChatGPTだ。
ちなみにタグ自体を表示するプログラムはうまくいったのだが。
IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO_HTML.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 CR PIC X VALUE LOW-VALUE.
PROCEDURE DIVISION.
MAIN.
MOVE FUNCTION CHAR(13) TO CR
DISPLAY "Content-type: text/html" UPON CONSOLE
DISPLAY CR UPON CONSOLE
DISPLAY "<!DOCTYPE html>" UPON CONSOLE
DISPLAY "<html lang=""ja"">" UPON CONSOLE
DISPLAY "<head>" UPON CONSOLE
DISPLAY "<meta charset=""UTF-8"">" UPON CONSOLE
DISPLAY "<title>タイトル</title>" UPON CONSOLE
DISPLAY "</head>" UPON CONSOLE
DISPLAY "<body>" UPON CONSOLE
DISPLAY "Hello HTML!" UPON CONSOLE
DISPLAY "</body>" UPON CONSOLE
DISPLAY "</html>" UPON CONSOLE
STOP RUN.
