****************************************
      * Program name: pic.cbl
      * This program provides several examples
      * of CS PICTURE CLAUSES.
      *
      * Copyright 2000 Deskware, Inc.
      ****************************************
       1 variables.
         5 var1    PIC XXXXXXXX.
         5 var2    PIC X(20).
         5 var3    PIC 99999.
         5 var4A   PIC S9(05).
         5 var4B   PIC S9(05).
         5 var5    PIC 9(05)V99.
         5 var6    PIC 99999V99.
         5 var7    PIC 99999.99.
         5 var8    PIC ZZZZZZZZ.
         5 var9    PIC ZZZ,ZZZ,ZZZ.99.
         5 var10   PIC $$$,$$$,$$$.99.
         5 var11   PIC ***,***,***.99.
         5 var12A  PIC +++,+++,+++.99.
         5 var12B  PIC +++,+++,+++.99.
         5 var13A  PIC ---,---,---.99.
         5 var13B  PIC ---,---,---.99.
         5 var14A  PIC ZZZZZZZ-.
         5 var14B  PIC ZZZZZZZ-.
         5 var15A  PIC ZZZ,ZZZ.99+.
         5 var15B  PIC ZZZ,ZZZ.99+.
         5 var16A  PIC ZZZCR.
         5 var16B  PIC ZZZCR.
         5 var17A  PIC ZZZ,ZZZ.99DB.
         5 var17B  PIC ZZZ,ZZZ.99DB.

       MOVE `COBOL`                TO var1.
       MOVE `12345678901234567890` TO var2.
       MOVE 12345                  TO var3.
       MOVE 12345                  TO var4A.
       MOVE -12345                 TO var4B.
       MOVE 12345                  TO var5.
       MOVE 12345                  TO var6.
       MOVE 12345                  TO var7.
       MOVE 12345                  TO var8.
       MOVE 12345                  TO var9.
       MOVE 12345                  TO var10.
       MOVE 12345                  TO var11.
       MOVE 12345                  TO var12A.
       MOVE -12345                 TO var12B.
       MOVE 12345                  TO var13A.
       MOVE -12345                 TO var13B.
       MOVE 12345                  TO var14A.
       MOVE -12345                 TO var14B.
       MOVE 12345                  TO var15A.
       MOVE -12345                 TO var15B.
       MOVE  12345                 TO var16A.
       MOVE -12345                 TO var16B.
       MOVE 12345                  TO var17A.
       MOVE -12345                 TO var17B.

       DISPLAYLF `Examples of CobolScript formated picture output`.
       DISPLAYLF variables.
       DISPLAY `Picture                                         Value of                Picture of`.
       DISPLAY `Type                                            Sending Field           Receiving Field         Result`.
       DISPLAY `==============================================  ====================    ===============         ====================`.
       DISPLAY `Alphanumeric                                    COBOL                   XXXXXXXX                COBOL`.
       DISPLAY `Alphanumeric                                    12345678901234567890    X(20)                   12345678901234567890`.
       DISPLAY `Numeric                                         12345                   99999                   12345`.
       DISPLAY `Signed Numeric                                  12345                   S9(05)                  +12345`.
       DISPLAY `Signed Numeric                                  -12345                  S9(05)                  -12345`.
       DISPLAY `Numeric with Implied Decimal                    12345                   9(05)V99                1234500`.
       DISPLAY `Numeric with Implied Decimal                    12345                   99999V99                1234500`.
       DISPLAY `Numeric with Literal Decimal                    12345                   99999.99                12345.00`.
       DISPLAY `Numeric edited with Zero Suppression            12345                   ZZZZZZZZ                12345`.
       DISPLAY `Numeric edited with Zero Suppression and comma  12345                   ZZZ,ZZZ,ZZZ.99          12,345.00`.
       DISPLAY `Numeric edited with Floating dollar sign        12345                   $$$,$$$,$$$.99          $12,345.00`.
       DISPLAY `Numeric edited with Asterisk check protection         1234                    ***,***,***.99          *****12,345.00`.
       DISPLAY `Numeric edited with Floating plus sign          12345                   +++,+++,+++.99          +12,345.00`.
       DISPLAY `Numeric edited with Floating plus sign          -12345                  +++,+++,+++.99          -12,345.00`.
       DISPLAY `Numeric edited with Floating minus sign         12345                   ---,---,---.99          12,345.00`.
       DISPLAY `Numeric edited with Floating minus sign         -12345                  ---,---,---.99          -12,345.00`.
       DISPLAY `Numeric edited with minus sign control          12345                   ZZZZZZZ-                1234 `.
       DISPLAY `Numeric edited with minus sign control          -12345                  ZZZZZZZ-                1234-`.
       DISPLAY `Numeric edited with plus sign control           12345                   ZZZ,ZZZ.99+             12,345.00+`.
       DISPLAY `Numeric edited with plus sign control           -12345                  ZZZ,ZZZ.99+             12,345.00-`.
       DISPLAY `Numeric edited with CR control                  12345                   ZZZCR                   123  `.
       DISPLAY `Numeric edited with CR control                  -12345                  ZZZCR                   123CR`.
       DISPLAY `Numeric edited with DB control                  12345                   ZZZ,ZZZ.99DB            12,345.00DB`.
       DISPLAY `Numeric edited with DB control                  -12345                  ZZZ,ZZZ.99DB            12,345.00CR`.