On Mon, Jul 26, 2004 at 02:42:15PM -0500, Noll, Ralph wrote: > Below is the rexx exec I have... Will it Work?????
The logic is correct, but the syntax is a combination of EXEC1/2 and REXX, and is not completely valid in either. You'll also need to change the names in the FILEDEF statements to reflect the actual names of the files. You may also need to change the blocksize and lrecl to 80 to get it to IPL correctly, but if this works, don't mess with it. IPLable decks are usually LRECL 80, RECFM F. Here's a completely REXX version of it: /* REXX */ 'CP SPOOL PRINTER CLASS O' 'CP REWIND 181' if rc <> 0 then do say 'attach tape as 181 and restart the exec' exit rc end 'FILEDEF IN1 DISK SLES7 IMAGE A' 'FILEDEF IN2 DISK SLES7 PARM A' 'FILEDEF IN3 DISK SLES7 INITRD A' 'FILEDEF OUT TAP1 ( RECFM F BLOCKSIZE 1024 LRECL 1024' say 'Writing file 1' 'MOVEFILE IN1 OUT' say 'Writing file 2' 'MOVEFILE IN2 OUT' say 'Writing file 3' 'MOVEFILE INT OUT' say 'Done writing.' say 'Rewinding...' 'CP REWIND 181' 'CP DETACH 181' exit rc ---------------------------------------------------------------------- For LINUX-390 subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: INFO LINUX-390 or visit http://www.marist.edu/htbin/wlvindex?LINUX-390
