COBOL Picture子句

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.

DATA DIVISION.
   WORKING-STORAGE SECTION.
   01 WS-NUM1 PIC S9(3)V9(2).
   01 WS-NUM2 PIC PPP999.
   01 WS-NUM3 PIC S9(3)V9(2) VALUE -123.45.
   01 WS-NAME PIC A(6) VALUE 'ABCDEF'.
   01 WS-ID PIC X(5) VALUE 'A121$'.

PROCEDURE DIVISION.
   DISPLAY WS-NUM1 : WS-NUM1.
   DISPLAY WS-NUM2 : WS-NUM2.
   DISPLAY WS-NUM3 : WS-NUM3.
   DISPLAY WS-NAME : WS-NAME.
   DISPLAY WS-ID : WS-ID.
STOP RUN.

相关文章

IDENTIFICATION DIVISION. PROGRAM-ID. HELLO. DATA DIVISI...
IDENTIFICATION DIVISION. PROGRAM-ID. HELLO. DATA DIVISI...
IDENTIFICATION DIVISION. PROGRAM-ID. HELLO. DATA DIVISI...
IDENTIFICATION DIVISION. PROGRAM-ID. HELLO. DATA DIVISI...
PROCEDURE DIVISION. A000-FIRST-PARA. MOVE 123456789 TO W...
IDENTIFICATION DIVISION. PROGRAM-ID. HELLO. DATA DIVISI...