If the file went to userid MYID on the second level, then card one is
OK. Maybe it's format of the files? Try using DISK DUMP instead of
second PUNCH or try this:
/* send file(s) to the second level vm */
arg fn ft fm userid . '(' option
if userid = ''
then userid = 'MAINT'
'CP SP PU VM2 CLASS X CONT NOH NAME VM2 PUNCH'
'EXECIO 1 PUNCH (STRING ID' userid
if abbrev('FILELIST', option, 1)
then 'PIPE <' fn ft fm '| SPECS /DISK DUMP/ 1 W1-3 NW | CMS'
else 'DISK DUMP' fn ft fm
'CP SP PU CLOSE'
'CP SP PU OFF CLASS A NOCONT NON'
Ivica
On Fri, Dec 18, 2009 at 9:30 AM, Bob Bates <[email protected]> wrote:
> Hi all,
> I know there are other ways of doing this, but I can't let go of
> this now that I've thought about it.
>
> I have a simple 2nd level test system running. I want to send a file
> from 1st level to a user on the 2nd level system. I'm trying to use a
> process from the dark ages of VM/370.
>
> SPOOL D LEVEL2
> SPOOL D CONT
> PUNCH PUNCH HEADER A ( NOH
> PUNCH THIS FILE A ( NOH
> SPOOL D NOCONT
> CLOSE D
>
> On 2nd level do a START C and the file goes where it needs. The
> question comes about the contents of PUNCH HEADER file:
>
> USERID MYID
> :READ THIS FILE
>
> Card one is wrong and I can't remember/find the correct format.
> HCPRSR431E says it should be ID MYID or USERID MYID but neither works.
>
> Ideas?
>
>
> Bob Bates
> Enterprise Hosting Services
> w. (469)892-6660
> c. (214) 907-5071
>
> “This message may contain confidential and/or privileged information. If
> you are not the addressee or authorized to receive this for the addressee,
> you must not use, copy, disclose, or take any action based on this message
> or any information herein. If you have received this message in error,
> please advise the sender immediately by reply e-mail and delete this
> message. Thank you for your cooperation."
>
>
>
>
