000100 Identification Division. 000200 Program-Id. CAMPBOOX. *** Rader borttagna *** 023100 Print-Pl-Print-Line. 023200 Add 1 to WS-Line-Number 023300 If Line-Max 023400 Perform Print-Page-Headings 023500 Set Line-Start to True 023600 End-If 023700 023800 If PF-Publisher-Name = Previous-Publisher-NAme 023900 Move Space to Pl-Publisher-Name 024000 Else 024100 Move PF-Publisher-Name to Pl-Publisher-Name 024200 Previous-Publisher-Name 024300 End-If 024400 024500 Perform Change-Lecturer-Case 024600 024700 Move BF-Book-Title to Pl-Book-Title 024800 Move Pr-Copies-Required to Pl-Copies-Required 024900 Move Pr-Lecturer-Name to Pl-Lecturer-Name 025000 Write Report-Rec from Pl-Print-Line 025100 . 025200 Change-Lecturer-Case. 025220 Move Function Lower-Case(Pr-Lecturer-Name) 025230 to Pr-Lecturer-Name 025300 Move Function Upper-Case(Pr-Lecturer-Name(1:1)) 025400 to Pr-Lecturer-Name(1:1) 025500 Inspect Pr-Lecturer-Name Tallying WS-Inspect-Ptr 025600 for characters before ',' 025700 Move Function Upper-Case 025800 (Pr-Lecturer-Name(WS-Inspect-Ptr + 2:1)) 025900 to Pr-Lecturer-Name(WS-Inspect-Ptr + 2:1) 025901 Move 0 to WS-Inspect-Ptr 026000 .