home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b007 / 2.ddi / AMISG / USERCAP.PRG < prev    next >
Encoding:
Text File  |  1990-05-28  |  649 b   |  42 lines
  1. ****  USERCAP.PRG ****
  2. PROC USERCAP
  3. PARA PN
  4. PRIV PN,PN_SUB,PN_1,PN_2,FN_SUB,FN_1,FN_2
  5. SELE 2
  6. SEEK PN
  7. DELE
  8. PN_SUB=TRIM(LTRIM(SUBPRG))
  9. FN_SUB=TRIM(LTRIM(SUBDBF))
  10. DO WHILE LEN(PN_SUB)<>0
  11. PN_1=AT(',',PN_SUB)
  12. IF PN_1<>0
  13. PN_2=SUBS(PN_SUB,1,PN_1-1)
  14. PN_SUB=SUBS(PN_SUB,PN_1+1)
  15. ELSE
  16. PN_2=PN_SUB
  17. PN_SUB=''
  18. ENDIF
  19. DO USERCAP WITH PN_2
  20. ENDDO
  21. SELE 3
  22. DO WHILE LEN(FN_SUB)<>0
  23. FN_1=AT(',',FN_SUB)
  24. IF FN_1<>0
  25. FN_2=SUBS(FN_SUB,1,FN_1-1)
  26. FN_SUB=SUBS(FN_SUB,FN_1+1)
  27. ELSE
  28. FN_2=FN_SUB
  29. FN_SUB=''
  30. ENDIF
  31. SEEK FN_2
  32. DELE
  33. FNO=F_NO
  34. SELE 4
  35. DELE ALL FOR F_NO=FNO
  36. SELE 5
  37. DELE ALL FOR F_NO=FNO
  38. SELE 3
  39. ENDDO
  40. RETU
  41. **** END OF USERCAP.PRG ****
  42.