Advertisement
Guest User

Untitled

a guest
Apr 10th, 2017
120
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
COBOL 0.46 KB | None | 0 0
  1. IDENTIFICATION DIVISION.
  2. PROGRAM-ID. HELLO.
  3.  
  4. DATA DIVISION.
  5.    WORKING-STORAGE SECTION.
  6.    01 WS-NUM1 PIC S9(3)V9(2).
  7.    01 WS-NUM2 PIC PPP999.
  8.    01 WS-NUM3 PIC S9(3)V9(2) VALUE -123.45.
  9.    01 WS-NAME PIC A(6) VALUE 'ABCDEF'.
  10.    01 WS-ID PIC X(5) VALUE 'A121$'.
  11.  
  12. PROCEDURE DIVISION.
  13.    DISPLAY "WS-NUM1 : "WS-NUM1.
  14.    DISPLAY "WS-NUM2 : "WS-NUM2.
  15.    DISPLAY "WS-NUM3 : "WS-NUM3.
  16.    DISPLAY "WS-NAME : "WS-NAME.
  17.    DISPLAY "WS-ID : "WS-ID.
  18. STOP RUN.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement