Trailing-Edge
-
PDP-10 Archives
-
ap-c800d-sb
-
cbl12a.rbw
There are no other files named cbl12a.rbw in the archive.
.VARIABLE TWENTY 2 1
\\
.LM0;.RM70;.F;.J;.FLAG CAP;.SP1;.TS5;.AP
<COBOL.BWR -- ^BEWARE FILE FOR <COBOL-68/74 VERSION 12^A
.BR
^SEPTEMBER 1979
.FG30
^^COPYRIGHT (C) 1979 BY
.BR
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
.B2
THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY
TRANSFERRED.
.B1
THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
CORPORATION.
.B1
DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL\\.
.AUTOPARAGRAPH !PARAGRAPHS START WITH A LEADING SPACE
.T <COBOL.BWR -- ^BEWARE FILE FOR <COBOL-68/74 VERSION 12^A
.PARAGRAPH 0, 1, 1 !SET NORMAL PARAGRAPHING
.AUTOPARAGRAPH !PARAGRAPHS START WITH A SPACE
.TAB STOPS 9, 17, 25, 33, 41, 49, 57, 63, 69 !USUAL TTY TABBING
.PG.LM0.RM70.SP1.F.J
.IF TWENTY
<SIMULTANEOUS <UPDATE:
^Because of a problem in the <TOPS-20 monitor, records updated in a file
via <SMU mode which cause the length of the file to be extended by one
program will not be found by other users until both programs close and
reopen the file. ^To overcome this restriction for <ISAM files, the
<ISAM utility sets the file size for <.IDX and <.IDA files to +infinity
(2**35 -1) in the File Descriptor Block <(FDB). ^Please note that the
files physical length is the correct number of bytes written. ^The
file's size in pages is displayed correctly by <VDIRECTORY.
^This patch allows Simultaneous Update users to process <ISAM files
correctly. ^However some programs or <TOPS20 commands (such as <FILCOM
or <QUEUE <LPT: = <file/PRINT:OCTAL) which attempt to access the file
sequentially will run improperly - they will run and run and run...
^A special purpose utility <SETEOF.EXE is included in the second save
set. <SETEOF may be used to extend the file size in the <FDB to a
large, user specified size or to reduce a file with an extended file
size to the actual file size (rounded upward to the next page). ^This
will allow users of random files in simultaneous update mode to extend
the file size before processing. ^Conversly, if a user wishes to
sequentially process a file with an extended file size, the user may
use <SETEOF and specify a file size of "0" to reduce the file to the
actual file size (rounded upward to the next page).
.PAGE
.ENDIF TWENTY
<LINK:
.B 1
^CAN GET <?LNKPUF <.PAGE <UUO FAILURE
.BR
^FIX, Update <UB<(of the effected area) to the reduced addr before doing <CORE <UUO in <GSDLT.
.B 1
^^
.LITERAL
File 1) DSK:LNKXIT.NEW created: 0955 13-APR-1978
File 2) DSK:LNKXIT.MAC created: 1101 17-MAR-1978
@GSDLT + 11.
1)14 MOVEM T2,TAB.UB(T1) ;[773] UPDATE UB TO THE REDUCED ADDR
1) CORE T2, ;DELETE TOP PART
****
2)14 CORE T2, ;DELETE TOP PART
**************
.END LITERAL
\\
.IF TWENTY
.PG
.LITERAL
Digital Equipment Corporation 25-SEP-79 Page 2
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
If PA1050 gets control on a QUOTA EXCEEDED interrupt (FORTRAN,
COBOL, APL, etc.) a variety of strange things may happen, all due to
the fact that the compatibility package is left in an indeterminate
state. Some of the known possible problems are corrupted workspaces
(APL), CATASTROPHE during compilation (COBOL), etc.
**********
[DIAGNOSIS]
The code in PA1050 is quite incorrect, saving off the ACs, but
not leaving the stack pointer in a state which is usable for the code
which goes off to expunge deleted files. The result is that the stack
(and possibly some registers) are wrong upon the resumption after the
expunge is attempted.
**********
[CURE]
Fix up the stack pointer so that the intended action is
possible. This is quite a simple matter of resetting register 17
after using it to BLT the ACs to a safe place.
Digital Equipment Corporation 25-SEP-79 Page 3
PCO Log Report
[FILCOM]
File 1) DSK:PAT.MAC[4,563] created: 1402 04-Sep-1979
File 2) DSK:PAT.NEW[4,563] created: 1628 10-Sep-1979
1)1 .EDIT==335 ;EDIT NUMBER
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 .EDIT==336 ;EDIT NUMBER
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)165 SKIPN INPAT ;IN THE MIDDLE OF A UUO?
****
2)165 ;**; quoint + 2, DCE, 10-Sep-79
2) MOVE 17,IAC+17 ;(336) FIX STACK UP AGAIN
2) SKIPN INPAT ;IN THE MIDDLE OF A UUO?
**************
[End PCO Write-up]
.END LITERAL
\\
.ENDIF TWENTY
.B 3
[^END OF <CBL12A.BWR]