constant.cbl

来自「真受不了」· CBL 代码 · 共 12 行

       77 New-Product-Code              pic x value "+".
       77 Discontinue-Product-Code      pic x value "-".
       77 Goods-Inward-Code             pic x value "<".
       77 Order-Item-Code               pic x value ">".
       77 Open-Account-Code             pic x value "(".
       77 Close-Account-Code            pic x value ")".
       77 Credit-Payment-Code           pic x value "$".
       77 Dummy-Item-No                 pic x(6) value low-values.
       77 End-of-Items                  pic x(6) value high-values.
       77 Dummy-Account-No              pic x(4) value low-values.
       77 End-of-Accounts               pic x(4) value high-values.