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
 

 

Receive PARMS in a program PLI with DB2

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

New User


Joined: 22 Sep 2005
Posts: 32

PostPosted: Tue Oct 25, 2005 5:39 pm    Post subject: Receive PARMS in a program PLI with DB2
Reply with quote

Hello,

I need to know like I can receive a parameter that him passage in the JCL in a program PLI that has instructions DB2

I have proven with the following JCL but what receives the program is value &IDE and not the content that has varibale &IDE. I need to receive in program PLI-DB2 value HD061024H111111

The JCL that I have executed is:

//SYSNPARM SET IDE='HD061024H111111'
//P18RRP EXEC PGM=IKJEFT01
//STEPLIB DD DSN=USUARIO.LIB.LOADLIB,DISP=SHR
//DBRMLIB DD DSN=USUARIO.LIB.DBRMLIB,DISP=SHR
//DSNTRACE DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(DS2)
RUN PROGRAM(PRUEBA) PLAN(PRUEBA) PARM(&IDE)-
LIB('USUARIO.LIB.LOADLIB')
END

Thanks
Back to top
View user's profile Send private message

Sridevi_C

Active User


Joined: 22 Sep 2005
Posts: 104
Location: Concord, New Hampshire, USA.

PostPosted: Tue Oct 25, 2005 6:44 pm    Post subject:
Reply with quote

Try assigning value to IDE in EXEC statement.
//P18RRP EXEC PGM=IKJEFT01 IDE='HD061024H111111'
Let us know if you still have problems.
Regards,
Sridevi.
Back to top
View user's profile Send private message
angelalpe
Warnings : 1

New User


Joined: 22 Sep 2005
Posts: 32

PostPosted: Tue Oct 25, 2005 8:32 pm    Post subject:
Reply with quote

I have assigned value to IDE in EXEC statement, but It isn't correct

//SYSNPARM SET IDE='HD061024H111111'
//P18RRP EXEC PGM=IKJEFT01,PARM='&IDE'
//STEPLIB DD DSN=USUARIO.LIB.LOADLIB,DISP=SHR
//DBRMLIB DD DSN=USUARIO.LIB.DBRMLIB,DISP=SHR
//DSNTRACE DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(DS2)
RUN PROGRAM(PRUEBA) PLAN(PRUEBA) -
LIB('USUARIO.LIB.LOADLIB')
END


It leaves the following message error

IKJ56621I INVALID COMMAND NAME SYNTAX
READY
DSN SYSTEM(DS2)
DSN
RUN PROGRAM(PRUEBA) PLAN(PRUEBA) LIB('USUARIO.LIB.LOADLIB')
DSN
END
READY
END
Back to top
View user's profile Send private message
Sridevi_C

Active User


Joined: 22 Sep 2005
Posts: 104
Location: Concord, New Hampshire, USA.

PostPosted: Wed Oct 26, 2005 1:40 am    Post subject:
Reply with quote

My suggestion was(in the earlier post)to ASSIGN value to IDE in EXEC statement. It means, the code should be like...
//P18RRP EXEC PGM=IKJEFT01 IDE='HD061024H111111'
Your code shows that you are USING the value of IDE in EXEC statement.
Please give it a hit and let us know...
Regards,
Sridevi.
Back to top
View user's profile Send private message
angelalpe
Warnings : 1

New User


Joined: 22 Sep 2005
Posts: 32

PostPosted: Wed Oct 26, 2005 12:24 pm    Post subject:
Reply with quote

I write what you say to me and gives a syntax error in the JCL:

//PRUEBA EXEC PGM=IKJEFT01,IDE='HD061024H111111'
//STEPLIB DD DSN=USUARIO.LIB.LOADLIB,DISP=SHR
//DBRMLIB DD DSN=USUARIO.LIB.DBRMLIB,DISP=SHR
//DSNTRACE DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(DS2)
RUN PROGRAM(PRUEBA) PLAN(PRUEBA) -
LIB('USUARIO.LIB.LOADLIB')
END


The error is:
IEFC630I UNIDENTIFIED KEYWORD IDE


Regards.
Back to top
View user's profile Send private message
new2cobol

New User


Joined: 04 Jan 2006
Posts: 77
Location: Bangalore

PostPosted: Fri Feb 10, 2006 8:52 pm    Post subject:
Reply with quote

Do you really need SYSNPARM step name? I don't use it, and my JCLs run prpoerly....

// SET IDE='HD061024H111111'
//P18RRP EXEC PGM=IKJEFT01
//STEPLIB DD DSN=USUARIO.LIB.LOADLIB,DISP=SHR
//DBRMLIB DD DSN=USUARIO.LIB.DBRMLIB,DISP=SHR
//DSNTRACE DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(DS2)
RUN PROGRAM(PRUEBA) PLAN(PRUEBA) PARM(&IDE)-
LIB('USUARIO.LIB.LOADLIB')
END

Will this work?
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 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 Need help in REXX CALL program Raje1002 CLIST & REXX 5 Wed Apr 19, 2017 11:18 pm
No new posts Jcl pram vs proc parms ashek15 JCL & VSAM 3 Thu Mar 30, 2017 6:50 pm
No new posts Receive a file using PCOMM macro Harald.v.K IBM Tools 0 Thu Mar 23, 2017 6:50 pm
No new posts SQL query not working in Cobol program. CuriousMainframer COBOL Programming 14 Wed Feb 22, 2017 5:56 pm


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