Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

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

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> IMS DB/DC
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    Post subject: How to pass data in COBOL program from JCL in an IMS program
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: 3158
Location: Tucson AZ

PostPosted: Thu Dec 28, 2006 5:13 pm    Post subject:
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: 1105
Location: The Netherlands at Hole 19

PostPosted: Thu Dec 28, 2006 6:51 pm    Post subject:
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: 3158
Location: Tucson AZ

PostPosted: Thu Dec 28, 2006 6:58 pm    Post subject:
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: 1105
Location: The Netherlands at Hole 19

PostPosted: Thu Dec 28, 2006 7:06 pm    Post subject:
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: 1105
Location: The Netherlands at Hole 19

PostPosted: Thu Dec 28, 2006 7:18 pm    Post subject:
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: 3158
Location: Tucson AZ

PostPosted: Thu Dec 28, 2006 7:24 pm    Post subject:
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: 1105
Location: The Netherlands at Hole 19

PostPosted: Thu Dec 28, 2006 7:30 pm    Post subject:
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: 3158
Location: Tucson AZ

PostPosted: Thu Dec 28, 2006 7:33 pm    Post subject:
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: 1105
Location: The Netherlands at Hole 19

PostPosted: Thu Dec 28, 2006 7:36 pm    Post subject:
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

Moderator Team Head


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

PostPosted: Thu Dec 28, 2006 7:38 pm    Post subject:
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: 1105
Location: The Netherlands at Hole 19

PostPosted: Thu Dec 28, 2006 7:51 pm    Post subject:
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: 3158
Location: Tucson AZ

PostPosted: Thu Dec 28, 2006 7:59 pm    Post subject:
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: 1105
Location: The Netherlands at Hole 19

PostPosted: Thu Dec 28, 2006 8:02 pm    Post subject:
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: 1105
Location: The Netherlands at Hole 19

PostPosted: Thu Dec 28, 2006 8:08 pm    Post subject:
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    IBMMAINFRAMES.com Support Forums -> IMS DB/DC All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
This topic is locked: you cannot edit posts or make replies. Full Time COBOL Software Development ... shally Mainframe Jobs 0 Fri Jan 20, 2017 5:24 am
This topic is locked: you cannot edit posts or make replies. COBOL Software Development Lead at Fi... shally Mainframe Jobs 0 Fri Jan 20, 2017 5:21 am
No new posts Storing huge volume of data, compare ... Pradeep K M All Other Mainframe Topics 3 Mon Jan 16, 2017 5:08 pm
No new posts how to recover an uncataloged VSAM da... archanamuthukrishnan All Other Mainframe Topics 3 Wed Jan 11, 2017 6:18 pm
No new posts Executing OO COBOL program invoking J... Virendra Shambharkar COBOL Programming 2 Tue Jan 10, 2017 6:37 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us