IDENTIFICATION DIVISION. *>
PROGRAM-ID. EXAM2. *>
ENVIRONMENT DIVISION. *>
DATA DIVISION. *>
WORKING-STORAGE SECTION. *>工作存储节
77 A PIC 9(3)V99.
77 B PIC (4)9.99. \*\>就是编辑型描述符，表示在数字开头显示一个美元符号，这个B纯粹是为了打印显示用的，相当于格式串的作用
PROCEDURE DIVISION.
S. MOVE 21.56 TO A
MOVE A TO B
DISPLAY B.
STOP RUN.