IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Cant we compile a COBOL program in PS ?


IBM Mainframe Forums -> COBOL Programming
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
dineshsjce
Currently Banned

New User


Joined: 16 Apr 2007
Posts: 41
Location: Bangalore

PostPosted: Fri Jul 06, 2007 3:21 pm
Reply with quote

Hi ,
I wrote a COBOL program in a PS file and tried compiling it. I got the JCl errors. But the same COBOL program compiled in PDS member. What is the reason ?

Regards,
Dinesh
Back to top
View user's profile Send private message
a027412

New User


Joined: 05 Jul 2007
Posts: 40
Location: Minneapolis, MN

PostPosted: Fri Jul 06, 2007 3:22 pm
Reply with quote

Hey dineshsjce,

Please post the errors you got during compilation.
Back to top
View user's profile Send private message
dineshsjce
Currently Banned

New User


Joined: 16 Apr 2007
Posts: 41
Location: Bangalore

PostPosted: Fri Jul 06, 2007 3:27 pm
Reply with quote

8 IEF646I REQUIRED POSITIONAL PARAMETER MISSING IN THE DSNAME FIELD

30 IEF646I REQUIRED POSITIONAL PARAMETER MISSING IN THE DSNAME FIELD
Back to top
View user's profile Send private message
murmohk1

Senior Member


Joined: 29 Jun 2006
Posts: 1436
Location: Bangalore,India

PostPosted: Fri Jul 06, 2007 3:33 pm
Reply with quote

Dinesh,

Please post the JESJCL messages for the above lines (8 & 30).
Back to top
View user's profile Send private message
dineshsjce
Currently Banned

New User


Joined: 16 Apr 2007
Posts: 41
Location: Bangalore

PostPosted: Fri Jul 06, 2007 3:39 pm
Reply with quote

1 //G68448C JOB ,,NOTIFY=G68448,CLASS=B,MSGLEVEL=(1,1),MSGCLASS=X
2 //SET1 SET COPYLIB=OPERN.CICS3.COPYLIB
3 //SET2 SET LOAD=OPERN.CICS3.LOADLIB
4 //SET3 SET VSAMLIB=OPERN.CICS3.VSAMLIB
5 //SET4 SET WORK=UNIT=SYSDA,SPACE=(460,(350,100))
//*ET5 SET REG=®
//*ET6 SET DSP=&DSP
//*
//* 1. COMPILATION
//*
6 //COMPILE EXEC PGM=IGYCRCTL,REGION=4M,
// PARM='DYNAM,LIST,RENT,LIB,OBJECT,APOST,OPTIMIZE'
//* PARM='DYNAM,RENT,DUMP,LIB,OBJECT,APOST,OPTIMIZE,OFFSET'
7 //STEPLIB DD DSN=IGY.SIGYCOMP,DISP=SHR
8 //SYSIN DD DSN=G68448.PRACTICE.TEST1(),DISP=SHR
9 //SYSUT1 DD UNIT=SYSDA,SPACE=(460,(350,100))
10 //SYSLIB DD DSN=OPERN.CICS3.COPYLIB,DISP=SHR
11 // DD DSN=OPERN.CICS3.VSAMLIB,DISP=SHR
12 //SYSUT2 DD UNIT=SYSDA,SPACE=(460,(350,100))
13 //SYSUT3 DD UNIT=SYSDA,SPACE=(460,(350,100))
14 //SYSUT4 DD UNIT=SYSDA,SPACE=(460,(350,100))
15 //SYSUT5 DD UNIT=SYSDA,SPACE=(460,(350,100))
16 //SYSUT6 DD UNIT=SYSDA,SPACE=(460,(350,100))
17 //SYSUT7 DD UNIT=SYSDA,SPACE=(460,(350,100))
18 //SYSLIN DD DSN=&LOADSET,DISP=(MOD,PASS),UNIT=SYSDA,
// SPACE=(80,(300,100)),DCB=BLKSIZE=400
19 //SYSPRINT DD SYSOUT=*
20 //SYSUDUMP DD SYSOUT=*
21 //SYSABEND DD SYSOUT=*
//*
//* 2. LINKEDIT
//*
//* LINKEDIT EXEC PGM=IEWL,COND=(5,LT),REGION=4M
//* FOLLOWING EXEC PGM IS CHANGED TO HEWL
22 //LINKEDIT EXEC PGM=HEWL,COND=(5,LT),REGION=4M
//* PARM='XREF,RMODE=ANY,AMODE=31,TEST,AC=1'
23 //SYSLIB DD DSN=CEE.SCEELKED,DISP=SHR
24 //SYSPRINT DD SYSOUT=*
25 //SYSLIN DD DSN=&LOADSET,DISP=(OLD,DELETE)
26 // DD DDNAME=SYSIN
27 //SYSUT1 DD UNIT=SYSDA,SPACE=(460,(350,100))
28 //SYSUT2 DD UNIT=SYSDA,SPACE=(460,(350,100))
29 //SYSUT3 DD UNIT=SYSDA,SPACE=(460,(350,100))
30 //SYSLMOD DD DSN=OPERN.CICS3.LOADLIB(),DISP=SHR
//*
Back to top
View user's profile Send private message
murmohk1

Senior Member


