home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / chrchpr4.zip / MATTYEAR.CMD < prev    next >
OS/2 REXX Batch file  |  1987-01-06  |  2KB  |  79 lines
  1. * Program MATTYEAR - One-line Year-end Report of attendance of a Small Church
  2. Select primary
  3. Store 98 to curline
  4. If len(actvname)<41
  5.   Store '          '+actvname to actvname
  6. endif
  7. Store 0 to pagenum
  8. Store T to BEGINNG
  9. Set format to print
  10. Store val($(date(),7,2)) to curyear
  11. *Store 'ss:sc:memb' to ANAME
  12. Do while &ANAME=ANAME1 .and. .not. EOF
  13.   If .not. BEGINNG
  14.    If curline>61
  15.     if curline<63
  16.       EJECT
  17.     endif
  18.     Store pagenum+1 to pagenum
  19.     @ 0,0 say actvname
  20.     @ 0,52 say curdate
  21.     @ 0,73 say 'Page'+str(pagenum,3)
  22.     @ 2,0 say 'XX- NAME                      ATTENDANCE'
  23.     Store 3 to curline
  24.    endif
  25.     @ curline,0  say $(membstatus,7,2)+$(ss:sc:memb,5,1)
  26.     Store trim(first:name)+' '+trim(last:name) to fname
  27.     If len(fname) > 17
  28.       Store $(fname,1,17)+'_' to fname
  29.     endif
  30.     @ curline,3 say fname
  31.     @ curline,21 say ssscattd
  32.     SKIP
  33.   endif
  34.   Store F to BEGINNG
  35.   Store curline+1 to curline
  36.   Do while .not. EOF .and. (* .or. $(membstatus,2,1)='*')
  37.     SKIP
  38.   enddo
  39. ENDDO
  40. If curline=99
  41.   @ 2,10 say actvname+'   '+curdate
  42.   @ 5,10 say 'No people found.'
  43. endif
  44. EJECT
  45. Release fcolhdr,fcolumn,actvname,curline,pagenum,beginng,mornames,fname
  46. release faddress
  47. Set format to screen
  48. RETURN
  49.  
  50.  
  51.                         DATA DISK = C
  52.  
  53.               Interests / Abilities Reports                  5-/IAREPORT/
  54.  
  55.      1) Report for selected Interests / Abilities for all members       [OL]
  56.      2) Report for selected Interests/Abilities and Small Church        [OL]
  57.      3) Mailing Labels for selected Interests/Abilities, all members    [ML]
  58.      4) Mailing Labels for selected Interests/Abilities and Sm Church   [ML]
  59.  
  60.      Enter selection :
  61.  
  62.  
  63.  
  64.     This  report  section  allows the church to  mDISK='
  65.   If len(MSEL)>5
  66.     Store $(MSEL,6,1) to D
  67.     ? 'Disk now being set to drive',D
  68.     Save to MEMVARS
  69.   endif
  70.   Store 'D' to MSEL
  71. endif
  72. If MSEL='8'
  73.   Do MPRSETUP.CMD
  74.   Clear
  75.   Store T to LEVEL1
  76.   Do MMEMVARS.CMD
  77.   Save to MEMVARS
  78. else
  79.   S