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 Writing a file using online program grvtomar PL/I & Assembler 3 Fri Jun 30, 2017 1:06 pm
No new posts pre-compiler for program in an HFS Pedro DB2 0 Fri Jun 23, 2017 11:13 pm
No new posts Compiling program in endeavor for tra... RALAKKAL Compuware & Other Tools 4 Mon Jun 05, 2017 8:27 pm
No new posts COBOL DB2 program - zIIP eligible vasanthz COBOL Programming 7 Wed May 31, 2017 5:12 am
No new posts DB2 Program abending without giving a... rahulgarg14 DB2 7 Mon May 29, 2017 8:10 pm


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