Joined: 29 Jun 2006
Posts: 1436
Location: Bangalore,India

PostPosted: Fri Jul 06, 2007 4:14 pm
Reply with quote

Dinesh,

Why did you give blank parenthsis in the lines 8 & 30?
Back to top
View user's profile Send private message
Aaru

Senior Member


Joined: 03 Jul 2007
Posts: 1287
Location: Chennai, India

PostPosted: Fri Jul 06, 2007 6:09 pm
Reply with quote

u dont have to code parenthesis for PS ! just give the dataset name ! u cud have identified that from the displayed messages !


8 IEF646I REQUIRED POSITIONAL PARAMETER MISSING IN THE DSNAME FIELD

30 IEF646I REQUIRED POSITIONAL PARAMETER MISSING IN THE DSNAME FIELD
Back to top
View user's profile Send private message
dineshsjce
Currently Banned

New User


Joined: 16 Apr 2007
Posts: 41
Location: Bangalore

PostPosted: Fri Jul 06, 2007 6:15 pm
Reply with quote

Hi

Not like that. I didnt submit JCL. Try to understand my problem. See all I did was , I wrote a COBOL program in a Physical Sequential file and tried compiling the program . During that time I got this errors(It says JCL errors). I am still in compilation stage . I didnt go for running of the program.
Back to top
View user's profile Send private message
acevedo

Active User


Joined: 11 May 2005
Posts: 344
Location: Spain

PostPosted: Fri Jul 06, 2007 6:23 pm
Reply with quote

yes but what you call compilation stage is just another JCL... so the JCL erros.
Back to top
View user's profile Send private message
dineshsjce
Currently Banned

New User


Joined: 16 Apr 2007
Posts: 41
Location: Bangalore

PostPosted: Fri Jul 06, 2007 6:28 pm
Reply with quote

But as u said earlier , I didnt give any parathesis like that.
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19243
Location: Inside the Matrix

PostPosted: Fri Jul 06, 2007 9:43 pm
Reply with quote

Hello,

Quote:
But as u said earlier , I didnt give any parathesis like that.

Something did. . .

Quote:
8 //SYSIN DD DSN=G68448.PRACTICE.TEST1(),DISP=SHR
30 //SYSLMOD DD DSN=OPERN.CICS3.LOADLIB(),DISP=SHR


On a PS dataset, there should be no () - that is invalid syntax. Also, a PS is usually allocated with disposition OLD rather than SHR.

Is there some reason you are not using the standard compile jcl for your system? I'd suggest you move your source into the appropriate library and use your standard compilaton jcl. . .
Back to top
View user's profile Send private message
Craq Giegerich

Senior Member


Joined: 19 May 2007
Posts: 1512
Location: Virginia, USA

PostPosted: Fri Jul 06, 2007 9:47 pm
Reply with quote

Quote:
30 //SYSLMOD DD DSN=OPERN.CICS3.LOADLIB(),DISP=SHR


The loadlib would have to be a PDS.
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8796
Location: Welsh Wales

PostPosted: Sat Jul 07, 2007 11:27 am
Reply with quote

Would I be right in thinking that your compile run is submitted from a screen driven process.
Back to top
View user's profile Send private message
a027412

New User


Joined: 05 Jul 2007
Posts: 40
Location: Minneapolis, MN

PostPosted: Sat Jul 07, 2007 2:52 pm
Reply with quote

hey, please try this.
close the PS which contains the code and try compiling. icon_confused.gif
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19243
Location: Inside the Matrix

PostPosted: Sat Jul 07, 2007 2:54 pm
Reply with quote

And a process that does not validate before submitting. . .
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8796
Location: Welsh Wales

PostPosted: Sat Jul 07, 2007 9:01 pm
Reply with quote

Quote:
hey, please try this.
close the PS which contains the code and try compiling.

Why, how will this make the PS a member of a PDS, which is the requirement of the JCL being submitted.

Good point Dick, a compiler submission routine without any validation.
Back to top
View user's profile Send private message
prasadvrk

Active User


Joined: 31 May 2006
Posts: 200
Location: Netherlands

PostPosted: Mon Jul 09, 2007 1:52 pm
Reply with quote

Hi Dinesh,

Pay attention to expat's comment. Are you submitting the JCL to compile on your own or using any tool or automated process to submit.

Quote:
Would I be right in thinking that your compile run is submitted from a screen driven process.


If you are submitting on your own then change the JCL to remove the parenthesis.

Even otherwise once the job fails, open the JCL in spool and change it to remove the parenthesis in line 8 and 30 and submit again.
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19243
Location: Inside the Matrix

PostPosted: Mon Jul 09, 2007 6:21 pm
Reply with quote

Hello,

Once again. . . . .

People should not create their own or "tweak" the standard compile process. This causes nightmares with some regularity.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> COBOL Programming

 


Similar Topics
Topic Forum Replies
No new posts COBOL sorting, with input GDG base COBOL Programming 7
No new posts Need help with ADABAS query (COBOL-AD... All Other Mainframe Topics 0
No new posts Replacing FILLER with FILLER<SeqNu... DFSORT/ICETOOL 2
No new posts Error to invoke MPP program through B... IMS DB/DC 3
No new posts Compile Sp Cobol base COBOL Programming 1
Search our Forums:

Back to Top