/* REXX */
PARM='USER.SASMACRO(SAS1)'
"ALLOC DD(WORK) NEW REU UNIT(VIO) RECFM(F S) LRECL(6144)"
"ALLOC DD(SASAUTOS) DA('PROD.SAS.AUTOLIB') SHR REU"
"ALLOC DD(SASHELP) DA('PROD.SAS.SASHELP') SHR REU"
"ALLOC DD(SASMSG) DA('PROD.SAS.SASMSG') SHR REU"
"ALLOC DD(CONFIG) DA('USER.SYSIN(CONFIG)') SHR REU"
"ALLOC DD(SYSIN) DA('USER.SASMACRO(SAS1)') SHR REU"
"ALLOC DD(INP1) DA('USER.LAAATM01.LIST') SHR REU"
"ALLOC DD(OUT1) DA('USER.SAS1JCL1.OUT2') SHR REU"
"ALLOC DD(SASLOG) DA('USER.SAS1JCL1.SASLOG') SHR REU"
"ALLOC DD(SASLIST) DA('USER.SAS1JCL1.SASLIST') SHR REU"
/* "CALL 'PROD.SAS.LIBRARY(SAS)' '"PARM"'" */
"CALL 'PROD.SAS.LIBRARY(SAS)'"
"FREE DD(WORK SASAUTOS SASHELP SASMSG SASLOG SASLIST SYSIN INP1 OUT1)"
EXIT 0
PARM='USER.SASMACRO(SAS1)'
"ALLOC DD(WORK) NEW REU UNIT(VIO) RECFM(F S) LRECL(6144)"
"ALLOC DD(SASAUTOS) DA('PROD.SAS.AUTOLIB') SHR REU"
"ALLOC DD(SASHELP) DA('PROD.SAS.SASHELP') SHR REU"
"ALLOC DD(SASMSG) DA('PROD.SAS.SASMSG') SHR REU"
"ALLOC DD(CONFIG) DA('USER.SYSIN(CONFIG)') SHR REU"
"ALLOC DD(SYSIN) DA('USER.SASMACRO(SAS1)') SHR REU"
"ALLOC DD(INP1) DA('USER.LAAATM01.LIST') SHR REU"
"ALLOC DD(OUT1) DA('USER.SAS1JCL1.OUT2') SHR REU"
"ALLOC DD(SASLOG) DA('USER.SAS1JCL1.SASLOG') SHR REU"
"ALLOC DD(SASLIST) DA('USER.SAS1JCL1.SASLIST') SHR REU"
/* "CALL 'PROD.SAS.LIBRARY(SAS)' '"PARM"'" */
"CALL 'PROD.SAS.LIBRARY(SAS)'"
"FREE DD(WORK SASAUTOS SASHELP SASMSG SASLOG SASLIST SYSIN INP1 OUT1)"
EXIT 0