API tools faq
paste
Guest User

Untitled

a guest
Mar 15th, 2018
90
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
COBOL 18.80 KB | None | 0 0
raw download clone embed print report
  1.        PROGRAM-ID. CLASSPREREQ.
  2.        IDENTIFICATION DIVISION.
  3.        ENVIRONMENT DIVISION.
  4.        DATA DIVISION.
  5.        WORKING-STORAGE SECTION.
  6.        01 I PIC 9999.
  7.        01 J PIC 9999.
  8.        01 PCOUNT PIC 9999.
  9.        01 PPOS PIC 9999.
  10.        01 C-NAME PIC X(40).
  11.        01 C-PREREQ PIC X(40).
  12.        01 PFOUND PIC X(10).
  13.        01 PR-TBL.
  14.         03 PREREQS PIC X(40)
  15.             OCCURS 100 TIMES.
  16.        01 CL-TBL.
  17.         03 CL OCCURS 190 TIMES.
  18.             05 CL-NAME PIC X(40).
  19.             05 CL-PREREQ PIC X(40).
  20.        
  21.        PROCEDURE DIVISION.
  22.            MOVE 'cs1000' TO CL-NAME(1).
  23.            MOVE 'highschoolalgebra' TO CL-PREREQ(1).
  24.            MOVE 'cs1010' TO CL-NAME(2).
  25.            MOVE 'instructorconsent' TO CL-PREREQ(2).
  26.            MOVE 'cs1020' TO CL-NAME(3).
  27.            MOVE 'none' TO CL-PREREQ(3).
  28.            MOVE 'cs1050' TO CL-NAME(4).
  29.            MOVE 'instructorconsent' TO CL-PREREQ(4).
  30.            MOVE 'cs1060' TO CL-NAME(5).
  31.            MOVE 'instructorconsent' TO CL-PREREQ(5).
  32.            MOVE 'cs1070' TO CL-NAME(6).
  33.            MOVE 'highschoolalgebra' TO CL-PREREQ(6).
  34.            MOVE 'cs1090' TO CL-NAME(7).
  35.            MOVE 'highschoolalgebra' TO CL-PREREQ(7).
  36.            MOVE 'cs1150' TO CL-NAME(8).
  37.            MOVE 'highschoolalgebra' TO CL-PREREQ(8).
  38.            MOVE 'cs1150' TO CL-NAME(9).
  39.            MOVE 'none' TO CL-PREREQ(9).
  40.            MOVE 'cs1450' TO CL-NAME(10).
  41.            MOVE 'cs1150' TO CL-PREREQ(10).
  42.            MOVE 'cs2010' TO CL-NAME(11).
  43.            MOVE 'consentofinstructor' TO CL-PREREQ(11).
  44.            MOVE 'cs2030' TO CL-NAME(12).
  45.            MOVE 'consentofinstructor' TO CL-PREREQ(12).
  46.            MOVE 'cs2050' TO CL-NAME(13).
  47.            MOVE 'consentofinstructor' TO CL-PREREQ(13).
  48.            MOVE 'cs2060' TO CL-NAME(14).
  49.            MOVE 'cs1150' TO CL-PREREQ(14).
  50.            MOVE 'cs2070' TO CL-NAME(15).
  51.            MOVE 'consentofinstructor' TO CL-PREREQ(15).
  52.            MOVE 'cs2080' TO CL-NAME(16).
  53.            MOVE 'cs1450' TO CL-PREREQ(16).
  54.            MOVE 'cs2120' TO CL-NAME(17).
  55.            MOVE 'consentofinstructor' TO CL-PREREQ(17).
  56.            MOVE 'cs2160' TO CL-NAME(18).
  57.            MOVE 'cs1450' TO CL-PREREQ(18).
  58.            MOVE 'cs2160' TO CL-NAME(19).
  59.            MOVE 'cs2060' TO CL-PREREQ(19).
  60.            MOVE 'cs3010' TO CL-NAME(20).
  61.            MOVE 'cs3160' TO CL-PREREQ(20).
  62.            MOVE 'cs3020' TO CL-NAME(21).
  63.            MOVE 'cs1450' TO CL-PREREQ(21).
  64.            MOVE 'cs3030' TO CL-NAME(22).
  65.            MOVE 'instructorconsent' TO CL-PREREQ(22).
  66.            MOVE 'cs3040' TO CL-NAME(23).
  67.            MOVE 'cs1450' TO CL-PREREQ(23).
  68.            MOVE 'cs3050' TO CL-NAME(24).
  69.            MOVE 'cs2080' TO CL-PREREQ(24).
  70.            MOVE 'cs3060' TO CL-NAME(25).
  71.            MOVE 'cs2060' TO CL-PREREQ(25).
  72.            MOVE 'cs3060' TO CL-NAME(26).
  73.            MOVE 'cs2080' TO CL-PREREQ(26).
  74.            MOVE 'cs3160' TO CL-NAME(27).
  75.            MOVE 'cs2060' TO CL-PREREQ(27).
  76.            MOVE 'cs3160' TO CL-NAME(28).
  77.            MOVE 'cs2160' TO CL-PREREQ(28).
  78.            MOVE 'cs3160' TO CL-NAME(29).
  79.            MOVE 'cs3060' TO CL-PREREQ(29).
  80.            MOVE 'cs3300' TO CL-NAME(30).
  81.            MOVE 'cs2080' TO CL-PREREQ(30).
  82.            MOVE 'cs3300' TO CL-NAME(31).
  83.            MOVE 'cs3020' TO CL-PREREQ(31).
  84.            MOVE 'cs3300' TO CL-NAME(32).
  85.            MOVE 'cs3060' TO CL-PREREQ(32).
  86.            MOVE 'cs3350' TO CL-NAME(33).
  87.            MOVE 'cs1450' TO CL-PREREQ(33).
  88.            MOVE 'cs3350' TO CL-NAME(34).
  89.            MOVE 'cs3060' TO CL-PREREQ(34).
  90.            MOVE 'cs3350' TO CL-NAME(35).
  91.            MOVE 'pes1110' TO CL-PREREQ(35).
  92.            MOVE 'cs3910' TO CL-NAME(36).
  93.            MOVE 'cs2080' TO CL-PREREQ(36).
  94.            MOVE 'cs4010' TO CL-NAME(37).
  95.            MOVE 'instructorsconsent' TO CL-PREREQ(37).
  96.            MOVE 'cs4020' TO CL-NAME(38).
  97.            MOVE 'instructorconsent' TO CL-PREREQ(38).
  98.            MOVE 'cs4030' TO CL-NAME(39).
  99.            MOVE 'instructorconsent' TO CL-PREREQ(39).
  100.            MOVE 'cs4040' TO CL-NAME(40).
  101.            MOVE 'instructorconsent' TO CL-PREREQ(40).
  102.            MOVE 'cs4050' TO CL-NAME(41).
  103.            MOVE 'instructorconsent' TO CL-PREREQ(41).
  104.            MOVE 'cs4060' TO CL-NAME(42).
  105.            MOVE 'instructorconsent' TO CL-PREREQ(42).
  106.            MOVE 'cs4070' TO CL-NAME(43).
  107.            MOVE 'instructorconsent' TO CL-PREREQ(43).
  108.            MOVE 'cs4080' TO CL-NAME(44).
  109.            MOVE 'instructorconsent' TO CL-PREREQ(44).
  110.            MOVE 'cs4090' TO CL-NAME(45).
  111.            MOVE 'instructorconsent' TO CL-PREREQ(45).
  112.            MOVE 'cs4100' TO CL-NAME(46).
  113.            MOVE 'cs2160' TO CL-PREREQ(46).
  114.            MOVE 'cs4100' TO CL-NAME(47).
  115.            MOVE 'cs3160' TO CL-PREREQ(47).
  116.            MOVE 'cs4200' TO CL-NAME(48).
  117.            MOVE 'cs2160' TO CL-PREREQ(48).
  118.            MOVE 'cs4220' TO CL-NAME(49).
  119.            MOVE 'cs2060' TO CL-PREREQ(49).
  120.            MOVE 'cs4220' TO CL-NAME(50).
  121.            MOVE 'math2150' TO CL-PREREQ(50).
  122.            MOVE 'cs4420' TO CL-NAME(51).
  123.            MOVE 'cs3300' TO CL-PREREQ(51).
  124.            MOVE 'cs4500' TO CL-NAME(52).
  125.            MOVE 'cs2060' TO CL-PREREQ(52).
  126.            MOVE 'cs4500' TO CL-NAME(53).
  127.            MOVE 'cs2080' TO CL-PREREQ(53).
  128.            MOVE 'cs4500' TO CL-NAME(54).
  129.            MOVE 'cs4200' TO CL-PREREQ(54).
  130.            MOVE 'cs4600' TO CL-NAME(55).
  131.            MOVE 'cs1450' TO CL-PREREQ(55).
  132.            MOVE 'cs4600' TO CL-NAME(56).
  133.            MOVE 'math2350' TO CL-PREREQ(56).
  134.            MOVE 'cs4600' TO CL-NAME(57).
  135.            MOVE 'math3130' TO CL-PREREQ(57).
  136.            MOVE 'cs4700' TO CL-NAME(58).
  137.            MOVE 'math2150' TO CL-PREREQ(58).
  138.            MOVE 'cs4700' TO CL-NAME(59).
  139.            MOVE 'math3130' TO CL-PREREQ(59).
  140.            MOVE 'cs4720' TO CL-NAME(60).
  141.            MOVE 'cs1450' TO CL-PREREQ(60).
  142.            MOVE 'cs4720' TO CL-NAME(61).
  143.            MOVE 'math2150' TO CL-PREREQ(61).
  144.            MOVE 'cs4780' TO CL-NAME(62).
  145.            MOVE 'instructorsconsent' TO CL-PREREQ(62).
  146.            MOVE 'cs4800' TO CL-NAME(63).
  147.            MOVE 'cs1450' TO CL-PREREQ(63).
  148.            MOVE 'cs4800' TO CL-NAME(64).
  149.            MOVE 'cs2080' TO CL-PREREQ(64).
  150.            MOVE 'cs4800' TO CL-NAME(65).
  151.            MOVE 'math3130' TO CL-PREREQ(65).
  152.            MOVE 'cs4820' TO CL-NAME(66).
  153.            MOVE 'cs3160' TO CL-PREREQ(66).
  154.            MOVE 'cs4820' TO CL-NAME(67).
  155.            MOVE 'consentofinstructor' TO CL-PREREQ(67).
  156.            MOVE 'cs4850' TO CL-NAME(68).
  157.            MOVE 'math3810' TO CL-PREREQ(68).
  158.            MOVE 'cs4850' TO CL-NAME(69).
  159.            MOVE 'cs4720' TO CL-PREREQ(69).
  160.            MOVE 'cs4850' TO CL-NAME(70).
  161.            MOVE 'instructorpermission' TO CL-PREREQ(70).
  162.            MOVE 'cs5010' TO CL-NAME(71).
  163.            MOVE 'knowprogramminglanguage' TO CL-PREREQ(71).
  164.            MOVE 'cs5100' TO CL-NAME(72).
  165.            MOVE 'cs2160' TO CL-PREREQ(72).
  166.            MOVE 'cs5100' TO CL-NAME(73).
  167.            MOVE 'cs3160' TO CL-PREREQ(73).
  168.            MOVE 'cs5100' TO CL-NAME(74).
  169.            MOVE 'cs4100' TO CL-PREREQ(74).
  170.            MOVE 'cs5200' TO CL-NAME(75).
  171.            MOVE 'cs2160' TO CL-PREREQ(75).
  172.            MOVE 'cs5200' TO CL-NAME(76).
  173.            MOVE 'cs4200' TO CL-PREREQ(76).
  174.            MOVE 'cs5220' TO CL-NAME(77).
  175.            MOVE 'cs4500' TO CL-PREREQ(77).
  176.            MOVE 'cs5250' TO CL-NAME(78).
  177.            MOVE 'instructorpermission' TO CL-PREREQ(78).
  178.            MOVE 'cs5260' TO CL-NAME(79).
  179.            MOVE 'cs3010' TO CL-PREREQ(79).
  180.            MOVE 'cs5260' TO CL-NAME(80).
  181.            MOVE 'cs5220' TO CL-PREREQ(80).
  182.            MOVE 'cs5260' TO CL-NAME(81).
  183.            MOVE 'permissionofinstructor' TO CL-PREREQ(81).
  184.            MOVE 'cs5310' TO CL-NAME(82).
  185.            MOVE 'cs1450' TO CL-PREREQ(82).
  186.            MOVE 'cs5310' TO CL-NAME(83).
  187.            MOVE 'none' TO CL-PREREQ(83).
  188.            MOVE 'cs5320' TO CL-NAME(84).
  189.            MOVE 'cs5310' TO CL-PREREQ(84).
  190.            MOVE 'cs5330' TO CL-NAME(85).
  191.            MOVE 'cs1450' TO CL-PREREQ(85).
  192.            MOVE 'cs5330' TO CL-NAME(86).
  193.            MOVE 'none' TO CL-PREREQ(86).
  194.            MOVE 'cs5340' TO CL-NAME(87).
  195.            MOVE 'cs1450' TO CL-PREREQ(87).
  196.            MOVE 'cs5340' TO CL-NAME(88).
  197.            MOVE 'none' TO CL-PREREQ(88).
  198.            MOVE 'cs5350' TO CL-NAME(89).
  199.            MOVE 'none' TO CL-PREREQ(89).
  200.            MOVE 'cs5360' TO CL-NAME(90).
  201.            MOVE 'cs5310' TO CL-PREREQ(90).
  202.            MOVE 'cs5370' TO CL-NAME(91).
  203.            MOVE 'cs3300' TO CL-PREREQ(91).
  204.            MOVE 'cs5370' TO CL-NAME(92).
  205.            MOVE 'cs5310' TO CL-PREREQ(92).
  206.            MOVE 'cs5380' TO CL-NAME(93).
  207.            MOVE 'cs3300' TO CL-PREREQ(93).
  208.            MOVE 'cs5380' TO CL-NAME(94).
  209.            MOVE 'consentofinstructor' TO CL-PREREQ(94).
  210.            MOVE 'cs5390' TO CL-NAME(95).
  211.            MOVE 'cs5310' TO CL-PREREQ(95).
  212.            MOVE 'cs5390' TO CL-NAME(96).
  213.            MOVE 'cs5320' TO CL-PREREQ(96).
  214.            MOVE 'cs5390' TO CL-NAME(97).
  215.            MOVE 'cs5340' TO CL-PREREQ(97).
  216.            MOVE 'cs5390' TO CL-NAME(98).
  217.            MOVE 'cs5360' TO CL-PREREQ(98).
  218.            MOVE 'cs5420' TO CL-NAME(99).
  219.            MOVE 'cs3300' TO CL-PREREQ(99).
  220.            MOVE 'cs5420' TO CL-NAME(100).
  221.            MOVE 'cs4420' TO CL-PREREQ(100).
  222.            MOVE 'cs5430' TO CL-NAME(101).
  223.            MOVE 'cs5420' TO CL-PREREQ(101).
  224.            MOVE 'cs5430' TO CL-NAME(102).
  225.            MOVE 'cs4420' TO CL-PREREQ(102).
  226.            MOVE 'cs5500' TO CL-NAME(103).
  227.            MOVE 'cs2060' TO CL-PREREQ(103).
  228.            MOVE 'cs5500' TO CL-NAME(104).
  229.            MOVE 'cs2080' TO CL-PREREQ(104).
  230.            MOVE 'cs5500' TO CL-NAME(105).
  231.            MOVE 'cs4200' TO CL-PREREQ(105).
  232.            MOVE 'cs5500' TO CL-NAME(106).
  233.            MOVE 'cs5200' TO CL-PREREQ(106).
  234.            MOVE 'cs5500' TO CL-NAME(107).
  235.            MOVE 'cs4500' TO CL-PREREQ(107).
  236.            MOVE 'cs5510' TO CL-NAME(108).
  237.            MOVE 'cs4500' TO CL-PREREQ(108).
  238.            MOVE 'cs5550' TO CL-NAME(109).
  239.            MOVE 'cs4500' TO CL-PREREQ(109).
  240.            MOVE 'cs5510' TO CL-NAME(110).
  241.            MOVE 'cs5500' TO CL-PREREQ(110).
  242.            MOVE 'cs5600' TO CL-NAME(111).
  243.            MOVE 'cs1450' TO CL-PREREQ(111).
  244.            MOVE 'cs5600' TO CL-NAME(112).
  245.            MOVE 'math2350' TO CL-PREREQ(112).
  246.            MOVE 'cs5600' TO CL-NAME(113).
  247.            MOVE 'math3130' TO CL-PREREQ(113).
  248.            MOVE 'cs5600' TO CL-NAME(114).
  249.            MOVE 'cs4600' TO CL-PREREQ(114).
  250.            MOVE 'cs5670' TO CL-NAME(115).
  251.            MOVE 'cs2080' TO CL-PREREQ(115).
  252.            MOVE 'cs5670' TO CL-NAME(116).
  253.            MOVE 'math3810' TO CL-PREREQ(116).
  254.            MOVE 'cs5700' TO CL-NAME(117).
  255.            MOVE 'math2150' TO CL-PREREQ(117).
  256.            MOVE 'cs5700' TO CL-NAME(118).
  257.            MOVE 'math3130' TO CL-PREREQ(118).
  258.            MOVE 'cs5700' TO CL-NAME(119).
  259.            MOVE 'cs4700' TO CL-PREREQ(119).
  260.            MOVE 'cs5710' TO CL-NAME(120).
  261.            MOVE 'math3810' TO CL-PREREQ(120).
  262.            MOVE 'cs5710' TO CL-NAME(121).
  263.            MOVE 's5720' TO CL-PREREQ(121).
  264.            MOVE 'cs5710' TO CL-NAME(122).
  265.            MOVE 's5820' TO CL-PREREQ(122).
  266.            MOVE 'cs5710' TO CL-NAME(123).
  267.            MOVE 'instructorpermission' TO CL-PREREQ(123).
  268.            MOVE 'cs5720' TO CL-NAME(124).
  269.            MOVE 'cs1450' TO CL-PREREQ(124).
  270.            MOVE 'cs5720' TO CL-NAME(125).
  271.            MOVE 'math2150' TO CL-PREREQ(125).
  272.            MOVE 'cs5720' TO CL-NAME(126).
  273.            MOVE 'cs4720' TO CL-PREREQ(126).
  274.            MOVE 'cs5750' TO CL-NAME(127).
  275.            MOVE 'cs4720' TO CL-PREREQ(127).
  276.            MOVE 'cs5750' TO CL-NAME(128).
  277.            MOVE 'cs4800' TO CL-PREREQ(128).
  278.            MOVE 'cs5750' TO CL-NAME(129).
  279.            MOVE 'cs5720' TO CL-PREREQ(129).
  280.            MOVE 'cs5750' TO CL-NAME(130).
  281.            MOVE 'instructorsconsent' TO CL-PREREQ(130).
  282.            MOVE 'cs5770' TO CL-NAME(131).
  283.            MOVE 'cs4800' TO CL-PREREQ(131).
  284.            MOVE 'cs5780' TO CL-NAME(132).
  285.            MOVE 'cs4800' TO CL-PREREQ(132).
  286.            MOVE 'cs5780' TO CL-NAME(133).
  287.            MOVE 'cs4780' TO CL-PREREQ(133).
  288.            MOVE 'cs5780' TO CL-NAME(134).
  289.            MOVE 'instructorsconsent' TO CL-PREREQ(134).
  290.            MOVE 'cs5790' TO CL-NAME(135).
  291.            MOVE 'consentofinstructor' TO CL-PREREQ(135).
  292.            MOVE 'cs5800' TO CL-NAME(136).
  293.            MOVE 'cs1450' TO CL-PREREQ(136).
  294.            MOVE 'cs5800' TO CL-NAME(137).
  295.            MOVE 'cs2080' TO CL-PREREQ(137).
  296.            MOVE 'cs5810' TO CL-NAME(138).
  297.            MOVE 'cs4800' TO CL-PREREQ(138).
  298.            MOVE 'cs5810' TO CL-NAME(139).
  299.            MOVE 'cs5800' TO CL-PREREQ(139).
  300.            MOVE 'cs5820' TO CL-NAME(140).
  301.            MOVE 'cs3160' TO CL-PREREQ(140).
  302.            MOVE 'cs5820' TO CL-NAME(141).
  303.            MOVE 'cs4820' TO CL-PREREQ(141).
  304.            MOVE 'cs5820' TO CL-NAME(142).
  305.            MOVE 'instructorconsentforgraduatestudents' TO CL-PREREQ(142).
  306.            MOVE 'cs5840' TO CL-NAME(143).
  307.            MOVE 'math2350' TO CL-PREREQ(143).
  308.            MOVE 'cs5840' TO CL-NAME(144).
  309.            MOVE 'math5840' TO CL-PREREQ(144).
  310.            MOVE 'cs5840' TO CL-NAME(145).
  311.            MOVE 'consentofinstructor' TO CL-PREREQ(145).
  312.            MOVE 'cs5850' TO CL-NAME(146).
  313.            MOVE 'math3810' TO CL-PREREQ(146).
  314.            MOVE 'cs5850' TO CL-NAME(147).
  315.            MOVE 'cs4720' TO CL-PREREQ(147).
  316.            MOVE 'cs5850' TO CL-NAME(148).
  317.            MOVE 'cs4850' TO CL-PREREQ(148).
  318.            MOVE 'cs5850' TO CL-NAME(149).
  319.            MOVE 'instructorpermission' TO CL-PREREQ(149).
  320.            MOVE 'cs5860' TO CL-NAME(150).
  321.            MOVE 'cs5820' TO CL-PREREQ(150).
  322.            MOVE 'cs5860' TO CL-NAME(151).
  323.            MOVE 'instructorpermission' TO CL-PREREQ(151).
  324.            MOVE 'cs5870' TO CL-NAME(152).
  325.            MOVE 'math2350' TO CL-PREREQ(152).
  326.            MOVE 'cs5890' TO CL-NAME(153).
  327.            MOVE 'cs5820' TO CL-PREREQ(153).
  328.            MOVE 'cs5890' TO CL-NAME(154).
  329.            MOVE 'consentofinstructor' TO CL-PREREQ(154).
  330.            MOVE 'cs5910' TO CL-NAME(155).
  331.            MOVE 'cs2080' TO CL-PREREQ(155).
  332.            MOVE 'cs5910' TO CL-NAME(156).
  333.            MOVE 'math2150' TO CL-PREREQ(156).
  334.            MOVE 'cs5920' TO CL-NAME(157).
  335.            MOVE 'math2150' TO CL-PREREQ(157).
  336.            MOVE 'cs5920' TO CL-NAME(158).
  337.            MOVE 'math3810' TO CL-PREREQ(158).
  338.            MOVE 'cs5920' TO CL-NAME(159).
  339.            MOVE 'cs3160' TO CL-PREREQ(159).
  340.            MOVE 'cs5920' TO CL-NAME(160).
  341.            MOVE 'cs5220' TO CL-PREREQ(160).
  342.            MOVE 'cs5920' TO CL-NAME(161).
  343.            MOVE 'instructorconsent' TO CL-PREREQ(161).
  344.            MOVE 'cs6010' TO CL-NAME(162).
  345.            MOVE 'permissionofinstructor' TO CL-PREREQ(162).
  346.            MOVE 'cs6220' TO CL-NAME(163).
  347.            MOVE 'cs5220' TO CL-PREREQ(163).
  348.            MOVE 'cs6300' TO CL-NAME(164).
  349.            MOVE 'cs5310' TO CL-PREREQ(164).
  350.            MOVE 'cs6300' TO CL-NAME(165).
  351.            MOVE 'cs5350' TO CL-PREREQ(165).
  352.            MOVE 'cs6380' TO CL-NAME(166).
  353.            MOVE 'cs5380' TO CL-PREREQ(166).
  354.            MOVE 'cs6430' TO CL-NAME(167).
  355.            MOVE 'cs4420' TO CL-PREREQ(167).
  356.            MOVE 'cs6430' TO CL-NAME(168).
  357.            MOVE 'cs5420' TO CL-PREREQ(168).
  358.            MOVE 'cs6770' TO CL-NAME(169).
  359.            MOVE 'cs5800' TO CL-PREREQ(169).
  360.            MOVE 'cs6770' TO CL-NAME(170).
  361.            MOVE 'cs5770' TO CL-PREREQ(170).
  362.            MOVE 'cs6770' TO CL-NAME(171).
  363.            MOVE 'consentofinstructor' TO CL-PREREQ(171).
  364.            MOVE 'cs6820' TO CL-NAME(172).
  365.            MOVE 'cs5820' TO CL-PREREQ(172).
  366.            MOVE 'cs6820' TO CL-NAME(173).
  367.            MOVE 'cs5830' TO CL-PREREQ(173).
  368.            MOVE 'cs6820' TO CL-NAME(174).
  369.            MOVE 'instructorpermission' TO CL-PREREQ(174).
  370.            MOVE 'cs6870' TO CL-NAME(175).
  371.            MOVE 'cs5870' TO CL-PREREQ(175).
  372.            MOVE 'cs6910' TO CL-NAME(176).
  373.            MOVE 'cs5910' TO CL-PREREQ(176).
  374.            MOVE 'cs6910' TO CL-NAME(177).
  375.            MOVE 'cs5920' TO CL-PREREQ(177).
  376.            MOVE 'cs6910' TO CL-NAME(178).
  377.            MOVE 'instructorpermission' TO CL-PREREQ(178).
  378.            MOVE 'cs6920' TO CL-NAME(179).
  379.            MOVE 'cs5920' TO CL-PREREQ(179).
  380.            MOVE 'cs7060' TO CL-NAME(180).
  381.            MOVE 'permissionofinstructor' TO CL-PREREQ(180).
  382.            MOVE 'cs8000' TO CL-NAME(181).
  383.            MOVE 'acceptanceintoprogram' TO CL-PREREQ(181).
  384.            MOVE 'cs1030' TO CL-NAME(182).
  385.            MOVE 'none' TO CL-PREREQ(182).
  386.            MOVE 'cs1040' TO CL-NAME(183).
  387.            MOVE 'none' TO CL-PREREQ(183).
  388.            MOVE 'cs1100' TO CL-NAME(184).
  389.            MOVE 'none' TO CL-PREREQ(184).
  390.            MOVE 'cs2910' TO CL-NAME(185).
  391.            MOVE 'none' TO CL-PREREQ(185).
  392.            MOVE 'cs5020' TO CL-NAME(186).
  393.            MOVE 'none' TO CL-PREREQ(186).
  394.            MOVE 'cs5760' TO CL-NAME(187).
  395.            MOVE 'none' TO CL-PREREQ(187).
  396.            MOVE 'cs5830' TO CL-NAME(188).
  397.            MOVE 'none' TO CL-PREREQ(188).
  398.            MOVE 'cs6780' TO CL-NAME(189).
  399.            MOVE 'none' TO CL-PREREQ(189).
  400.            
  401.            PARA-LOOP.
  402.            
  403.            
  404.            MOVE 1 TO PPOS.
  405.            MOVE 1 TO PCOUNT.
  406.            MOVE 'IS NOT' TO PFOUND.
  407.            
  408.            DISPLAY "ENTER THE NAME OF THE CLASS, OR EXIT: "
  409.            ACCEPT C-NAME.
  410.            
  411.            IF C-NAME = 'EXIT' THEN
  412.             GO TO PARA-QUIT.
  413.            
  414.            DISPLAY "ENTER THE NAME OF THE PREREQ: "
  415.            ACCEPT C-PREREQ.
  416.            
  417.            MOVE C-NAME TO PREREQS(1).
  418.            
  419.            
  420.            PERFORM UNTIL PPOS > PCOUNT
  421.             MOVE 1 TO I
  422.             PERFORM UNTIL I > 189
  423.            
  424.                 IF PREREQS(PPOS) = CL-NAME(I) THEN
  425.                  MOVE 0 TO J
  426.                  PERFORM UNTIL J > PCOUNT
  427.                   COMPUTE J =J + 1
  428.                   IF CL-PREREQ(I) = PREREQS(J) THEN
  429.                    MOVE 9999 TO J
  430.                   END-IF
  431.                  END-PERFORM
  432.                  IF J NOT= 9999 THEN
  433.                     COMPUTE PCOUNT = PCOUNT + 1
  434.                     MOVE CL-PREREQ(I) TO PREREQS(PCOUNT)
  435.                     IF PREREQS(PPOS) = C-PREREQ THEN
  436.                         MOVE 'IS' TO PFOUND
  437.                     END-IF
  438.                  END-IF
  439.                 END-IF
  440.            
  441.                 COMPUTE I = I + 1
  442.            
  443.            END-PERFORM
  444.            COMPUTE PPOS = PPOS + 1
  445.           END-PERFORM.
  446.          
  447.           MOVE 1 TO I.
  448.           DISPLAY "HERE ARE THE PREREQS:"
  449.           PERFORM UNTIL I > PCOUNT
  450.             DISPLAY PREREQS(I)
  451.             COMPUTE I = I + 1
  452.           END-PERFORM.
  453.           DISPLAY 'THE PREREQ YOU ENTERED ' PFOUND ' A PREREQ'.
  454.           GO TO PARA-LOOP.
  455.        PARA-QUIT.    
  456.        STOP RUN.
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!