|
View previous topic :: View next topic
|
| Author |
Message |
shreevamsi
Active User
Joined: 23 Feb 2006
Posts: 305
Location: Hyderabad,India
|
|
|
|
Hi,
Could anyone provide me the JCL which takes Cobol Code from SYSIN, Compiles and executes in the same JCl.
Thanks
~Vamsi |
|
| Back to top |
|
 |
ofer71
Global Moderator
Joined: 27 Dec 2005
Posts: 2358
Location: Israel
|
|
|
|
Take a simple compile job, and put your COBOL code after the SYSIN card (instead of supplying a dataset name).
O. |
|
| Back to top |
|
|
jasorn
Warnings : 1
Active User
Joined: 12 Jul 2006
Posts: 191
Location: USA
|
|
|
|
| The old 'dynamic' COBOL in action? |
|
| Back to top |
|
|
parikshit123
Active User
.jpg)
Joined: 01 Jul 2005
Posts: 269
Location: India
|
|
|
|
Hi,
Here is what you need. I have just twicked the compile JCL available in on this site.
| Code: |
000001 //COBCOMP JOB 'IBMMFS','MAC',CLASS=A,MSGCLASS=X,NOTIFY=&SYSUID 000002 //PROCLIB JCLLIB ORDER=IBMMFS.PROC.COBOL <= CONTAINS IGYWCL
000003 //STEP1 EXEC IGYWCL,
000004 // PARM.COBOL='LIB,APOST,XREF,MAP,OFFSET' <= COMPILER OPTIONS
000005 //COBOL.SYSIN DD *
YOUR COBOL CODE GOES HERE.
YOUR COBOL CODE GOES HERE.
YOUR COBOL CODE GOES HERE.
YOUR COBOL CODE GOES HERE.
YOUR COBOL CODE GOES HERE.
YOUR COBOL CODE GOES HERE.
/*
000006 //LKED.SYSLIB DD DISP=SHR,DSN=IBMMFS.MAC.COPY(SUBCOB) <= COPYLIB
000007 //LKED.SYSLMOD DD DISP=SHR,DSN=IBMMFS.MAC.LOAD(COBOL) <= O\P PGM
000008 //SYSPRINT DD SYSOUT=*
000009 //
|
|
|
| Back to top |
|
|
|
|
