home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / chrchpr4.zip / FCREPT1.CMD < prev    next >
OS/2 REXX Batch file  |  1987-01-06  |  2KB  |  65 lines
  1. * Program FCREPT1 - Prints a full-information report of everyone in MEMBERS.
  2. USE &MFILE
  3. If ANAME1<>'ALL'
  4.   FIND &ANAME1
  5. ENDIF
  6. Store T to BEGINNG
  7. Store F to invaldd
  8. Store 0 to pagenum
  9. Store 61 to curline
  10. Store $(date(),1,2)+$(date(),7,2) to indate
  11. If len(cname)<44
  12.   Store '         '+cname to cname
  13. endif
  14. ?
  15. ? 'Generating Full Information Report   ',curdate
  16. Set format to print
  17. Do while .not. EOF .and. &ANAME=ANAME1
  18.   If curline > 60
  19.     If .not. BEGINNG
  20.       EJECT
  21.     endif
  22.     Store pagenum+1 to pagenum
  23.     @ 1,1 say CNAME
  24.     @ 1,55 say curdate+'   Page'+str(pagenum,4)
  25.     store 4 to curline
  26.   endif
  27.   If .not. BEGINNG
  28.   Store trim(last:name)+', '+trim(first:name) to names
  29.   store trim(address)+', '+trim(city:state) to addrs
  30.   Store ' ' to mbx
  31.   If !(membstatus) = 'Y'
  32.     Store '-' to mbx
  33.   else
  34.     If $(dates,1,4) = indate
  35.       store '`' to mbx
  36.     endif
  37.   endif
  38.   @ curline,0 say familycode
  39.   @ curline,10 say 'SC:'+SS:SC:MEMB+$(teach:SSSC,1,3)
  40.   @ curline,22 say mbx+names
  41.   @ curline,55 say 'TEL:'+home:phone+work:phone
  42.   @ curline+1,1 say 'MEMB:'+MEMBSTATUS
  43.   Store str(offeringen,4) to offr
  44.   @ curline+1,16 say 'E#'+offr
  45.   @ curline+1,24 say addrs+' '+zip+zone
  46.   @ curline+2,1 say 'ACTY:'+sp:activty
  47.   @ curline+2,28 say 'OTHER: '+other
  48.   @ curline+2,60 say dates
  49.   @ curline+3,0 say str(#,4)
  50.   @ curline+3,7 say 'I/A:'+SKILLS
  51.   @ curline+3,44 say 'BD:'+birthdate+spec:dates
  52.   @ curline+4,60 say comments
  53.   Store curline+5 to curline
  54.   SKIP
  55.   endif
  56.   Store F to BEGINNG
  57.   Do while .not. EOF .and. (* .or. &BNAME)
  58.     SKIP
  59.   enddo
  60. enddo
  61. EJECT
  62. Set format to screen
  63. RETURN
  64.  
  65.                                    1283,1283          Baker          Karen         BAKK0022M866-6332 2345 Berea Dr.           Thriving City, MN   55555     05/22/57-                     Y      *      2         C28 *     ACH,                BS,                           BSG=002,                                                                                               1283,1283