View previous topic :: View next topic
|
Author |
Message |
vizaiinti
New User
Joined: 08 Feb 2007 Posts: 11 Location: Hyderabad
|
|
|
|
Can we use Symbolic paramters in instream proc? |
|
Back to top |
|
|
superk
Global Moderator
Joined: 26 Apr 2004 Posts: 4652 Location: Raleigh, NC, USA
|
|
|
|
Yes. |
|
Back to top |
|
|
vizaiinti
New User
Joined: 08 Feb 2007 Posts: 11 Location: Hyderabad
|
|
|
|
if Yes, can you please help me with an example? |
|
Back to top |
|
|
superk
Global Moderator
Joined: 26 Apr 2004 Posts: 4652 Location: Raleigh, NC, USA
|
|
|
|
Code: |
//MYPROC PROC HLQ=&SYSUID
//*
//PS01 EXEC PGM=IEFBR14
//DD1 DD DSN=&HLQ..MYTEST.DATA,DISP=(,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(1,1)),RECFM=FB,LRECL=80
//*
// PEND
//*
//JS01 EXEC MYPROC,HLQ=TEMP
|
Try it like this, then change the last line to
//JS01 EXEC MYPROC
and try it again. |
|
Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
Hello,
Quote: |
can you please help me with an example? |
Here ya go. . .
Code: |
//* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
//MXCC05PH PROC MOD=9,C=,CEN=20,ICNPFX=KT,F='FLIP.',RUNYYMM=8888
//* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
//MSCC50X EXEC PGM=MXCC50&MOD,PARM=' CP'
//ALLCLMS DD DSN=MX.&C.CLAIMS.A&CEN.&RUNYYMM,DISP=SHR
//CARDFILE DD DSN=MX.&ICNPFX.ICNS.&F.TEMP#7,DISP=SHR
//DATE DD DSN=MX.RDS.PURGHIST.DATES(D&RUNYYMM),DISP=SHR
//TEMPFLE DD DSN=&&TEMP,DISP=(,PASS),UNIT=SYSDA,
// SPACE=(CYL,(8,2),RLSE),
// DCB=(BLKSIZE=12750,LRECL=255,RECFM=FB)
//STDFLE DD DSN=&&SRTD,DISP=(,PASS),UNIT=SYSDA,
// SPACE=(CYL,(8,2),RLSE),
// DCB=(BLKSIZE=12750,LRECL=255,RECFM=FB)
//SORTFLE DD DSN=&&SORT,DISP=(,PASS),UNIT=SYSDA,
// SPACE=(CYL,(8,2),RLSE),
// DCB=(BLKSIZE=12750,LRECL=255,RECFM=FB)
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(8,1),RLSE)
//PRINTFLE DD SYSOUT=O,DEST=LOCAL
//PRNTFLE1 DD SYSOUT=O,DEST=LOCAL
//SYSOU1 DD SYSOUT=*
//SYSDBOUT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSOUT DD SYSOUT=*
// PEND
//* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
//RUN0401 EXEC MXCC05PH,MOD=4,CEN=20,ICNPFX=KT,RUNYYMM=0401
//RUN0402 EXEC MXCC05PH,MOD=4,CEN=20,ICNPFX=KT,RUNYYMM=0402
//RUN0403 EXEC MXCC05PH,MOD=4,CEN=20,ICNPFX=KT,RUNYYMM=0403
//RUN0404 EXEC MXCC05PH,MOD=4,CEN=20,ICNPFX=KT,RUNYYMM=0404
//RUN0405 EXEC MXCC05PH,MOD=4,CEN=20,ICNPFX=KT,RUNYYMM=0405
//RUN0406 EXEC MXCC05PH,MOD=4,CEN=20,ICNPFX=KT,RUNYYMM=0406
//RUN0407 EXEC MXCC05PH,MOD=4,CEN=20,ICNPFX=KT,RUNYYMM=0407
//
|
This is part of something that runs regularly in production. Hopefully, i've not introduced any inconsistencies editing. . . |
|
Back to top |
|
|
|
|