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
 

 

Parm parameter in JCL

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
d_sarlie

New User


Joined: 22 Apr 2008
Posts: 32
Location: coimbatore

PostPosted: Tue Jul 31, 2012 2:06 pm    Post subject: Parm parameter in JCL
Reply with quote

Though I pass value thru parm The parm length the program receives is Zero when I display the length.Can someone help me in debugging this.

LINKAGE SECTION.
01 LS-IN-PARM.
05 LS-PARM-LENGTH PIC S9(04) COMP.
05 LS-REQ-DAILY-IND PIC X(30).

JCL

//R010 EXEC PGM=IKJEFT1A,
//* PARM='&IND,&FMDT,&TDT'
// PARM='D2011-01-012011-01-31',COND=(0,NE)
Back to top
View user's profile Send private message

Dsingh29

Active User


Joined: 16 Dec 2008
Posts: 132
Location: IBM

PostPosted: Tue Jul 31, 2012 2:24 pm    Post subject: Reply to: Parm parameter in JCL
Reply with quote

have a look here: it should help.

http://ibmmainframes.com/about52191.html
Back to top
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7226

PostPosted: Tue Jul 31, 2012 2:31 pm    Post subject: Reply to: Parm parameter in JCL
Reply with quote

The PARM is going to IKJEFTxx.

If this is for instance DB2, then there will be a way to pass a parm from the statement which causes yours to execute.
Back to top
View user's profile Send private message
d_sarlie

New User


Joined: 22 Apr 2008
Posts: 32
Location: coimbatore

PostPosted: Tue Jul 31, 2012 2:44 pm    Post subject: Reply to: Parm parameter in JCL
Reply with quote

Dsingh29 This I checked already ... Bill IKJEF is not an issue ... Thats taken care
Back to top
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7226

PostPosted: Tue Jul 31, 2012 3:07 pm    Post subject: Re: Reply to: Parm parameter in JCL
Reply with quote

d_sarlie wrote:
Dsingh29 This I checked already ... Bill IKJEF is not an issue ... Thats taken care


Just for my own knowledge, on the basis of what you have posted, how is IKJEF "not an issue"?

Your program gets a zero length, which means that no PARM is passed, or the PARM passed has no length.

You are passing a PARM of non-zero length from the JCL.

Ergo, something between the JCL and your program is "eating" the PARM, ie the JCL gives it the PARM and the program it gives the PARM to (IKJEFxx) has been told nothing about passing in on to you.

But, if you're happy it is not an issue, I'm happy. Just a pity the PARM doesn't get to your program...
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne

PostPosted: Tue Jul 31, 2012 3:24 pm    Post subject:
Reply with quote

d_sarlie wrote:
Bill IKJEF is not an issue ... Thats taken care


if that were true, you could access your parm,
but since you don't seem to know your ass from a hole in the ground
you can't, because what you said is obviously untrue.

the value of the parm parameter on the exec statement is accessible to the program invoked by the exec statement.

what program/command are you invoking via the SYSTSIN?

though it is only Tuesday, your qualifications as a technician
and expertise at nothing is very depressing.
Back to top
View user's profile Send private message
Anuj Dhawan

Senior Member


Joined: 22 Apr 2006
Posts: 6258
Location: Mumbai, India

PostPosted: Tue Jul 31, 2012 3:45 pm    Post subject:
Reply with quote

Something fo this sort, you should be doing:
Code:
//STEP0100 EXEC PGM=IKJEFT01
//SYSOUT   DD SYSOUT=*                 
//SYSPRINT DD SYSOUT=*                 
//SYSTSPRT DD SYSOUT=*                 
//SYSTSIN  DD *                         
 DSN SYSTEM(XXXX)                       
 RUN PROGRAM(pgmname)            -     
     PLAN(planname)              -     
     LIB('your.loadlib.pds')     -     
     PARMS('User Parms')               
 END
/*
Back to top
View user's profile Send private message
Anuj Dhawan

Senior Member


Joined: 22 Apr 2006
Posts: 6258
Location: Mumbai, India

PostPosted: Tue Jul 31, 2012 3:48 pm    Post subject:
Reply with quote

And You might find the fine manual very helpful in describing the DSN RUN command.
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne

PostPosted: Tue Jul 31, 2012 4:33 pm    Post subject:
Reply with quote

in the event the TS is attempting to invoke a DB2 program,
Anuj, you provided a good answer
and will be helpful to others.

but since the TS has not bothered to respond to other questions,
such as "What program and type are you invoking"
he may need another solution.
Back to top
View user's profile Send private message
Anuj Dhawan

Senior Member


Joined: 22 Apr 2006
Posts: 6258
Location: Mumbai, India

PostPosted: Tue Jul 31, 2012 5:21 pm    Post subject:
Reply with quote

Got your point; I'll be silent spectator for some time now, Dick...icon_smile.gif
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne

PostPosted: Tue Jul 31, 2012 5:44 pm    Post subject:
Reply with quote

Sorry Anuj,

had not meant to be critical.

just that SYSTSIN input to IKJEFT01 is a place to put TSO Commands.
I have sufficiently flamed the TS and he probably will not be back.

as you indicated, a DB2 program using a CAF attachment can be invoked via:
Code:
//SYSTSIN  DD *                         
 DSN SYSTEM(XXXX)                       
 RUN PROGRAM(pgmname)            -     
     PLAN(planname)              -     
     LIB('your.loadlib.pds')     -     
     PARMS('User Parms')               
 END
/*


a non-db2 program (or one that uses RRS as an attachment) can be invoked via:
Code:
//SYSTSIN  DD *                         
 RUN PROGRAM(pgmname)            -     
     LIB('your.loadlib.pds')     -     
     PARMS('User Parms')               
 END
/*
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 -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts TOT & DATE parameter in ICEMAN hemanthj642 DFSORT/ICETOOL 4 Mon Nov 14, 2016 5:19 am
No new posts How to display value of an exit param... lind sh CICS 2 Sun Oct 09, 2016 12:28 pm
No new posts Using 'parm' to vary SORTOUT record v... Sysaron DFSORT/ICETOOL 13 Wed Sep 07, 2016 9:24 pm
No new posts Send parameter for macro STIMERM from... Daniel Teolotitla PL/I & Assembler 13 Tue Jul 05, 2016 9:23 pm
No new posts COND parameter vs IF THEN ELSE Alks JCL & VSAM 11 Fri Jun 17, 2016 5:28 pm


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