|
<![CDATA[
***To activate these changes, recompile (XCOBOL)
***RZCRF1 and RZSCD2, and then OLINK01.
]]>
<![CDATA[
03 QUEUE-ITEM PIC S9(04) COMP VALUE +1.
03 QUEUE-LEN PIC S9(04) COMP.
]]>
<![CDATA[
***In consultation with SCT, this will enable a class
***with more than 300 students to be displayed on
***screen 107/SEC.
]]>
<![CDATA[
***MOD BEGINS
**DD 03 QUEUE-MAX PIC S9(04) COMP VALUE +300.
03 QUEUE-MAX PIC S9(04) COMP VALUE +800.
***MOD ENDS
03 QUEUE-ENTRY PIC S9(04) COMP VALUE +48.
03 QUEUE-PTR PIC S9(04) COMP.
03 QUEUE-RECORD.
***MOD BEGINS
**DD 05 QR-ARRAY OCCURS 300
05 QR-ARRAY OCCURS 800
***MOD ENDS
INDEXED QNDX.
07 QR-NAME PIC X(25).
]]>
|
Get your own Free Homepage 