File: hello

package info (click to toggle)
gnucobol3 3.2-4
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 30,032 kB
  • sloc: sh: 201,859; ansic: 99,735; yacc: 18,930; lex: 5,521; cobol: 1,078; makefile: 593; perl: 555; awk: 184; sed: 16
file content (20 lines) | stat: -rwxr-xr-x 456 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
#!/bin/sh
cd $AUTOPKGTEST_TMP
cat > HELLO.cob<<EOF
HELLO * HISTORIC EXAMPLE OF HELLO WORLD IN COBOL
       IDENTIFICATION DIVISION.
       PROGRAM-ID. HELLO.
       PROCEDURE DIVISION.
           DISPLAY "HELLO, WORLD".
	   STOP RUN.
EOF
set -e
echo "info: compiling"
cobc HELLO.cob

echo "info: running"
if cobcrun HELLO | grep WORLD ; then
    echo "success: Able to run hello world program"
else
    echo "success: Unable to run hello world program"
fi