Trailing-Edge
-
PDP-10 Archives
-
bb-kl11f-bm_tops20_v7_0_atpch1_19
-
autopatch/cobolc.c09
There are 4 other files named cobolc.c09 in the archive. Click here to see a list.
REP 1/1 ;09C1
; UPD ID= 1533 on 2/22/84 at 9:32 AM by HOFFMAN
WIT
; UPD ID= 1631 on 6/7/84 at 8:22 PM by HOFFMAN
REP 29/1 ;09C2
;JEH 14-FEB-84 [1515] If defining implied indexes for REPORT SECTION,
; check PCHOLD for correct core assignment
WIT
;V13****************
;MJC 5-SEP-84 [1544] Move TYPE DETAIL check for SUM .. UPON .. to
; CLEANC. Set RW.RSU and RW.UP1 in CLEANC.
;JEH 07-JUN-84 [1537] Fix edit 1424 - give error if fields are in
; an ASCII record
;JEH 14-FEB-84 [1515] If defining implied indexes for REPORT SECTION,
; check PCHOLD for correct core assignment
;V12B***************
REP 22/42 ;09C3
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?
WIT
HRRZ TA,TBLOCK+1 ;[1537] GET LAST LINK IN TA
D38.L2: PUSHJ PP,LNKSET ;[1537]
LDB TC,DA.LVL ;[1537] AREA WE AT THE RECORD LEVEL?
CAIN TC,1 ;[1537]
JRST D38.L3 ;[1537] YES
PUSHJ PP,FNDPOP ;[1537] RETURNS TB[ REL ADDR OF POP
POPJ PP, ;[1537] CAN'T FIND ONE
MOVE TA,TB ;[1537] SET UP TA
JRST D38.L2 ;[1537] CHECK AGAIN?
D38.L3: LDB TC,DA.USG## ;[1537]
CAIE TC,%US.D7 ;[1537] IS IT ASCII?
REP 37/117 ;09C4
LDB TA,HL.NAM ;GET NAMTAB ENTRY
ADD TA,NAMLOC
HRRZ TC,(TA) ;GET ADDRESS OF DATAB ENTRY
MOVE TA,TC
PUSHJ PP,LNKSET ;MAKE REAL ADDRESS
LDB TA,DA.RPW ;GET RPWTAB LINK
ADD TA,RPWLOC ;MAKE LINK REAL ADDRESS
LDB TD,RW.TYP ;GET TYPE OF REPORT GROUP
CAIE TD,%RG.DE ;DETAIL GROUP ?
EWARNJ E.364 ;NO, GENERATE FATAL ERROR AND RETURN
MOVE TA,TB ;TA CONTAINS NEW ADDRESS OF RPWTAB UPON ENTRY
ADD TA,RPWLOC
DPB TC,RW.UP1## ;STORE POINTER TO RPWTAB ENTRY
SETO TB,
DPB TB,RW.RSU## ;SET REFERENCED-BY-SUM-UPON
WIT
;[1544] MOVE TYPE DETAIL CHECK TO CLEANC
SUM 252461