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

How to pass data in COBOL program from JCL in an IMS program


IBM Mainframe Forums -> IMS DB/DC
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
key2move

New User


Joined: 30 Oct 2006
Posts: 7

PostPosted: Thu Dec 28, 2006 4:20 pm
Reply with quote

How to pass data in COBOL program from JCL in an IMS program.
Back to top
View user's profile Send private message
William Thompson

Global Moderator


Joined: 18 Nov 2006
Posts: 3156
Location: Tucson AZ

PostPosted: Thu Dec 28, 2006 5:13 pm
Reply with quote

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
superk wrote:
Here's a good post to look at.
.... icon_smile.gif
Back to top
View user's profile Send private message
Bitneuker

CICS Moderator


Joined: 07 Nov 2005
Posts: 1104
Location: The Netherlands at Hole 19

PostPosted: Thu Dec 28, 2006 6:51 pm
Reply with quote

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
View user's profile Send private message
William Thompson

Global Moderator


Joined: 18 Nov 2006
Posts: 3156
Location: Tucson AZ

PostPosted: Thu Dec 28, 2006 6:58 pm
Reply with quote

Good point.... icon_eek.gif
Back to top
View user's profile Send private message
Bitneuker

CICS Moderator


Joined: 07 Nov 2005
Posts: 1104
Location: The Netherlands at Hole 19

PostPosted: Thu Dec 28, 2006 7:06 pm
Reply with quote

William Thompson wrote:
Good point.... icon_eek.gif


thanks icon_wink.gif 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 icon_rolleyes.gif
Back to top
View user's profile Send private message
Bitneuker

CICS Moderator


Joined: 07 Nov 2005
Posts: 1104
Location: The Netherlands at Hole 19

PostPosted: Thu Dec 28, 2006 7:18 pm
Reply with quote

In addition the description of the parameters to DFSRRC00 right here
Back to top
View user's profile Send private message
William Thompson

Global Moderator


Joined: 18 Nov 2006
Posts: 3156
Location: Tucson AZ

PostPosted: Thu Dec 28, 2006 7:24 pm
Reply with quote

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
View user's profile Send private message
Bitneuker

CICS Moderator


Joined: 07 Nov 2005
Posts: 1104
Location: The Netherlands at Hole 19

PostPosted: Thu Dec 28, 2006 7:30 pm
Reply with quote

Never done it before as far as I can remember now (some heavy Xmas days icon_wink.gif ) but will check later on. BtW: are we the only ones working today icon_rolleyes.gif
Back to top
View user's profile Send private message
William Thompson

Global Moderator


Joined: 18 Nov 2006
Posts: 3156
Location: Tucson AZ

PostPosted: Thu Dec 28, 2006 7:33 pm
Reply with quote

Bitneuker wrote:
BtW: are we the only ones working today icon_rolleyes.gif
You call this working? While the cat is away, the mice will play...and my cat is not due back until the second icon_lol.gif
Back to top
View user's profile Send private message
Bitneuker

CICS Moderator


Joined: 07 Nov 2005
Posts: 1104
Location: The Netherlands at Hole 19

PostPosted: Thu Dec 28, 2006 7:36 pm
Reply with quote

Working is for the youngsters icon_wink.gif 3 more month and I retire aged 60. So I'm training to leave work icon_cool.gif
Back to top
View user's profile Send private message
superk

Global Moderator


Joined: 26 Apr 2004
Posts: 4652
Location: Raleigh, NC, USA

PostPosted: Thu Dec 28, 2006 7:38 pm
Reply with quote

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
View user's profile Send private message
Bitneuker

CICS Moderator


Joined: 07 Nov 2005
Posts: 1104
Location: The Netherlands at Hole 19

PostPosted: Thu Dec 28, 2006 7:51 pm
Reply with quote

So no Xmas and new year holiday icon_eek.gif 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
View user's profile Send private message
William Thompson

Global Moderator


Joined: 18 Nov 2006
Posts: 3156
Location: Tucson AZ

PostPosted: Thu Dec 28, 2006 7:59 pm
Reply with quote

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.... icon_lol.gif
Back to top
View user's profile Send private message
Bitneuker

CICS Moderator


Joined: 07 Nov 2005
Posts: 1104
Location: The Netherlands at Hole 19

PostPosted: Thu Dec 28, 2006 8:02 pm
Reply with quote

Quote:
No wonder you look like a sour puss.... icon_lol.gif


36_2_35.gif
Back to top
View user's profile Send private message
Bitneuker

CICS Moderator


Joined: 07 Nov 2005
Posts: 1104
Location: The Netherlands at Hole 19

PostPosted: Thu Dec 28, 2006 8:08 pm
Reply with quote

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 icon_wink.gif

To TS: could you explain why you would want to do such a thing?

PS: TS means Topic Starter
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 -> IMS DB/DC

 


Similar Topics
Topic Forum Replies
No new posts Replace each space in cobol string wi... COBOL Programming 2
No new posts Using API Gateway from CICS program CICS 0
No new posts COBOL -Linkage Section-Case Sensitive COBOL Programming 1
No new posts COBOL ZOS Web Enablement Toolkit HTTP... COBOL Programming 0
No new posts Data set Rec-Cnt and Byte-Cnt Testing & Performance 2
Search our Forums:

Back to Top