language: COBOL 85 (tinycobol-0.65.9)
date: 127 days 23 hours ago
link:
visibility: public 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

identification division.
program-id. sample1.
environment division.
data division.
file section.
working-storage section.
01 ws-name pic X(10).
01 WS-num pic 9(2) value 96.
Procedure division.
1000-main-para.
    accept ws-name.
    display 'Name: ', ws-name.
    display 'Number: ', ws-num.
    stop run.
1000-exit.
   exit.