Rosetta Code

Priority queue: Difference between revisions

Page Discussion

Priority queue (view source)

Revision as of 02:22, 30 January 2024

306 bytes removed ,  4 months ago
m
Removed unnecessary LINKAGE SECTION structures from test program.
imported>Pjfarley3
m (Corrected some of the notes.)
imported>Pjfarley3
m (Removed unnecessary LINKAGE SECTION structures from test program.)
Line 2,444:
10 TASK-DOWN POINTER.
05 TASK-NAME PIC X(40).
 
01 HEAP.
05 HEAP-KEY PIC S9(8) COMP-5.
05 HEAP-NEXT POINTER.
05 HEAP-DOWN POINTER.
 
01 NODE.
05 NODE-KEY PIC S9(8) COMP-5.
05 NODE-NEXT POINTER.
05 NODE-DOWN POINTER.
 
PROCEDURE DIVISION.
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/351059"