IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

passing value from jcl to sas


IBM Mainframe Forums -> All Other Mainframe Topics
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
ragava_b

New User


Joined: 06 May 2010
Posts: 29
Location: Hyderabad

PostPosted: Fri May 11, 2012 1:05 pm
Reply with quote

HI

I need help in sas ...as i am new to this...need to pass the date and SMFMNPRN value from jcl to sas...
my sas statement like this after SYSIN dd statement

Code:
%INCLUDE GRAYLIB(OPTIONS);                                           
                                                                       
 DATA WORK.CICSTRAN; SET DETAIL.CICSTRAN                               
                          END=EOF;                                     
     DATE = DATEPART(START);                                           
     START = TIMEPART(START);                                         
     STOP = TIMEPART(STOP);                                           
                                                                       
    *IF DATE = MDY(11,09,2010);                                       
    *IF STOP < HMS(21,50,00) OR START > HMS(24,00,00) THEN DELETE;     
     WHERE SMFMNPRN IN : ('S0ATMPHK');                                 
    *IF TRAN IN :('C','S','O') THEN DELETE;                           
     IF TRAN IN :('AEX','BPA','CBK','CCA','CDP',                       
                  'CPI','CQC','CQD','CWC','CWD',                       
                  'DEP','FPA','GIQ','GWD','INQ',                       
                  'OEX','PAL','PIN','RAD','RDT',                       
                  'RGD','RQK','RWT','STA','TSA',                       
                  'TSQ','TTI','FXQ') THEN DELETE;                     
                                                                       
 PROC SORT DATA=WORK.CICSTRAN;                                         
     BY SMFMNPRN DATE START TRAN;                                     
                                                                       
 PROC PRINT DATA=WORK.CICSTRAN SPLIT='*' NOOBS;                       
 VAR TRAN START STOP RESPTIME                                         
     USRCPUTM                                                         
     RMITM                                                             
     RMISUSTM                                                         
     FCIOWTTM                                                         
     DSPDELTM DISPWTTM                                                 
     TSIOWTTM                                                         
     EXWAITTM                                                         
     MXTDELTM TCLDELTM                                                 
     LU62DLTM IRIOWTTM                                                 
     SUSPNDTM                                                         
     TDIOWTTM JCIOWTTM                                                 
     SYNCTM ENQDELTM RLSWAITM                                         
     /*                       
      SCHWMG16 SCHWML16                                     
      TRANNUM PGMNAME                                       
      ABCODEC ABCODEO                                       
      */                                                   
      ;                                                     
      BY SMFMNPRN DATE;                                     
      PAGEBY SMFMNPRN;                                     
      FORMAT DATE DATE8.;                                   
      FORMAT START STOP TIME11.3;                           
      FORMAT RESPTIME SUSPNDTM 8.4;                         
                                                           
      TITLE1 "MAJOR TASK SUMMARY";                         
                                                           
      LABEL  SMFMNPRN="CICS*APPLID"                         
             DATE="DATE"                                   
             TRAN="TRAN*ID"                                 
             START="TRAN*START TIME"                       
             STOP="TRAN*STOP TIME"                         
             RESPTIME="RESPONSE*TIME"                       
             USRCPUTM="CPU*TIME"                           
             TERM="TERM*ID"                                 
             SUSPNDTM="SUSPEND*TIME"                       
             ;
Back to top
View user's profile Send private message
PeterHolland

Global Moderator


Joined: 27 Oct 2009
Posts: 2481
Location: Netherlands, Amstelveen

PostPosted: Fri May 11, 2012 1:22 pm
Reply with quote

OPTIONS='SYSPARM=(your parameter)'

Code:

DATA _NULL_                                                             00130000
   ;                                                                    00140000
   SP = SCAN(SYSPARM(),1);                                              00150000
   CALL SYMPUT('SYSID',SP);                                             00160000
   STOP;                                                                00170000
RUN;                                                                    00180000
Back to top
View user's profile Send private message
ragava_b

New User


Joined: 06 May 2010
Posts: 29
Location: Hyderabad

PostPosted: Fri May 11, 2012 2:23 pm
Reply with quote

Hi Peter,

can you explain little more ....how can i pass this in jcl
Back to top
View user's profile Send private message
PeterHolland

Global Moderator


Joined: 27 Oct 2009
Posts: 2481
Location: Netherlands, Amstelveen

PostPosted: Fri May 11, 2012 2:30 pm
Reply with quote

Code:

//XIBFSAS1 EXEC  SAS,WORK='5000,5000',OPTIONS='SYSPARM=(your parameters)'           
Back to top
View user's profile Send private message
vasanthz

Global Moderator


Joined: 28 Aug 2007
Posts: 1742
Location: Tirupur, India

PostPosted: Fri May 11, 2012 2:35 pm
Reply with quote

www.caliberdt.com/tips/Jul2005.htm
Back to top
View user's profile Send private message
PeterHolland

Global Moderator


Joined: 27 Oct 2009
Posts: 2481
Location: Netherlands, Amstelveen

PostPosted: Fri May 11, 2012 2:41 pm
Reply with quote

vasanthz wrote:
http://www.caliberdt.com/tips/Jul2005.htm


And what is the extra in your comment?
Back to top
View user's profile Send private message
vasanthz

Global Moderator


Joined: 28 Aug 2007
Posts: 1742
Location: Tirupur, India

PostPosted: Fri May 11, 2012 3:15 pm
Reply with quote

Another code snippet example of SYSPARM usage.
www.caliberdt.com/tips/Jul2005.htm
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> All Other Mainframe Topics

 


Similar Topics
Topic Forum Replies
No new posts Passing Parameters to Programs Invoke... PL/I & Assembler 5
No new posts Passing SYSPRINT to Invoked Program PL/I & Assembler 9
No new posts Passing parm from JCL to Assembler, b... PL/I & Assembler 2
No new posts passing symbolic parameters through d... JCL & VSAM 3
No new posts passing stem variable with VPUT/VGET ... CLIST & REXX 6
Search our Forums:

Back to Top