Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist 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 The same REXX program doesnt work for... jackzhang75 CLIST & REXX 5 Wed Dec 06, 2017 2:51 am
No new posts Calling IKJEFT01 program from Rexx upendrasri CLIST & REXX 8 Wed Nov 15, 2017 4:27 pm
No new posts How to write Rexx program to size and... sreejeshcs CLIST & REXX 14 Thu Oct 12, 2017 7:26 am
No new posts Accessing CICS tran with map from JCL... navdeepaggarwal CICS 5 Tue Oct 03, 2017 6:15 pm
No new posts Writing a file using online program grvtomar PL/I & Assembler 3 Fri Jun 30, 2017 1:06 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us