Harold Bell
2010-12-01 02:04:07 UTC
I am trying an example cobol program I found on Jay Moseley's site and get the
following message in the printout when it fails to execute.
1 //COBUCLG JOB (001),'COB HELLO
WORLD', JOB 19
//
CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1) 00020000
2 //HELOWRLD EXEC
COBUCLG,CPARM1='LIST,LOAD,NODECK' 00030000
3 XXCOBUCLG PROC SOUT='*',
XX UNT=SYSDA,
XX CBLPARM='SUPMAP'
4 XXCOB EXEC PGM=IKFCBL00,
XX REGION=4096K,
XX PARM='NODECK,LOAD,SIZE=2048K,BUF=1024K,&CBLPARM'
5 XXSYSPRINT DD SYSOUT=&SOUT
6 XXSYSLIN DD DISP=(,PASS),UNIT=&UNT,SPACE=(80,(500,100))
7 XXSYSUT1 DD UNIT=&UNT,SPACE=(460,(700,100))
8 XXSYSUT2 DD UNIT=&UNT,SPACE=(460,(700,100))
9 XXSYSUT3 DD UNIT=&UNT,SPACE=(460,(700,100))
10 XXSYSUT4 DD UNIT=&UNT,SPACE=(460,(700,100))
11 XXSYSPUNCH DD DUMMY
12 //COB.SYSIN DD
* 00040000
13 XXLKED EXEC PGM=IEWL,
XX COND=(4,LT,COB),
XX PARM='XREF,LIST,LET,MAP',
XX REGION=1024K
14 XXSYSLIN DD DISP=(OLD,DELETE),DSN=*.COB.SYSLIN
15 XX DD DDNAME=SYSIN
16 XXSYSLMOD DD DISP=(,PASS),DSN=&G(GO),
XX UNIT=&UNT,
XX SPACE=(1024,(50,20,1))
17 //LKED.SYSLIB DD
DSNAME=SYS1.COBLIB,DISP=SHR 00200000
X/SYSLIB DD DISP=SHR,DSN=SYS1.COBLIB
18 // DD
DSNAME=SYS1.LINKLIB,DISP=SHR 00210000
19 XXSYSUT1 DD UNIT=&UNT,SPACE=(1024,(50,20))
20 XXSYSPRINT DD SYSOUT=&SOUT
21 XXGO EXEC PGM=*.LKED.SYSLMOD,
XX REGION=2048K,
XX COND=((5,LT,COB),(5,LT,LKED))
22 //GO.SYSPRINT DD
SYSOUT=A 00220000
STMT NO. MESSAGE
-
4 IEF653I SUBSTITUTION JCL -
PARM='NODECK,LOAD,SIZE=2048K,BUF=1024K,SUPMAP'
5 IEF653I SUBSTITUTION JCL - SYSOUT=*
6 IEF653I SUBSTITUTION JCL -
DISP=(,PASS),UNIT=SYSDA,SPACE=(80,(500,100))
7 IEF653I SUBSTITUTION JCL - UNIT=SYSDA,SPACE=(460,(700,100))
8 IEF653I SUBSTITUTION JCL - UNIT=SYSDA,SPACE=(460,(700,100))
9 IEF653I SUBSTITUTION JCL - UNIT=SYSDA,SPACE=(460,(700,100))
10 IEF653I SUBSTITUTION JCL - UNIT=SYSDA,SPACE=(460,(700,100))
16 IEF653I SUBSTITUTION JCL - UNIT=SYSDA,
19 IEF653I SUBSTITUTION JCL - UNIT=SYSDA,SPACE=(1024,(50,20))
20 IEF653I SUBSTITUTION JCL - SYSOUT=*
21 IEF657I SYMBOL NOT DEFINED IN PROCEDURE
by hacking the original sys2.proclib(cobuclg) to pieces I think it's the
*.lked.syslmod that it is choking on but I'm a jcl newbie and cannot figure out
how to fix it. Thanks for any help.
Buddy
following message in the printout when it fails to execute.
1 //COBUCLG JOB (001),'COB HELLO
WORLD', JOB 19
//
CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1) 00020000
2 //HELOWRLD EXEC
COBUCLG,CPARM1='LIST,LOAD,NODECK' 00030000
3 XXCOBUCLG PROC SOUT='*',
XX UNT=SYSDA,
XX CBLPARM='SUPMAP'
4 XXCOB EXEC PGM=IKFCBL00,
XX REGION=4096K,
XX PARM='NODECK,LOAD,SIZE=2048K,BUF=1024K,&CBLPARM'
5 XXSYSPRINT DD SYSOUT=&SOUT
6 XXSYSLIN DD DISP=(,PASS),UNIT=&UNT,SPACE=(80,(500,100))
7 XXSYSUT1 DD UNIT=&UNT,SPACE=(460,(700,100))
8 XXSYSUT2 DD UNIT=&UNT,SPACE=(460,(700,100))
9 XXSYSUT3 DD UNIT=&UNT,SPACE=(460,(700,100))
10 XXSYSUT4 DD UNIT=&UNT,SPACE=(460,(700,100))
11 XXSYSPUNCH DD DUMMY
12 //COB.SYSIN DD
* 00040000
13 XXLKED EXEC PGM=IEWL,
XX COND=(4,LT,COB),
XX PARM='XREF,LIST,LET,MAP',
XX REGION=1024K
14 XXSYSLIN DD DISP=(OLD,DELETE),DSN=*.COB.SYSLIN
15 XX DD DDNAME=SYSIN
16 XXSYSLMOD DD DISP=(,PASS),DSN=&G(GO),
XX UNIT=&UNT,
XX SPACE=(1024,(50,20,1))
17 //LKED.SYSLIB DD
DSNAME=SYS1.COBLIB,DISP=SHR 00200000
X/SYSLIB DD DISP=SHR,DSN=SYS1.COBLIB
18 // DD
DSNAME=SYS1.LINKLIB,DISP=SHR 00210000
19 XXSYSUT1 DD UNIT=&UNT,SPACE=(1024,(50,20))
20 XXSYSPRINT DD SYSOUT=&SOUT
21 XXGO EXEC PGM=*.LKED.SYSLMOD,
XX REGION=2048K,
XX COND=((5,LT,COB),(5,LT,LKED))
22 //GO.SYSPRINT DD
SYSOUT=A 00220000
STMT NO. MESSAGE
-
4 IEF653I SUBSTITUTION JCL -
PARM='NODECK,LOAD,SIZE=2048K,BUF=1024K,SUPMAP'
5 IEF653I SUBSTITUTION JCL - SYSOUT=*
6 IEF653I SUBSTITUTION JCL -
DISP=(,PASS),UNIT=SYSDA,SPACE=(80,(500,100))
7 IEF653I SUBSTITUTION JCL - UNIT=SYSDA,SPACE=(460,(700,100))
8 IEF653I SUBSTITUTION JCL - UNIT=SYSDA,SPACE=(460,(700,100))
9 IEF653I SUBSTITUTION JCL - UNIT=SYSDA,SPACE=(460,(700,100))
10 IEF653I SUBSTITUTION JCL - UNIT=SYSDA,SPACE=(460,(700,100))
16 IEF653I SUBSTITUTION JCL - UNIT=SYSDA,
19 IEF653I SUBSTITUTION JCL - UNIT=SYSDA,SPACE=(1024,(50,20))
20 IEF653I SUBSTITUTION JCL - SYSOUT=*
21 IEF657I SYMBOL NOT DEFINED IN PROCEDURE
by hacking the original sys2.proclib(cobuclg) to pieces I think it's the
*.lked.syslmod that it is choking on but I'm a jcl newbie and cannot figure out
how to fix it. Thanks for any help.
Buddy