Liren Large Software Subsidy 6/06.iso/b/b007/2.ddi/AMISG/DBSDISP.PRG

Text File | 1990-05-08 | 1.0 KB | 45 lines

** BEGIN OF DBSDISP.PRG **
DIME F(12)
STOR '' TO FN,CFN,FNO,F
DO SELEF
IF LEN(FNO)=0
RETU
ENDIF
USE &FN
RECNUM=RECC()
USE
IF TYPE('HS')='U'
HS=25
ENDIF
ST=INT(HS/10-1)
@ 1,0 CLEAR
@ ST+1,5 SAY '╬─ ╝■ ├√:&FN..DBF'
@ ST+1,35 SAY '  ╫╓╢╬╕÷╩²:'+STR(F(6),3)
@ ST+1,55 SAY '╝╟ ┬╝ ╩²:'+STR(RECNUM,5)
@ ST+2,5 SAY '╬─╝■├Φ╩÷:'+TRIM(F(7))
@ ST+2,35 SAY '╦≈╥²╬─╝■╩²: '+STR(F(9),2)
@ ST+2,55 SAY '╝╟┬╝│ñ╢╚: '+STR(F(5),4)
USE DBD INDE DBD
SET FILT TO F_NO=FNO
GO TOP
SET HEAD OFF
@ ST*2+3,0 SAY '|╨≥|          |└α|┐φ |╨í╩²|              |┬δ|┬δ|'
@ ST*2+4,0 SAY '|║┼|  ╫╓╢╬├√  |╨═|╢╚-|╬╗╩²|  ║║╫╓╫╓╢╬├√  |▒Ω|┐φ|┤·┬δ╔Φ╝╞/▒╕╫ó-------------------'
DO WHILE .NOT.EOF()
@ ST*2+4,79 SAY ''
DISP NEXT HS-ST*2-6 OFF FIELD FIELD_NO,FIELD_NAME,FIELD_TYPE,'',FIELD_LEN,FIELD_DEC,'',C_NAME,CODE,'',LEN,SUBS(NOTE,1,31)
IF .NOT.EOF()
@ HS-1,30 SAY '░┤╚╬╥Γ╝ⁿ╝╠╨°╧╘╩╛ . . . '
A=INKEY(0)
@ ST*2+5,0 CLEAR
LOOP
ELSE
@ HS-1,30 SAY '░┤╚╬╥Γ╝ⁿ╘≥╖╡╗╪ . . .   '
A=INKEY(0)
EXIT
ENDIF
ENDDO
USE
RETU
** END OF DBSDISP.PRG **