View previous topic :: View next topic |
Author |
Message |
ds390 Beginner
Joined: 23 Jan 2007 Posts: 82 Topics: 39
|
Posted: Wed Nov 11, 2009 8:54 pm Post subject: To me, this is strange ... |
|
|
Hi all,
I have a simple program which does the 'hello world.' thing.
If I compile it to t003 it doesn't print the output. It works if I give I gave it another name. This is strange. The source, compile jcl, run jcl are all the same except the load module name.
What could be the problem? |
|
Back to top |
|
 |
papadi Supermod
Joined: 20 Oct 2009 Posts: 594 Topics: 1
|
Posted: Wed Nov 11, 2009 9:11 pm Post subject: |
|
|
What happens when you execute t003?
It may help if you post all (3 or 4?) of the sysouts from a t003 execution. _________________ All the best,
di |
|
Back to top |
|
 |
semigeezer Supermod
Joined: 03 Jan 2003 Posts: 1014 Topics: 13 Location: Atlantis
|
Posted: Wed Nov 11, 2009 10:06 pm Post subject: |
|
|
have you checked for naming conflicts in steplib, joblib, sysproc, sysexec, and ispllib? does it work with a direct CALL 'dsn(t003)' command? _________________ New members are encouraged to read the How To Ask Questions The Smart Way FAQ at http://www.catb.org/~esr/faqs/smart-questions.html. |
|
Back to top |
|
 |
ds390 Beginner
Joined: 23 Jan 2007 Posts: 82 Topics: 39
|
Posted: Wed Nov 11, 2009 10:13 pm Post subject: |
|
|
If I execute t003, it ends normally with return code 0. And I checked the job log, no 'hello world' .
If I delete t003, and compile the same source to t005, and execute t005, it has the sysout with 'hello world' in it.
Then I change the target object back to t003, and run it and there is no sysout.
Has anyone ever experienced the similar thing? |
|
Back to top |
|
 |
ds390 Beginner
Joined: 23 Jan 2007 Posts: 82 Topics: 39
|
Posted: Wed Nov 11, 2009 10:20 pm Post subject: |
|
|
tso call 'ibmuser.atest.load(t005)' got 'hello world.'
tso call 'ibmuser.atest.load(t003)' got nothing.
BTW, I am using my ADCD 1.6, without LLA.
Thanks for your help. |
|
Back to top |
|
 |
ds390 Beginner
Joined: 23 Jan 2007 Posts: 82 Topics: 39
|
Posted: Wed Nov 11, 2009 10:25 pm Post subject: |
|
|
Interesting, if I delete t003 and rename t005 to t003, and call t003 either in TSO or JCL, I got my 'hello world.'
I am totally confused. |
|
Back to top |
|
 |
ds390 Beginner
Joined: 23 Jan 2007 Posts: 82 Topics: 39
|
Posted: Wed Nov 11, 2009 10:34 pm Post subject: |
|
|
Here is my JCL. If I change line # 4, and #8 from t003 to t005, I got hello world. If I use t003 on these line numbers, I got no sysout.
But if I delete t003 in ispf, and rename t005 to 003 and call t003 from tso or JCL , I got 'hello world.'
What is the problem?
Code: |
****** ***************************** Top of Data ******************************
000001 //T003J JOB MCA,CLASS=F,MSGLEVEL=(1,1),MSGCLASS=A,
000002 // NOTIFY=&SYSUID
000003 // SET FILENAME=T005COB1
000004 // SET RUNNAME=T003
000005 //STEP0 EXEC PGM=IDCAMS
000006 //SYSPRINT DD SYSOUT=*
000007 //SYSIN DD *
000008 DELETE IBMUSER.ATEST.LOAD(T003)
000009 /*
000010 //STEP1 EXEC IGYWCL,GOPGM=&RUNNAME,PARM='LIB' COPYBOOK
000011 //COBOL.SYSIN DD DSN=IBMUSER.ATEST.SRC(&FILENAME),DISP=SHR
000012 //COBOL.SYSLIB DD DSN=IBMUSER.ATEST.SRC,DISP=SHR COPYBOOK
000013 //LKED.SYSLMOD DD DISP=SHR,DSN=IBMUSER.ATEST.LOAD(&RUNNAME)
000014 //SYSPRINT DD SYSOUT=*
000015 //S2 EXEC PGM=&RUNNAME
000016 //STEPLIB DD DSN='IBMUSER.ATEST.LOAD',DISP=SHR
000017 //SYSOUT DD SYSOUT=*
****** **************************** Bottom of Data **************************** |
|
|
Back to top |
|
 |
papadi Supermod
Joined: 20 Oct 2009 Posts: 594 Topics: 1
|
Posted: Wed Nov 11, 2009 11:10 pm Post subject: |
|
|
What does the linkedit output show?
What is the program-id in the source?
What happens if you use the same value for the source name, loadlib name, and program-id?
It may be that you've confused the system between the module name and the entry point  _________________ All the best,
di |
|
Back to top |
|
 |
semigeezer Supermod
Joined: 03 Jan 2003 Posts: 1014 Topics: 13 Location: Atlantis
|
Posted: Thu Nov 12, 2009 4:02 pm Post subject: |
|
|
just out of curiosity, if you go to TSO and type TSO ISRDDN ; B T003 (or if needed, LOAD T003) do you see the module you expect to run? Does the command S T003 show it coming from where you want it to come from? _________________ New members are encouraged to read the How To Ask Questions The Smart Way FAQ at http://www.catb.org/~esr/faqs/smart-questions.html. |
|
Back to top |
|
 |
ds390 Beginner
Joined: 23 Jan 2007 Posts: 82 Topics: 39
|
Posted: Thu Nov 12, 2009 8:44 pm Post subject: |
|
|
Thanks, SG, and I can see the direction you are pointing to. I tried what you said and I got message says 'module not loaded'.
Please notice, if I delete t003 from ibmuser.atest.load library and submit JCL with pgm=t003, it will tell me requested module not found. I have a feeling that I have a wrong copy of t003 in the memery/storage that is not purged. |
|
Back to top |
|
 |
ds390 Beginner
Joined: 23 Jan 2007 Posts: 82 Topics: 39
|
Posted: Fri Nov 13, 2009 12:16 am Post subject: |
|
|
Hi All,
I found the cause of the problem. A few month ago I modified my IGYWCL to keep my temporary module before HEWL. So what happened is , although every time I delete the program, but the new program is being created from my old module.
Thanks for your help everyone. |
|
Back to top |
|
 |
papadi Supermod
Joined: 20 Oct 2009 Posts: 594 Topics: 1
|
Posted: Fri Nov 13, 2009 4:36 pm Post subject: |
|
|
Thanks for posting the "solution" - so much nicer than it remaining a mystery  _________________ All the best,
di |
|
Back to top |
|
 |
|
|