Oakland CPM Archive/oakcpm.iso/sigm/vol110/valid.acg

Text File | 1984-04-29 | 4.4 KB | 159 lines

* valid.acg   03/15/83 hmvt, sml

* this module validates added records

* set up a couple of control variables
STORE t TO more

IF msend = 'Y' .OR. msend = 'N'


* test if there is a bad field validation
DO CASE

    CASE mfname = ' '
      STORE t TO error

    CASE mmr = ' '
      STORE t TO error

    CASE mdear = ' '
      STORE t TO error

ENDCASE

ELSE
   STORE t TO error
ENDIF msend = 'Y'

* if test for error was true then fix the fields that need fixing
IF error

* erase old format
SET FORMAT TO SCREEN
ERASE

?'                   Please Correct the Indicated Data'
* display screen data entry form and the entered data
* use say-rec.fmt with the stuff above and below the dashed line removed
@ 02,00 SAY '+-------------------'
@ 02,20 SAY '--------------------'
@ 02,40 SAY '--------------------'
@ 02,60 SAY '-------------------+'
@ 03,00 SAY 'Lastname: '
@ 03,10 SAY mlastname
@ 03,40 SAY 'First & MI: '
@ 03,53 SAY mfname
@ 04,00 SAY 'Spouse: '
@ 04,10 SAY mspouse
@ 04,40 SAY 'Address as: '
@ 04,53 SAY mmr
@ 06,00 SAY 'Title: '
@ 06,08 SAY mtitle
@ 07,00 SAY 'Company (line 1): '
@ 07,20 SAY mcompany1
@ 08,08 SAY '(line 2): '
@ 08,20 SAY mcompany2
@ 09,00 SAY 'Company address: '
@ 09,20 SAY mcaddress
@ 09,62 SAY 'Room: '
@ 09,68 SAY msuite
@ 10,00 SAY 'City: '
@ 10,08 SAY mccity
@ 10,33 SAY 'State: '
@ 10,40 SAY mcst
@ 10,48 SAY 'Zipcode: '
@ 10,57 SAY mczip
@ 12,00 SAY 'Home address: '
@ 12,17 SAY maddress
@ 12,60 SAY 'Apt: '
@ 12,67 SAY mapt
@ 13,00 SAY 'City: '
@ 13,11 SAY mcity
@ 13,33 SAY 'State: '
@ 13,40 SAY mst
@ 13,48 SAY 'Zipcode: '
@ 13,57 SAY mzip
@ 14,00 SAY 'Phone - office: '
@ 14,16 SAY mophone
@ 14,38 SAY 'home: '
@ 14,44 SAY mphone
@ 15,00 SAY 'Dear -'
@ 15,08 SAY mdear
@ 15,35 SAY 'Send letters to office (Yes/No): '
@ 15,68 SAY msend
@ 16,00 SAY 'Code: 1.-'
@ 16,10 SAY mcs1
@ 16,15 SAY '2.-'
@ 16,20 SAY mcs2
@ 16,25 SAY '3.-'
@ 16,30 SAY mcs3
@ 16,35 SAY '4.-'
@ 16,40 SAY mcs4
@ 16,45 SAY '5.-'
@ 16,50 SAY mcs5
@ 16,55 SAY '6.-'
@ 16,60 SAY mcs6
@ 17,00 SAY 'Misc: '
@ 17,08 SAY mmisc
@ 17,54 SAY 'Date update: '
@ 17,68 SAY mupdate
@ 18,00 SAY '+--------------------'
@ 18,20 SAY '---------------------'
@ 18,40 SAY '---------------------'
@ 18,60 SAY '-------------------+'

* keep looping until all fields are fixed
DO WHILE more
* which ones are bad - fix one at a time
DO CASE

    CASE mfname = ' '
      @ 20,15 SAY 'Must add a First Name                                  '
      @ 03,53 GET mfname
      READ

    CASE mmr = ' '
      @ 20,15 SAY 'Must have Mr. or Miss. etc                             '
      @ 04,53 GET mmr
      READ

    CASE mdear = ' '
      @ 20,15 SAY 'Must have a salutation for Dear.....                   '
      @ 15,08 GET mdear
      READ




       CASE  msend

       * validate msend further
            IF msend = 'Y' .OR. msend = 'N'
              STORE f TO more
            ELSE
              @ 20,15 SAY 'Must answer "Y" or "N" to send letter to office   '
              @ 15,68 GET msend picture '!'
              READ
            ENDIF msend = 'Y' .OR. msend = 'N'

       CASE more
          STORE f TO more


ENDCASE

ENDDO while more

* restore the add record data entry format
ERASE
SET FORMAT TO mod-rec

ENDIF error

* release local variables
RELEASE error,more

* restore selected variables
STORE t to more