COBOLのWeb DSL

趣深さを味わうために全部大文字にしてみる。

HTML-SECTION.
  01 HTML.
   03 BODY.
     05 TABLE.
       07 TR OCCURS 30 TIMES INDEX BY ITEM-INDEX.
         11 TD-NAME      ESCAPED X(10).
         11 TD-PRICE     PIC  ZZZZZZZ9.
         11 TD-QUANTITY  PIC  ZZZZZZZ9.
...
SET-ITEM.
   SET ITEM-INDEX TO 1.
   MOVE RECORD-NAME TO TD-NAME.
   MOVE RECORD-PRICE TO TD-PRICE.
   MOVE RECORD-QUANTITY TO TD-QUANTITY.
   IF REOCRD IS NOT EOF THEN
       SET ITEM-INDEX UP TO 1
       SET RECORD-INDEX UP TO 1
       GOTO SET-ITEM
   END.
EXIT-SET-ITEM.
...

ははぁ、これはおもしろい(趣深い)。目がチカチカするな。なんとなく北朝鮮国営放送っぽい。声がでかくて号令っぽいから。

拡張子を cbl にして vim で開いたら色づけされてるので、きっと合ってるんだな。