Receive PARMS in a program PLI with DB2

angelalpe · New User Joined: 22 Sep 2005 Posts: 32

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

Sridevi_C · Posted: Tue Oct 25, 2005 6:44 pm

Try assigning value to IDE in EXEC statement.
//P18RRP EXEC PGM=IKJEFT01 IDE='HD061024H111111'
Let us know if you still have problems.
Regards,
Sridevi.

angelalpe · New User Joined: 22 Sep 2005 Posts: 32

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

Sridevi_C · Posted: Wed Oct 26, 2005 1:40 am

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.

angelalpe · New User Joined: 22 Sep 2005 Posts: 32

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.

new2cobol · New User Joined: 04 Jan 2006 Posts: 77 Location: Bangalore

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?