Shareware Overload/ShartewareOverload.cdr/database/chrchpr4.zip/MUPEDIT.CMD

OS/2 REXX Batch file | 1987-01-06 | 4KB | 121 lines

* Program MUPEDIT - Allows changing an existing MEMBER record
If !(ESEL) = 'X'
  Replace SS:SC:MEMB with $(SS:SC:MEMB,1,4)+'*'
  ? "  The above person's record has been made inactive."
  Replace DATES with $(dates,1,5)+$(date(),1,2)+$(date(),7,2)
else
  ERASE
  Set intensity on
  Store $(dates,6,2)+'/'+$(dates,8,2) to ODATES
  Store STR(#,5) to RECSTR
  If $(MEMBSTATUS,2,1) = '*' .or. $(SS:SC:MEMB,5,1) = '*'
    Store RECSTR+'        * INACTIVE as of '+ODATES+' *' to RECSTR
  endif
  Store home:phone to xphone
  Store address to xaddress
  Store city:state to xcityst
  Store zip to xzip
  If XSELECT = 'Y'
    @ 2,10 say 'MPROFILE          Editing record number '+RECSTR
   @ 5,2  say 'This person is designated the following FAMILYCODE: '+familycode
    @ 7,1  say 'LAST NAME = '+LAST:NAME
    @ 7,37 SAY 'FIRST NAME= '+FIRST:NAME
    @ 8,1  SAY 'ADDRESS   = '+ADDRESS
    @ 9,1  SAY 'CITY,STATE= '+CITY:STATE
    @ 9,37 SAY 'ZIP CODE  = '+ZIP
    IF ZONING='Y'
      @ 9,56 GET ZONE
    ENDIF
    @ 10,1  SAY 'HOME PHONE= '+HOME:PHONE
    @ 10,37 SAY 'WORK PHONE= '+WORK:PHONE
    @ 11,1  SAY 'BIRTHDATE = '
    @ 11,13 SAY BIRTHDATE PICTURE 'XX/XX/XX-XXXXXXXXXXXX'
    @ 11,37 SAY 'MEMBSTATUS= '+MEMBSTATUS
    @ 12,1  say 'SPEC.DATES' get SPEC:DATES PICTURE 'XX/XX/XX,XX/XX/XXX'
    @ 12,37 SAY 'OFFERINGEN' get OFFERINGEN
    @ 13,1  SAY 'SS/SC MEMB' GET SS:SC:MEMB
    @ 13,37 SAY 'TEACH-SSSC' GET TEACH:SSSC
    @ 14,1  SAY 'SP/ACTIVTY' GET SP:ACTIVTY
    @ 14,37 SAY 'COMMENTS  ' GET COMMENTS
    @ 15,1  say 'OTHER-ACTV' GET OTHER
    @ 16,1  say 'INT/ABIL  ' GET SKILLS
    @ 16,52 say 'DATES '+dates
    @ 18,10 say 'Press <ctrl-W> when editing is complete.'
   READ
else
  @ 2,10 say 'Editing record number '+RECSTR
  @ 5,2  say 'This person is designated the following FAMILYCODE'
  @ 5,53 say 'unless changed ' get FAMILYCODE
  @ 7,1  say 'LAST NAME  '  GET LAST:NAME
  @ 7,37 SAY 'FIRST NAME '  GET FIRST:NAME
  @ 8,1  SAY 'ADDRESS    '  GET ADDRESS
  @ 9,1  SAY 'CITY,STATE '  GET CITY:STATE
  @ 9,37 SAY 'ZIP CODE   '  GET ZIP
  IF ZONING='Y'
    @ 9,56 GET ZONE
  ENDIF
  @ 10,1  SAY 'HOME PHONE ' GET HOME:PHONE
  @ 10,37 SAY 'WORK PHONE ' GET WORK:PHONE
  @ 11,1  SAY 'BIRTHDATE  '
  @ 11,12 GET BIRTHDATE PICTURE 'XX/XX/XX-XXX'
  @ 11,37 SAY 'MEMBSTATUS ' GET MEMBSTATUS
  @ 12,1 SAY  'SPEC.DATES ' GET SPEC:DATES PICTURE 'XX/XX/XX,XX/XX/XXX'
  @ 12,37 SAY 'OFFERINGEN ' GET OFFERINGEN
  @ 13,1  SAY 'SS/SC MEMB ' GET SS:SC:MEMB
  @ 13,37 SAY 'TEACH-SSSC ' GET TEACH:SSSC
  @ 14,1  SAY 'SP/ACTIVTY ' GET SP:ACTIVTY
  @ 14,37 SAY 'COMMENTS   ' get COMMENTS
  @ 15,1  say 'OTHER-ACTV ' GET OTHER
  @ 16,1  say 'INT/ABIL   ' get SKILLS
  @ 16,55 say 'DATES '+dates
  @ 18,10 say 'Press <ctrl-W> when editing is complete.'
  ?
  READ
 ENDIF
 Set intensity off
 If xaddress<>address.or.xcityst<>city:state.or.zip<>xzip.or.xphone<>home:phone
   Replace DATES with $(dates,1,5)+INDATE
   If FAUPDATE
     ?
     ? 'Now updating the addresses of all family members with this last name.'
     Set exact off
     Store $(last:name,1,3) to XX
     Store $(familycode,1,7) to xfamcode
     Store # to curfnum
     Store address to xaddress
     Store city:state to xcityst
     Store zip to xzip
     Store home:phone to xphone
     Find &XX
     If #<>0
       Do while familycode<>xfamcode .and. last:name=XX
         SKIP
       enddo
       Do while #<>0 .and. last:name = xx
         If #<>curfnum
           ? home:phone,first:name,address,city:state,zip
           Replace address with xaddress
           Replace city:state with xcityst
           Replace zip with xzip
           Replace home:phone with xphone
         endif
         SKIP
         Do while familycode<>xfamcode.and.last:name=XX
           SKIP
         enddo
       enddo
     endif
   endif
 endif
endif
endif
RETURN
xphone<>home:phone
   Replace DATES with $(dates,1,5)+INDATE
 endif
 Set intensity off
endif
RETURN
'  GET ADDRESS
  @ 9,1  SAY 'CITY,STATE '  GET CITY:STATE
  @