Date:         Thu, 6 Mar 2003 16:17:37 +0100
Reply-To:     Michael.Eckhardt@T-SYSTEMS.COM
Sender:       "SAS(r) Discussion" <SAS-L@LISTSERV.UGA.EDU>
From:         Michael.Eckhardt@T-SYSTEMS.COM
Subject:      AW: Exec a program within MVS Batch SAS

Hi Jim,

I pasted below a macro excerpt that writes JCL directly to the Jes2 Internal Reader = Submits a MVS Batch Stream from inside a SAS Code :


   /* Open JES2 Internal Reader */
FILENAME intrdr SYSOUT = A  PGM = INTRDR  RECFM = FB  LRECL = 80;

DATA _NULL_;
   /* Write to JES2 Internal Reader */
FILE intrdr;
PUT
 "//GERLD&region JOB (2032,AXX,Z940520),CCAT-GER,                      "
/"//           MSGCLASS=X,CLASS=T,NOTIFY=&SYSUID,                      "
/"//           MSGLEVEL=(1,1)                                          "
/"/*JOBPARM R=F158                                                     "
/"//*******************************************************************"
/"//*     UESR.GER.PROD.CNTL(GERMETA)   LOAD METADADATEN GER WG U/I    "
/"//*******************************************************************"
/"//*     PARAMETER                                                    "
/"//*     SYSPARM    BERICHTSTERMIN JJMM                               "
/"//*******************************************************************"
/"//*       SAS PROCEDURE                                              "
/"//GERLOAD  EXEC SAS,REGION=0M, ORK='185000,150',                     "
/"//  OPTIONS='SYSPARM=&term'                                          "
/"//*        PRINT FILE SASLOG - SAS LOG FILE                          "
/"//SASLOG   DD SYSOUT=*                                               "
/"//*        SAS MACRO LIBRARY                                         "
/"//SASAUTOS DD  DISP=SHR,DSN=&germodul                                "
/"//*        SAS SOURCE START GER-SELEKTION                            "
/"//SYSIN    DD  *                                                     "

!!! include SAS Code here !!!

;

RUN;

    /* Close Internal Reader <=> Submit JES2-Batchjob */
FILENAME intrdr;

Mit freundlichen Gru?en
Best regards

Michael Eckhardt
Berater Business Intelligence
T-Systems
Systems Integration
Geschaftsstelle Darmstadt/FDL-Mitte
Frankfurter Str. 27

65760 Eschborn
Tel.  (06196) 961-540
Fax   (0711)  120303-014499
Mobil (0171)  5762151

E-mail: Michael.Eckhardt@t-systems.com
Internet: http://www.t-systems.de


"Unfortunately, the current generation of mail programs do not have checkers to see if the sender knows what he is talking about"
(A. S. Tanenbaum)




-----Ursprungliche Nachricht-----
Von: Jim Breckel [mailto:jbreckel@DCR.NET]
Gesendet: Dienstag, 25. Februar 2003 11:46
An: SAS-L@LISTSERV.UGA.EDU
Betreff: Exec a program within MVS Batch SAS


Has anyone executed a program from within batch MVS from within there
SAS program?  (I want to execute programs based on database values.)

I have looked at %SYSEXEC, X, and SYSTEM().  What will work?  What is
the best?

If you have any examples (I have tried IEBGENER without success), please
include.

Thanks in advance for any assistance.