Found from our database and merging with Keven Miller's solution, you
may wish to try...
> The tape is and IBM, ebcdic tape bearing the label A2522.
>
> The first file is rec size 15, block size 6000 (blocking factor 400)
> The second file is rec size 134, block size (blocking factor 50)
> The third file is rec size 217, block size 6510 (blocking factor 30)
> The fourth file is rec size 301, block size 6020 (blocking factor 20)
:RUN FCOPY.PUB.SYS
>:FILE IN;DEV=TAPE;LABEL=A2522,IBM,,NEXT;REC=-6000,1,U,ASCII
>:FILE OUT=F1,NEW;SAVE;REC=-15,,F,ASCII;DISC=100000
>FROM=*IN;TO=*OUT;EBCDICIN;DEBLOCK=-15
>:FILE IN;DEV=TAPE;LABEL=A2522,IBM,,NEXT;REC=-134,50,F,ASCII
>:FILE OUT=F2,NEW;SAVE;REC=-134,,F,ASCII;DISC=100000
>FROM=*IN;TO=*OUT;EBCDICIN
>:FILE IN;DEV=TAPE;LABEL=A2522,IBM,,NEXT;REC=-6510,1,U,ASCII
>:FILE OUT=F3,NEW;SAVE;REC=-217,,F,ASCII;DISC=100000
>FROM=*IN;TO=*OUT;EBCDICIN;DEBLOCK=-217
>
>:FILE IN;DEV=TAPE;LABEL=A2522,IBM,,NEXT;REC=-6020,1,U,ASCII
>:FILE OUT=F4,NEW;SAVE;REC=-301,,F,ASCII;DISC=100000
>FROM=*IN;TO=*OUT;EBCDICIN;DEBLOCK=-301
Note: It is important to use NEXT in the FILE commands, issue the FILE
commands from within FCOPY and use the same file designator for the
tape.
HTH
|