home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
chrchpr4.zip
/
MS1LINE.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1987-01-06
|
2KB
|
76 lines
* Program MS1LINE - Brief report of input file, as sorted (one-line)
Store trim(CXNAME)+' ' to CXNAME
?
? 'Now printing short report for ',MFILE
Store 99 to curline
Store 0 to pagenum
Set format to print
Store 6 to COLM
Store T to beginng
Store 0 to xtra
Store trim(CNAME) to CNAME
Store 0 to xtra
Do while .not. EOF
* If curenvl > 0
Do while curenvl<offeringen
@ curline,2 say str(curenvl,4)
Store curenvl+1 to curenvl
Store curline+1 to curline
enddo
* endif
If curline > 58
If .not. BEGINNG
EJECT
endif
Store pagenum+1 to pagenum
@ 1,0 say CXNAME+CNAME
@ 1,52 say curdate
@ 1,72 say 'Page'+STR(pagenum,3)
@ 4,colm say 'S.C. NAME PHONE'
@ 4,colm+45 say 'Address'
Store 6 to curline
endif
If .not. beginng
Store ' ' to mbx
If $(MEMBSTATUS,1,1) = 'Y'
Store '-' to mbx
else
If $(membstatus,2,1) = '*'
Store '*' to mbx
else
If $(dates,1,4) = indate
Store '\' to mbx
endif
endif
endif
Store trim(address)+' '+trim(city:state) to addr
If len(addr) > 32
Store $(addr,1,32) to addr
endif
Store trim(last:name)+', '+trim(first:name) to fname
If len(fname) > 19
Store $(fname,1,19)+'_' to fname
endif
@ curline,0 say &ANAME
@ curline,colm say $(SS:SC:MEMB,1,4)
@ curline,colm+4 say MBX+fname
@ curline,colm+25 say home:phone
@ curline,colm+35 say addr+' '+ZIP
Store curline+1 to curline
SKIP
endif
Store F to beginng
Do while .not. EOF .and. (* .or. &BNAME)
SKIP
enddo
If curenvl>0
If curenvl<offeringen
Store curenvl+1 to curenvl
endif
endif
ENDDO
EJECT
Set format to screen
rELEASE CURENVL,CURLINE,PAGENUM,COLM,BEGINNG,XTRA,MBX,ADDR,FNAME,XX
RETURN
17/48 Y 42343-6879 C-3 JRH,E BD, BSG=001