Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
passing value from jcl to sas

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> All Other Mainframe Topics
View previous topic :: :: View next topic  
Author Message
ragava_b

New User


Joined: 06 May 2010
Posts: 26
Location: Hyderabad

PostPosted: Fri May 11, 2012 1:05 pm    Post subject: passing value from jcl to sas
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: 2445
Location: Netherlands, Amstelveen

PostPosted: Fri May 11, 2012 1:22 pm    Post subject:
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: 26
Location: Hyderabad

PostPosted: Fri May 11, 2012 2:23 pm    Post subject: passing value from jcl to sas
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: 2445
Location: Netherlands, Amstelveen

PostPosted: Fri May 11, 2012 2:30 pm    Post subject:
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: 1532
Location: Chennai

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

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

Global Moderator


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

PostPosted: Fri May 11, 2012 2:41 pm    Post subject:
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: 1532
Location: Chennai

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

Another code snippet example of SYSPARM usage.
http://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    IBMMAINFRAMES.com Support Forums -> All Other Mainframe Topics All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Passing data from REXX to C programme... chong.zhou CLIST & REXX 3 Wed Jul 26, 2017 9:11 pm
No new posts FTP - JCL failed while passing FTP co... Suneetha1612 JCL & VSAM 12 Wed Nov 16, 2016 7:33 pm
No new posts Passing information through JCL as in... Pia Baruah JCL & VSAM 5 Wed May 25, 2016 2:22 pm
No new posts Confusion while passing data to a cal... amitc23 COBOL Programming 5 Mon Mar 07, 2016 12:36 pm
No new posts Passing parms when calling ISRSUPC(su... jasorn COBOL Programming 3 Mon Nov 16, 2015 12:06 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us