Ch 6_5. Printing Dollar Sign and Qualification of Data Names

Printing Dollar Sign 

01  PAY1         PIC   9(4)V99    VALUE   812.34.
01  PAY2         PIC   9(4)V99    VALUE   3812.34.
01  PAY-CHK0     PIC   $9999.99.
01  PAY-CHK1     PIC   $Z,ZZZ.99.
01  PAY-CHK2     PIC   $*,***.99.
01  PAY-CHK3     PIC   $$,$$$.99.

    MOVE 0 TO PAY-CHK0 PAY-CHK1 PAY-CHK2 PAY-CHK3.
    DISPLAY PAY-CHK0.
    DISPLAY PAY-CHK1.
    DISPLAY PAY-CHK2.
    DISPLAY PAY-CHK3.

    MOVE PAY1 TO PAY-CHK0 PAY-CHK1 PAY-CHK2 PAY-CHK3.
    DISPLAY PAY-CHK0.
    DISPLAY PAY-CHK1.
    DISPLAY PAY-CHK2.
    DISPLAY PAY-CHK3.

    MOVE PAY2 TO PAY-CHK0 PAY-CHK1 PAY-CHK2 PAY-CHK3.
    DISPLAY PAY-CHK0.
    DISPLAY PAY-CHK1.
    DISPLAY PAY-CHK2.
    DISPLAY PAY-CHK3.

Qualification of Data Names

The following is OK??? 
01  CYYDDD.
    03 YY        PIC   99.
    03 DDD       PIC   999.
01  BYYDDD.
    03 YY        PIC   99.
    03 DDD       PIC   999.
OK, but you need to do something like: 
    YY OF CYYDDD    or
    YY IN CYYDDD
Example of Use: 
    MOVE YY OF CYYDDD TO YY-OUT.