|
View previous topic :: View next topic
|
| Author |
Message |
d_sarlie
New User
Joined: 22 Apr 2008
Posts: 42
Location: coimbatore
|
|
|
|
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 |
|
 |
Dsingh29
Active User
Joined: 16 Dec 2008
Posts: 132
Location: IBM
|
|
| Back to top |
|
|
Bill Woodger
Moderator Emeritus
Joined: 09 Mar 2011
Posts: 7309
Location: Inside the Matrix
|
|
|
|
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 |
|
|
d_sarlie
New User
Joined: 22 Apr 2008
Posts: 42
Location: coimbatore
|
|
|
|
| Dsingh29 This I checked already ... Bill IKJEF is not an issue ... Thats taken care |
|
| Back to top |
|
|
Bill Woodger
Moderator Emeritus
Joined: 09 Mar 2011
Posts: 7309
Location: Inside the Matrix
|
|
|
|
| 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 |
|
|
dbzTHEdinosauer
Global Moderator
Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne
|
|
|
|
| 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 |
|
|
Anuj Dhawan
Superior Member
Joined: 22 Apr 2006
Posts: 6250
Location: Mumbai, India
|
|
|
|
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 |
|
|
Anuj Dhawan
Superior Member
Joined: 22 Apr 2006
Posts: 6250
Location: Mumbai, India
|
|
|
|
| And You might find the fine manual very helpful in describing the DSN RUN command. |
|
| Back to top |
|
|
dbzTHEdinosauer
Global Moderator
Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne
|
|
|
|
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 |
|
|
Anuj Dhawan
Superior Member
Joined: 22 Apr 2006
Posts: 6250
Location: Mumbai, India
|
|
|
|
Got your point; I'll be silent spectator for some time now, Dick... |
|
| Back to top |
|
|
dbzTHEdinosauer
Global Moderator
Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne
|
|
|
|
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 |
|
|
|
|
