Trailing-Edge
-
PDP-10 Archives
-
bb-bt99e-bb
-
cobolc.c05
There are 2 other files named cobolc.c05 in the archive. Click here to see a list.
INS 23/1 ;05C1
;SMI 03-DEC-82 [1436] 68274 Fix PA1050 ill. inst. when in COMM. SEC.
;JEH 18-NOV-82 [1424] Fatal error on COMP, COMP-1, and INDEX fields
; in ASCII file
;SMI 06-OCT-82 [1413] 68274 Does not handle DBMS correctly.
;RLF 02-AUG-82 [1376] Corrects diagnostic when line before FD too long
;RJD 15-JUL-82 [1373] Corrects page advancing when more than 2 report
; header lines
;JEH 14-JUN-82 [1366] Correct 1335, set up CURHLD properly
;JEH 07-JUN-82 [1362] Make HLDSAV external
;RJD 24-MAY-82 [1356] Allow qualification in DATA RECORDS ARE clause
;JEH 30-MAR-82 [1346] Fatal error if too many ascending/descending keys
;JEH 02-FEB-82 [1335] Declare DATAB entries for all indexes if REPORT
; SECTION is scanned for their use by REPORT WRITER stmts
;
INS 23/3 ;05C2
SETZM BLDIX## ;[1335]
INS 27/13 ;05C3
INTER. DA18A. ;[1356]
DA18A.: PUSHJ PP,TRYNAM ;[1356] IS NAME IN TABLE?
JRST DA18B. ;[1356] NO
HLRZS TA ;[1356] SET UP REL ADDR AND
HRRZI TB,CD.FIL ;[1356] TYPE CODE FOR TABLE SEARCH
PUSHJ PP,FNDLNK ;[1356] SEARCH FILTAB
JRST DA18B. ;[1356] ENTRY NOT FOUND
MOVE TA,CURFIL ;[1356] GET CURRENT FILE ADDR
CAMN TA,TB ;[1356] SAME FILE USED TO QUALIFY?
POPJ PP, ;[1356] YES
DA18B.: EWARNJ E.190 ;[1356] GIVE IMPROPER QUALIFICATION MSG
INS 50/39 ;05C4
HRRZM TB, TBLOCK+1 ;[1424] SAVE LINK
INS 18/41 ;05C5
;CAN'T STORE NON-DISPLAY DATA IN AN ASCII FILE
CAIG TB, %US.DS ;[1424] IF IT'S A DISPLAY MODE,
POPJ PP, ;[1424] EXIT
LDB TB, DA.DFS ;[1424] IF DATA ITEM IS NOT
SKIPN TB ;[1424] IN FILE SECTION,
POPJ PP, ;[1424] EXIT
HRRZ TB, TBLOCK+1 ;[1424] GET LAST LINK IN TB FOR FNDFIL
PUSHJ PP, FNDFIL## ;[1424] FIND THE FILE TABLE
POPJ PP, ;[1424] NO FILTAB LINK
LDB TC, FI.ERM ;[1424] GET FILE'S MODE
CAIE TC, %RM.7B ;[1424] IS IT ASCII?
POPJ PP, ;[1424] NO, EXIT
HRRZI DW, E.654 ;[1424] GIVE ERROR
HRRZ TA, CURDAT ;[1424] AT DATA FIELD DECLARATION
LDB LN, DA.LN ;[1424]
LDB CP, DA.CP ;[1424]
PUSHJ PP, FATAL## ;[1424]
REP 4/111 ;05C6
DA87.: MOVEI TC,%RG.RH ;REPORT HEADING TYPE CODE
WIT
DA87.: PUSHJ PP,GETRDL ;[1373] GET RD POINTER
SETO TC, ;[1373] INDICATE HAVE SEEN A REPORT
DPB TC,RW.RHL## ;[1373] HEADING
MOVEI TC,%RG.RH ;[1373] REPORT HEADING TYPE CODE
INS 7/118 ;05C7
CAIN TYPE,2000+FD. ;[1376] IS IT FD ?
JRST DA105A ;[1376] REGET WORD?
INS 34/120 ;05C8
IFN ANS74,<
CAIG TB,377 ;[1346] UP TO 255 KEYS ALLOWED
JRST DA110C ;[1346]
MOVEI DW,E.745 ;[1346] ELSE QUANTITY GETS TRUNCATED
PUSHJ PP,FATALW ;[1346]
DA110C: ;[1346]
>;[1346]
INS 40/124 ;05C9
IFN FT68274,< ;[1413]
PUSHJ PP,CVTOAL## ;[1413] WRITE OUT PREVIOUS BUFFER
PUSHJ PP,CVTDPL## ;[1413] AND CURRENT BUFFER
SETZM CVTPLF## ;[1413] PREVIOUS LINE IS NO LONGER NEEDED
> ;[1413]
REP 18/127 ;05C10
INTER. DA124.
DA124.:
WIT
INTER. DA124B ;[1436]
DA124B: ;[1436]
REP 24/127 ;05C11
>
HRRZI TA,^D10
WIT
SKPNAM ;[1436]
>
INTER. DA124. ;[1436]
DA124.: HRRZI TA,^D10 ;[1436]
INS 53/144 ;05C12
SETOM BLDIX ;[1335] TURN ON BUILD INDEXES FLAG
MOVE TA,CURHLD ;[1335] SAVE CURHLD
MOVEM TA,HLDSAV## ;[1362] [1335] MAKE EXTERNAL
HRRZ TA,HLDLOC ;[1335] FIND START OF HLDTAB
AOJ TA, ;[1335]
MOVEM TA,CURHLD ;[1366] [1335] STORE IN CURHLD
PUSHJ PP,CLNHLD## ;[1335] BUILD DATAB ENTRIES FOR INDEXES
MOVE TA,HLDSAV ;[1335] RESTORE CURHLD
MOVEM TA,CURHLD ;[1335]
SETZM BLDIX ;[1335] SHUT OFF FLAG
SUM 80434