home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
chrchpr4.zip
/
MONELINE.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1987-01-06
|
2KB
|
85 lines
* Program MONELINE - One-line roster of a selected group from the input file.
Select primary
Store 98 to curline
? 'Now printing a one-line [OL] report of ',aname1
If len(actvname)<41
Store ' '+actvname to actvname
endif
Store 20 to nn
Store 42 to na
Store 32 to np
Store 31 to nd
If msel='~'
Store 30 to nn
Store 52 to na
Store 42 to np
Store 21 to nd
endif
Store 0 to pagenum
Store T to BEGINNG
Set format to print
Store val($(date(),7,2)) to curyear
Store chr(31) to chr31
Store T to mornames
Do while mornames
If .not. BEGINNG
If curline>61
if curline<63
EJECT
endif
Store pagenum+1 to pagenum
@ 0,0 say actvname
@ 0,52 say curdate
@ 0,73 say 'Page'+str(pagenum,3)
@ 2,0 say fcolhdr
@ 2,11 say ' NAME PHONE ADDRESS'
Store 3 to curline
endif
@ curline,0 say &FCOLUMN
If $(ss:sc:memb,4,1)=chr31
@ curline,10 say '"'
else
If $(membstatus,1,1) = 'Y'
@ curline,10 say '-'
endif
endif
Store trim(first:name)+' '+trim(last:name) to fname
If len(fname) > nn
Store $(fname,1,nn)+'_' to fname
endif
@ curline,11 say fname
@ curline,np say home:phone
Store trim(address)+', '+trim(city:state) to faddress
If len(faddress) > nd
Store $(faddress,1,nd) to faddress
endif
@ curline,na say trim(faddress)+' '+zip
SKIP
endif
Store F to BEGINNG
Store curline+1 to curline
Do while .not. EOF .and. (* .or. $(membstatus,2,1)='*' .or. &BNAME)
SKIP
enddo
If EOF .or. &ANAME<>ANAME1
Store F to mornames
endif
ENDDO
If curline=99
@ 2,10 say actvname+' '+curdate
@ 5,10 say 'No people found.'
endif
EJECT
Release fcolhdr,fcolumn,actvname,curline,pagenum,beginng,mornames,fname
Release faddress,chr31
Set format to screen
RETURN
tion. Please enter again ' to MSEL
Store F to validd
endcase
enddo
If LEVEL2
Set format to screen
Accept 'Report is complete. Pres