home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / chrchpr4.zip / MS1LINE.CMD < prev    next >
OS/2 REXX Batch file  |  1987-01-06  |  2KB  |  76 lines
  1. * Program MS1LINE - Brief report of input file, as sorted (one-line)
  2. Store trim(CXNAME)+'   ' to CXNAME
  3. ?
  4. ?  'Now printing short report for ',MFILE
  5. Store 99 to curline
  6. Store 0 to pagenum
  7. Set format to print
  8. Store 6 to COLM
  9. Store T to beginng
  10. Store 0 to xtra
  11. Store trim(CNAME) to CNAME
  12. Store 0 to xtra
  13. Do while .not. EOF
  14. * If curenvl > 0
  15.     Do while curenvl<offeringen
  16.       @ curline,2 say str(curenvl,4)
  17.       Store curenvl+1 to curenvl
  18.       Store curline+1 to curline
  19.     enddo
  20. * endif
  21.   If curline > 58
  22.     If .not. BEGINNG
  23.       EJECT
  24.     endif
  25.     Store pagenum+1 to pagenum
  26.     @ 1,0 say  CXNAME+CNAME
  27.     @ 1,52 say  curdate
  28.     @ 1,72 say  'Page'+STR(pagenum,3)
  29.     @ 4,colm say 'S.C.   NAME              PHONE'
  30.     @ 4,colm+45 say 'Address'
  31.     Store 6 to curline
  32.   endif
  33.   If .not. beginng
  34.   Store ' ' to mbx
  35.   If $(MEMBSTATUS,1,1) = 'Y'
  36.     Store '-' to mbx
  37.   else
  38.     If $(membstatus,2,1) = '*'
  39.       Store '*' to mbx
  40.     else
  41.       If $(dates,1,4) = indate
  42.         Store '\' to mbx
  43.       endif
  44.     endif
  45.   endif
  46.   Store trim(address)+' '+trim(city:state) to addr
  47.   If len(addr) > 32
  48.     Store $(addr,1,32) to addr
  49.   endif
  50.   Store trim(last:name)+', '+trim(first:name) to fname
  51.   If len(fname) > 19
  52.     Store $(fname,1,19)+'_' to fname
  53.   endif
  54.   @ curline,0 say &ANAME
  55.   @ curline,colm say $(SS:SC:MEMB,1,4)
  56.   @ curline,colm+4 say MBX+fname
  57.   @ curline,colm+25 say home:phone
  58.   @ curline,colm+35 say addr+' '+ZIP
  59.   Store curline+1 to curline
  60.   SKIP
  61.   endif
  62.   Store F to beginng
  63.   Do while .not. EOF .and. (* .or. &BNAME)
  64.     SKIP
  65.   enddo
  66.   If curenvl>0
  67.     If curenvl<offeringen
  68.       Store curenvl+1 to curenvl
  69.     endif
  70.   endif
  71. ENDDO
  72. EJECT
  73. Set format to screen
  74. rELEASE CURENVL,CURLINE,PAGENUM,COLM,BEGINNG,XTRA,MBX,ADDR,FNAME,XX
  75. RETURN
  76. 17/48                      Y            42343-6879 C-3  JRH,E                    BD,                           BSG=001