home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a046 / 5.img / TEMPLATE / SSBINST.INC < prev    next >
Encoding:
Text File  |  1992-04-01  |  1.2 KB  |  58 lines
  1. <<* SSBINST.INC *>>
  2. <<* (C) 1991 SHEN YANG WHITE HORSE SOFTWART COMPANY  *>>
  3.  
  4. <<procedure GenSBINSTBody>>
  5. <<begin>>
  6. PRIVATE;
  7.     PartMenuDB,PartMenuTX
  8. STORE {"}{fileprefix}000.txt{"} TO PartMenuTX
  9. IF .NOT. FILE( PartMenuTX )
  10.    ? {"}{fileprefix}000.txt ╬─╝■▓╗┤µ╘┌.{"}
  11.    WAIT
  12.    QUIT
  13. ENDIF
  14. * STORE {"}{fileprefix}000.sdb{"} TO PartMenuDB
  15. * IF .NOT. FILE( PartMenuDB )
  16. *    CREATE {fileprefix}000.sdb FROM MenuDBSt.sdb
  17. *    USE {fileprefix}000.sdb
  18. *    APPEND FROM {fileprefix}000 TYPE DELIMITED
  19. * ELSE
  20. USE {fileprefix}000.sdb
  21. * ENDIF
  22. STORE 1 TO i
  23. count to Px1 for Procnumb = "0"
  24. dimension Prc_M(Px1,3)
  25. GOTO TOP
  26. DO WHILE .NOT.EOF()
  27.    SCATTER TO AA
  28.    Prc_M(i,1) = AA(3)
  29.    Prc_M(i,2) = AA(1)
  30.    SKIP
  31.    IF Procnumb = "1"
  32.       Recnum = RECNO()
  33.       labnum = Businumb
  34.       COUNT TO X2 FOR Businumb = labnum
  35.       X2 = X2 - 1
  36.       Prc_M(i,3) = X2
  37.       GOTO Recnum
  38.       CrName = "Prc"+Businumb
  39.       DIMENSION &CrName(X2,2)
  40.    ENDIF
  41.    x = 1
  42.    i = i + 1
  43.    DO WHILE .NOT.EOF() .AND. Procnumb <> "0"
  44.       scatter to aa
  45.       &CrName(x,1) = aa(3)
  46.       &CrName(x,2) = aa(4)
  47.       skip
  48.       x = x + 1
  49.    ENDDO
  50. ENDDO
  51. SAVE TO {fileprefix}000 ALL LIKE p*
  52. USE
  53. ERASE {fileprefix}000.sdb
  54.  
  55. << end >>
  56.  
  57. <<* EOF: SSBINST.INC *>>
  58.