View previous topic :: View next topic
|
Author |
Message |
key2move
New User
Joined: 30 Oct 2006 Posts: 7
|
|
|
|
How to pass data in COBOL program from JCL in an IMS program. |
|
Back to top |
|
|
William Thompson
Global Moderator
Joined: 18 Nov 2006 Posts: 3156 Location: Tucson AZ
|
|
|
|
Wouldn' it pass the same way as a COBOL program that wasn't an IMS program? That has been explained many times here, search for "parm COBOL" I would think....yes
.... |
|
Back to top |
|
|
Bitneuker
CICS Moderator
Joined: 07 Nov 2005 Posts: 1104 Location: The Netherlands at Hole 19
|
|
|
|
This one isn't as easy as the post referred to. Here we're talking about DFSRRC00 wich has the following parameters:
Quote: |
//EXEC PGM=DFSRRC00,REGION=&RGN,TIME=2,
// COND=(4,LT),
// PARM=(DLI,&MBR,&PSB,&BUF,
// &SPIE&TEST&EXCPVR&RST,
// &PRLD,&SRCH,&CKPTID,&MON,&LOGA,
// &FMTO,&IMSID,&SWAP,
// &DBRC,&IRLM,&IRLMNM,&BKO) |
Why not simply pass you info via SYSIN? |
|
Back to top |
|
|
William Thompson
Global Moderator
Joined: 18 Nov 2006 Posts: 3156 Location: Tucson AZ
|
|
|
|
Good point.... |
|
Back to top |
|
|
Bitneuker
CICS Moderator
Joined: 07 Nov 2005 Posts: 1104 Location: The Netherlands at Hole 19
|
|
|
|
William Thompson wrote: |
Good point.... |
thanks Think the confusion started with the title of the topic. TS didn't realise his 'IMS-program' is running under DFSRRC00 which is actually the IMS-program. Happens more often the titles are somewhat fuzzy |
|
Back to top |
|
|
Bitneuker
CICS Moderator
Joined: 07 Nov 2005 Posts: 1104 Location: The Netherlands at Hole 19
|
|
|
|
In addition the description of the parameters to DFSRRC00 right here |
|
Back to top |
|
|
William Thompson
Global Moderator
Joined: 18 Nov 2006 Posts: 3156 Location: Tucson AZ
|
|
|
|
I have seen parm hand down multple programs data (keyworded) so I thought that if the IMS stuff did not eat up available, it could be done? |
|
Back to top |
|
|
Bitneuker
CICS Moderator
Joined: 07 Nov 2005 Posts: 1104 Location: The Netherlands at Hole 19
|
|
|
|
Never done it before as far as I can remember now (some heavy Xmas days ) but will check later on. BtW: are we the only ones working today |
|
Back to top |
|
|
William Thompson
Global Moderator
Joined: 18 Nov 2006 Posts: 3156 Location: Tucson AZ
|
|
|
|
Bitneuker wrote: |
BtW: are we the only ones working today |
You call this working? While the cat is away, the mice will play...and my cat is not due back until the second |
|
Back to top |
|
|
Bitneuker
CICS Moderator
Joined: 07 Nov 2005 Posts: 1104 Location: The Netherlands at Hole 19
|
|
|
|
Working is for the youngsters 3 more month and I retire aged 60. So I'm training to leave work |
|
Back to top |
|
|
superk
Global Moderator
Joined: 26 Apr 2004 Posts: 4652 Location: Raleigh, NC, USA
|
|
|
|
Bitneuker wrote: |
BtW: are we the only ones working today |
Hardly. In our shop NO ONE is allowed time-off between Dec 15 and Jan 15. The downside is, with a production change freeze in effect for the same timeframe, no one can really do any work either. |
|
Back to top |
|
|
Bitneuker
CICS Moderator
Joined: 07 Nov 2005 Posts: 1104 Location: The Netherlands at Hole 19
|
|
|
|
So no Xmas and new year holiday Feel sorry for you all; working hard and probably doing overtime and not being able to even try to put it into production. If the freeze is completely when are you supposed to do the changes? Happened to me years ago and in the end they concluded they learned a lesson. |
|
Back to top |
|
|
William Thompson
Global Moderator
Joined: 18 Nov 2006 Posts: 3156 Location: Tucson AZ
|
|
|
|
superk wrote: |
In our shop NO ONE is allowed time-off between Dec 15 and Jan 15. The downside is, with a production change freeze in effect for the same timeframe, no one can really do any work either. |
No wonder you look like a sour puss.... |
|
Back to top |
|
|
Bitneuker
CICS Moderator
Joined: 07 Nov 2005 Posts: 1104 Location: The Netherlands at Hole 19
|
|
|
|
Quote: |
No wonder you look like a sour puss.... |
|
|
Back to top |
|
|
Bitneuker
CICS Moderator
Joined: 07 Nov 2005 Posts: 1104 Location: The Netherlands at Hole 19
|
|
|
|
I will delete some of the posts later on I guess. A little search on the web brought this. So there's some work to be done before TS succeeds in passing userdata via the parm to his application. Think he prefers a sysin-like thing
To TS: could you explain why you would want to do such a thing?
PS: TS means Topic Starter |
|
Back to top |
|
|
|