-
Notifications
You must be signed in to change notification settings - Fork 6
/
Copy pathcobol_one.sh
37 lines (32 loc) · 870 Bytes
/
cobol_one.sh
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
# This script will build one COBOL file on MVS3.8j KICKS
# syntax: bash cobol_one.sh <mapfile.bms> | ncat localhost 3505
cat << 'END'
//COMPCOB JOB (JOB),
// 'COMPILE COBOL',
// CLASS=A,
// MSGCLASS=H,
// MSGLEVEL=(1,1),
// USER=IBMUSER,
// PASSWORD=SYS1,
// REGION=7000K
//JOBPROC DD DSN=KICKS.KICKSSYS.V1R5M0.PROCLIB,DISP=SHR
END
m=${1%.*}
progname=${m##*/}
cat << END
//* Compiling $progname
//$progname EXEC K2KCOBCL
//COPY.SYSUT1 DD DATA,DLM=@@
END
cat $1
cat << END
@@
//COB1.STEPLIB DD DSN=SYSC.LINKLIB,DISP=SHR
//COB2.STEPLIB DD DSN=SYSC.LINKLIB,DISP=SHR
//LKED.SYSLIB DD DISP=SHR,DSN=SYSC.COBLIB
//LKED.SYSIN DD *
INCLUDE SKIKLOAD(KIKCOBGL)
ENTRY $progname
NAME $progname(R)
/*
END