don.leahy
Active Member
Joined: 06 Jul 2010 Posts: 765 Location: Whitby, ON, Canada
|
|
|
|
parsesource wrote: |
dick scherrer wrote: |
Hello,
You Did notice that TS has posted it was working . . .
d |
i saw it too late. still do not believe that it will work this way. will test it on monday. |
The TS changed his story so often in this thread I am not sure what he is running now. First the macro was in, and then it was out, sometimes he used ISPSTART sometimes he didn't, then the macro was instream..... all over the map. |
|
mymf doubts
New User
Joined: 12 Jul 2012 Posts: 29 Location: India
|
|
|
|
Hello All,
As I said earlier...It is working just fine with IKJEFT01 and ISPSTART!!
Below is my working JCL...
Code: |
//SYSSYS1L JOB (1TOL0160),'7119-SRI',
// MSGCLASS=X,CLASS=S,REGION=5M,NOTIFY=SYSSYS1
//*WORKING EXAMPLE!!!!!!!!!!!!
//*WORKING EXAMPLE!!!!!!!!!!!!
//*_____________________________________________________________________
//*
//* FIRST IEBUPDTE CREATES MEMBER TEST3 FROM SYSIN
//* SECOND IEBUPDTE CREATES MEMBER TEST4 WHICH IS USED AS MACRO IN TEST3
//* THIRD STEP INVOKES TEST3 REXX MEMBER
//*_____________________________________________________________________
//*WORKING EXAMPLE!!!!!!!!!!!!
//*WORKING EXAMPLE!!!!!!!!!!!!
//STEP1 EXEC PGM=IEBUPDTE,PARM=NEW
//SYSPRINT DD DUMMY
//SYSUT2 DD DSN=SYSSYS1.ISPFCMDS(TEST3),DISP=SHR
//SYSIN DD *
./ ADD NAME=TEST3
/* REXX */
TRACE A
ADDRESS ISPEXEC
"EDIT DATASET('SYSSYS1.SYSLOG.PTSD') MACRO("TEST4")"
EXIT
//STEP2 EXEC PGM=IEBUPDTE,PARM=NEW
//SYSPRINT DD DUMMY
//SYSUT2 DD DSN=SYSSYS1.ISPFCMDS(TEST4),DISP=SHR
//SYSIN DD *
./ ADD NAME=TEST4
/*REXX*/
TRACE A
"ISREDIT MACRO"
ADDRESS ISREDIT
"EXCLUDE ALL"
"F ALL 'ALLOC FAILS'"
"DEL X ALL"
"RES"
"SAVE"
"END"
EXIT
/*
//*
//STEP3 EXEC PGM=IKJEFT01
//SYSPROC DD DSN=SYSSYS1.ISPFCMDS,DISP=SHR
//SYSTSPRT DD SYSOUT=*
//ISPLOG DD DUMMY
//ISPPROF DD SPACE=(TRK,(5,5,5)),UNIT=SYSDA,
// BLKSIZE=3120,LRECL=80,RECFM=FB
//ISPMLIB DD DSN=SYS1.MESSAGES,DISP=SHR
// DD DSN=SYS2.MESSAGES,DISP=SHR
//ISPPLIB DD DSN=SYS2.PANELS,DISP=SHR
// DD DSN=SYS1.PANELS,DISP=SHR
//ISPSLIB DD SPACE=(TRK,(5,5,5)),UNIT=SYSDA,
// BLKSIZE=3120,LRECL=80,RECFM=FB
//ISPTLIB DD DSN=SYSSYS1.ISPF.ISPPROF.T,DISP=SHR
// DD DSN=SYS2.TABLES.DCUF,DISP=SHR
// DD DSN=SYS1.TABLES,DISP=SHR
//ISPTABL DD DUMMY
//SYSTSIN DD *
ISPSTART CMD(%TEST3)
/*
|
Thank You all again |
|