No, because he wants to write them to a tape.

Mark Post

-----Original Message-----
From: Linux on 390 Port [mailto:[EMAIL PROTECTED] On Behalf Of Coffin
Michael C
Sent: Tuesday, July 27, 2004 10:31 AM
To: [EMAIL PROTECTED]
Subject: Re: mp2003


Shouldn't those DEBIAN files be RECFM F LRECL 80?

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 10:16 PM
To: [EMAIL PROTECTED]
Subject: Re: mp2003


   Filename Filetype Fm Format Lrecl    Records     Blocks   Date
Time
   DEB      EXEC     A1 F         78         25          1  7/26/04
15:28:57
   DEB      TAPE     A1 F         78         27          1  7/26/04
15:26:25
   DEBIAN   PARMFILE A1 F       1024          1          1  7/26/04
14:08:26
   DEBIAN   KERNEL   A1 F       1024       2447        524  7/26/04
14:08:20
   DEBIAN   INITRD   A1 F       1024       1284        321  7/26/04
14:08:11
   MAINT    NETLOG   A0 V        107         10          1  5/14/04
7:54:00
   SFPURGER LOG04135 A1 F       1024          1          1  5/14/04
7:53:44
   SFPURGER TST04135 A1 F       1024          4          1  5/14/04
7:53:44
   VM43USER DIRECT   A1 F         80       2163         43  3/08/04
10:48:24
   MAINT    FILELIST A0 V        169         14          1 12/18/03
12:30:07
   SFPURGER LOG03350 A1 F       1024          6          2 12/16/03
19:13:49
   SFPURGER RUN03350 A1 F       1024          8          2 12/16/03
19:13:49
   SFPURGER TST03350 A1 F       1024          8          2 12/16/03
19:13:37
   VM43USER DISKMAP  A1 F         80        945         19 12/16/03
9:24:48
   VM43DIRS DIRECT   A1 F         80       2162         43 12/15/03
11:30:52
   Z800SAV  IOCP     A1 F         80         78          2 12/12/03
2:22:12
   Z800RN   IOCP     A1 F         80        103          3 12/12/03
2:07:10
Help       2= Refresh  3= Quit   4= Sort(type)  5= Sort(date)  6=
Sort(size)
Backward   8= Forward  9= FL /n 10=            11= XEDIT/LIST 12= Cursor


Above is what I have the deb is the exec proc below.....am I just about
there.........????

&CONTROL OFF
&TRACE ALL
CP SP PRINTER CLASS O
*---------------------------------------------------------------------
*   CHECK OUT THE TAPE DRIVE
*---------------------------------------------------------------------
-CHKTAPE
CP REWIND 181
TAPE WTM 25
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 DEBIAN KERNEL A
FILEDEF IN2 DISK DEBIAN PARMFILE A
FILEDEF IN3 DISK DEBIAN INITRD A
FILEDEF OUT TAP1 (RECFM F BLOCK 1024 LRECL 1024 PERM)
MOVEFILE IN1 OUT
MOVEFILE IN2 OUT
MOVEFILE IN3 OUT
MOVEFILE IN3 OUT
SAY 'DONE.'
TAPE RUN
&TYPE *** DONE RALPH ***
&EXIT 0
* * * End of File * * *


-----Original Message-----
From: David Boyes [mailto:[EMAIL PROTECTED]
Sent: Monday, July 26, 2004 8:58 PM
To: [EMAIL PROTECTED]
Subject: Re: mp2003

On Mon, Jul 26, 2004 at 03:35:10PM -0500, Noll, Ralph wrote:
> Ok.. I used vm to transfer the 3 files to vm rdr..
> Ran the rexx exec to write to tape
> Ipl'ed the mp2003 and now I get a disabled wait..
> Like the tape is not what it is expecting....

For the exec to succeed as written, the files need to be on disk, not in the
VM spool space.

The FILEDEF commands in the exec are the equivalent of VSE logical name
assignments. As written, they point to disk files, not spool files. MOVEFILE
is equivalent to IEBGENR - all it does is read from input, write to output,
repeat until EOF on the input file.

-- db

----------------------------------------------------------------------
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

----------------------------------------------------------------------
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

Reply via email to