Re: Restore S/36 Tape File to AS/400

["Rex Capio" <rex_capio@xxxxxxxxxxxxxxxxxxxxx>]

Thanks Buck... It worked...

Rex

----- Original Message -----
From: "Buck Calabro" <Buck.Calabro@commsoft.net>
To: <rpg400-l@midrange.com>
Sent: Friday, January 11, 2002 10:19 AM
Subject: RE: Restore S/36 Tape File to AS/400


> >How do I restore the S/36 Tape file to
> >AS/400 with the following S/36 Tape
> >Label:
> >
> >FILE LABEL:          WEB.CUSTOMERS
> >FILE SEQNUM:     1
> >REC FMT:                FB
> >RECORD LENGTH:    150
> >BLOCK LENGTH:    3000
> >ALLOC RECS:          1700
> >FILE TYPE:            EXCHANGE
> >STATUS CODE:    (*blank)
> >        status codes: 1=Saved using save all;  2=Extent;  3=File has no
> >HDR2 label
> >CREATING SYSTEM:    IBM SYSTEM/36
> >SET NAME:           (*blank)
>
> In RPG you define a SEQ file.  Do an OVRTAPF to match up the label and you
> should be good to go.  In OS/400, try CPYFRMTAP or OVRTAPF/CPYF.
>   --buck
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
>