Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement