/* Optimized with RexxOpt 1.8 */
if ~show('L','cl_rexx.library') then;do;if ~addlib('cl_rexx.library',0,-30,0) then exit;end;if ~show('L','rexxsupport.library') then;do;if ~addlib('rexxsupport.library',0,-30,0) then;do;say 'rexxsupport.library konnte nicht geffnet werden!';say 'Bitte kopieren Sie die Library von ihren Workbench-';say 'disketten nach LIBS:.';exit 10;end;end;if ~show('L','rexxsyslib.library') then;do;if ~addlib('rexxsyslib.library',0,-30,0) then;do;say 'rexxsyslib.library konnte nicht geffnet werden!';say 'Bitte kopieren Sie die Library von ihren Workbench-';say 'disketten nach LIBS:.';exit 10;end;end;system1=ARG(1);system=right(system1,8);system=compress(system);janus=CLGET_PathJANUS();stamp= date('S')'-'left(compress(time(),':'),4);rename(janus||system||'/'||system||'.outgoing-bak',janus||system||'/'||system||'-'||stamp||'.Out');rename(janus||system||'/'||system||'.incoming-bak',janus||system||'/'||system||'-'||stamp||'.In');exit