Nick-O-Rama

assignment-8

Oct 5th, 2015
550
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.    
  2.  
  3.            program-id. Program1 as "assignmen_8.Program1".
  4.            environment division.
  5.            input-output section.
  6.            select model-master assign to "C:\temp\model-master.txt" organization is line sequential.
  7.            select model-report assign to "C:\temp\model-report.txt" organization is line sequential.
  8.            data division.
  9.            file section.
  10.            fd model-master.
  11.            01 model-file.
  12.                05 name-in                  pic x(20).
  13.                05 weight-in                pic 999.
  14.                05 height-in                pic 99.
  15.                05 eyes-in                  pic 9.
  16.                05 hair-in                  pic 9.
  17.                05 sex-in                   pic x.
  18.            fd model-report.
  19.            01 model-record.
  20.                05                          pic x(9).
  21.                05 name-out                 pic x(20).
  22.                05                          pic x(4).
  23.                05 sex-out                  pic x.
  24.                05                          pic x(6).
  25.                05 weight-out               pic x(3).
  26.                05                          pic x(6).
  27.                05 height-out               pic x(3).
  28.                05                          pic x(6).
  29.                05 eyes-out                 pic x(5).
  30.                05                          pic x(6).
  31.                05 hair-out                 pic x(6).
  32.                05                          pic x(5).
  33.            working-storage section.
  34.            01 page-heading.
  35.                05              pic x(29) value spaces.
  36.                05              pic x(22) value "M O D E L  R E P O R T".
  37.                05              pic x(8) value spaces.
  38.                05              pic x(5) value "PAGE ".
  39.                05 page-num     pic 99 value zero.
  40.                05              pic x(3) value spaces.
  41.                05 the-date.
  42.                    10 c-day    pic xx/.
  43.                    10 c-month  pic xx/.
  44.                    10 c-year   pic xxxx.
  45.            01 temp-date.
  46.                05 temp-year     pic xxxx.
  47.                05 temp-month    pic xx.
  48.                05 temp-day      pic xx.
  49.            01 field-heading.
  50.                05              pic x(9) value spaces.
  51.                05              pic x(4) value "NAME".
  52.                05              pic x(19) value spaces.
  53.                05              pic x(3) value "SEX".
  54.                05              pic x(4) value spaces.
  55.                05              pic x(6) value "WEIGHT".
  56.                05              pic x(2) value spaces.
  57.                05              pic x(6) value "HEIGHT".
  58.                05              pic x(2) value spaces.
  59.                05              pic x(9) value "EYE COLOR".
  60.                05              pic x(2) value spaces.
  61.                05              pic x(10) value "HAIR COLOR".
  62.                05              pic x(3) value spaces.
  63.            01 end-flag         pic x(3) value "YES".
  64.            01 line-num         pic 99 value zero.
  65.                
  66.            procedure division.
  67.            100-main.
  68.                open input model-master
  69.                    output model-report
  70.                
  71.                move function current-date to temp-date
  72.                perform 150-print-heading
  73.                perform until end-flag = "NO"
  74.                    read model-master
  75.                    at end move "NO" to end-flag
  76.                    not at end
  77.                        perform 200-write-record
  78.                    end-read
  79.                end-perform
  80.                close model-master
  81.                    model-report
  82.                goback.
  83.            150-print-heading.
  84.                add 1 to page-num
  85.                move temp-year to c-year
  86.                move temp-month to c-month
  87.                move temp-day to c-day
  88.                move page-heading to model-record
  89.                write model-record after advancing page
  90.                move field-heading to model-record
  91.                write model-record after advancing 3 line
  92.                move zero to line-num
  93.                move spaces to model-record
  94.                write model-record after advancing 1 line.
  95.            200-write-record.
  96.                move spaces to model-record
  97.                if line-num = 10
  98.                    perform 150-print-heading
  99.                end-if          
  100.                if sex-in = "M"
  101.                    if hair-in = 1 and eyes-in = 1
  102.                        if height-in >= 72
  103.                            if weight-in >= 185 and weight-in <= 200
  104.                                add 1 to line-num
  105.                                move name-in to name-out
  106.                                move sex-in to sex-out
  107.                                move weight-in to weight-out
  108.                                move height-in to height-out
  109.                                move "BLUE" to eyes-out
  110.                                move "BLONDE" to hair-out
  111.                                write model-record
  112.                            end-if
  113.                        end-if
  114.                    end-if
  115.                end-if
  116.                if sex-in = "F"
  117.                    if hair-in = 2 and eyes-in = 2
  118.                        if height-in >= 62 and height-in <= 66
  119.                            if weight-in >= 110 and weight-in <= 125
  120.                                move name-in to name-out
  121.                                move sex-in to sex-out
  122.                                move weight-in to weight-out
  123.                                move height-in to height-out
  124.                                move "BROWN" to eyes-out
  125.                                move "BROWN" to hair-out
  126.                                write model-record
  127.                                add 1 to line-num
  128.                            end-if
  129.                        end-if
  130.                    end-if
  131.                end-if.
  132.      
  133.            end program Program1.
RAW Paste Data

Adblocker detected! Please consider disabling it...

We've detected AdBlock Plus or some other adblocking software preventing Pastebin.com from fully loading.

We don't have any obnoxious sound, or popup ads, we actively block these annoying types of ads!

Please add Pastebin.com to your ad blocker whitelist or disable your adblocking software.

×