home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / chrchpr4.zip / MONELINE.CMD < prev    next >
OS/2 REXX Batch file  |  1987-01-06  |  2KB  |  85 lines

  1. * Program MONELINE - One-line roster of a selected group from the input file.
  2. Select primary
  3. Store 98 to curline
  4. ? 'Now printing a one-line [OL] report of ',aname1
  5. If len(actvname)<41
  6.   Store '          '+actvname to actvname
  7. endif
  8. Store 20 to nn
  9. Store 42 to na
  10. Store 32 to np
  11. Store 31 to nd
  12. If msel='~'
  13.   Store 30 to nn
  14.   Store 52 to na
  15.   Store 42 to np
  16.   Store 21 to nd
  17. endif
  18. Store 0 to pagenum
  19. Store T to BEGINNG
  20. Set format to print
  21. Store val($(date(),7,2)) to curyear
  22. Store chr(31) to chr31
  23. Store T to mornames
  24. Do while mornames
  25.   If .not. BEGINNG
  26.    If curline>61
  27.     if curline<63
  28.       EJECT
  29.     endif
  30.     Store pagenum+1 to pagenum
  31.     @ 0,0 say actvname
  32.     @ 0,52 say curdate
  33.     @ 0,73 say 'Page'+str(pagenum,3)
  34.     @ 2,0 say fcolhdr
  35.     @ 2,11 say ' NAME                 PHONE      ADDRESS'
  36.     Store 3 to curline
  37.    endif
  38.     @ curline,0 say &FCOLUMN
  39.     If $(ss:sc:memb,4,1)=chr31
  40.      @ curline,10 say '"'
  41.     else
  42.      If $(membstatus,1,1) = 'Y'
  43.       @ curline,10 say '-'
  44.      endif
  45.     endif
  46.     Store trim(first:name)+' '+trim(last:name) to fname
  47.     If len(fname) > nn
  48.       Store $(fname,1,nn)+'_' to fname
  49.     endif
  50.     @ curline,11 say fname
  51.     @ curline,np say home:phone
  52.     Store trim(address)+', '+trim(city:state) to faddress
  53.     If len(faddress) > nd
  54.       Store $(faddress,1,nd) to faddress
  55.     endif
  56.     @ curline,na say trim(faddress)+' '+zip
  57.     SKIP
  58.   endif
  59.   Store F to BEGINNG
  60.   Store curline+1 to curline
  61.   Do while .not. EOF .and. (* .or. $(membstatus,2,1)='*' .or. &BNAME)
  62.     SKIP
  63.   enddo
  64.   If EOF .or. &ANAME<>ANAME1
  65.     Store F to mornames
  66.   endif
  67. ENDDO
  68. If curline=99
  69.   @ 2,10 say actvname+'   '+curdate
  70.   @ 5,10 say 'No people found.'
  71. endif
  72. EJECT
  73. Release fcolhdr,fcolumn,actvname,curline,pagenum,beginng,mornames,fname
  74. Release faddress,chr31
  75. Set format to screen
  76. RETURN
  77.  
  78.  
  79. tion. Please enter again ' to MSEL
  80.       Store F to validd
  81.     endcase
  82.   enddo
  83. If LEVEL2
  84.   Set format to screen
  85.   Accept 'Report is complete. Pres