home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / chrchpr4.zip / FCREPT4.CMD < prev    next >
OS/2 REXX Batch file  |  1987-01-06  |  2KB  |  69 lines
  1. * Program FCREPT4 - Generates Full Church Roster
  2. Accept 'Does the FCMEMBRS file have the latest MEMBERS file changes? ' to XX
  3. If !(XX)='Q'
  4.   RETURN
  5. endif
  6. If !(XX)<>'Y'
  7.   Do MGFCROST.CMD
  8. endif
  9. Store d+':FCMEMBRS index '+d+':FCMEMBRS' to MFILE
  10. USE &MFILE
  11. ? 'Now printing the Full Church Directory report.  The printer must be on.'
  12. Set format to print
  13. Store 63 to curline
  14. Do while .not. EOF
  15.   If curline > 58
  16.     IF CURLINE<>0
  17.       EJECT
  18.     ENDIF
  19.     @ 2,8 say CHNAME+', Directory    '+CURDATE
  20.     Store 5 to curline
  21.   endif
  22.   Store trim(last:name)+', '+trim(first:name) to names
  23.   STORE $(LAST:NAME,1,1) TO LASTNAMX
  24.   If len(names) > 37
  25.     Store $(names,1,37) to names
  26.   endif
  27.   @ curline,8 say names
  28.   @ curline,46 say home:phone
  29.   Store curline+1 to curline
  30.   If $(children,3,1)<>' '
  31.     @ curline,7 say children
  32.     store curline+1 to curline
  33.   endif
  34.   If len(address)>0
  35.     @ curline,8 say trim(address)+', '+trim(city:state)+'  '+zip
  36.   endif
  37.   Store curline+2 to curline
  38.   SKIP
  39.   Do while * .and. .not. EOF
  40.     SKIP
  41.   enddo
  42.   IF LSEP
  43.     IF LAST:NAME<>LASTNAMX
  44.       @ CURLINE+2,30 SAY '- '+$(LAST:NAME,1,1)+' -'
  45.       STORE CURLINE+4 TO CURLINE
  46.     ENDIF
  47.   ENDIF
  48. enddo
  49. EJECT
  50. Set format to screen
  51. RETURN
  52. Special Activity  that 
  53.          have birthdays this month.  This report prints everyone's name  and 
  54.          birthday  that has "BIRTHDATE" characters 1 and 2 being the same as 
  55.          the SYSTEM DATE characters 1 and 2.
  56.  
  57.     7) [ML] - Mailing labels                              MACTIVTY /MACTIVTY
  58.          This  report  is  for standard mailing labels to be printed  for  a 
  59.          selected Special Activity.  Mailing labels will be printed for  all 
  60.          active  people  in  the  spacing  deMEMBRS file have the latest changes from MUPDATE? ' to XY
  61.       If !(XY)='Q'
  62.         RETURN
  63.       endif
  64.       If !(XY)<>'Y'
  65.         Do MGFCROST.CMD
  66.       endif
  67.       Store d+':FCMEMBRS index '+d+':FCMEMBRS' to SPFILE
  68.       If file(SPFILE)
  69.         Store 'ALL' to AN