> > 000100 IDENTIFICATION DIVISION.
> > 000200 PROGRAM-ID.    SHANGHAI.
> > 000300 ENVIRONMENT    DIVISION.
> > 000400 DATA           DIVISION.
> > 000500 01 MSG-DATA.
> > 000600     05 MSG-01  PIC X(26)
> > 000700                VALUE "これは駄目かもわからんね".
> > 000800 PROCEDURE      DIVISION.
> > 000900     DISPLAY    MSG-01  UPON CONSOLE.
> > 001000     GOBACK.
> さっとCOBOL書けるとかかっこいい(;´Д`)濡れた

WORKING-STORAGE SECTIONを忘れてた(;´Д`)

参考：2012/08/04(土)16時21分36秒