Ralph, Where did you get this? It's a combination of EXEC 1/2 (technically, EXEC1 because &CONTROL is the first record, but then you immediately have an EXEC2 &TRACE) and REXX that will never work............. At least not as expected (you'll probably get RC -3 Invalid command for 'SAY', for example).
Michael Coffin, VM Systems Programmer Internal Revenue Service - Room 6527 1111 Constitution Avenue, N.W. Washington, D.C. 20224 Voice: (202) 927-4188 FAX: (202) 622-6726 [EMAIL PROTECTED] -----Original Message----- From: Linux on 390 Port [mailto:[EMAIL PROTECTED] On Behalf Of Noll, Ralph Sent: Monday, July 26, 2004 3:42 PM To: [EMAIL PROTECTED] Subject: Re: mp2003 Below is the rexx exec I have... Will it Work????? &CONTROL OFF &TRACE ALL CP SP PRINTER CLASS O - CP LINK MAINT 123 F123 RR *--------------------------------------------------------------------- * CHECK OUT THE TAPE DRIVE *--------------------------------------------------------------------- -CHKTAPE CP REWIND 181 &IF &RETCODE = 0 &GOTO -TAPEOK &TYPE ATTACH BACKUP TAPE AS 181 AND RE-START THIS EXEC &EXIT &RETCODE -TAPEOK FILEDEF IN1 DISK SLES7 IMAGE A FILEDEF IN2 DISK SLES7 PARM A FILEDEF IN3 DISK SLES7 INITRD A FILEDEF OUT TAP1 (RECFM F BLOCK 1024 LRECL 1024 PERM') say 'Writing: ' left(file1,23) MOVEFILE IN1 OUT say 'Writing: ' left(file2,23) MOVEFILE IN2 OUT say 'Writing: ' left(file3,23) MOVEFILE IN3 OUT say 'Done.' TAPE RUN &TYPE *** done ralph *** &EXIT 0 ---------------------------------------------------------------------- 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 ---------------------------------------------------------------------- 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
