home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p190 / 4.ddi / PRG / WT.PRG < prev    next >
Encoding:
Text File  |  1990-02-28  |  1.7 KB  |  74 lines
  1. IF YDDJ<10
  2. STOR "J"+CHR(48+YDDJ) TO BGCH
  3. ELSE
  4. STOR YDDJ-10 TO NUM
  5. STOR "J"+CHR(49)+CHR(48+NUM) TO BGCH
  6. ENDI
  7. USE \HOUSEM\DBF\DTE
  8. LOCA FOR DL1>DMIN.AND.DL1<=DMAX
  9. STOR &BGCH TO DTE
  10. USE \HOUSEM\DBF\DEJ
  11. LOCA FOR DL1>DMIN.AND.DL1<=DMAX
  12. STOR &BGCH TO DEJ
  13. IF PWDJ<10
  14. STOR "J"+CHR(48+PWDJ) TO PGCH
  15. ELSE
  16. STOR PWDJ-10 TO NUM
  17. STOR "J"+CHR(49)+CHR(48+NUM) TO PGCH
  18. ENDI
  19. USE \HOUSEM\DBF\DTP
  20. LOCA FOR DL1>DMIN.AND.DL1<=DMAX.AND.M>MMIN.AND.M<=MMAX
  21. STOR &PGCH TO DSTP
  22. STOR 0-DSTP TO DXTP
  23. USE \HOUSEM\DBF\DT
  24. LOCA FOR DL1>DMIN.AND.DL1<=DMAX.AND.M>MMIN.AND.M<=MMAX
  25. STOR &PGCH TO DT
  26. STOR (13-JCDJ)*10 TO JCBD
  27. IF CHX='DC'.OR.CHX='dc'
  28. USE \HOUSEM\DBF\DSS
  29. LOCA FOR DL1>DMIN.AND.DL1<=DMAX.AND.M>MMIN.AND.M<=MMAX
  30. STOR &PGCH TO DSS
  31. USE \HOUSEM\DBF\DS
  32. LOCA FOR DL1>DMIN.AND.DL1<=DMAX
  33. STOR &BGCH TO DS
  34. ELSE
  35. USE \HOUSEM\DBF\DSS1
  36. LOCA FOR DL1>DMIN.AND.DL1<=DMAX.AND.M>MMIN.AND.M<=MMAX
  37. STOR &PGCH TO DSS
  38. USE \HOUSEM\DBF\DS1
  39. LOCA FOR DL1>DMIN.AND.DL1<=DMAX
  40. STOR &BGCH TO DS
  41. ENDI
  42. USE \HOUSEM\DBF\DDA
  43. LOCA FOR DL1>DMIN.AND.DL1<=DMAX
  44. STOR &BGCH TO DDA
  45. USE \HOUSEM\DBF\DH
  46. LOCA FOR M>MMIN.AND.M<=MMAX
  47. STOR &BGCH TO DH
  48. IF BGCH=7
  49. STOR 7 TO DSA
  50. ELSE
  51. STOR 10 TO DSA
  52. ENDI
  53. STOR 15 TO DSV
  54. USE \HOUSEM\DBF\ED
  55. LOCA FOR DL1>DMIN.AND.DL1<=DMAX
  56. STOR &BGCH TO ED
  57. IF JCDJ<10
  58. STOR "J"+CHR(48+JCDJ) TO JGCH
  59. ELSE
  60. STOR JCDJ-10 TO NUM
  61. STOR "J"+CHR(49)+CHR(48+NUM) TO JGCH
  62. ENDI
  63. USE \HOUSEM\DBF\ET
  64. LOCA FOR B>BMIN.AND.B<=BMAX
  65. STOR &JGCH TO ET
  66. USE \HOUSEM\DBF\CONJDZ
  67. APPE BLANK
  68. REPL DTE1 WITH DTE,DEJ1 WITH DEJ,DSTP1 WITH DSTP
  69. REPL DXTP1 WITH DXTP,DT1 WITH DT,JCBD1 WITH JCBD
  70. REPL DSS1 WITH DSS,DS1 WITH DS,DDA1 WITH DDA,DH1 WITH DH
  71. REPL DSA1 WITH DSA,DSV1 WITH DSV,ED1 WITH ED,ET1 WITH ET
  72. RETURN
  73.  
  74.