MVSFORUMS.com

coolguy · Beginner Joined: 01 Dec 2004 Posts: 82 Topics: 28

it is wroking fine Thanks for all

Coolguy

Mervyn · Posted: Tue Sep 20, 2005 6:31 am Post subject:

acevedo · Posted: Tue Sep 20, 2005 6:51 am Post subject:

In my case no parms between call-er and call-ed or do you mean why 'yourlibrary yourmac...' are not in IKJEFT01 PARM?

Mervyn · Posted: Tue Sep 20, 2005 8:15 am Post subject:

acevedo · Posted: Wed Sep 21, 2005 3:28 am Post subject:

Yes and No.

Yes with other programs and No with the one you posted.

coolguy · Beginner Joined: 01 Dec 2004 Posts: 82 Topics: 28

I running the rexx thru below Jcl here i want to pass sysboic parmeters to rexx

Like rexxname macname are pasing as Parms i want to the parms thru symbolic parameters is it possble ? Plas help me in that

//EDITMAC EXEC PGM=IKJEFT01
//SYSEXEC DD DSN=yourid.REXX.TEST,DISP=SHR
//ISPPROF DD DSN=yourid.COPY.ISPPROF,DISP=SHR
//ISPPLIB DD DISP=SHR,DSN=SYS1.SISPPENU
//ISPMLIB DD DISP=SHR,DSN=SYS1.SISPMENU
//ISPSLIB DD DISP=SHR,DSN=SYS1.SISPSENU
//ISPTLIB DD DISP=SHR,DSN=SYS1.SISPTENU
//ISPLOG DD SYSOUT=*,DCB=(LRECL=125,RECFM=VBA)
//SYSTSPRT DD SYSOUT=*,DCB=LRECL=125
//SYSPRINT DD SYSOUT=*
//SYSTSIN DD *
ISPSTART CMD(SASTEST REXXNAME MACNAME)
//*

Thanks
Cool

kolusu · Posted: Wed Sep 21, 2005 9:48 am Post subject:

coolguy,

Why are you repeating the same question over and over? You got an answer to pass symbolic parms in the other thread. Use the method posted in the other thread by making systsin as dummy

coolguy · Beginner Joined: 01 Dec 2004 Posts: 82 Topics: 28

sorry for the confusion kolusu still ia m geting the errors

My Jcl is
//EDITMAC EXEC PGM=IKJEFT01,PARM='%LASTREXX &CYCLE &CY'
//SYSEXEC DD DSN=MY.REXX.PGMS,DISP=SHR
//ISPPROF DD DSN=&&ISPPROF,DISP=(,PASS),
// UNIT=SYSDA,SPACE=(CYL,(1,1,10),RLSE),
// RECFM=FB,LRECL=80
//ISPPLIB DD DISP=SHR,DSN=SYS1.ISPPLIB
//ISPMLIB DD DISP=SHR,DSN=SYS1.ISPMLIB
//ISPSLIB DD DISP=SHR,DSN=SYS1.ISPSLIB
//ISPTLIB DD DISP=SHR,DSN=SYS1.ISPTLIB
//ISPLOG DD SYSOUT=*,DCB=(LRECL=125,RECFM=VBA)
//SYSTSPRT DD SYSOUT=*,DCB=LRECL=125
//SYSPRINT DD SYSOUT=*
//SYSTSIN DD DUMMY
/*
but i am geting the error msg in

SYSTSPRT

8 *-* "VPUT (ABC XYZ) SHARED"
+++ RC(-3) +++
9 *-* "EDIT DATASET('"PDS"') MACRO("MAC")"
+++ RC(-3) +++

pls help in that sorry to troule you a lot

thanks
cool

Mervyn · Posted: Wed Sep 21, 2005 10:28 am Post subject:

Coolguy,

Going back to my original solution, and modifying slightly;

The JCL:

semigeezer · Posted: Wed Sep 21, 2005 10:56 am Post subject:

You need to start ISPF and have it start your command. That means that you need to use ISPSTART CMD(%SASTEST REXXNAME MACNAME). I've never seen it done this way because it is common to do a few things before calling ISPF like PROFILE PREFIX(...) but it should work from the PARM= if there is no setup required.

Phantom · Posted: Thu Sep 22, 2005 12:23 am Post subject:

Semigeezer,

semigeezer · Posted: Thu Sep 22, 2005 1:41 am Post subject:

No. you are using the EXEC card's PARM='...' instead of SYSTSIN to pass an initial command to TSO. I'm saying that either way should work as long as everything you need to do can be done in one command. But that command must either be ISPSTART, or an exec or CLIST that invokes ISPSTART.

Phantom · Posted: Thu Sep 22, 2005 5:24 am Post subject:

Oh Okay. Got it now...

Thanks for the clarification.

Regards,
Phantom

coolguy · Beginner Joined: 01 Dec 2004 Posts: 82 Topics: 28

Thanks a lot it is working fine

cool