jayram99
Beginner
Joined: 16 Aug 2004
Posts: 54
Topics: 22
Location: falls church.va,usa
|
 Posted: Sat Mar 28, 2026 5:21 pm Post subject: Pass Parameters from A PDS |
 |
|
Need help on this . I have Dataset ENXX.MIS.PARMLIB(PASSPARM). The PDS has following Details.
| Code: |
// SET TABLE=ABC0010S
// SET INPUTDS=MIS.PCWDXXXX.ABC0010S.OFILE1(0)
|
JCL ENXX.MIS.JCL(PCWDAUTX) should read above dataset and pass TABLE Parameter to SAS Step AND INPUTDS Value to ICETOOL Stemp. Attaching JCL For your reference.
| Code: |
//PCWDAUTX JOB (8456000000,CW),
// 'UPDT CDC_PROCSS_CYCL',
// MSGCLASS=T,
// CLASS=2,
// USER=BTCHJOB
//*___________________________________________________________________
//* Need Help to Read ENXX.MIS.PARMLIB(PASSPARM)
//*
//PROCORDR JCLLIB ORDER=(MIS.PROCLIB)
//PROD SET SSID='DB2P' | 'DB2D' | 'DB2Q' | 'DB2U'
//PROD SET ENV='' | 'ENXX.' | 'SHAD.' | ''
//PROD SET DB2ENV='USER' | 'ENXX.' | 'SHAD.' | 'USER'
//PROD SET TABLE=&TABLE | 'CDWDDB' | 'CDWFV1' | 'CDWP'
//PROD SET INPUTDS=&INPUTDS
//* __________________________________________________________________
//*
//JS10 EXEC PGM=ICETOOL
//*
//*ILEIN DD DSN=&ENV.MIS.PCWDXXXX.ABC0010S.OFILE1(0),
//* DISP=SHR
//FILEIN DD DSN=&INPUTDS, ------------------------> Need Help to pass INPUTDS from ENXX.MIS.PARMLIB(PASSPARM)
//* DISP=SHR
//FILEOUT DD DSN=&TMP1,
// DISP=(NEW,PASS,DELETE),
// UNIT=SYSDA,
// SPACE=(TRK,(1,1),RLSE),
// DCB=(RECFM=VB,BLKSIZE=0,DSORG=PS)
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//SHOWDEF DD SYSOUT=*
//TOOLIN DD DSN=&ENV.MIS.PARMLIB(CWDAUTMA),
// DISP=(SHR,KEEP,KEEP)
//*
//*| JS40 EXECUTE SAS PROC / OVERRIDES BY ENVIRONMENT |*
//*|------------------------------------------------------------------|*
//*| CREATE CDW TABLE OUTFILE1 |*
//*|__________________________________________________________________|*
//*|SYMBOLIC|REQ| ALL ENVIRONMENTS | DEFAULT |*
//*|--------|---|-----------------------------------------|-----------|*
//*|OPTIONS |YES| SAS DB2 OPTION | '' |*
//*|USERID |YES| UNIX USERID | '' |*
//*|UNIXID |YES| UNIX MACH ID | '' |*
//*|WORK |YES| WORK SPACE | '' |*
//*|______________________________________________________| |*
//*| | | DEVELOPMENT | OPS TESTING | |*
//*| | |-------------------|---------------------| |*
//*|ENV |NO | 'ENXX.' | 'SHAD.' | '' |*
//*|DB2ENV |YES| 'DEVL' | 'SHAD.' | 'USER' |*
//*|________|___|___________________|_____________________|___________|*
//*
//JS40 EXEC SAS,
// OPTIONS='$DB2DBUG',
// DB2ENV=&DB2ENV,
// WORK='500,250',
// ENV=&ENV,
// PARM='SYSPARM="&SSID,&TABLE"' --------------> TABLE Parameter should be Passed from ENXX.MIS.PARMLIB(PASSPARM)
//*
//SASAUTOS DD
// DD
// DD DSN=&ENV.MIS.MACLIB,
// DISP=(SHR,KEEP,KEEP)
//SASLOG DD SYSOUT=*
//SASLIST DD SYSOUT=*
//SASLIB DD DSN=UIS.USER.FORMATS,
// DISP=(SHR,KEEP,KEEP)
// DD DSN=UIS.USER.FMTLIB,
// DISP=(SHR,KEEP,KEEP)
//*
//INFILE DD DSN=&TMP1,
// DISP=SHR
//*
//SYSIN DD DSN=&ENV.MIS.SOURCE(CDWAUT),DISP=SHR
|
Please advise. Even if any other options or design approach also works for me.
Appreciate your help. Its been long time i am visiting this site. If you see any formatting or posting information is not good , Please correct me.
Thank you, |
|
FAQ
Search
Quick Manuals
Register
Profile
Log in to check your private messages
Log in
