Re: Error while listing a saveset file.
From: jay (qwerty_at_asdf.lkj)
Date: 08/31/04
- Next message: Simon Clubley: "Analyse/disk and FI5DEF structures in reserved FIDs"
- Previous message: Peter 'EPLAN' LANGSTOEGER: "[ENABLE AUTOSTART] Is there progress in how to determine the state of AUTOSTART ?"
- In reply to: Z: "Re: Error while listing a saveset file."
- Next in thread: Alan E. Feldman: "Re: Error while listing a saveset file."
- Messages sorted by: [ date ] [ thread ] [ subject ] [ author ]
Date: Tue, 31 Aug 2004 18:08:00 +0530
I tried with the procedure that you mentioned but I get the following
warning message.
syelwatk@oakvms> @reset_backup_saveset_file_attributes.com pvp04501.c
%RMS-W-RTB, 1106 byte record too large for user's buffer
syelwatk@oakvms>
"Z" <z@no.spam> wrote in message news:10j8rj8pppq6693@corp.supernews.com...
> jay wrote:
> > VTXNJ1> set file/att=(rfm:fix,lrl=9216, rat=none) PVP04501_C-NEW.C;1
>
> What makes you think the LRL is 9216?
>
> From another post, by Hoff Hoffman:
>
> This procedure is on Freeware V4.0 and later, in the 000TOOLS area:
>
> --
>
> $! RESET_BACKUP_SAVESET_ATTRIBUTES.COM
> $!
> $! P1 is the specification of the BACKUP saveset
> $!
> $! This procedure resets the record format and record
> $! length attributes of a BACKUP saveset -- savesets
> $! can get "broken" during certain sorts of file
> $! transfers -- such as FTP. This procedure reads the
> $! (undocumented) saveset record attributes directly
> $! out of the target file.
> $!
> $! First render the saveset readable, and implicitly
> $! check that the file exists.
> $!
> $ Set File -
> /Attributes=(RFM:FIX,MRS:512,LRL=512,ORG=SEQ,RAT=NONE) -
> 'p1'
> $
> $ Open/Error=whoops/Read BckSaveset 'p1'
> $ Read/Error=whoops/End=whoops BckSaveset Record
> $ Close/Nolog BckSaveset
> $
> $! Find the blocksize from within the record...
> $
> $ BlockSize = 0
> $ BBH_L_BLOCKSIZE = %x28*8
> $ BlockSize = F$CVUI(BBH_L_BLOCKSIZE, 32, Record)
> $ If BlockSize .lt. 2048 .or. BlockSize .gt. 65535
> $ Then
> $ Write sys$output "Unexpected block size"
> $ Goto whoops
> $ Else
> $ Set File /Attributes=(RFM:FIX,LRL='BlockSize', -
> MRS='BlockSize',RAT=none) -
> 'p1'
> $ endif
> $ exit
> $WHOOPS:
> $ Write sys$output "Error"
> $ exit
- Next message: Simon Clubley: "Analyse/disk and FI5DEF structures in reserved FIDs"
- Previous message: Peter 'EPLAN' LANGSTOEGER: "[ENABLE AUTOSTART] Is there progress in how to determine the state of AUTOSTART ?"
- In reply to: Z: "Re: Error while listing a saveset file."
- Next in thread: Alan E. Feldman: "Re: Error while listing a saveset file."
- Messages sorted by: [ date ] [ thread ] [ subject ] [ author ]
Relevant Pages
|
|