View previous topic :: View next topic
|
Author |
Message |
ganga79
New User
Joined: 16 Nov 2005 Posts: 23
|
|
|
|
Hi,
DSN1='FDWS01.GANGA.RECON.OUT'
"ALLOC DSNAME('"||DSN1||"') MOD SPACE(1,1) TRACKS RELEASE DDNAME(DD01)"
I am using the above commands in my REXX program ,i want to pass the information for DSN1 by using the JCL PARM parameter..please help me on that ,how can send the datasets by using the Parm parameter.Thanks |
|
Back to top |
|
|
superk
Global Moderator
Joined: 26 Apr 2004 Posts: 4652 Location: Raleigh, NC, USA
|
|
|
|
Is this what you're looking for? |
|
Back to top |
|
|
ganga79
New User
Joined: 16 Nov 2005 Posts: 23
|
|
|
|
Releasing the Unused space from the Datasets..By passing the information through SYSIN DD* or Parm parameter...Please let me know if you have any questions.Thanks.
Regards,
Ganga |
|
Back to top |
|
|
karthikraman_m
New User
Joined: 10 Jun 2005 Posts: 12 Location: India
|
|
|
|
Hi,
Parms can be passed to the REXX program from JCL just like command line arguments in other languages. The TESTPARM in the following REXX program execution step is an argument passed to the program.
ISPSTART CMD(%REXXPROG TESTPARM)
In the REXX execution step in JCL, give TESTPARM="HQL.HQL2.Q"
Inside the REXX program, add the Arg command,
/** Rexx **/
Arg DSN
Now, DSN should contain whatever you provided for TESTPARM in the JCL.
Thanks,
Karthik Raman |
|
Back to top |
|
|
ganga79
New User
Joined: 16 Nov 2005 Posts: 23
|
|
|
|
I coded the JCL by using ISPSTART
Code: |
//SYSPROC DD DSN=FDWS01.WORK.JCL,DISP=SHR
//TESTPARM DD DSN=FDWS01.GANGA.RECON.OUT,DISP=SHR
//SYSTSPRT DD SYSOUT=*
//SYSDUMP DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//*
//SYSTSIN DD *
ISPSTART CMD('FDWS01.WORK.JCL(SAMREX5)' TESTPARM)
|
it is giving MAXCC=998,and Spoll having this message
READY
ISPSTART CMD('FDWS01.WORK.JCL(SAMREX5)' TESTPARM)
ISPI003 Following file was not preallocated:
ISPPROF
if coded the jcl wrongly ,correct me...
Thanks
Ganga |
|
Back to top |
|
|
superk
Global Moderator
Joined: 26 Apr 2004 Posts: 4652 Location: Raleigh, NC, USA
|
|
Back to top |
|
|
|