home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / chrchpr4.zip / MUPADD1.CMD < prev    next >
OS/2 REXX Batch file  |  1987-01-06  |  3KB  |  99 lines
  1. * Program MUPADD1 - Allows entry of a new MEMBER name.
  2. Store T to ADDEDREC
  3. Append BLANK
  4. Replace LAST:NAME with lastname
  5. Replace first:name with firstname
  6. Replace home:phone with homephone
  7. If MSEL='S'
  8.   Replace membstatus with $(membstatus,1,6)+'1N'
  9.   If msel='SCATT'
  10.     Replace ss:sc:memb with aname1
  11.   endif
  12. endif
  13. Store F to WARADDR
  14. If INH1 = 'M'
  15.   If len(XADDRESS) = 1
  16.     Store T to WARADDR
  17.   Store STR(CURFNUM,3) to curfnumb
  18.   If $(curfnumb,1,2) = '  '
  19.     Store '00'+$(curfnumb,3,1) to curfnumb
  20.   else
  21.     If $(curfnumb,1,1) = ' '
  22.       Store '0'+$(curfnumb,2,2) to curfnumb
  23.     endif
  24.   endif
  25.   else
  26.     Replace ADDRESS with XADDRESS
  27.     Replace CITY:STATE with XCITYST
  28.     Replace ZIP with XZIP
  29.   endif
  30. else
  31.   Store STR(CURFNUM,3) to curfnumb
  32.   If $(curfnumb,1,2) = '  '
  33.     Store '00'+$(curfnumb,3,1) to curfnumb
  34.   else
  35.     If $(curfnumb,1,1) = ' '
  36.       Store '0'+$(curfnumb,2,2) to curfnumb
  37.     endif
  38.   endif
  39. endif
  40. Replace familycode with lastcode+firstcode+curfnumb+INH2+FCODE9
  41. ERASE
  42. Replace dates with indate+','+indate
  43. Set intensity on
  44.   @ 2,15 say 'MPROFILE          Adding Record '+STR(#,5)
  45.   If WARADDR
  46.     @ 3,10 say '** WARNING - no head-of-household designated; new FAMILYCODE.'
  47.   endif
  48.   @ 5,2  say 'This person is designated the following FAMILYCODE'
  49.   @ 8,1  SAY 'ADDRESS    '  GET ADDRESS
  50.   @ 9,1  SAY 'CITY,STATE '  GET CITY:STATE
  51.   @ 9,37 SAY 'ZIP CODE   '  GET ZIP
  52.   If ZONING='Y'
  53.     @ 9,56 get ZONE
  54.   endif
  55.   @ 10,1 SAY 'HOME PHONE '  GET HOME:PHONE
  56.   @ 10,37 SAY 'WORK PHONE ' GET WORK:PHONE
  57.   @ 11,1  SAY 'BIRTHDATE  ' GET BIRTHDATE PICTURE 'XX/XX/XX-XXXXXXXXXXXX'
  58.   @ 11,37 say 'MEMB.STATUS ' get MEMBSTATUS
  59.   @ 12,1  say 'SPEC.DATES ' GET SPEC:DATES PICTURE 'XX/XX/XX,XX/XX/XXX'
  60.   @ 12,37 SAY 'OFFERINGEN ' GET OFFERINGEN
  61.   @ 13,1  SAY 'SS/SC MEMB ' GET SS:SC:MEMB
  62.   @ 13,37 SAY 'TEACH-SSSC ' GET TEACH:SSSC
  63.   @ 14,1  SAY 'SP/ACTIVTY ' GET SP:ACTIVTY
  64.   @ 14,37 SAY 'COMMENTS   ' get COMMENTS
  65.   @ 15,1  say 'OTHER-ACTV ' GET OTHER
  66.   @ 16,1  say 'INT/ABIL   ' get SKILLS
  67.   @ 16,57 say 'DATES :'+dates
  68.   @ 5,53 say 'unless changed ' get FAMILYCODE
  69.   @ 7,1  say 'LAST NAME  '  get last:name
  70.   @ 7,37 say 'FIRST NAME '  get first:name
  71.   @ 18,10 say 'Press <ctrl-W> when editing is complete.'
  72.   READ
  73. Set intensity off
  74.   If INH1 = 'H'
  75.     Store LAST:NAME to lastname
  76.     Store ADDRESS to XADDRESS
  77.     Store CITY:STATE to xcityst
  78.     Store zip to xzip
  79.     Store home:phone to homephone
  80.     Store familycode to xfamcode
  81.   else
  82.     If INH1 = 'S'
  83.       Store ' ' to xaddress
  84.       Store ' ' to xcityst
  85.       Store ' ' to homephone
  86.       Store ' ' to xfamcode
  87.     endif
  88.   endif
  89. RETURN
  90. TES PICTURE 'XX/XX/XX,XX/XX/XXX'
  91.   @ 12,37 SAY 'OFFERINGEN ' GET OFFERINGEN
  92.   @ 13,1  SAY 'SS/SC MEMB ' GET SS:SC:MEMB
  93.   @ 13,37 SAY 'TEACH-SSSC ' GET TEACH:SSSC
  94.   @ 14,1  SAY 'SP/ACTIVTY ' GET SP:ACTIVTY
  95.   @ 14,37 SAY 'COMMENTS   ' get COMMENTS
  96.   @ 15,1  say 'OTHER-ACTV ' GET OTHER
  97.   @ 16,1  say 'INT/ABIL   ' get SKILLS
  98.   @ 16,57 say 'DATES :'+dates
  99.   @ 5,53 say '