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
No new posts Replace values in the input data Vikas Maharnawar DFSORT/ICETOOL 10 Thu May 11, 2017 2:18 pm
This topic is locked: you cannot edit posts or make replies. Cobol GUI (like Editor) Kala Mainframe COBOL Programming 14 Wed May 10, 2017 12:30 pm
No new posts IMS T-Pipe queue counts in a COBOL Pr... Siva NKK Kothamasu IMS DB/DC 0 Tue May 09, 2017 6:31 pm
No new posts COBOL Code Parsers and Lineage Establ... balimanja COBOL Programming 2 Tue May 02, 2017 3:30 am
No new posts Group Data based on a key Arun Raj DFSORT/ICETOOL 7 Thu Apr 27, 2017 11:29 pm


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