home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a031 / template.exe / AS_TRCE.COD < prev    next >
Encoding:
Text File  |  1992-03-10  |  2.0 KB  |  87 lines
  1. //
  2. // Module Name: AS_TRCE.COD
  3. // Description: Used for stubs and status level
  4. //
  5. {// Enum string constants for international translation
  6. enum  trace1 = "S - Set trace level, D - Display status, M - display Memory",
  7.       trace2 = "P - Turn printer on, Q - to Quit",
  8.       trace3 = "Set trace level",
  9.       trace4 = "Enter trace level to change to:' GET gn_trace PICTURE '#",
  10.       trace5 = "            '0' turns trace off",
  11.       trace6 = "Trace is now turned off..To reactivate Trace - Press [F3]",
  12.       trace7 = "Press any key to continue...",
  13. ;
  14. }
  15. PROCEDURE Trace
  16. PARAMETERS pc_msg, pn_lvl
  17. *{replicate("-",69)}
  18. * DESCRIPTION
  19. *   Trace procedure to let programmer know what module
  20. *   is about to execute and what module has executed.
  21. *
  22. * PARAMETERS
  23. *   pc_msg   = message line
  24. *   pn_lvl   = trace level
  25. *
  26. *{replicate("-",69)}
  27.   PRIVATE lc_msg, ln_lvl, lc_trp
  28.  
  29.   lc_msg = pc_msg
  30.   ln_lvl = pn_lvl
  31.   lc_trp = ' '
  32.   IF gn_trace < ln_lvl{tabto(41)}&& Check for trace off
  33.     RETURN
  34.   ENDIF
  35.  
  36.   DEFINE WINDOW trace FROM 5,0 TO 16,79 DOUBLE
  37.   ACTIVATE WINDOW trace
  38.  
  39.   DO WHILE lc_trp <> 'Q'
  40.     CLEAR
  41.     @ 2,40-LEN(lc_msg)/2 SAY lc_msg
  42.     @ 4,05 SAY '{trace1}'
  43.     @ 5,05 SAY '{trace2}'
  44.     lc_trp = 'Q'
  45.     @ 5,38 GET lc_trp PICTURE "@M Q,S,D,M,P"
  46.     READ
  47.  
  48.     DO CASE
  49.  
  50.       CASE lc_trp = 'S'
  51.         @ 2,01 CLEAR
  52.         @ 2,33 SAY '{trace3}'
  53.         @ 4,05 SAY '{trace4}'
  54.         @ 5,05 SAY [{trace5}]
  55.         READ
  56.  
  57.         IF gn_trace=0
  58.           @ 2,01 CLEAR
  59.           @ 3,05 SAY '{trace6}'
  60.           @ 4,05 say '{trace7}'
  61.           WAIT ''
  62.           ON KEY LABEL F3 gn_trace = 1
  63.         ENDIF
  64.  
  65.       CASE lc_trp = 'D'
  66.         DISPLAY STATUS
  67.         WAIT
  68.  
  69.       CASE lc_trp = 'M'
  70.         DISPLAY MEMORY
  71.         WAIT
  72.  
  73.       CASE lc_trp = 'P'
  74.         SET PRINT ON
  75.  
  76.     ENDCASE
  77.   ENDDO
  78.  
  79.   SET PRINT OFF
  80.   RELEASE WINDOW trace
  81.   @ 24,79 SAY " "
  82.  
  83. RETURN
  84. *-- EOP: Trace WITH pc_msg, pn_lvl
  85. // EOP AS_TRCE.COD
  86.  
  87.